diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2016-04-14 08:27:08 -0700 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2016-04-14 08:27:08 -0700 |
| commit | bac615c40ab7cad870ca398723d3c19a7a0162eb (patch) | |
| tree | 067a07482cdc86a5fa3c63f6d9a2be20bb677b79 /cider-debug.el | |
| parent | 7187c36e9fdc250ed2468ac4d3f8c2bc1690f028 (diff) | |
Add -face to the names of a few faces we've defined
Naming consistency is a good thing.
Diffstat (limited to 'cider-debug.el')
| -rw-r--r-- | cider-debug.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cider-debug.el b/cider-debug.el index 031dda13..e0bbe502 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -57,7 +57,7 @@ :group 'cider-debug :package-version '(cider . "0.10.0")) -(defface cider-enlightened +(defface cider-enlightened-face '((((class color) (background light)) :inherit cider-result-overlay-face :box (:color "darkorange" :line-width -1)) (((class color) (background dark)) :inherit cider-result-overlay-face @@ -67,7 +67,7 @@ :group 'cider-debug :package-version '(cider . "0.11.0")) -(defface cider-enlightened-local +(defface cider-enlightened-local-face '((((class color) (background light)) :weight bold :foreground "darkorange") (((class color) (background dark)) :weight bold :foreground "yellow")) "Face used to mark enlightened locals (not their values)." @@ -647,15 +647,15 @@ displaying its value." (cider--make-result-overlay (cider-font-lock-as-clojure debug-value) :where (cons marker marker) :type 'enlighten - :prepend-face 'cider-enlightened) + :prepend-face 'cider-enlightened-face) ;; Enlightening a symbol uses a more abbreviated format. The ;; result face is the same as a regular result, but we also color - ;; the symbol with `cider-enlightened-local'. + ;; the symbol with `cider-enlightened-local-face'. (cider--make-result-overlay (cider-font-lock-as-clojure debug-value) :format "%s" :where (cons (point) marker) :type 'enlighten - 'face 'cider-enlightened-local)))))))) + 'face 'cider-enlightened-local-face)))))))) ;;; Move here command |