 furnace.redirection help.html help.topics html.components
 html.forms http.server http.server.dispatchers
 http.server.static io.directories io.files.temp io.servers
-kernel namespaces sequences splitting unicode urls ;
+kernel namespaces sequences simple-tokenizer splitting unicode
+urls ;
 IN: webapps.help
 
 TUPLE: help-webapp < dispatcher ;

            f "search" param [ unicode:blank? ] trim
            dup "search" set-value [
                help-dir [
                    [ article-apropos ?links "articles" set-value ]
                    [ word-apropos ?links "words" set-value ]
                    [ vocab-apropos ?links "vocabs" set-value ] tri

: ?links ( has-links? apropos -- has-links? seq/f )
    links [ f ] [ nip t swap ] if-empty ;

: ?tokenize ( str -- str' )
    [ tokenize ] [ drop 1array ] recover ;

:: <search-action> ( help-dir -- action )
    <page-action>
        { help-webapp "search" } >>template
