1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors assocs furnace.actions furnace.redirection
4 help.html help.topics html.components html.forms http.server
5 http.server.dispatchers http.server.static io.directories
6 io.files.temp kernel locals namespaces sequences
10 TUPLE: help-webapp < dispatcher ;
12 : links ( seq -- seq' )
13 [ swap <simple-link> ] { } assoc>map ;
15 :: <search-action> ( help-dir -- action )
17 { help-webapp "search" } >>template
19 "search" param [ blank? ] trim [
21 [ article-apropos links "articles" set-value ]
22 [ word-apropos links "words" set-value ]
23 [ vocab-apropos links "vocabs" set-value ] tri
26 help-navbar "navbar" set-value
28 { help-webapp "search" } <chloe-content>
31 : help-url ( topic -- url )
32 topic>filename "$help-webapp/content/" prepend >url ;
34 : <main-action> ( -- action )
36 [ "handbook" >link help-url <redirect> ] >>display ;
38 :: <help-webapp> ( help-dir -- webapp )
39 help-webapp new-dispatcher
40 <main-action> <secure-only> "" add-responder
41 help-dir <search-action> <secure-only> "search" add-responder
42 help-dir <static> <secure-only> "content" add-responder
43 "resource:basis/definitions/icons/" <static> <secure-only> "icons" add-responder ;
44 "resource:basis/ui/tools/error-list/icons/" <static> <secure-only> "icons2" add-responder ;
46 : run-help-webapp ( -- )
47 "docs" cache-file <help-webapp>
48 main-responder set-global