Mercurial > vim

comparison runtime/syntax/monk.vim @ 10048:43efa4f5a8ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5 Author: Bram Moolenaar <Bram@vim.org> Date: Tue Aug 30 23:26:57 2016 +0200 Updated runtime files. Remove version checks for Vim older than 6.0.
author Christian Brabandt <cb@256bit.org>
date Tue, 30 Aug 2016 23:30:09 +0200
parents b7811ab264bf
children 46763b01cd9a
comparison
equal deleted inserted replaced
10047:a62862410ca1 10048:43efa4f5a8ea
19 " parsing the complete system of Scheme numerals using the pattern 19 " parsing the complete system of Scheme numerals using the pattern
20 " language is practically impossible: I did a lax approximation. 20 " language is practically impossible: I did a lax approximation.
21 21
22 " Initializing: 22 " Initializing:
23 23
24 " For version 5.x: Clear all syntax items 24 " quit when a syntax file was already loaded
25 " For version 6.x: Quit when a syntax file was already loaded 25 if exists("b:current_syntax")
26 if version < 600
27 syntax clear
28 elseif exists("b:current_syntax")
29 finish 26 finish
30 endif 27 endif
31 28
32 let s:cpo_save = &cpo 29 let s:cpo_save = &cpo
33 set cpo&vim 30 set cpo&vim
58 syn region monkUnquote matchgroup=Delimiter start=",#(" end=")" contains=ALLBUT,monkStruc,monkSyntax,monkFunc 55 syn region monkUnquote matchgroup=Delimiter start=",#(" end=")" contains=ALLBUT,monkStruc,monkSyntax,monkFunc
59 syn region monkUnquote matchgroup=Delimiter start=",@#(" end=")" contains=ALLBUT,monkStruc,monkSyntax,monkFunc 56 syn region monkUnquote matchgroup=Delimiter start=",@#(" end=")" contains=ALLBUT,monkStruc,monkSyntax,monkFunc
60 57
61 " R5RS Scheme Functions and Syntax: 58 " R5RS Scheme Functions and Syntax:
62 59
63 if version < 600 60 setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_
64 set iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_
65 else
66 setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_
67 endif
68 61
69 syn keyword monkSyntax lambda and or if cond case define let let* letrec 62 syn keyword monkSyntax lambda and or if cond case define let let* letrec
70 syn keyword monkSyntax begin do delay set! else => 63 syn keyword monkSyntax begin do delay set! else =>
71 syn keyword monkSyntax quote quasiquote unquote unquote-splicing 64 syn keyword monkSyntax quote quasiquote unquote unquote-splicing
72 syn keyword monkSyntax define-syntax let-syntax letrec-syntax syntax-rules 65 syn keyword monkSyntax define-syntax let-syntax letrec-syntax syntax-rules
199 192
200 syn sync match matchPlace grouphere NONE "^[^ \t]" 193 syn sync match matchPlace grouphere NONE "^[^ \t]"
201 " ... i.e. synchronize on a line that starts at the left margin 194 " ... i.e. synchronize on a line that starts at the left margin
202 195
203 " Define the default highlighting. 196 " Define the default highlighting.
204 " For version 5.7 and earlier: only when not done already 197 " Only when an item doesn't have highlighting yet
205 " For version 5.8 and later: only when an item doesn't have highlighting yet 198 command -nargs=+ HiLink hi def link <args>
206 if version >= 508 || !exists("did_monk_syntax_inits") 199
207 if version < 508 200 HiLink monkSyntax Statement
208 let did_monk_syntax_inits = 1 201 HiLink monkFunc Function
209 command -nargs=+ HiLink hi link <args> 202
210 else 203 HiLink monkString String
211 command -nargs=+ HiLink hi def link <args> 204 HiLink monkChar Character
212 endif 205 HiLink monkNumber Number
213 206 HiLink monkBoolean Boolean
214 HiLink monkSyntax Statement 207
215 HiLink monkFunc Function 208 HiLink monkDelimiter Delimiter
216 209 HiLink monkConstant Constant
217 HiLink monkString String 210
218 HiLink monkChar Character 211 HiLink monkComment Comment
219 HiLink monkNumber Number 212 HiLink monkError Error
220 HiLink monkBoolean Boolean 213
221 214 delcommand HiLink
222 HiLink monkDelimiter Delimiter
223 HiLink monkConstant Constant
224
225 HiLink monkComment Comment
226 HiLink monkError Error
227
228 delcommand HiLink
229 endif
230 215
231 let b:current_syntax = "monk" 216 let b:current_syntax = "monk"
232 217
233 let &cpo = s:cpo_save 218 let &cpo = s:cpo_save
234 unlet s:cpo_save 219 unlet s:cpo_save