Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 1075:0657e5adc938

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to task syntax
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 10:19:05 -0500
parents b2311dfb3158
children c316ca3c9ec6
comparison
equal deleted inserted replaced
1074:d89f98f0b4bb 1075:0657e5adc938
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" "style" "initializer" 139 "rec" "sequence" "sig" "signature" "cookie" "style" "task"
140 "struct" "structure" "table" "view" "then" "type" "val" "where" 140 "struct" "structure" "table" "view" "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.")
224 (1 font-lock-keyword-face) 224 (1 font-lock-keyword-face)
225 (2 (amAttribute font-lock-function-name-face))) 225 (2 (amAttribute font-lock-function-name-face)))
226 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)" 226 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)"
227 (1 font-lock-keyword-face) 227 (1 font-lock-keyword-face)
228 (3 (amAttribute font-lock-type-def-face))) 228 (3 (amAttribute font-lock-type-def-face)))
229 ("\\<\\(val\\|table\\|sequence\\|cookie\\|style\\|initializer\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" 229 ("\\<\\(val\\|table\\|sequence\\|cookie\\|style\\|task\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]"
230 (1 font-lock-keyword-face) 230 (1 font-lock-keyword-face)
231 (3 (amAttribute font-lock-variable-name-face))) 231 (3 (amAttribute font-lock-variable-name-face)))
232 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" 232 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)"
233 (1 font-lock-keyword-face) 233 (1 font-lock-keyword-face)
234 (2 (amAttribute font-lock-module-def-face))) 234 (2 (amAttribute font-lock-module-def-face)))