emacs, dot-emacs: Icon fontification support.

[profile] / dot-emacs.el

diff --git a/dot-emacs.el b/dot-emacs.el
index 0d27f52eab056a2e6812948bfd753e3e4168d0fc..f687acb19bd80f649852f1581bc8a3bf9da54ffa 100644 (file)
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -1414,6 +1414,67 @@ (defun mdw-fontify-python ()
           (list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
                 '(0 mdw-punct-face))))))
 
+;;;----- Icon programming style ---------------------------------------------
+
+;; --- Icon indentation style ---
+
+(setq icon-brace-offset 0
+      icon-continued-brace-offset 0
+      icon-continued-statement-offset 2
+      icon-indent-level 2)
+
+;; --- Define Icon fontification style ---
+
+(defun mdw-fontify-icon ()
+
+  ;; --- Miscellaneous fiddling ---
+
+  (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
+
+  ;; --- Now define fontification things ---
+
+  (make-local-variable 'font-lock-keywords)
+  (let ((icon-keywords
+        (mdw-regexps "break" "by" "case" "create" "default" "do" "else"
+                     "end" "every" "fail" "global" "if" "initial"
+                     "invocable" "link" "local" "next" "not" "of"
+                     "procedure" "record" "repeat" "return" "static"
+                     "suspend" "then" "to" "until" "while"))
+       (preprocessor-keywords
+        (mdw-regexps "define" "else" "endif" "error" "ifdef" "ifndef"
+                     "include" "line" "undef")))
+    (setq font-lock-keywords
+         (list
+
+          ;; --- Set up the keywords defined above ---
+
+          (list (concat "\\<\\(" icon-keywords "\\)\\>")
+                '(0 font-lock-keyword-face))
+
+          ;; --- The things that Icon calls keywords ---
+
+          (list "&\\sw+\\>" '(0 font-lock-variable-name-face))
+
+          ;; --- At least numbers are simpler than C ---
+
+          (list (concat "\\<[0-9]+"
+                        "\\([rR][0-9a-zA-Z]+\\|"
+                        "\\.[0-9]+\\([eE][+-]?[0-9]+\\)?\\)\\>\\|"
+                        "\\.[0-9]+\\([eE][+-]?[0-9]+\\)?\\>")
+                '(0 mdw-number-face))
+
+          ;; --- Preprocessor ---
+
+          (list (concat "^[ \t]*$[ \t]*\\<\\("
+                        preprocessor-keywords
+                        "\\)\\>")
+                '(0 font-lock-keyword-face))
+
+          ;; --- And anything else is punctuation ---
+
+          (list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
+                '(0 mdw-punct-face))))))
+
 ;;;----- ARM assembler programming configuration ----------------------------
 
 ;; --- There doesn't appear to be an Emacs mode for this yet ---