vocab-completion

Vocabulary

ui.tools.listener.completion

Definition

IN: ui.tools.listener.completion

SINGLETON: vocab-completion

Methods

USING: kernel ui.tools.listener ui.tools.listener.completion
vocabs vocabs.loader ;

M: vocab-completion (word-at-caret)
    drop dup vocab-exists? [ >vocab-link ] [ drop f ] if ;


USING: kernel ui.tools.listener.completion ;

M: vocab-completion completion-banner drop "Vocabularies" ;


USING: tools.completion ui.tools.listener.completion ;

M: vocab-completion completion-quot
    [ vocabs-matching ] (completion-quot) ;


USING: accessors colors kernel sequences ui.gadgets.tables
ui.theme ui.tools.listener.completion vocabs ;

M: vocab-completion row-color
    drop first dup vocab?
    [ name>> ".private" tail? COLOR: dark-red text-color ? ]
    [ drop COLOR: dark-gray ] if ;