Introduce clojure-global-constant-face

Author: vemv

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 ### New features
 
+* Introduce `clojure-global-constant-face`.
 * Add imenu support for multimethods.
 * Make imenu recognize indented def-forms.
 * New interactive command `clojure-cycle-when`.

clojure-mode.el

@@ -97,6 +97,11 @@
   "Face used to font-lock interop method names (camelCase)."
   :package-version '(clojure-mode . "3.0.0"))
 
+(defface clojure-global-constant-face
+  '((t (:inherit font-lock-constant-face)))
+  "Face used to font-lock the Clojure global constants: nil, true, false."
+  :package-version '(clojure-mode . "3.0.0"))
+
 (defcustom clojure-indent-style :always-align
   "Indentation style to use for function forms and macro forms.
 There are two cases of interest configured by this variable.
@@ -844,7 +849,7 @@ any number of matches of `clojure--sym-forbidden-rest-chars'."))
          (regexp-opt
           '("true" "false" "nil") t)
          "\\>")
-       0 font-lock-constant-face)
+       0 'clojure-global-constant-face)
       ;; Character literals - \1, \a, \newline, \u0000
       ("\\\\\\([[:punct:]]\\|[a-z0-9]+\\>\\)" 0 'clojure-character-face)
       ;; foo/ Foo/ @Foo/ /FooBar

test/clojure-mode-font-lock-test.el

@@ -281,16 +281,16 @@ POS."
 
 (ert-deftest clojure-mode-syntax-table/nil ()
   :tags '(fontification syntax-table)
-  (should (eq (clojure-test-face-at 4 6 "(= nil x)") 'font-lock-constant-face))
-  (should-not (eq (clojure-test-face-at 3 5 "(fnil x)") 'font-lock-constant-face)))
+  (should (eq (clojure-test-face-at 4 6 "(= nil x)") 'clojure-global-constant-face))
+  (should-not (eq (clojure-test-face-at 3 5 "(fnil x)") 'clojure-global-constant-face)))
 
 (ert-deftest clojure-mode-syntax-table/true ()
   :tags '(fontification syntax-table)
-  (should (eq (clojure-test-face-at 4 7 "(= true x)") 'font-lock-constant-face)))
+  (should (eq (clojure-test-face-at 4 7 "(= true x)") 'clojure-global-constant-face)))
 
 (ert-deftest clojure-mode-syntax-table/false ()
   :tags '(fontification syntax-table)
-  (should (eq (clojure-test-face-at 4 8 "(= false x)") 'font-lock-constant-face)))
+  (should (eq (clojure-test-face-at 4 8 "(= false x)") 'clojure-global-constant-face)))
 
 (ert-deftest clojure-mode-syntax-table/keyword-meta ()
   :tags '(fontification syntax-table)