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

Fix help search again

db4
Slava Pestov 2008-11-17 17:30:47 -06:00
parent 7815560f30
commit b50d4c9b36
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,10 +115,10 @@ M: result link-href href>> ;
[ [ title>> ] compare ] sort ; [ [ title>> ] compare ] sort ;
: article-apropos ( string -- results ) : article-apropos ( string -- results )
"docs/articles.idx" temp-file offline-apropos ; "articles.idx" offline-apropos ;
: word-apropos ( string -- results ) : word-apropos ( string -- results )
"docs/words.idx" temp-file offline-apropos ; "words.idx" offline-apropos ;
: vocab-apropos ( string -- results ) : vocab-apropos ( string -- results )
"docs/vocabs.idx" temp-file offline-apropos ; "vocabs.idx" offline-apropos ;

8
extra/webapps/help/help.factor
View File

@ -18,9 +18,11 @@ TUPLE: help-webapp < dispatcher ;
help-dir set-current-directory help-dir set-current-directory
"search" value article-apropos "articles" set-value help-dir [
"search" value word-apropos "words" set-value "search" value article-apropos "articles" set-value
"search" value vocab-apropos "vocabs" set-value "search" value word-apropos "words" set-value
"search" value vocab-apropos "vocabs" set-value
] with-directory
{ help-webapp "search" } <chloe-content> { help-webapp "search" } <chloe-content>
] >>submit ; ] >>submit ;