Mercurial > urweb
comparison src/elisp/urweb-mode.el @ 718:f152f215a02c
style declarations
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 12 Apr 2009 10:08:11 -0400 |
parents | 0f42461273cf |
children | 16bfd9e244cd |
comparison
equal
deleted
inserted
replaced
717:e28637743279 | 718:f152f215a02c |
---|---|
134 (defconst urweb-keywords-regexp | 134 (defconst urweb-keywords-regexp |
135 (urweb-syms-re "and" "case" "class" "con" "constraint" "constraints" | 135 (urweb-syms-re "and" "case" "class" "con" "constraint" "constraints" |
136 "datatype" "else" "end" "extern" "fn" "map" | 136 "datatype" "else" "end" "extern" "fn" "map" |
137 "fun" "functor" "if" "include" | 137 "fun" "functor" "if" "include" |
138 "of" "open" "let" "in" | 138 "of" "open" "let" "in" |
139 "rec" "sequence" "sig" "signature" "cookie" | 139 "rec" "sequence" "sig" "signature" "cookie" "style" |
140 "struct" "structure" "table" "then" "type" "val" "where" | 140 "struct" "structure" "table" "then" "type" "val" "where" |
141 "with" | 141 "with" |
142 | 142 |
143 "Name" "Type" "Unit") | 143 "Name" "Type" "Unit") |
144 "A regexp that matches any non-SQL keywords of Ur/Web.") | 144 "A regexp that matches any non-SQL keywords of Ur/Web.") |
223 (1 font-lock-keyword-face) | 223 (1 font-lock-keyword-face) |
224 (2 (amAttribute font-lock-function-name-face))) | 224 (2 (amAttribute font-lock-function-name-face))) |
225 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)" | 225 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)" |
226 (1 font-lock-keyword-face) | 226 (1 font-lock-keyword-face) |
227 (3 (amAttribute font-lock-type-def-face))) | 227 (3 (amAttribute font-lock-type-def-face))) |
228 ("\\<\\(val\\|table\\|sequence\\|cookie\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" | 228 ("\\<\\(val\\|table\\|sequence\\|cookie\\|style\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" |
229 (1 font-lock-keyword-face) | 229 (1 font-lock-keyword-face) |
230 (3 (amAttribute font-lock-variable-name-face))) | 230 (3 (amAttribute font-lock-variable-name-face))) |
231 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" | 231 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" |
232 (1 font-lock-keyword-face) | 232 (1 font-lock-keyword-face) |
233 (2 (amAttribute font-lock-module-def-face))) | 233 (2 (amAttribute font-lock-module-def-face))) |