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

help.html: simplify (and separate) index generation.

db4
John Benediktsson 2014-09-25 21:30:36 -07:00
parent 179c60b0a5
commit aae6fb2ae3
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,7 +47,7 @@ M: vocab-author topic>filename* name>> "author" ;
M: f topic>filename* drop \ f topic>filename* ; M: f topic>filename* drop \ f topic>filename* ;
: topic>filename ( topic -- filename ) : topic>filename ( topic -- filename )
topic>filename* dup [ topic>filename* [
[ [
% "-" % % "-" %
dup array? dup array?
@ -55,7 +55,7 @@ M: f topic>filename* drop \ f topic>filename* ;
[ escape-filename ] [ escape-filename ]
if % ".html" % if % ".html" %
] "" make ] "" make
] [ 2drop f ] if ; ] [ drop f ] if* ;
M: topic url-of topic>filename ; M: topic url-of topic>filename ;
@ -111,16 +111,26 @@ M: pathname url-of
] { } make ; ] { } make ;
: serialize-index ( index file -- ) : serialize-index ( index file -- )
[ [ [ topic>filename ] dip ] { } assoc-map-as object>bytes ] dip binary [
binary set-file-contents ; [ [ topic>filename ] dip ] { } assoc-map-as serialize
] with-file-writer ;
: generate-article-index ( -- )
articles get [ [ >link ] [ article-title ] bi* ] assoc-map
"articles.idx" serialize-index ;
: generate-word-index ( -- )
all-words [ dup name>> ] { } map>assoc
"words.idx" serialize-index ;
: generate-vocab-index ( -- )
all-vocabs-really [ dup vocab-name ] { } map>assoc
"vocabs.idx" serialize-index ;
: generate-indices ( -- ) : generate-indices ( -- )
articles get keys [ [ >link ] [ article-title ] bi ] { } map>assoc "articles.idx" serialize-index generate-article-index
all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index generate-word-index
all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ; generate-vocab-index ;
: (generate-help-files) ( -- )
all-topics [ '[ _ generate-help-file ] try ] each ;
: generate-help-files ( -- ) : generate-help-files ( -- )
H{ H{
@ -128,7 +138,9 @@ M: pathname url-of
{ recent-words f } { recent-words f }
{ recent-articles f } { recent-articles f }
{ recent-vocabs f } { recent-vocabs f }
} [ (generate-help-files) ] with-variables ; } [
all-topics [ '[ _ generate-help-file ] try ] each
] with-variables ;
: generate-help ( -- ) : generate-help ( -- )
"docs" cache-file "docs" cache-file