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

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

[elpa] externals/boxy-headings 46ef4c6 1/4: Updated faces


From: ELPA Syncer
Subject: [elpa] externals/boxy-headings 46ef4c6 1/4: Updated faces
Date: Thu, 7 Oct 2021 21:57:17 -0400 (EDT)

branch: externals/boxy-headings
commit 46ef4c668825b0098813bc80a4489d6e55df0712
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@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 3a1672c..ed3c992 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]