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

help.apropos: remove extra whitespace.

db4
John Benediktsson 2015-04-17 18:04:08 -07:00
parent 9eb365abe0
commit 1ce1e2d27e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ SYMBOLS: word-result vocabulary-result article-result ;
{ vocabulary-result [ "Vocabularies" ] } { vocabulary-result [ "Vocabularies" ] }
{ article-result [ "Help articles" ] } { article-result [ "Help articles" ] }
} case ; } case ;
: category>name ( category -- name ) : category>name ( category -- name )
{ {
{ word-result [ "word" ] } { word-result [ "word" ] }
@ -43,9 +43,9 @@ M: more-completions article-title
"All " % "All " %
[ seq>> length # " " % ] [ seq>> length # " " % ]
[ category>> category>name % ] [ category>> category>name % ]
[ " results for “" % search>> % "”" % ] tri [ " results for “" % search>> % "”" % ] tri
] "" make ; ] "" make ;
M: more-completions article-content M: more-completions article-content
seq>> [ second >lower ] sort-with keys \ $completions prefix ; seq>> [ second >lower ] sort-with keys \ $completions prefix ;