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

Minor apropos fix

db4
Slava Pestov 2009-01-08 00:02:47 -06:00
parent 6750019dbb
commit d2f1ead23e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/tools/apropos/apropos.factor
View File

@ -17,9 +17,10 @@ IN: tools.apropos
TUPLE: more-completions seq ;
: max-completions 5 ;
CONSTANT: max-completions 5
M: more-completions article-title article-name ;
M: more-completions article-title
seq>> length number>string " results" append ;
M: more-completions article-name
seq>> length max-completions - number>string " more results" append ;
@ -34,7 +35,7 @@ M: more-completions summary article-title ;
[ completions ] dip '[
_ 1array \ $heading prefix ,
[ max-completions short head keys \ $completions prefix , ]
[ dup length max-completions > [ more-completions boa 1array \ $link prefix , ] [ drop ] if ]
[ dup length max-completions > [ more-completions boa <$link> , ] [ drop ] if ]
bi
] unless-empty
] { } make ;
@ -46,7 +47,7 @@ M: more-completions summary article-title ;
all-vocabs-seq [ dup vocab-name >lower ] { } map>assoc ;
: help-candidates ( seq -- candidates )
[ dup >link swap article-title >lower ] { } map>assoc
[ [ >link ] [ article-title >lower ] bi ] { } map>assoc
sort-values ;
: $apropos ( str -- )