[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-theme 7eabad7440 1/2: Make window-divider visibili
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-theme 7eabad7440 1/2: Make window-divider visibility customizable. |
Date: |
Tue, 20 Dec 2022 07:57:54 -0500 (EST) |
branch: externals/nano-theme
commit 7eabad7440cf225728d3ce9d8cbceb784be38498
Author: Andreas Kurth <andreas.kurth@ionos.com>
Commit: Andreas Kurth <andreas.kurth@ionos.com>
Make window-divider visibility customizable.
---
nano-theme-support.el | 28 ++++++++++++++++++++--------
1 file changed, 20 insertions(+), 8 deletions(-)
diff --git a/nano-theme-support.el b/nano-theme-support.el
index eb0324b02d..69b4f8c22a 100644
--- a/nano-theme-support.el
+++ b/nano-theme-support.el
@@ -150,6 +150,10 @@
"Whether to use font stack"
:type 'boolean :group 'nano-theme-fonts)
+(defcustom nano-window-divider-show nil
+ "Whether to show the vertical window-divider"
+ :type 'boolean :group 'nano-theme)
+
(defface nano-mono
'((t (:family "Roboto Mono"
:height 140
@@ -584,6 +588,22 @@ background color that is barely perceptible."
`(nano-strong ((,light (:weight bold :foreground ,nano-light-strong))
(,dark (:weight bold :foreground
,nano-dark-strong))))))
+ ;; --- Window divider ----------------------------------------------
+ (if nano-window-divider-show
+ (custom-theme-set-faces theme
+ `(window-divider ((,light (:foreground ,nano-light-foreground))
+ (,dark (:foreground ,nano-dark-foreground))))
+ `(vertical-border ((,light (:foreground ,nano-light-foreground))
+ (,dark (:foreground ,nano-dark-foreground)))))
+ (custom-theme-set-faces theme
+ `(window-divider ((,light (:foreground ,nano-light-background))
+ (,dark (:foreground ,nano-dark-background))))
+ `(vertical-border ((,light (:foreground ,nano-light-background))
+ (,dark (:foreground ,nano-dark-background))))))
+ (custom-theme-set-faces theme
+ '(window-divider-first-pixel ((t (:inherit window-divider))))
+ '(window-divider-last-pixel ((t (:inherit window-divider)))))
+
(custom-theme-set-faces theme
@@ -749,14 +769,6 @@ background color that is barely perceptible."
'(tty-menu-enabled-face ((t (:inherit nano-default-i))))
'(tty-menu-selected-face ((t (:inherit nano-salient-i))))
- ;; --- Windows divider ----------------------------------------------
- `(window-divider ((,light (:foreground
,nano-light-background))
- (,dark (:foreground ,nano-dark-background))))
- '(window-divider-first-pixel ((t (:inherit window-divider))))
- '(window-divider-last-pixel ((t (:inherit window-divider))))
- `(vertical-border ((,light (:foreground
,nano-light-background))
- (,dark (:foreground ,nano-dark-background))))
-
;; --- Tab bar ------------------------------------------------------
'(tab-bar ((t (:inherit default))))
'(tab-bar-tab ((t (:inherit default))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/nano-theme 7eabad7440 1/2: Make window-divider visibility customizable.,
ELPA Syncer <=