             f "search" param [ unicode:blank? ] trim
             dup "search" set-value [
                 help-dir [
+                    ?tokenize concat
                     [ 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 ;

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

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 simple-tokenizer splitting unicode
urls ;
IN: webapps.help

TUPLE: help-webapp < dispatcher ;
