# HG changeset patch
# User Julian Squires <julian@cipht.net>
# Date 1430848986 14400
# Node ID 53f91b67006c2e3a7db358e4929c1856380277b1
# Parent  2b0f6b7ebf4ffff7bacb7fdeb09caa4ee9de9fa4
Treat "style" as starting an expression in urweb-mode

diff -r 2b0f6b7ebf4f -r 53f91b67006c src/elisp/urweb-defs.el
--- a/src/elisp/urweb-defs.el	Mon May 04 16:15:01 2015 -0400
+++ b/src/elisp/urweb-defs.el	Tue May 05 14:03:06 2015 -0400
@@ -108,7 +108,7 @@
                  "datatype" "type" "open" "include"
                  urweb-module-head-syms
                  "con" "map" "where" "extern" "constraint" "constraints"
-                 "table" "sequence" "class" "cookie" "task" "policy")
+                 "table" "sequence" "class" "cookie" "style" "task" "policy")
   "Symbols starting an sexp.")
 
 ;; (defconst urweb-not-arg-start-re
@@ -135,7 +135,7 @@
      (("case" "datatype" "if" "then" "else"
        "let" "open" "sig" "struct" "type" "val"
        "con" "constraint" "table" "sequence" "class" "cookie"
-       "task" "policy")))))
+       "style" "task" "policy")))))
 
 (defconst urweb-starters-indent-after
   (urweb-syms-re "let" "in" "struct" "sig")
@@ -190,7 +190,7 @@
 	  '("datatype" "fun"
 	    "open" "type" "val" "and"
 	    "con" "constraint" "table" "sequence" "class" "cookie"
-            "task" "policy"))
+            "style" "task" "policy"))
   "The starters of new expressions.")
 
 (defconst urweb-exptrail-syms