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