word-completion

Vocabulary

ui.tools.listener.completion

Definition

IN: ui.tools.listener.completion

TUPLE: word-completion manifest ;

Methods

USING: accessors continuations kernel ui.tools.listener
ui.tools.listener.completion vocabs.parser ;

M: word-completion (word-at-caret)
    manifest>>
    [ [ search-manifest ] 2curry [ drop f ] recover ] [ drop f ]
    if* ;


USING: kernel ui.tools.listener.completion ;

M: word-completion completion-banner drop "Words" ;


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

M: word-completion completion-quot
    [ words-matching ] (completion-quot) ;


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

M: word-completion row-color
    [ first vocabulary>> ] [ manifest>> ] bi* {
        { [ dup not ] [ text-color ] }
        { [ 2dup search-vocab-names>> in? ] [ text-color ] }
        { [ over ".private" tail? ] [ COLOR: dark-red ] }
        [ COLOR: dark-gray ]
    } cond 2nip ;