From 55d016289ccbcd182cb062bab2518185a716d24e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 26 Feb 2016 00:03:19 -0500 Subject: [PATCH] big-mode: adjust powerline-height --- core/core-ui.el | 2 -- modules/module-demo.el | 7 ++++--- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/core/core-ui.el b/core/core-ui.el index c2997b968..48c8bfcfb 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -210,8 +210,6 @@ powerline-height 19 spaceline-highlight-face-func 'spaceline-highlight-face-evil-state) - (add-hook! big-mode (setq-default powerline-height (if big-mode 26 19))) - (defface mode-line-is-modified nil "Face for mode-line modified symbol") (defface mode-line-buffer-file nil "Face for mode-line buffer file path") diff --git a/modules/module-demo.el b/modules/module-demo.el index 2d1b1d45c..185c482a8 100644 --- a/modules/module-demo.el +++ b/modules/module-demo.el @@ -8,8 +8,7 @@ ;; Big-mode settings (defconst big-mode-font (font-spec :family "Hack" :size 16)) (defconst big-mode-line-spacing 0) - -(defvar big-mode--line-spacing line-spacing) +(defconst big-mode-modeline-height 26) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -24,12 +23,14 @@ ;;; -(defvar big-mode-font narf-default-font) +(defvar big-mode--line-spacing line-spacing) +(defvar big-mode--powerline-height powerline-height) (define-minor-mode big-mode :init-value nil :lighter " BIG" :global t + (setq-default powerline-height (if big-mode big-mode-modeline-height big-mode--powerline-height)) (narf/load-font (if big-mode big-mode-font narf-default-font)) (setq-default line-spacing (if big-mode big-mode-line-spacing big-mode--line-spacing)))