Added aliases and zepto vim plugin
This commit is contained in:
hellerve
1
vim/.vim/ftdetect/zepto.vim
Normal file
1
vim/.vim/ftdetect/zepto.vim
Normal file
@@ -0,0 +1 @@
|
||||
au BufRead,BufNewFile *.zp set filetype=zepto
|
||||
0
vim/.vim/syntax/lol.vim
Normal file
0
vim/.vim/syntax/lol.vim
Normal file
252
vim/.vim/syntax/zepto.vim
Normal file
252
vim/.vim/syntax/zepto.vim
Normal file
@@ -0,0 +1,252 @@
|
||||
" Vim syntax file
|
||||
" Language: Zepto
|
||||
" Maintainer: Veit Heller <veit@veitheller.de>
|
||||
" URL: http://github.com/zepto-lang/vim-zepto.git
|
||||
" Description: Contains all of the keywords in #lang zepto
|
||||
|
||||
if exists("b:current_syntax")
|
||||
finish
|
||||
endif
|
||||
|
||||
syn case ignore
|
||||
|
||||
syn match zeptoError ,[]})],
|
||||
|
||||
if version < 600
|
||||
set iskeyword=33,35-39,42-58,60-90,94,95,97-122,124,126,_
|
||||
else
|
||||
setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,124,126,_
|
||||
endif
|
||||
|
||||
|
||||
syn keyword zeptoSyntax quote \| <- , typeof
|
||||
syn keyword zeptoSyntax lambda let let* letrec
|
||||
syn keyword zeptoSyntax if cond and or case define else
|
||||
syn keyword zeptoSyntax define-syntax syntax-rules
|
||||
syn keyword zeptoSyntax when unless
|
||||
syn keyword zeptoSyntax set! set-car! set-cdr!
|
||||
syn keyword zeptoSyntax for for-each begin
|
||||
syn keyword zeptoSyntax quasiquote unquote unquote-splicing
|
||||
|
||||
syn keyword zeptoSyntax delay force
|
||||
|
||||
syn match zeptoSyntax /\<[\u03bb]\>/
|
||||
syn match zeptoSyntax /\<[\u0192]\>/
|
||||
|
||||
syn keyword zeptoFunc write display error write?
|
||||
syn keyword zeptoFunc read read-all read-contents read?
|
||||
|
||||
syn keyword zeptoFunc boolean? not equal? eqv? eq? nil
|
||||
syn keyword zeptoFunc #t #f symbol? boolean?
|
||||
syn keyword zeptoFunc number? complex? real? rational? integer?
|
||||
syn keyword zeptoFunc zero? positive? negative? float?
|
||||
syn keyword zeptoFunc even? odd? exact? inexact?
|
||||
syn keyword zeptoFunc exact->inexact
|
||||
|
||||
syn keyword zeptoFunc + - * / quotient remainder modulo mod
|
||||
syn keyword zeptoFunc abs max min gcd lcm round floor ceiling ceil real imaginary
|
||||
syn keyword zeptoFunc truncate numerator denominator generate sum product
|
||||
|
||||
syn keyword zeptoFunc any? all? every? iota
|
||||
|
||||
syn keyword zeptoFunc = < <= > >=
|
||||
|
||||
syn keyword zeptoFunc sqrt
|
||||
syn keyword zeptoFunc expt pow log
|
||||
|
||||
syn keyword zeptoFunc sin cos tan asin acos atan
|
||||
|
||||
syn keyword zeptoFunc real-part imag-part
|
||||
|
||||
syn keyword zeptoFunc random
|
||||
|
||||
syn keyword zeptoFunc number->string string->number string->float string->integer
|
||||
syn keyword zeptoFunc string->rational string->complex string->boolean
|
||||
|
||||
syn keyword zeptoFunc pi e
|
||||
|
||||
syn keyword zeptoFunc string? make-string string string->immutable-string string-length
|
||||
syn keyword zeptoFunc string-ref string-set! substring string-copy string-copy!
|
||||
syn keyword zeptoFunc string-fill! string-append string->list list->string
|
||||
syn keyword zeptoFunc build-string string=? string<? string<=? string>? string>=?
|
||||
syn keyword zeptoFunc string-ci=? string-ci<? string-ci<=? string-ci>? string-ci>=?
|
||||
syn keyword zeptoFunc string-extend ++ += string-lower-case string-upper-case
|
||||
syn keyword zeptoFunc string-substitute
|
||||
|
||||
syn keyword zeptoFunc char? char->integer integer->char
|
||||
syn keyword zeptoFunc char=? char<? char<=? char>? char>=?
|
||||
syn keyword zeptoFunc char-ci=? char-ci<? char-ci<=? char-ci>? char-ci>=?
|
||||
syn keyword zeptoFunc char-upper-case char-lower-case
|
||||
|
||||
syn keyword zeptoFunc symbol?
|
||||
syn keyword zeptoFunc symbol->string string->symbol
|
||||
|
||||
syn keyword zeptoFunc pair? null? cons car cdr null
|
||||
syn keyword zeptoFunc list? list length
|
||||
syn keyword zeptoFunc list-ref list-tail append reverse map
|
||||
syn keyword zeptoFunc for-each foldl foldr fold filter remove
|
||||
syn keyword zeptoFunc sort member memv memq
|
||||
syn keyword zeptoFunc assq assv assoc
|
||||
syn keyword zeptoFunc caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr
|
||||
syn keyword zeptoFunc cddar cdddr caaaar caaadr caadar caaddr cadadr caddar
|
||||
syn keyword zeptoFunc cadddr cdaaar cdaadr cdadar cddaar cdddar cddddr
|
||||
|
||||
syn keyword zeptoFunc head tail indexed-tail
|
||||
|
||||
syn keyword zeptoFunc vector? make-vector vector vector-length
|
||||
syn keyword zeptoFunc vector-ref vector-set! vector->list list->vector
|
||||
syn keyword zeptoFunc vector-fill!
|
||||
|
||||
syn keyword zeptoFunc procedure? apply compose
|
||||
syn keyword zeptoFunc primitive?
|
||||
syn keyword zeptoFunc negate curry uncurry
|
||||
|
||||
syn match zeptoSymbol ,\k+, contained
|
||||
|
||||
syn cluster zeptoNormal contains=zeptoSyntax,zeptoFunc,zeptoDelimiter
|
||||
syn cluster zeptoQuotedStuff contains=zeptoSymbol
|
||||
syn cluster zeptoQuotedOrNormal contains=zeptoDelimiter
|
||||
|
||||
syn region zeptoQuotedStruc start="("rs=s+1 end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="#("rs=s+2 end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="{"rs=s+1 end="}"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="\["rs=s+1 end="\]"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
|
||||
syn cluster zeptoQuotedStuff add=zeptoQuotedStruc
|
||||
|
||||
syn region zeptoStruc matchgroup=Delimiter start="("rs=s+1 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="#("rs=s+2 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="{"rs=s+1 matchgroup=Delimiter end="}"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="\["rs=s+1 matchgroup=Delimiter end="\]"re=e-1 contains=@zeptoNormal
|
||||
|
||||
syn region zeptoString start=/\%(\\\)\@<!"/ skip=/\\[\\"]/ end=/"/
|
||||
syn region zeptoString start=/#<<\z(.*\)$/ end=/^\z1$/
|
||||
|
||||
syn cluster zeptoNormal add=zeptoError,zeptoConstant,zeptoStruc,zeptoString
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoString
|
||||
syn match zeptoNumberError "\<#[xdobie]\k*"
|
||||
|
||||
syn match zeptoContainedNumberError "\<#o\k*[^-+0-7delfinas#./@]"
|
||||
syn match zeptoContainedNumberError "\<#b\k*[^-+01delfinas#./@]"
|
||||
syn match zeptoContainedNumberError "\<#[ei]#[ei]"
|
||||
syn match zeptoContainedNumberError "\<#[xdob]#[xdob]"
|
||||
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\d\+/\d\+\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\d\+/\d\+[-+]\d\+\(/\d\+\)\?i\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?[-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f][-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?[-+]\(inf\|nan\)\.[0f]i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?@[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]@[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?@[-+]\(inf\|nan\)\.[0f]\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\x\+/\x\+\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\x\+/\x\+[-+]\x\+\(/\x\+\)\?i\>"
|
||||
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?[-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(inf\|nan\)\.[0f][-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?[-+]\(inf\|nan\)\.[0f]i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?@[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(inf\|nan\)\.[0f]@[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?@[-+]\(inf\|nan\)\.[0f]\>"
|
||||
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]i\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f][-+]\(inf\|nan\)\.[0f]i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]@[-+]\(inf\|nan\)\.[0f]\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn keyword zeptoBoolean #t #f #true #false #T #F
|
||||
|
||||
syn match zeptoError "\<#\\\k*\>"
|
||||
|
||||
syn match zeptoChar "\<#\\.\w\@!"
|
||||
syn match zeptoChar "\<#\\space\>"
|
||||
syn match zeptoChar "\<#\\newline\>"
|
||||
syn match zeptoChar "\<#\\return\>"
|
||||
syn match zeptoChar "\<#\\null\?\>"
|
||||
syn match zeptoChar "\<#\\backspace\>"
|
||||
syn match zeptoChar "\<#\\tab\>"
|
||||
syn match zeptoChar "\<#\\[0-7]\{1,3}\>"
|
||||
syn match zeptoChar "\<#\\x[0-9a-f]\{1,2}\>"
|
||||
syn match zeptoChar "\<#\\u[0-9a-f]\{1,6}\>"
|
||||
|
||||
syn cluster zeptoNormal add=zeptoNumber,zeptoBoolean,zeptoChar
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoNumber,zeptoBoolean
|
||||
|
||||
syn cluster zeptoNormal add=zeptoExtFunc,zeptoExtSyntax
|
||||
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`]" end=![ \t()\[\]";]!me=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`](" matchgroup=Delimiter end=")" contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`]\?#(" matchgroup=Delimiter end=")" contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,"rs=s+2 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@"rs=s+3 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@("rs=s+4 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@\["rs=s+4 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,"rs=s+1 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@"rs=s+2 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,("rs=s+2 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,#("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@#("rs=s+4 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,\["rs=s+2 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,#\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@#\["rs=s+4 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
|
||||
syn cluster zeptoQuotedStuff add=zeptoUnquote
|
||||
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="#['`]"rs=s+2 end=![ \t()\[\]";]!re=e-1,me=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="#['`]("rs=s+3 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
|
||||
syn match zeptoComment /;.*$/ contains=@Spell
|
||||
syn region zeptoMultilineComment start=/#|/ end=/|#/ contains=zeptoMultilineComment,@Spell
|
||||
|
||||
syn cluster zeptoNormal add=zeptoQuoted,zeptoComment,zeptoMultilineComment
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoComment,zeptoMultilineComment
|
||||
|
||||
" syn match zeptoListComp "\[.+ \| \w+ <- .+]"
|
||||
|
||||
syn sync match matchPlace grouphere NONE "^[^ \t]"
|
||||
|
||||
if version >= 508 || !exists("zepto_syntax_init")
|
||||
if version < 508
|
||||
let zepto_syntax_init = 1
|
||||
command -nargs=+ HiLink hi link <args>
|
||||
else
|
||||
command -nargs=+ HiLink hi def link <args>
|
||||
endif
|
||||
|
||||
HiLink zeptoSyntax Statement
|
||||
HiLink zeptoFunc Function
|
||||
|
||||
HiLink zeptoString String
|
||||
HiLink zeptoChar Character
|
||||
HiLink zeptoBoolean Boolean
|
||||
|
||||
HiLink zeptoNumber Number
|
||||
HiLink zeptoNumberError Error
|
||||
HiLink zeptoContainedNumberError Error
|
||||
|
||||
HiLink zeptoQuoted Structure
|
||||
HiLink zeptoQuotedStruc Structure
|
||||
HiLink zeptoSymbol Structure
|
||||
HiLink zeptoListComp Structure
|
||||
|
||||
HiLink zeptoDelimiter Delimiter
|
||||
HiLink zeptoConstant Constant
|
||||
|
||||
HiLink zeptoComment Comment
|
||||
HiLink zeptoMultilineComment Comment
|
||||
HiLink zeptoError Error
|
||||
HiLink zeptoExtFunc PreProc
|
||||
delcommand HiLink
|
||||
endif
|
||||
|
||||
let b:current_syntax = "zepto"
|
||||
251
vim/.vim/zepto.vim
Normal file
251
vim/.vim/zepto.vim
Normal file
@@ -0,0 +1,251 @@
|
||||
" Vim syntax file
|
||||
" Language: Zepto
|
||||
" Maintainer: Veit Heller <veit@veitheller.de>
|
||||
" URL: http://github.com/zepto-lang/vim-zepto.git
|
||||
" Description: Contains all of the keywords in #lang zepto
|
||||
|
||||
if exists("b:current_syntax")
|
||||
finish
|
||||
endif
|
||||
|
||||
syn case ignore
|
||||
|
||||
syn match zeptoError ,[]})],
|
||||
|
||||
if version < 600
|
||||
set iskeyword=33,35-39,42-58,60-90,94,95,97-122,124,126,_
|
||||
else
|
||||
setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,124,126,_
|
||||
endif
|
||||
|
||||
|
||||
syn keyword zeptoSyntax quote \| <- , typeof
|
||||
syn keyword zeptoSyntax lambda let let* letrec
|
||||
syn keyword zeptoSyntax if cond and or case define else
|
||||
syn keyword zeptoSyntax define-syntax syntax-rules
|
||||
syn keyword zeptoSyntax when unless
|
||||
syn keyword zeptoSyntax set! set-car! set-cdr!
|
||||
syn keyword zeptoSyntax for for-each begin
|
||||
syn keyword zeptoSyntax quasiquote unquote unquote-splicing
|
||||
|
||||
syn keyword zeptoSyntax delay force
|
||||
|
||||
syn match zeptoSyntax /\<[\u03bb]\>/
|
||||
syn match zeptoSyntax /\<[\u0192]\>/
|
||||
|
||||
syn keyword zeptoFunc write display error write?
|
||||
syn keyword zeptoFunc read read-all read-contents read?
|
||||
|
||||
syn keyword zeptoFunc boolean? not equal? eqv? eq? nil
|
||||
syn keyword zeptoFunc #t #f symbol? boolean?
|
||||
syn keyword zeptoFunc number? complex? real? rational? integer?
|
||||
syn keyword zeptoFunc zero? positive? negative? float?
|
||||
syn keyword zeptoFunc even? odd? exact? inexact?
|
||||
syn keyword zeptoFunc exact->inexact
|
||||
|
||||
syn keyword zeptoFunc + - * / quotient remainder modulo mod
|
||||
syn keyword zeptoFunc abs max min gcd lcm round floor ceiling ceil real imaginary
|
||||
syn keyword zeptoFunc truncate numerator denominator generate sum product
|
||||
|
||||
syn keyword zeptoFunc any? all? every? iota
|
||||
|
||||
syn keyword zeptoFunc = < <= > >=
|
||||
|
||||
syn keyword zeptoFunc sqrt
|
||||
syn keyword zeptoFunc expt pow log
|
||||
|
||||
syn keyword zeptoFunc sin cos tan asin acos atan
|
||||
|
||||
syn keyword zeptoFunc real-part imag-part
|
||||
|
||||
syn keyword zeptoFunc random
|
||||
|
||||
syn keyword zeptoFunc number->string string->number string->float string->integer
|
||||
syn keyword zeptoFunc string->rational string->complex string->boolean
|
||||
|
||||
syn keyword zeptoFunc pi e
|
||||
|
||||
syn keyword zeptoFunc string? make-string string string->immutable-string string-length
|
||||
syn keyword zeptoFunc string-ref string-set! substring string-copy string-copy!
|
||||
syn keyword zeptoFunc string-fill! string-append string->list list->string
|
||||
syn keyword zeptoFunc build-string string=? string<? string<=? string>? string>=?
|
||||
syn keyword zeptoFunc string-ci=? string-ci<? string-ci<=? string-ci>? string-ci>=?
|
||||
syn keyword zeptoFunc string-extend ++ += string-lower-case string-upper-case
|
||||
syn keyword zeptoFunc string-substitute
|
||||
|
||||
syn keyword zeptoFunc char? char->integer integer->char
|
||||
syn keyword zeptoFunc char=? char<? char<=? char>? char>=?
|
||||
syn keyword zeptoFunc char-ci=? char-ci<? char-ci<=? char-ci>? char-ci>=?
|
||||
syn keyword zeptoFunc char-upper-case char-lower-case
|
||||
|
||||
syn keyword zeptoFunc symbol?
|
||||
syn keyword zeptoFunc symbol->string string->symbol
|
||||
|
||||
syn keyword zeptoFunc pair? null? cons car cdr null
|
||||
syn keyword zeptoFunc list? list length
|
||||
syn keyword zeptoFunc list-ref list-tail append reverse map
|
||||
syn keyword zeptoFunc for-each foldl foldr fold filter remove
|
||||
syn keyword zeptoFunc sort member memv memq
|
||||
syn keyword zeptoFunc assq assv assoc
|
||||
syn keyword zeptoFunc caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr
|
||||
syn keyword zeptoFunc cddar cdddr caaaar caaadr caadar caaddr cadadr caddar
|
||||
syn keyword zeptoFunc cadddr cdaaar cdaadr cdadar cddaar cdddar cddddr
|
||||
|
||||
syn keyword zeptoFunc head tail indexed-tail
|
||||
|
||||
syn keyword zeptoFunc vector? make-vector vector vector-length
|
||||
syn keyword zeptoFunc vector-ref vector-set! vector->list list->vector
|
||||
syn keyword zeptoFunc vector-fill!
|
||||
|
||||
syn keyword zeptoFunc procedure? apply compose
|
||||
syn keyword zeptoFunc primitive?
|
||||
syn keyword zeptoFunc negate curry uncurry
|
||||
|
||||
syn match zeptoAtom ,:\k+, contained
|
||||
syn match zeptoSymbol ,\k+, contained
|
||||
|
||||
syn cluster zeptoNormal contains=zeptoSyntax,zeptoFunc,zeptoDelimiter
|
||||
syn cluster zeptoQuotedStuff contains=zeptoSymbol,zeptoAtom
|
||||
syn cluster zeptoQuotedOrNormal contains=zeptoDelimiter
|
||||
|
||||
syn region zeptoQuotedStruc start="("rs=s+1 end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="#("rs=s+2 end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="{"rs=s+1 end="}"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
syn region zeptoQuotedStruc start="\["rs=s+1 end="\]"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal contained
|
||||
|
||||
syn cluster zeptoQuotedStuff add=zeptoQuotedStruc
|
||||
|
||||
syn region zeptoStruc matchgroup=Delimiter start="("rs=s+1 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="#("rs=s+2 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="{"rs=s+1 matchgroup=Delimiter end="}"re=e-1 contains=@zeptoNormal
|
||||
syn region zeptoStruc matchgroup=Delimiter start="\["rs=s+1 matchgroup=Delimiter end="\]"re=e-1 contains=@zeptoNormal
|
||||
|
||||
syn region zeptoString start=/\%(\\\)\@<!"/ skip=/\\[\\"]/ end=/"/
|
||||
syn region zeptoString start=/#<<\z(.*\)$/ end=/^\z1$/
|
||||
|
||||
syn cluster zeptoNormal add=zeptoError,zeptoConstant,zeptoStruc,zeptoString
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoString
|
||||
syn match zeptoNumberError "\<#[xdobie]\k*"
|
||||
|
||||
syn match zeptoContainedNumberError "\<#o\k*[^-+0-7delfinas#./@]"
|
||||
syn match zeptoContainedNumberError "\<#b\k*[^-+01delfinas#./@]"
|
||||
syn match zeptoContainedNumberError "\<#[ei]#[ei]"
|
||||
syn match zeptoContainedNumberError "\<#[xdob]#[xdob]"
|
||||
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\d\+/\d\+\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\d\+/\d\+[-+]\d\+\(/\d\+\)\?i\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?[-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f][-+]\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?[-+]\(inf\|nan\)\.[0f]i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?@[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]@[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[dobie]\)\{0,2}[-+]\?\(\d\+\|\d\+#*\.\|\d*\.\d\+\)#*\(/\d\+#*\)\?\([sdlef][-+]\?\d\+#*\)\?@[-+]\(inf\|nan\)\.[0f]\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\x\+/\x\+\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\x\+/\x\+[-+]\x\+\(/\x\+\)\?i\>"
|
||||
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?[-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(inf\|nan\)\.[0f][-+]\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?[-+]\(inf\|nan\)\.[0f]i\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?@[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\(inf\|nan\)\.[0f]@[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?\>"
|
||||
syn match zeptoNumber "\<\(#x\|#[ei]#x\|#x#[ei]\)[-+]\?\(\x\+\|\x\+#*\.\|\x*\.\x\+\)#*\(/\x\+#*\)\?\([sl][-+]\?\x\+#*\)\?@[-+]\(inf\|nan\)\.[0f]\>"
|
||||
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]i\?\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f][-+]\(inf\|nan\)\.[0f]i\>" contains=zeptoContainedNumberError
|
||||
syn match zeptoNumber "\<\(#[xdobie]\)\{0,2}[-+]\(inf\|nan\)\.[0f]@[-+]\(inf\|nan\)\.[0f]\>" contains=zeptoContainedNumberError
|
||||
|
||||
syn keyword zeptoBoolean #t #f #true #false #T #F
|
||||
|
||||
syn match zeptoError "\<#\\\k*\>"
|
||||
|
||||
syn match zeptoChar "\<#\\.\w\@!"
|
||||
syn match zeptoChar "\<#\\space\>"
|
||||
syn match zeptoChar "\<#\\newline\>"
|
||||
syn match zeptoChar "\<#\\return\>"
|
||||
syn match zeptoChar "\<#\\null\?\>"
|
||||
syn match zeptoChar "\<#\\backspace\>"
|
||||
syn match zeptoChar "\<#\\tab\>"
|
||||
syn match zeptoChar "\<#\\[0-7]\{1,3}\>"
|
||||
syn match zeptoChar "\<#\\x[0-9a-f]\{1,2}\>"
|
||||
syn match zeptoChar "\<#\\u[0-9a-f]\{1,6}\>"
|
||||
|
||||
syn cluster zeptoNormal add=zeptoNumber,zeptoBoolean,zeptoChar
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoNumber,zeptoBoolean
|
||||
|
||||
syn cluster zeptoNormal add=zeptoExtFunc,zeptoExtSyntax
|
||||
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`]" end=![ \t()\[\]";]!me=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`](" matchgroup=Delimiter end=")" contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="['`]\?#(" matchgroup=Delimiter end=")" contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,"rs=s+2 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@"rs=s+3 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@("rs=s+4 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<#,@\["rs=s+4 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,"rs=s+1 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@"rs=s+2 end=![ \t\[\]()";]!re=e-1,me=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,("rs=s+2 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,#("rs=s+3 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@#("rs=s+4 end=")"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,\["rs=s+2 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,#\["rs=s+3 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
syn region zeptoUnquote matchgroup=Delimiter start="\<,@#\["rs=s+4 end="\]"re=e-1 contained contains=@zeptoNormal
|
||||
|
||||
syn cluster zeptoQuotedStuff add=zeptoUnquote
|
||||
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="#['`]"rs=s+2 end=![ \t()\[\]";]!re=e-1,me=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
syn region zeptoQuoted matchgroup=Delimiter start="#['`]("rs=s+3 matchgroup=Delimiter end=")"re=e-1 contains=@zeptoQuotedStuff,@zeptoQuotedOrNormal
|
||||
|
||||
syn match zeptoComment /;.*$/ contains=@Spell
|
||||
syn region zeptoMultilineComment start=/#|/ end=/|#/ contains=zeptoMultilineComment,@Spell
|
||||
|
||||
syn cluster zeptoNormal add=zeptoQuoted,zeptoComment,zeptoMultilineComment
|
||||
syn cluster zeptoQuotedOrNormal add=zeptoComment,zeptoMultilineComment
|
||||
|
||||
syn sync match matchPlace grouphere NONE "^[^ \t]"
|
||||
|
||||
if version >= 508 || !exists("zepto_syntax_init")
|
||||
if version < 508
|
||||
let zepto_syntax_init = 1
|
||||
command -nargs=+ HiLink hi link <args>
|
||||
else
|
||||
command -nargs=+ HiLink hi def link <args>
|
||||
endif
|
||||
|
||||
HiLink zeptoSyntax Statement
|
||||
HiLink zeptoFunc Function
|
||||
|
||||
HiLink zeptoString String
|
||||
HiLink zeptoChar Character
|
||||
HiLink zeptoBoolean Boolean
|
||||
|
||||
HiLink zeptoNumber Number
|
||||
HiLink zeptoNumberError Error
|
||||
HiLink zeptoContainedNumberError Error
|
||||
|
||||
HiLink zeptoQuoted Structure
|
||||
HiLink zeptoQuotedStruc Structure
|
||||
HiLink zeptoSymbol Structure
|
||||
HiLink zeptoAtom Structure
|
||||
|
||||
HiLink zeptoDelimiter Delimiter
|
||||
HiLink zeptoConstant Constant
|
||||
|
||||
HiLink zeptoComment Comment
|
||||
HiLink zeptoMultilineComment Comment
|
||||
HiLink zeptoError Error
|
||||
HiLink zeptoExtFunc PreProc
|
||||
delcommand HiLink
|
||||
endif
|
||||
|
||||
let b:current_syntax = "zepto"
|
||||
Reference in New Issue
Block a user