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

Finishing up with help.html

db4
Slava Pestov 2008-09-29 04:23:42 -05:00
parent 55f46957af
commit bbd8c8cb89
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,11 +63,11 @@ M: topic browser-link-href topic>filename ;
: all-topics ( -- topics )
[
! articles get keys [ >link ] map %
! all-words [ >link ] map %
! all-authors [ <vocab-author> ] map %
articles get keys [ >link ] map %
all-words [ >link ] map %
all-authors [ <vocab-author> ] map %
all-tags [ <vocab-tag> ] map %
! all-vocabs-really %
all-vocabs-really %
] { } make ;
: serialize-index ( index file -- )
@ -79,9 +79,19 @@ M: topic browser-link-href topic>filename ;
all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index
all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ;
: generate-help ( -- )
: generate-help-files ( -- )
all-topics [ help>html ] each ;
: generate-help ( -- )
{ "resource:core" "resource:basis" "resource:extra" } vocab-roots [
load-everything
"/tmp/docs/" [
generate-indices
generate-help-files
] with-directory
] with-variable ;
MEMO: load-index ( name -- index )
binary file-contents bytes>object ;