emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/boxy-headings b976b55524 13/45: Updated faces


From: ELPA Syncer
Subject: [elpa] externals/boxy-headings b976b55524 13/45: Updated faces
Date: Sun, 5 May 2024 22:50:53 -0400 (EDT)

branch: externals/boxy-headings
commit b976b5552473d58657d53f36a303b6424162184f
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>

    Updated faces
---
 boxy-headlines.el | 36 ++++++++++--------------------------
 1 file changed, 10 insertions(+), 26 deletions(-)

diff --git a/boxy-headlines.el b/boxy-headlines.el
index 3a1672c256..ed3c992125 100644
--- a/boxy-headlines.el
+++ b/boxy-headlines.el
@@ -102,40 +102,24 @@
 (defface boxy-headlines-default nil
   "Default face used in boxy mode.")
 
-(defface boxy-headlines-primary nil
+(defface boxy-headlines-primary
+  '((((background dark)) (:foreground "turquoise"))
+    (t (:foreground "dark cyan")))
   "Face for highlighting the name of a box.")
 
-(face-spec-set
- 'boxy-headlines-primary
- '((((background dark)) (:foreground "turquoise"))
-   (t (:foreground "dark cyan")))
- 'face-defface-spec)
-
-(defface boxy-headlines-selected nil
+(defface boxy-headlines-selected
+  '((t :foreground "light slate blue"))
   "Face for the current box border under cursor.")
 
-(face-spec-set
- 'boxy-headlines-selected
- '((t :foreground "light slate blue"))
- 'face-defface-spec)
-
-(defface boxy-headlines-rel nil
+(defface boxy-headlines-rel
+  '((t :foreground "hot pink"))
   "Face for the box which is related to the box under the cursor.")
 
-(face-spec-set
- 'boxy-headlines-rel
- '((t :foreground "hot pink"))
- 'face-defface-spec)
-
-(defface boxy-headlines-tooltip nil
+(defface boxy-headlines-tooltip
+  '((((background dark)) (:background "gray30" :foreground "gray"))
+    (t (:background "gainsboro" :foreground "dim gray")))
   "Face for tooltips in a boxy diagram.")
 
-(face-spec-set
- 'boxy-headlines-tooltip
- '((((background dark)) (:background "gray30" :foreground "gray"))
-   (t (:background "gainsboro" :foreground "dim gray")))
- 'face-defface-spec)
-
 ;;;; Pretty printing
 
 (cl-defun boxy-headlines-pp (box



reply via email to

[Prev in Thread] Current Thread [Next in Thread]