Skip to content

Commit bac615c

Browse files
committed
Add -face to the names of a few faces we've defined
Naming consistency is a good thing.
1 parent 7187c36 commit bac615c

File tree

2 files changed

+10
-9
lines changed

2 files changed

+10
-9
lines changed

cider-debug.el

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,7 @@
5757
:group 'cider-debug
5858
:package-version '(cider . "0.10.0"))
5959

60-
(defface cider-enlightened
60+
(defface cider-enlightened-face
6161
'((((class color) (background light)) :inherit cider-result-overlay-face
6262
:box (:color "darkorange" :line-width -1))
6363
(((class color) (background dark)) :inherit cider-result-overlay-face
@@ -67,7 +67,7 @@
6767
:group 'cider-debug
6868
:package-version '(cider . "0.11.0"))
6969

70-
(defface cider-enlightened-local
70+
(defface cider-enlightened-local-face
7171
'((((class color) (background light)) :weight bold :foreground "darkorange")
7272
(((class color) (background dark)) :weight bold :foreground "yellow"))
7373
"Face used to mark enlightened locals (not their values)."
@@ -647,15 +647,15 @@ displaying its value."
647647
(cider--make-result-overlay (cider-font-lock-as-clojure debug-value)
648648
:where (cons marker marker)
649649
:type 'enlighten
650-
:prepend-face 'cider-enlightened)
650+
:prepend-face 'cider-enlightened-face)
651651
;; Enlightening a symbol uses a more abbreviated format. The
652652
;; result face is the same as a regular result, but we also color
653-
;; the symbol with `cider-enlightened-local'.
653+
;; the symbol with `cider-enlightened-local-face'.
654654
(cider--make-result-overlay (cider-font-lock-as-clojure debug-value)
655655
:format "%s"
656656
:where (cons (point) marker)
657657
:type 'enlighten
658-
'face 'cider-enlightened-local))))))))
658+
'face 'cider-enlightened-local-face))))))))
659659

660660

661661
;;; Move here command

cider-mode.el

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -388,7 +388,8 @@ that should be font-locked:
388388
`macro' (default): Any defined macro gets the `font-lock-builtin-face'.
389389
`function': Any defined function gets the `font-lock-function-face'.
390390
`var': Any non-local var gets the `font-lock-variable-face'.
391-
`deprecated' (default): Any deprecated var gets the `cider-deprecated' face.
391+
`deprecated' (default): Any deprecated var gets the `cider-deprecated-face'
392+
face.
392393
`core' (default): Any symbol from clojure.core (face depends on type).
393394
394395
The value can also be t, which means to font-lock as much as possible."
@@ -402,7 +403,7 @@ The value can also be t, which means to font-lock as much as possible."
402403
:group 'cider
403404
:package-version '(cider . "0.10.0"))
404405

405-
(defface cider-deprecated
406+
(defface cider-deprecated-face
406407
'((((background light)) :background "light goldenrod")
407408
(((background dark)) :background "#432"))
408409
"Face used on deprecated vars."
@@ -483,10 +484,10 @@ The value can also be t, which means to font-lock as much as possible."
483484
(cider--unless-local-match font-lock-variable-name-face))))
484485
,@(when deprecated
485486
`((,(regexp-opt deprecated 'symbols) 0
486-
(cider--unless-local-match 'cider-deprecated) append)))
487+
(cider--unless-local-match 'cider-deprecated-face) append)))
487488
,@(when enlightened
488489
`((,(regexp-opt enlightened 'symbols) 0
489-
(cider--unless-local-match 'cider-enlightened) append)))
490+
(cider--unless-local-match 'cider-enlightened-face) append)))
490491
,@(when instrumented
491492
`((,(regexp-opt instrumented 'symbols) 0
492493
(cider--unless-local-match 'cider-instrumented-face) append)))

0 commit comments

Comments
 (0)