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

tools.completion: support qualified word completions.

master
John Benediktsson 2020-09-22 11:12:52 -07:00
parent 979c13e156
commit 03e62f3bc5
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/tools/completion/completion.factor
View File

@ -78,15 +78,23 @@ PRIVATE>
: name-completions ( str seq -- seq' ) : name-completions ( str seq -- seq' )
[ dup name>> ] { } map>assoc completions ; [ dup name>> ] { } map>assoc completions ;
: vocab-words-matching ( str vocab -- seq )
vocab-words name-completions ;
: qualified-matching ( str -- seq/f )
":" split1 [
swap
[ vocab-words-matching ]
[ ":" append [ prepend ] curry assoc-map ] bi
] [ drop f ] if* ;
: words-matching ( str -- seq ) : words-matching ( str -- seq )
all-words name-completions ; [ all-words name-completions ]
[ qualified-matching [ prepend ] unless-empty ] bi ;
: vocabs-matching ( str -- seq ) : vocabs-matching ( str -- seq )
all-disk-vocabs-recursive filter-vocabs name-completions ; all-disk-vocabs-recursive filter-vocabs name-completions ;
: vocab-words-matching ( str vocab -- seq )
vocab-words name-completions ;
: chars-matching ( str -- seq ) : chars-matching ( str -- seq )
name-map keys dup zip completions ; name-map keys dup zip completions ;