dotfiles · commit

Highlight 'pattern' keyword

1fc5a35b48a439c648ab3025b34806704a84e88b

Alexis Sellier committed 10 years ago 1 parent e0d37380

.vim/syntax/haskell.vim +3 -1


sy region hsInnerParen start="(" end=")" contained contains=hsInnerParen,hsConSym,hsType,hsVarSym

sy keyword hsStructure data family class where instance default deriving
sy keyword hsTypedef type newtype
sy keyword hsPattern pattern

sy keyword hsInfix infix infixl infixr
sy keyword hsStatement  do case of let in
sy keyword hsConditional if then else


  \ contains=hsCommentTodo,@Spell contained
  \ nextgroup=hsModuleCommentA,hsModuleExports,hsModuleWhereLabel skipwhite skipnl

syn region hsModuleExports start="(" end=")" contained
   \ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
   \ contains=hsBlockComment,hsLineComment,hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName,hsExportModule
   \ contains=hsBlockComment,hsLineComment,hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName,hsExportModule,hsPattern

syn match hsModuleCommentB "--.*\n"
  \ contains=hsCommentTodo,@Spell contained
  \ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl


syntax match	cCommentError	display "\*/" contained
syntax match	cCommentStartError display "/\*"me=e-1 contained
syn region	cCppString	start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained

hi def link hsTypedef          Typedef
hi def link hsPattern          Keyword
hi def link hsVarSym           hsOperator
hi def link hsConSym           hsOperator
hi def link hsDelimiter        Delimiter

hi def link hsModuleStartLabel Structure

121	122		\ contains=hsCommentTodo,@Spell contained
122	123		\ nextgroup=hsModuleCommentA,hsModuleExports,hsModuleWhereLabel skipwhite skipnl
123	124
124	125		syn region hsModuleExports start="(" end=")" contained
125	126		\ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
126		-	\ contains=hsBlockComment,hsLineComment,hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName,hsExportModule
	127	+	\ contains=hsBlockComment,hsLineComment,hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName,hsExportModule,hsPattern
127	128
128	129		syn match hsModuleCommentB "--.*\n"
129	130		\ contains=hsCommentTodo,@Spell contained
130	131		\ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
131	132

190	191		syntax match cCommentError display "\*/" contained
191	192		syntax match cCommentStartError display "/\*"me=e-1 contained
192	193		syn region cCppString start=+L\="+ skip=+\\\\\\|\\"\\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained
193	194
194	195		hi def link hsTypedef Typedef
	196	+	hi def link hsPattern Keyword
195	197		hi def link hsVarSym hsOperator
196	198		hi def link hsConSym hsOperator
197	199		hi def link hsDelimiter Delimiter
198	200
199	201		hi def link hsModuleStartLabel Structure

63	63
64	64		sy region hsInnerParen start="(" end=")" contained contains=hsInnerParen,hsConSym,hsType,hsVarSym
65	65
66	66		sy keyword hsStructure data family class where instance default deriving
67	67		sy keyword hsTypedef type newtype
	68	+	sy keyword hsPattern pattern
68	69
69	70		sy keyword hsInfix infix infixl infixr
70	71		sy keyword hsStatement do case of let in
71	72		sy keyword hsConditional if then else
72	73