+" Vim syntax file

+" Language: CNM 0.3

+" Maintainer: <clsr@clsr.net>

+" Last Change: 2017-08-18

+" Version: 0.1.0

+" Filenames: *.cnm

+" Bugs: Nested syntaxes in raw blocks include block indentation

+

+if !exists('g:main_syntax')

+ if exists('b:current_syntax')

+ finish

+ endif

+ let g:main_syntax = 'cnm'

+

+ " sync from the current top-level element

+ syn sync match cnmSync grouphere NONE "^[^\t]"

+ "syn sync fromstart

+endif

+

+

+function! s:generateRawSyntaxes()

+ if !exists('g:cnm_raw_syntaxes')

+ "let g:cnm_raw_syntaxes = {

+ " \ 'text/json': 'json',

+ " \ 'application/json': 'json',

+ " \ 'json': 'json',

+ let g:cnm_raw_syntaxes = {

+ \ 'text/cnm': 'cnm',

+ \ 'cnm': 'cnm',

+ \ 'message/cnp': 'cnp',

+ \ 'application/cnp': 'cnp',

+ \ 'cnp': 'cnp',

+ \ 'text/cnm-fmt': 'cnmfmt',

+ \ 'cnm-fmt': 'cnmfmt',

+ \ 'cnmfmt': 'cnmfmt',

+ \ }

+ endif

+ if exists('g:cnm_raw_syntaxes_extra')

+ for [l:k, l:v] in items(g:cnm_raw_syntaxes_extra)

+ let g:cnm_raw_syntaxes[l:k] = l:v

+ endfor

+ endif

+ " CNM and CNMfmt syntaxes are already defined below as clusters

+ let l:syntaxes = {'Cnm': 1, 'Cnmfmt': 1}

+ for [l:lang, l:syntax] in items(g:cnm_raw_syntaxes)

+ let l:slang = substitute(l:syntax, '\(\w\+\)\W\?', '\u\1', 'g')

+ "try

+ if !has_key(l:syntaxes, l:slang)

+ exe 'syn include @cnmLang' . l:slang . ' syntax/' . l:syntax . '.vim'

+ unlet! b:current_syntax

+ let l:syntaxes[l:slang] = 1

+ endif

+ call s:generateBlock('raw ' . l:lang, 'cnmRaws', 'contained contains=@cnmLang' . l:slang)

+ "catch

+ "endtry

+ endfor

+endfunction

+

+function! s:generateBlock(name, cluster, options)

+ let l:region = 'cnm' . substitute(substitute(a:name, '\(\w\+\) \?', '\u\1', 'g'), '\W', '', 'g')

+ let l:name = substitute(a:name, ' ', '\\s\\+', 'g')

+ exe 'syn region ' . l:region . ' matchgroup=cnmBlock start="^\z(\t*\)\<' . l:name . '\(\s\|$\)\@=.*$" end="^\(\t*[^\t]\)\@=" skip="^\z1\t\+\([^\t]\)\@=" keepend ' . a:options

+ exe 'syn cluster ' . a:cluster . ' add=' . l:region

+endfunction

+

+

+syn include @cnmFmt syntax/cnmfmt.vim

+

+

+" XXX: make `raw text/cnm` work

+syn cluster cnmLangCnm contains=@cnmToplevelBLocks,@cnmContentBlocks,cnmError

+" `raw text/cnm-fmt`

+syn cluster cnmLangCnmfmt contains=@cnmFmt

+

+" all blocks that contain other blocks

+syn cluster cnmToplevelBlocks contains=cnmUnknown

+syn cluster cnmContainerBlocks contains=cnmUnknown

+syn cluster cnmContentBlocks contains=cnmUnknown,@cnmContainerBlocks,@cnmTexts,@cnmRaws,cnmEmbed

+syn cluster cnmTableBlocks contains=cnmUnknown

+

+" misc.

+syn match cnmError ".*"

+syn match cnmEscape "\\[nt\\ ]" contained

+syn match cnmEscape "\\x\x\{2\}" contained

+syn match cnmEscape "\\u\x\{4\}" contained

+syn match cnmEscape "\\U\x\{8\}" contained

+

+" top-level blocks

+syn region cnmUnknown matchgroup=cnmError start="^\z(\t*\)[^\t].*$" end="^\(\t*[^\t]\)\@=" skip="^\z1\t\+\([^\t]\)\@=" keepend contains=cnmError

+call s:generateBlock('content', 'cnmToplevelBlocks', 'contains=@cnmContentBlocks')

+call s:generateBlock('site', 'cnmToplevelBlocks', 'contains=cnmSiteLines,cnmError')

+call s:generateBlock('title', 'cnmToplevelBlocks', 'contains=cnmEscape,@Spell')

+call s:generateBlock('links', 'cnmToplevelBlocks', 'contains=cnmLinkLines')

+

+" content/

+call s:generateBlock('section', 'cnmContainerBlocks', 'contained contains=@cnmContentBlocks')

+call s:generateBlock('table', 'cnmContainerBlocks', 'contained contains=@cnmTableBlocks')

+call s:generateBlock('list', 'cnmContainerBlocks', 'contained contains=@cnmContentBlocks')

+

+" content/table/

+call s:generateBlock('header', 'cnmTableBlocks', 'contained contains=@cnmContentBlocks')

+call s:generateBlock('row', 'cnmTableBlocks', 'contained contains=@cnmContentBlocks')

+

+" content/raw

+call s:generateBlock('raw', 'cnmRaws', 'contained')

+call s:generateRawSyntaxes()

+

+" content/text

+call s:generateBlock('text', 'cnmTexts', 'contained contains=cnmEscape,@Spell')

+call s:generateBlock('text plain', 'cnmTexts', 'contained contains=cnmEscape,@Spell')

+call s:generateBlock('text fmt', 'cnmTexts', 'contained contains=@cnmFmt,@Spell')

+

+" content/embed

+call s:generateBlock('embed', 'cnmEmbed', 'contained contains=cnmEscape,@Spell')

+

+" links/

+syn match cnmLinkLines "^.*$" keepend contained contains=cnmLinkUrl,cnmLinkText

+syn match cnmLinkText "^\t\t.*" contained contains=cnmEscape

+syn match cnmLinkUrl "\S\+" contained

+

+" site/

+syn match cnmSiteLines "^\t*[^\t ]\+\(\s.*\)\?$" keepend contained contains=cnmSitePath,cnmSiteText

+syn match cnmSitePath "\S\+" contained contains=cnmSiteSlash

+syn match cnmSiteText "\([^ \t]\)\@<=\s\+.*" contained contains=cnmEscape

+syn match cnmSiteSlash "/\S\@=" contained

+

+

+hi def link cnmBlock Keyword

+hi def link cnmError Error

+hi def link cnmLinkUrl Underlined

+hi def link cnmLinkText String

+hi def link cnmSitePath Underlined

+hi def link cnmSiteSlash Keyword

+hi def link cnmSiteText String

+"hi def link cnmText String

+hi def link cnmRaw String

+hi def link cnmEmbed String

+hi def link cnmTitle String

+hi def link cnmEscape Special

+

+syn match TODO "TODO" contained containedin=cnmText,@cnmFmt

+hi def link TODO TODO

+

+

+let b:current_syntax = 'cnm'

+if g:main_syntax ==# 'cnm'

+ unlet g:main_syntax

+endif

+

+

+" vim: set noet: