completion-mode ( interactor -- symbol )

Vocabulary

ui.tools.listener.completion

Inputs

interactor

an object

Outputs

symbol

an object

Definition

USING: accessors combinators kernel sequences splitting
tools.completion ui.gadgets.editors ;

IN: ui.tools.listener.completion

: completion-mode ( interactor -- symbol )
    [ manifest>> ] [ editor-caret ] [ model>> ] tri up-to-caret
    " \r\n" split {
        { [ dup complete-vocab? ] [ 2drop vocab-completion ] }
        { [ dup complete-char? ] [ 2drop char-completion ] }
        { [ dup complete-color? ] [ 2drop color-completion ] }
        { [ dup complete-editor? ] [ 2drop editor-completion ] }
        { [ dup complete-pathname? ] [ 2drop path-completion ] }
        {
            [ dup complete-vocab-words? ]
            [ nip harvest second <vocab-word-completion> ]
        }
        [ drop <word-completion> ]
    } cond ;