X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/b524cfb560bd79551c34352732d31814c3a9e791..3f12b9760aab4a34ad3ddbe8d50f61e9d7876560:/dot-emacs.el

diff --git a/dot-emacs.el b/dot-emacs.el
index 82d0214..fbb8e06 100644
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -664,6 +664,30 @@ the regular expressions in `mdw-backup-disable-regexps'."
     (font-lock-keyword-face :weight bold)
     (font-lock-constant-face :weight bold)
     (font-lock-reference-face :weight bold)
+    (message-cited-text
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :slant italic)
+    (message-separator :background "red" :foreground "white" :weight bold)
+    (message-header-cc
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-newsgroups
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-subject
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-to
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-xheader
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-other
+       :foreground ,(if window-system "SeaGreen1" "green")
+       :weight bold)
+    (message-header-name
+       :foreground ,(if window-system "SeaGreen1" "green"))
     (woman-bold :weight bold)
     (woman-italic :slant italic)
     (diff-index :weight bold)
@@ -702,6 +726,9 @@ the regular expressions in `mdw-backup-disable-regexps'."
 
 ;; --- Make C indentation nice ---
 
+(define-key c-mode-map "*" nil)
+(define-key c-mode-map "/" nil)
+
 (defun mdw-c-style ()
   (c-add-style "[mdw] C and C++ style"
 	       '((c-basic-offset . 2)
@@ -1562,6 +1589,41 @@ strip numbers instead."
 	   (list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
 		 '(0 mdw-punct-face))))))
 
+;;;----- Erlang configuration -----------------------------------------------
+
+(setq erlang-electric-commannds
+      '(erlang-electric-newline erlang-electric-semicolon))
+
+(defun mdw-fontify-erlang ()
+
+  ;; --- Set fill prefix ---
+
+  (mdw-standard-fill-prefix "\\([ \t]*{?%*[ \t]*\\)")
+
+  ;; --- Fiddle with fontification ---
+
+  (make-local-variable 'font-lock-keywords)
+  (let ((erlang-keywords
+	 (mdw-regexps "after" "and" "andalso"
+		      "band" "begin" "bnot" "bor" "bsl" "bsr" "bxor"
+		      "case" "catch" "cond"
+		      "div" "end" "fun" "if" "let" "not"
+		      "of" "or" "orelse"
+		      "query" "receive" "rem" "try" "when" "xor")))
+
+    (setq font-lock-keywords
+	  (list
+	   (list "%.*$"
+		 '(0 font-lock-comment-face))
+	   (list (concat "\\<\\(" erlang-keywords "\\)\\>")
+		 '(0 font-lock-keyword-face))
+	   (list (concat "^-\\sw+\\>")
+		 '(0 font-lock-keyword-face))
+	   (list "\\<[0-9]+\\(\\|#[0-9a-zA-Z]+\\|[eE][+-]?[0-9]+\\)\\>"
+		 '(0 mdw-number-face))
+	   (list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
+		 '(0 mdw-punct-face))))))
+
 ;;;----- Texinfo configuration ----------------------------------------------
 
 (defun mdw-fontify-texinfo ()