Merge pull request livecode#2547 from peter-b/misc-emacsmode

peter-b · peter-b · commit 1e49c813db74 · 2015-07-08T14:20:30.000+01:00
contrib: Misc. improvements to LCB Emacs mode.
diff --git a/contrib/emacs/livecode-mode.el b/contrib/emacs/livecode-mode.el
@@ -16,17 +16,18 @@
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.mlc\\'" . livecode-mode))
+(add-to-list 'auto-mode-alist '("\\.lcb\\'" . livecode-mode))
 
 (defvar livecode-mode-syntax-table
   (let ((st (make-syntax-table)))
     ;; Comments
-    (modify-syntax-entry ?/ ". 14b" st)
+    (modify-syntax-entry ?/ ". 124" st)
     (modify-syntax-entry ?* ". 23b" st)
-    (modify-syntax-entry ?\- "<" st)
+    (modify-syntax-entry ?\- ". 12" st)
     (modify-syntax-entry ?\n ">" st)
     ;; Angle brackets
-    (modify-syntax-entry ?< "(" st)
-    (modify-syntax-entry ?> ")" st)
+    (modify-syntax-entry ?< "(>" st)
+    (modify-syntax-entry ?> ")<" st)
     st)
   "Syntax table for LiveCode mode")
 
@@ -35,13 +36,14 @@
     "foreign" "handler" "prefix" "postfix" "precedence" "statement"
     "undefined" "public" "neutral" "binds to" "optional"
     "any" "private" "if" "else" "then" "repeat" "metadata" "widget" "module"
-    "version" "author" "title" "true" "false" "return" "as" "use" "type"))
+    "version" "author" "title" "true" "false" "return" "use" "type"
+    "exit repeat" "next repeat"))
 
 (defvar livecode-builtins
   '("output" "input"
     "bool" "boolean"
     "int" "number" "real" "double" "float"
-    "string" "data" "list" "map" "pointer" "is" "empty"))
+    "string" "data" "list" "map" "pointer" "is" "empty" "as"))
 
 (defvar livecode-font-lock-defaults
   (let ((symbol-regexp "\\_<\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"))
@@ -53,29 +55,32 @@
        ( ,(regexp-opt livecode-keywords 'symbols) . font-lock-keyword-face)
        ( ,(regexp-opt livecode-builtins 'symbols) . font-lock-builtin-face)
 
-       ;; "as" expressions
-       ("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>" 1 font-lock-type-face)
-
        ;; handler definitions including parameter names
        ( ,(concat "^\\s-*\\(\\_<\\(public\\|foreign\\)\\_>\\s-+\\)?\\_<handler\\_>\\s-+" symbol-regexp)
 	 (3 font-lock-function-name-face nil)
 	 ( ,(concat "\\(" (regexp-opt '("in" "out" "inout") 'symbols) "\\)"
 		    "\\s-+" symbol-regexp)
 	   nil nil
 	   (3 font-lock-variable-name-face)
-	   (2 font-lock-keyword-face)))
+	   (2 font-lock-keyword-face))
+	 ("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"
+	  nil nil
+	  (1 font-lock-type-face)))
 
        ;; variable names
        ( ,(concat "^\\s-*\\_<variable\\_>\\s-*" symbol-regexp)
-	(1 font-lock-variable-name-face))
+	(1 font-lock-variable-name-face)
+	("\\_<as\\s-+\\(\\(?:\\s_\\|\\w\\)*\\)\\_>"
+	 nil nil
+	 (1 font-lock-type-face)))
 
        ;; syntax definitions
        ( ,(concat "^\\s-*\\_<syntax\\_>\\s-+" symbol-regexp)
 	 (1 font-lock-function-name-face)
 	 ("\\_<is\\_>" nil nil (0 font-lock-keyword-face t)))
        ))))
 
-(define-derived-mode livecode-mode prog-mode "LiveCode builder source"
+(define-derived-mode livecode-mode prog-mode "LiveCode"
   "Major mode for editing LiveCode builder source files"
   :syntax-table livecode-mode-syntax-table
 
