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

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

[nongnu] elpa/apropospriate-theme 02a252c 064/118: allow apropospriate-m


From: ELPA Syncer
Subject: [nongnu] elpa/apropospriate-theme 02a252c 064/118: allow apropospriate-mode-line-height as nil to work the same as 1.0
Date: Thu, 21 Oct 2021 18:02:23 -0400 (EDT)

branch: elpa/apropospriate-theme
commit 02a252c06dfa15542a281d200e174c2a0f2cdf9c
Author: justin talbott <justin@waymondo.com>
Commit: justin talbott <justin@waymondo.com>

    allow apropospriate-mode-line-height as nil to work the same as 1.0
---
 apropospriate.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/apropospriate.el b/apropospriate.el
index 7f076e1..4024098 100644
--- a/apropospriate.el
+++ b/apropospriate.el
@@ -33,7 +33,7 @@
 
 (defcustom apropospriate-mode-line-height 0.95
   "The proportional font size of the mode-line in the apropospriate theme.
-Set to `1.0' to prevent font size manipulation."
+Set to `1.0' or nil to prevent font size manipulation."
   :type 'number
   :group 'solarized)
 
@@ -148,16 +148,18 @@ Set to `1.0' to prevent font size manipulation."
      `(font-lock-variable-name-face ((,class (:foreground ,teal))))
      `(font-lock-warning-face ((,class (:foreground ,red))))
      `(mode-line ((,class (:box (:line-width 4 :color ,light-emphasis :style 
nil)
-                                :background ,base00-2 :foreground ,base03 
:height ,apropospriate-mode-line-height))))
+                                :background ,base00-2 :foreground ,base03
+                                :height ,(or apropospriate-mode-line-height 
1.0)))))
      `(mode-line-inactive ((,class (:box (:line-width 4 :color ,base00+1 
:style nil)
-                                         :background ,base00+1 :foreground 
,base02 :height ,apropospriate-mode-line-height))))
+                                         :background ,base00+1 :foreground 
,base02
+                                         :height ,(or 
apropospriate-mode-line-height 1.0)))))
      `(mode-line-buffer-id ((,class (:foreground unspecified :background 
nil))))
      `(mode-line-emphasis ((,class (:foreground ,base02 :slant italic))))
      `(mode-line-highlight ((,class (:foreground ,base02 :box nil))))
-     `(powerline-active1 ((,class (:background ,base00 :height 
,apropospriate-mode-line-height))))
-     `(powerline-active2 ((,class (:background ,base00+1 :height 
,apropospriate-mode-line-height))))
-     `(powerline-inactive1 ((,class (:background ,base00+1 :height 
,apropospriate-mode-line-height))))
-     `(powerline-inactive2 ((,class (:background ,base00+1 :height 
,apropospriate-mode-line-height))))
+     `(powerline-active1 ((,class (:background ,base00 :height ,(or 
apropospriate-mode-line-height 1.0)))))
+     `(powerline-active2 ((,class (:background ,base00+1 :height ,(or 
apropospriate-mode-line-height 1.0)))))
+     `(powerline-inactive1 ((,class (:background ,base00+1 :height ,(or 
apropospriate-mode-line-height 1.0)))))
+     `(powerline-inactive2 ((,class (:background ,base00+1 :height ,(or 
apropospriate-mode-line-height 1.0)))))
      `(alert-trivial-face ((,class (:inherit nil :foreground nil :background 
nil))))
      `(anzu-mode-line ((,class (:foreground ,yellow))))
      `(persp-selected-face ((,class (:foreground ,base03))))



reply via email to

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