3 " Maintainer: Alex Chapman <chapman.alex@gmail.com>
4 " Last Change: 2011 Mar 17
5 " To run: USING: html.templates html.templates.fhtml ; "resource:misc/factor.vim.fgen" <fhtml> call-template
7 " For version 5.x: Clear all syntax items
8 " For version 6.x: Quit when a syntax file was already loaded
11 elseif exists("b:current_syntax")
15 " factor is case sensitive.
18 " make all of these characters part of a word (useful for skipping over words with w, e, and b)
20 setlocal iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
22 set iskeyword=!,@,33-35,%,$,38-64,A-Z,91-96,a-z,123-126,128-255
25 syn cluster factorCluster contains=factorComment,factorFrySpecifier,factorKeyword,factorRepeat,factorConditional,factorBoolean,factorBreakpoint,factorDeclaration,factorCallQuotation,factorExecute,factorCallNextMethod,factorString,factorTriString,factorSbuf,@factorNumber,@factorNumErr,factorDelimiter,factorChar,factorBackslash,factorLiteral,factorLiteralBlock,@factorWordOps,factorAlien,factorSlot,factorTuple,factorStruct
27 syn match factorTodo /\(TODO\|FIXME\|XXX\):\=/ contained
28 syn match factorComment /\<#!\>\s.*/ contains=factorTodo
29 syn match factorComment /\<!\>\s.*/ contains=factorTodo
31 syn cluster factorDefnContents contains=@factorCluster,factorStackEffect,factorLiteralStackEffect,factorArray0,factorQuotation0
33 syn region factorDefn matchgroup=factorDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
34 syn region factorMethod matchgroup=factorMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents
35 syn region factorGeneric matchgroup=factorGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect
36 syn region factorGenericN matchgroup=factorGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
38 syn region factorPrivateDefn matchgroup=factorPrivateDefnDelims start=/\<\(SYNTAX\|\(MACRO\|MEMO\)\?:\?\):\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
39 syn region factorPrivateMethod matchgroup=factorPrivateMethodDelims start=/\<M::\?\s\+\S\+\s\+\S\+\>/ end=/\<;\>/ contains=@factorDefnContents contained
40 syn region factorPGeneric matchgroup=factorPGenericDelims start=/\<GENERIC:\s\+\S\+\>/ end=/$/ contains=factorStackEffect contained
41 syn region factorPGenericN matchgroup=factorPGenericNDelims start=/\<GENERIC#\s\+\S\+\s\+\d\+\>/ end=/$/ contains=factorStackEffect
43 syn region None matchgroup=factorPrivate start=/\<<PRIVATE\>/ end=/\<PRIVATE>\>/ contains=@factorDefnContents,factorPrivateDefn,factorPrivateMethod,factorPGeneric,factorPGenericN
46 syn keyword factorBoolean f t
47 syn keyword factorBreakpoint B
48 syn keyword factorFrySpecifier @ _ contained
49 syn keyword factorDeclaration delimiter deprecated final flushable foldable inline recursive
50 syn match factorCallQuotation /\<call(\s\(.*\s\)\?--\(\s.*\)\?\s)\>/
51 syn match factorExecute /\<execute(\s\(.*\s\)\?--\(\s.*\)\?\s)\>/
52 syn keyword factorCallNextMethod call-next-method
54 syn keyword factorKeyword or 2bi 2tri while wrapper nip 4dip wrapper? bi* callstack>array both? hashcode die dupd callstack callstack? 3dup tri@ pick curry build ?execute 3bi prepose >boolean ?if clone eq? tri* ? = swapd 2over 2keep 3keep clear 2dup when not tuple? dup 2bi* 2tri* call tri-curry object bi@ do unless* if* loop bi-curry* drop when* assert= retainstack assert? -rot execute 2bi@ 2tri@ boa with either? 3drop bi curry? datastack until 3dip over 3curry tri-curry* tri-curry@ swap and 2nip throw bi-curry (clone) hashcode* compose 2dip if 3tri unless compose? tuple keep 2curry equal? assert tri 2drop most <wrapper> boolean? identity-hashcode identity-tuple? null new dip bi-curry@ rot xor identity-tuple boolean
55 syn keyword factorKeyword ?at assoc? assoc-clone-like assoc= delete-at* assoc-partition extract-keys new-assoc value? assoc-size map>assoc push-at assoc-like key? assoc-intersect assoc-refine update assoc-union assoc-combine at* assoc-empty? at+ set-at assoc-all? assoc-subset? assoc-hashcode change-at assoc-each assoc-diff zip values value-at rename-at inc-at enum? at cache assoc>map <enum> assoc assoc-map enum value-at* assoc-map-as >alist assoc-filter-as clear-assoc assoc-stack maybe-set-at substitute assoc-filter 2cache delete-at assoc-find keys assoc-any? unzip
56 syn keyword factorKeyword case execute-effect no-cond no-case? 3cleave>quot 2cleave cond>quot wrong-values? no-cond? cleave>quot no-case case>quot 3cleave wrong-values to-fixed-point alist>quot case-find cond cleave call-effect 2cleave>quot recursive-hashcode linear-case-quot spread spread>quot
57 syn keyword factorKeyword number= if-zero next-power-of-2 each-integer ?1+ fp-special? imaginary-part unless-zero float>bits number? fp-infinity? bignum? fp-snan? denominator fp-bitwise= * + power-of-2? - u>= / >= bitand log2-expects-positive < log2 > integer? number bits>double 2/ zero? (find-integer) bits>float float? shift ratio? even? ratio fp-sign bitnot >fixnum complex? /i /f byte-array>bignum when-zero sgn >bignum next-float u< u> mod recip rational find-last-integer >float (all-integers?) 2^ times integer fixnum? neg fixnum sq bignum (each-integer) bit? fp-qnan? find-integer complex <fp-nan> real double>bits bitor rem fp-nan-payload all-integers? real-part log2-expects-positive? prev-float align unordered? float fp-nan? abs bitxor u<= odd? <= /mod rational? >integer real? numerator
58 syn keyword factorKeyword member-eq? append assert-sequence= find-last-from trim-head-slice clone-like 3sequence assert-sequence? map-as last-index-from reversed index-from cut* pad-tail remove-eq! concat-as but-last snip trim-tail nths nth 2selector sequence slice? <slice> partition remove-nth tail-slice empty? tail* if-empty find-from virtual-sequence? member? set-length drop-prefix unclip unclip-last-slice iota map-sum bounds-error? sequence-hashcode-step selector-for accumulate-as map start midpoint@ (accumulate) rest-slice prepend fourth sift accumulate! new-sequence follow map! like first4 1sequence reverse slice unless-empty padding virtual@ repetition? set-last index 4sequence max-length set-second immutable-sequence first2 first3 replicate-as reduce-index unclip-slice supremum suffix! insert-nth trim-tail-slice tail 3append short count suffix concat flip filter sum immutable? reverse! 2sequence map-integers delete-all start* indices snip-slice check-slice sequence? head map-find filter! append-as reduce sequence= halves collapse-slice interleave 2map filter-as binary-reduce slice-error? product bounds-check? bounds-check harvest immutable virtual-exemplar find produce remove pad-head last replicate set-fourth remove-eq shorten reversed? map-find-last 3map-as 2unclip-slice shorter? 3map find-last head-slice pop* 2map-as tail-slice* but-last-slice 2map-reduce iota? collector-for accumulate each selector append! new-resizable cut-slice each-index head-slice* 2reverse-each sequence-hashcode pop set-nth ?nth <flat-slice> second join when-empty collector immutable-sequence? <reversed> all? 3append-as virtual-sequence subseq? remove-nth! push-either new-like length last-index push-if 2all? lengthen assert-sequence copy map-reduce move third first 3each tail? set-first prefix bounds-error any? <repetition> trim-slice exchange surround 2reduce cut change-nth min-length set-third produce-as push-all head? delete-slice rest sum-lengths 2each head* infimum remove! glue slice-error subseq trim replace-slice push repetition map-index trim-head unclip-last mismatch
59 syn keyword factorKeyword global +@ change set-namestack change-global init-namespaces on off set-global namespace set with-scope bind with-variable inc dec counter initialize namestack get get-global make-assoc
60 syn keyword factorKeyword <array> 2array 3array pair >array 1array 4array pair? array resize-array array?
61 syn keyword factorKeyword +character+ bad-seek-type? readln each-morsel stream-seek read print with-output-stream contents write1 stream-write1 stream-copy stream-element-type with-input-stream stream-print stream-read stream-contents stream-tell tell-output bl seek-output bad-seek-type nl stream-nl write flush stream-lines +byte+ stream-flush read1 seek-absolute? stream-read1 lines stream-readln stream-read-until each-line seek-end with-output-stream* seek-absolute with-streams seek-input seek-relative? input-stream stream-write read-partial seek-end? seek-relative error-stream read-until with-input-stream* with-streams* tell-input each-block output-stream stream-read-partial each-stream-block each-stream-line
62 syn keyword factorKeyword resize-string >string <string> 1string string string?
63 syn keyword factorKeyword vector? <vector> ?push vector >vector 1vector
64 syn keyword factorKeyword with-return restarts return-continuation with-datastack recover rethrow-restarts <restart> ifcc set-catchstack >continuation< cleanup ignore-errors restart? compute-restarts attempt-all-error error-thread continue <continuation> attempt-all-error? condition? <condition> throw-restarts error catchstack continue-with thread-error-hook continuation rethrow callcc1 error-continuation callcc0 attempt-all condition continuation? restart return
67 syn cluster factorReal contains=factorInt,factorFloat,factorRatio,factorBinary,factorHex,factorOctal
68 syn cluster factorNumber contains=@factorReal,factorComplex
69 syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
70 syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\>/
71 syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\.[0-9,]*[0-9]\+\>/
72 syn match factorRatio /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
73 syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal
74 syn match factorBinErr /\<BIN:\s\+-\=[01,]*[^01 ]\S*\>/
75 syn match factorBinary /\<BIN:\s\+-\=[01,]\+\>/
76 syn match factorHexErr /\<HEX:\s\+-\=\(,\S*\|\S*,\|[-0-9a-fA-Fp,]*[^-0-9a-fA-Fp, ]\S*\)\>/
77 syn match factorHex /\<HEX:\s\+-\=[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\(\.[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\)\?\(p-\=[0-9]\([0-9,]*[0-9]\)\?\)\?\>/
78 syn match factorOctErr /\<OCT:\s\+-\=\(,\S*\|\S*,\|[0-7,]*[^0-7, ]\S*\)\>/
79 syn match factorOctal /\<OCT:\s\+-\=[0-7,]\+\>/
80 syn match factorNan /\<NAN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
82 syn match factorIn /\<IN:\s\+\S\+\>/
83 syn match factorUse /\<USE:\s\+\S\+\>/
84 syn match factorUnuse /\<UNUSE:\s\+\S\+\>/
86 syn match factorChar /\<CHAR:\s\+\S\+\>/
88 syn match factorBackslash /\<\\\>\s\+\S\+\>/
89 syn match factorLiteral /\<\$\>\s\+\S\+\>/
90 syn region factorLiteralBlock start=/\<\$\[\>/ end=/\<\]\>/
92 syn region factorUsing start=/\<USING:\>/ end=/;/
93 syn match factorQualified /\<QUALIFIED:\s\+\S\+\>/
94 syn match factorQualifiedWith /\<QUALIFIED-WITH:\s\+\S\+\s\+\S\+\>/
95 syn region factorExclude start=/\<EXCLUDE:\>/ end=/;/
96 syn region factorFrom start=/\<FROM:\>/ end=/;/
97 syn match factorRename /\<RENAME:\s\+\S\+\s\+\S\+\s=>\s\+\S\+\>/
98 syn region factorSingletons start=/\<SINGLETONS:\>/ end=/;/
99 syn match factorSymbol /\<SYMBOL:\s\+\S\+\>/
100 syn region factorSymbols start=/\<SYMBOLS:\>/ end=/;/
101 syn region factorConstructor2 start=/\<CONSTRUCTOR:\?/ end=/;/
102 syn region factorIntersection start=/\<INTERSECTION:\>/ end=/\<;\>/
103 syn region factorTuple start=/\<TUPLE:\>/ end=/\<;\>/
104 syn region factorUnion start=/\<UNION:\>/ end=/\<;\>/
105 syn region factorStruct start=/\<\(UNION-STRUCT:\|STRUCT:\)\>/ end=/\<;\>/
107 syn match factorConstant /\<CONSTANT:\s\+\S\+\>/
108 syn match factorAlias /\<ALIAS:\s\+\S\+\s\+\S\+\>/
109 syn match factorSingleton /\<SINGLETON:\s\+\S\+\>/
110 syn match factorPostpone /\<POSTPONE:\s\+\S\+\>/
111 syn match factorDefer /\<DEFER:\s\+\S\+\>/
112 syn match factorForget /\<FORGET:\s\+\S\+\>/
113 syn match factorMixin /\<MIXIN:\s\+\S\+\>/
114 syn match factorInstance /\<INSTANCE:\s\+\S\+\s\+\S\+\>/
115 syn match factorHook /\<HOOK:\s\+\S\+\s\+\S\+\>/
116 syn match factorMain /\<MAIN:\s\+\S\+\>/
117 syn match factorConstructor /\<C:\s\+\S\+\s\+\S\+\>/
118 syn match factorAlien /\<ALIEN:\s\+[0-9a-fA-F]\([0-9a-fA-F,]*[0-9a-fA-F]\)\?\>/
119 syn match factorSlot /\<SLOT:\s\+\S\+\>/
121 syn cluster factorWordOps contains=factorConstant,factorAlias,factorSingleton,factorSingletons,factorSymbol,factorSymbols,factorPostpone,factorDefer,factorForget,factorMixin,factorInstance,factorHook,factorMain,factorConstructor
137 syn region factorString start=/\<"/ skip=/\\"/ end=/"/
138 syn region factorTriString start=/\<"""/ skip=/\\"/ end=/"""/
139 syn region factorSbuf start=/\<[-a-zA-Z0-9]\+"\>/ skip=/\\"/ end=/"/
141 syn region factorMultiString matchgroup=factorMultiStringDelims start=/\<STRING:\s\+\S\+\>/ end=/^;$/ contains=factorMultiStringContents
142 syn match factorMultiStringContents /.*/ contained
144 "syn match factorStackEffectErr /\<)\>/
145 "syn region factorStackEffectErr start=/\<(\>/ end=/\<)\>/
146 "syn region factorStackEffect start=/\<(\>/ end=/\<)\>/ contained
147 syn match factorStackEffect /\<(\s\(.*\s\)\?--\(\s.*\)\?\s)\>/ contained
148 syn match factorLiteralStackEffect /\<((\s\(.*\s\)\?--\(\s.*\)\?\s))\>/
150 "adapted from lisp.vim
151 if exists("g:factor_norainbow")
152 syn region factorQuotation matchgroup=factorDelimiter start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ matchgroup=factorDelimiter end=/\<\]\>/ contains=ALL
154 syn region factorQuotation0 matchgroup=hlLevel0 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation1,factorArray1
155 syn region factorQuotation1 contained matchgroup=hlLevel1 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation2,factorArray2
156 syn region factorQuotation2 contained matchgroup=hlLevel2 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation3,factorArray3
157 syn region factorQuotation3 contained matchgroup=hlLevel3 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation4,factorArray4
158 syn region factorQuotation4 contained matchgroup=hlLevel4 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation5,factorArray5
159 syn region factorQuotation5 contained matchgroup=hlLevel5 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation6,factorArray6
160 syn region factorQuotation6 contained matchgroup=hlLevel6 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation7,factorArray7
161 syn region factorQuotation7 contained matchgroup=hlLevel7 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation8,factorArray8
162 syn region factorQuotation8 contained matchgroup=hlLevel8 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation9,factorArray9
163 syn region factorQuotation9 contained matchgroup=hlLevel9 start=/\<\(\(\('\|\$\|\)\[\)\|\[\(let\||\)\)\>/ end=/\<\]\>/ contains=@factorCluster,factorQuotation0,factorArray0
166 if exists("g:factor_norainbow")
167 syn region factorArray matchgroup=factorDelimiter start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ matchgroup=factorDelimiter end=/\<}\>/ contains=ALL
169 syn region factorArray0 matchgroup=hlLevel0 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray1,factorQuotation1
170 syn region factorArray1 contained matchgroup=hlLevel1 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray2,factorQuotation2
171 syn region factorArray2 contained matchgroup=hlLevel2 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray3,factorQuotation3
172 syn region factorArray3 contained matchgroup=hlLevel3 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray4,factorQuotation4
173 syn region factorArray4 contained matchgroup=hlLevel4 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray5,factorQuotation5
174 syn region factorArray5 contained matchgroup=hlLevel5 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray6,factorQuotation6
175 syn region factorArray6 contained matchgroup=hlLevel6 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray7,factorQuotation7
176 syn region factorArray7 contained matchgroup=hlLevel7 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray8,factorQuotation8
177 syn region factorArray8 contained matchgroup=hlLevel8 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray9,factorQuotation9
178 syn region factorArray9 contained matchgroup=hlLevel9 start=/\<\(\$\|[-a-zA-Z0-9]\+\)\?{\>/ end=/\<}\>/ contains=@factorCluster,factorArray0,factorQuotation0
181 syn match factorBracketErr /\<\]\>/
182 syn match factorBracketErr /\<}\>/
186 if version >= 508 || !exists("did_factor_syn_inits")
188 let did_factor_syn_inits = 1
189 command -nargs=+ HiLink hi link <args>
191 command -nargs=+ HiLink hi def link <args>
194 HiLink factorComment Comment
195 HiLink factorStackEffect Typedef
196 HiLink factorLiteralStackEffect Typedef
197 HiLink factorTodo Todo
198 HiLink factorInclude Include
199 HiLink factorRepeat Repeat
200 HiLink factorConditional Conditional
201 HiLink factorKeyword Keyword
202 HiLink factorCallQuotation Keyword
203 HiLink factorExecute Keyword
204 HiLink factorCallNextMethod Keyword
205 HiLink factorOperator Operator
206 HiLink factorFrySpecifier Operator
207 HiLink factorBoolean Boolean
208 HiLink factorBreakpoint Debug
209 HiLink factorDefnDelims Typedef
210 HiLink factorMethodDelims Typedef
211 HiLink factorGenericDelims Typedef
212 HiLink factorGenericNDelims Typedef
213 HiLink factorConstructor Typedef
214 HiLink factorConstructor2 Typedef
215 HiLink factorPrivate Special
216 HiLink factorPrivateDefnDelims Special
217 HiLink factorPrivateMethodDelims Special
218 HiLink factorPGenericDelims Special
219 HiLink factorPGenericNDelims Special
220 HiLink factorString String
221 HiLink factorTriString String
222 HiLink factorSbuf String
223 HiLink factorMultiStringContents String
224 HiLink factorMultiStringDelims Typedef
225 HiLink factorBracketErr Error
226 HiLink factorComplex Number
227 HiLink factorRatio Number
228 HiLink factorBinary Number
229 HiLink factorBinErr Error
230 HiLink factorHex Number
231 HiLink factorHexErr Error
232 HiLink factorNan Number
233 HiLink factorOctal Number
234 HiLink factorOctErr Error
235 HiLink factorFloat Float
236 HiLink factorInt Number
237 HiLink factorUsing Include
238 HiLink factorQualified Include
239 HiLink factorQualifiedWith Include
240 HiLink factorExclude Include
241 HiLink factorFrom Include
242 HiLink factorRename Include
243 HiLink factorUse Include
244 HiLink factorUnuse Include
245 HiLink factorIn Define
246 HiLink factorChar Character
247 HiLink factorDelimiter Delimiter
248 HiLink factorBackslash Special
249 HiLink factorLiteral Special
250 HiLink factorLiteralBlock Special
251 HiLink factorDeclaration Typedef
252 HiLink factorSymbol Define
253 HiLink factorSymbols Define
254 HiLink factorConstant Define
255 HiLink factorAlias Define
256 HiLink factorSingleton Define
257 HiLink factorSingletons Define
258 HiLink factorMixin Typedef
259 HiLink factorInstance Typedef
260 HiLink factorHook Typedef
261 HiLink factorMain Define
262 HiLink factorPostpone Define
263 HiLink factorDefer Define
264 HiLink factorForget Define
265 HiLink factorAlien Define
266 HiLink factorSlot Define
267 HiLink factorIntersection Typedef
268 HiLink factorTuple Typedef
269 HiLink factorUnion Typedef
270 HiLink factorStruct Typedef
273 hi hlLevel0 ctermfg=red guifg=red1
274 hi hlLevel1 ctermfg=yellow guifg=orange1
275 hi hlLevel2 ctermfg=green guifg=yellow1
276 hi hlLevel3 ctermfg=cyan guifg=greenyellow
277 hi hlLevel4 ctermfg=magenta guifg=green1
278 hi hlLevel5 ctermfg=red guifg=springgreen1
279 hi hlLevel6 ctermfg=yellow guifg=cyan1
280 hi hlLevel7 ctermfg=green guifg=slateblue1
281 hi hlLevel8 ctermfg=cyan guifg=magenta1
282 hi hlLevel9 ctermfg=magenta guifg=purple1
284 hi hlLevel0 ctermfg=red guifg=red3
285 hi hlLevel1 ctermfg=darkyellow guifg=orangered3
286 hi hlLevel2 ctermfg=darkgreen guifg=orange2
287 hi hlLevel3 ctermfg=blue guifg=yellow3
288 hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
289 hi hlLevel5 ctermfg=red guifg=green4
290 hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
291 hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
292 hi hlLevel8 ctermfg=blue guifg=darkslateblue
293 hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
299 let b:current_syntax = "factor"
304 set autoindent " annoying?