<search-action> ( help-dir -- action )


Vocabulary
webapps.help

Inputs
help-diran object


Outputs
actionan object


Definition
USING: accessors furnace.actions furnace.boilerplate help.html
html.forms http.server io.directories kernel sequences unicode ;

IN: webapps.help

:: <search-action> ( help-dir -- action )
<page-action> { help-webapp "search" } >>template [
f "search" param [ 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
] with-directory
] unless-empty not "empty" set-value
help-nav "nav" set-value
{ help-webapp "search" } <chloe-content>
] >>display <boilerplate> { help-webapp "help" } >>template
;