branch: elpa/apropospriate-theme
commit ae894431e5a37fb24c91964ffb1414cfcfcc2e81
Author: justin talbott <[email protected]>
Commit: justin talbott <[email protected]>
make mode-line font-size manipulation configurable - closes #20
---
apropospriate.el | 24 ++++++++++++++++++------
1 file changed, 18 insertions(+), 6 deletions(-)
diff --git a/apropospriate.el b/apropospriate.el
index 43431eb..4b6fbce 100644
--- a/apropospriate.el
+++ b/apropospriate.el
@@ -27,6 +27,16 @@
(require 'color)
+(defgroup apropospriate nil
+ "Apropospriate theme options."
+ :group 'faces)
+
+(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."
+ :type 'number
+ :group 'solarized)
+
(defmacro apropospriate-with-color-variables (variant &rest body)
(declare (indent 0))
`(let* ((class '((class color) (min-colors 89)))
@@ -137,15 +147,17 @@
`(font-lock-type-face ((,class (:foreground ,orange))))
`(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 0.95))))
- `(mode-line-inactive ((,class (:box (:line-width 4 :color ,base00+1
:style nil) :background ,base00+1 :foreground ,base02 :height 0.95))))
+ `(mode-line ((,class (:box (:line-width 4 :color ,light-emphasis :style
nil)
+ :background ,base00-2 :foreground ,base03
:height ,apropospriate-mode-line-height))))
+ `(mode-line-inactive ((,class (:box (:line-width 4 :color ,base00+1
:style nil)
+ :background ,base00+1 :foreground
,base02 :height ,apropospriate-mode-line-height))))
`(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 0.95))))
- `(powerline-active2 ((,class (:background ,base00+1 :height 0.95))))
- `(powerline-inactive1 ((,class (:background ,base00+1 :height 0.95))))
- `(powerline-inactive2 ((,class (:background ,base00+1 :height 0.95))))
+ `(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))))
`(alert-trivial-face ((,class (:inherit nil :foreground nil :background
nil))))
`(anzu-mode-line ((,class (:foreground ,yellow))))
`(persp-selected-face ((,class (:foreground ,base03))))
