Add custom atom & attribute faces.

I am aware these are probably unbelievably hideous. Please forgive me.

Author: mattdeboard

elixir-mode.el

@@ -223,6 +223,27 @@
   "For use with escape characters."
   :group 'font-lock-faces)
 
+(defvar elixir-attribute-face 'elixir-attribute-face)
+(defface elixir-attribute-face
+  '((((class color) (min-colors 88) (background light))
+     :foreground "MediumPurple4")
+    (((class color) (background dark))
+     (:foreground "thistle"))
+    (t nil))
+  "For use with escape characters."
+  :group 'font-lock-faces)
+
+(defvar elixir-atom-face 'elixir-atom-face)
+(defface elixir-atom-face
+  '((((class color) (min-colors 88) (background light))
+     :foreground "RoyalBlue4")
+    (((class color) (background dark))
+     (:foreground "light sky blue"))
+    (t nil))
+  "For use with escape characters."
+  :group 'font-lock-faces)
+
+
 (eval-when-compile
   (defconst elixir-rx-constituents
     `(
@@ -343,7 +364,7 @@
     ;; Module attributes
     (,(elixir-rx (group (or heredocs
                             (and "@" (1+ identifiers)))))
-     1 font-lock-builtin-face)
+     1 elixir-attribute-face)
 
     ;; Keywords
     (,(elixir-rx (group (or builtin builtin-declaration builtin-namespace
@@ -396,11 +417,11 @@
 
     ;; Atoms and singleton-like words like true/false/nil.
     (,(elixir-rx (group atoms))
-     1 font-lock-constant-face)
+     1 elixir-atom-face)
 
     ;; Map keys
     (,(elixir-rx (group (and (one-or-more identifiers) ":")))
-     1 font-lock-constant-face)
+     1 elixir-atom-face)
 
     ;; Built-in modules and pseudovariables
     (,(elixir-rx (group (or builtin-modules pseudo-var)))

test/elixir-mode-font-tests.el

@@ -104,41 +104,41 @@ end"
   :tags '(fontification heredoc syntax-table)
   (elixir-test-with-temp-buffer
       "@doc \"\"\""
-    (should (eq (elixir-test-face-at 1) 'font-lock-builtin-face))
-    (should (eq (elixir-test-face-at 2) 'font-lock-builtin-face))
+    (should (eq (elixir-test-face-at 1) 'elixir-attribute-face))
+    (should (eq (elixir-test-face-at 2) 'elixir-attribute-face))
     (should (eq (elixir-test-face-at 6) 'font-lock-string-face))))
 
 (ert-deftest elixir-mode-syntax-table/fontify-heredoc/2 ()
   :tags '(fontification heredoc syntax-table)
   (elixir-test-with-temp-buffer
       "@moduledoc \"\"\""
-    (should (eq (elixir-test-face-at 1) 'font-lock-builtin-face))
-    (should (eq (elixir-test-face-at 2) 'font-lock-builtin-face))
+    (should (eq (elixir-test-face-at 1) 'elixir-attribute-face))
+    (should (eq (elixir-test-face-at 2) 'elixir-attribute-face))
     (should (eq (elixir-test-face-at 12) 'font-lock-string-face))))
 
 (ert-deftest elixir-mode-syntax-table/fontify-heredoc/3 ()
   :tags '(fontification heredoc syntax-table)
   (elixir-test-with-temp-buffer
       "~s\"\"\""
-    (should (eq (elixir-test-face-at 1) 'font-lock-builtin-face))
-    (should (eq (elixir-test-face-at 2) 'font-lock-builtin-face))
+    (should (eq (elixir-test-face-at 1) 'elixir-attribute-face))
+    (should (eq (elixir-test-face-at 2) 'elixir-attribute-face))
     (should (eq (elixir-test-face-at 3) 'font-lock-string-face))))
 
 (ert-deftest elixir-mode-syntax-table/fontify-atoms ()
   :tags '(fontification atom syntax-table)
   (elixir-test-with-temp-buffer
       ":oriole
 :andale"
-    (should (eq (elixir-test-face-at 3) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 5) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 10) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 13) 'font-lock-constant-face))))
+    (should (eq (elixir-test-face-at 3) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 5) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 10) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 13) 'elixir-atom-face))))
 
 (ert-deftest elixir-mode-syntax-table/fontify-map-keys ()
   :tags '(fontification map syntax-table)
   (elixir-test-with-temp-buffer
       "%{a: 1, b: 2}"
-    (should (eq (elixir-test-face-at 3) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 4) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 9) 'font-lock-constant-face))
-    (should (eq (elixir-test-face-at 10) 'font-lock-constant-face))))
+    (should (eq (elixir-test-face-at 3) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 4) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 9) 'elixir-atom-face))
+    (should (eq (elixir-test-face-at 10) 'elixir-atom-face))))