emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

big-mode: adjust powerline-height

Browse source
This commit is contained in:
Henrik Lissner 2016-02-26 00:03:19 -05:00
parent 6fee23e7fd
commit 55d016289c
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/core-ui.el
View file

@ -210,8 +210,6 @@
powerline-height 19 powerline-height 19
spaceline-highlight-face-func 'spaceline-highlight-face-evil-state) 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-is-modified nil "Face for mode-line modified symbol")
(defface mode-line-buffer-file nil "Face for mode-line buffer file path") (defface mode-line-buffer-file nil "Face for mode-line buffer file path")

7
modules/module-demo.el
View file

@ -8,8 +8,7 @@
;; Big-mode settings ;; Big-mode settings
(defconst big-mode-font (font-spec :family "Hack" :size 16)) (defconst big-mode-font (font-spec :family "Hack" :size 16))
(defconst big-mode-line-spacing 0) (defconst big-mode-line-spacing 0)
(defconst big-mode-modeline-height 26)
(defvar big-mode--line-spacing line-spacing)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -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 (define-minor-mode big-mode
:init-value nil :init-value nil
:lighter " BIG" :lighter " BIG"
:global t :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)) (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))) (setq-default line-spacing (if big-mode big-mode-line-spacing big-mode--line-spacing)))