steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.html: don't display recent searches. Fixes #211.

db4
John Benediktsson 2011-09-29 12:10:27 -07:00
parent 76580da5d5
commit aa0f7d0f72
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/help/html/html.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io.encodings.utf8 io.encodings.binary USING: io.encodings.utf8 io.encodings.binary io.files
io.files io.files.temp io.directories html.streams help kernel io.files.temp io.directories html.streams help help.home kernel
assocs sequences make words accessors arrays help.topics vocabs assocs sequences make words accessors arrays help.topics vocabs
vocabs.hierarchy help.vocabs namespaces prettyprint io vocabs.hierarchy help.vocabs namespaces prettyprint io
vocabs.loader serialize fry memoize unicode.case math.order vocabs.loader serialize fry memoize unicode.case math.order
@ -69,7 +69,7 @@ M: topic url-of topic>filename ;
[ drop help-stylesheet ] [ drop help-stylesheet ]
[ [ print-topic ] with-html-writer ] [ [ print-topic ] with-html-writer ]
tri simple-page ; tri simple-page ;
: generate-help-file ( topic -- ) : generate-help-file ( topic -- )
dup topic>filename utf8 [ help>html write-xml ] with-file-writer ; dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;
@ -95,9 +95,12 @@ M: topic url-of topic>filename ;
all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index
all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ; all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ;
: generate-help-files ( -- ) : (generate-help-files) ( -- )
all-topics [ '[ _ generate-help-file ] try ] each ; all-topics [ '[ _ generate-help-file ] try ] each ;
: generate-help-files ( -- )
f recent-searches [ (generate-help-files) ] with-variable ;
: generate-help ( -- ) : generate-help ( -- )
"docs" temp-file "docs" temp-file
[ make-directories ] [ make-directories ]