write-keywords ( vocab -- )

Vocabulary

editors.vim.generate-syntax.private

Inputs

vocab

an object

Outputs

None

Definition

USING: accessors io kernel sequences sorting vocabs ;

IN: editors.vim.generate-syntax.private

: write-keywords ( vocab -- )
    lookup-vocab [ name>> ] [ vocab-words [ name>> ] map ] bi
    sort [
        [
            vocab-name>syntax-group-name
            [ "SynKeywordFactorWord " write write " | " write ]
            keep
        ] dip { "contained" } write-syn-keyword nl
    ] [ drop ] if* ;