1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors arrays assocs fry help.markup help.topics io
4 kernel make math math.parser namespaces sequences sorting
5 summary tools.completion tools.vocabs tools.vocabs.browser
6 vocabs words unicode.case help ;
9 : $completions ( seq -- )
10 dup [ word? ] all? [ words-table ] [
11 dup [ vocab-spec? ] all? [
14 [ <$pretty-link> 1array ] map $table
18 TUPLE: more-completions seq ;
20 CONSTANT: max-completions 5
22 M: more-completions article-title
23 seq>> length number>string " results" append ;
25 M: more-completions article-name
26 seq>> length max-completions - number>string " more results" append ;
28 M: more-completions article-content
29 seq>> sort-values keys \ $completions prefix ;
31 : (apropos) ( str candidates title -- element )
33 [ completions ] dip '[
34 _ 1array \ $heading prefix ,
35 [ max-completions short head keys \ $completions prefix , ]
36 [ dup length max-completions > [ more-completions boa <$link> , ] [ drop ] if ]
41 : word-candidates ( words -- candidates )
42 [ dup name>> >lower ] { } map>assoc ;
44 : vocab-candidates ( -- candidates )
45 all-vocabs-seq [ dup vocab-name >lower ] { } map>assoc ;
47 : help-candidates ( seq -- candidates )
48 [ [ >link ] [ article-title >lower ] bi ] { } map>assoc
53 [ all-words word-candidates "Words" (apropos) ]
54 [ vocab-candidates "Vocabularies" (apropos) ]
55 [ articles get keys help-candidates "Help articles" (apropos) ]
56 tri 3array print-element ;
58 TUPLE: apropos search ;
62 M: apropos article-title
63 search>> "Search results for “" "”" surround ;
65 M: apropos article-name article-title ;
67 M: apropos article-content
68 search>> 1array \ $apropos prefix ;
71 <apropos> print-topic ;