(word-at-caret) ( token completion-mode -- obj )

Vocabulary

ui.tools.listener

Inputs

token	an object
completion-mode	an object

Outputs

obj

an object

Definition

IN: ui.tools.listener

GENERIC: (word-at-caret) ( token completion-mode -- obj )

Methods

USING: kernel ui.tools.listener ;

M: object (word-at-caret) 2drop f ;


USING: continuations 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 ]
    [ 2drop f ] recover ;


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

M: vocab-word-completion (word-at-caret)
    vocab-name>> lookup-word ;


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* ;