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

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

[elpa] externals/indent-bars 529854ec34 170/431: Relocate :weight spec t


From: ELPA Syncer
Subject: [elpa] externals/indent-bars 529854ec34 170/431: Relocate :weight spec to indent-bars-stipple face
Date: Mon, 16 Sep 2024 12:59:25 -0400 (EDT)

branch: externals/indent-bars
commit 529854ec346459294058ebdb5157beada826b664
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    Relocate :weight spec to indent-bars-stipple face
---
 indent-bars.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/indent-bars.el b/indent-bars.el
index 4d30ac8431..0a08771863 100644
--- a/indent-bars.el
+++ b/indent-bars.el
@@ -338,11 +338,9 @@ specifies using character bars exclusively.  See
 
 (defcustom indent-bars-no-stipple-char-font-weight nil
   "Font weight to use to draw the character bars.
-If weight is nil or unspecified, a regular font is assumed.
 If non-nil, set the no-stipple character font weight accordingly."
   :type `(choice
-          (const nil)
-          (const unspecified)
+          (const :tag "Use Default Weight" nil)
           ,@(mapcar (lambda (item) (list 'const (aref item 1)))
                     font-weight-table))
   :group 'indent-bars)
@@ -577,15 +575,15 @@ color, if setup (see 
`indent-bars-highlight-current-depth')."
 Create for character size W x H with offset ROT."
   (face-spec-set
    'indent-bars-stipple
-   `((t ( :inherit nil :stipple ,(indent-bars--stipple w h rot))))))
+   `((t ( :inherit nil :stipple ,(indent-bars--stipple w h rot)
+         ,@(when indent-bars-no-stipple-char-font-weight
+              `(:weight ,indent-bars-no-stipple-char-font-weight)))))))
 
 (defun indent-bars--calculate-face-spec (depth)
   "Calculate the face spec for indentation bar at an indentation DEPTH.
 DEPTH starts at 1."
-  `((t . (:inherit indent-bars-stipple
-          ,@(when indent-bars-no-stipple-char-font-weight
-              `(:weight ,indent-bars-no-stipple-char-font-weight))
-             :foreground ,(indent-bars--get-color depth)))))
+  `((t . ( :inherit indent-bars-stipple
+          :foreground ,(indent-bars--get-color depth)))))
 
 (defun indent-bars--create-faces (num &optional redefine)
   "Create bar faces up to depth NUM, redefining them if REDEFINE is non-nil.



reply via email to

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