github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-27 19:19:53 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix #89: Inactive modeline doesn't respect icons scaling.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-10 03:29:15 +08:00
parent 361f29e2cf
commit c7d54f24d0
1 changed files with 35 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
doom-modeline.el
View file

@ -589,6 +589,10 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
(when doom-modeline-icon (when doom-modeline-icon
(apply #'all-the-icons-icon-for-file args))) (apply #'all-the-icons-icon-for-file args)))
(defun doom-modeline-icon-height (height)
"Calculate the actual HEIGHT of the icon."
(* (/ height 1.2) all-the-icons-scale-factor))
(defun doom-modeline--active () (defun doom-modeline--active ()
"Whether is an active window." "Whether is an active window."
(eq (selected-window) doom-modeline-current-window)) (eq (selected-window) doom-modeline-current-window))
@ -777,9 +781,10 @@ buffer where knowing the current project directory is important."
(defun doom-modeline-update-buffer-file-icon (&rest _) (defun doom-modeline-update-buffer-file-icon (&rest _)
"Update file icon in mode-line." "Update file icon in mode-line."
(setq doom-modeline--buffer-file-icon (setq doom-modeline--buffer-file-icon
(let ((icon (doom-modeline-icon-for-mode major-mode :height 0.92))) (let* ((height (/ all-the-icons-scale-factor 1.3))
(icon (doom-modeline-icon-for-mode major-mode :height height)))
(if (symbolp icon) (if (symbolp icon)
(setq icon (doom-modeline-icon-for-file (buffer-name) :height 0.92))) (setq icon (doom-modeline-icon-for-file (buffer-name) :height height)))
(unless (symbolp icon) (unless (symbolp icon)
(propertize icon (propertize icon
'help-echo (format "Major-mode: %s" mode-name) 'help-echo (format "Major-mode: %s" mode-name)
@ -839,6 +844,14 @@ Uses `all-the-icons-material' to fetch the icon."
(lambda (_sym val op _where) (lambda (_sym val op _where)
(when (eq op 'set) (when (eq op 'set)
(setq buffer-read-only val) (setq buffer-read-only val)
(doom-modeline-update-buffer-file-state-icon))))
(add-variable-watcher
'all-the-icons-scale-factor
(lambda (_sym val op _where)
(when (eq op 'set)
(setq all-the-icons-scale-factor val)
(doom-modeline-update-buffer-file-icon)
(doom-modeline-update-buffer-file-state-icon))))) (doom-modeline-update-buffer-file-state-icon)))))
(defvar-local doom-modeline--buffer-file-name nil) (defvar-local doom-modeline--buffer-file-name nil)
@ -878,7 +891,11 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(if (and active doom-modeline-major-mode-color-icon) (if (and active doom-modeline-major-mode-color-icon)
icon icon
(propertize icon (propertize icon
'face `(:height 1.1 :family ,(all-the-icons-icon-family icon) :inherit))) 'face `(:height
,(doom-modeline-icon-height 1.1)
:family
,(all-the-icons-icon-family icon)
:inherit)))
doom-modeline-vspc))) doom-modeline-vspc)))
;; state icon ;; state icon
@ -889,7 +906,11 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(if active (if active
icon icon
(propertize icon (propertize icon
'face `(:height 1.3 :family ,(all-the-icons-icon-family icon) :inherit))) 'face `(:height
,(doom-modeline-icon-height 1.3)
:family
,(all-the-icons-icon-family icon)
:inherit)))
doom-modeline-vspc))) doom-modeline-vspc)))
;; buffer file name ;; buffer file name
@ -1064,7 +1085,11 @@ Uses `all-the-icons-octicon' to fetch the icon."
(propertize icon (propertize icon
'face 'face
(if doom-modeline-icon (if doom-modeline-icon
`(:height 1.2 :family ,(all-the-icons-icon-family icon) :inherit) `(:height
,(doom-modeline-icon-height 1.2)
:family
,(all-the-icons-icon-family icon)
:inherit)
'mode-line-inactive)) 'mode-line-inactive))
doom-modeline-vspc doom-modeline-vspc
(propertize text 'face 'mode-line-inactive))) (propertize text 'face 'mode-line-inactive)))
@ -1334,7 +1359,11 @@ icons."
(propertize icon (propertize icon
'face 'face
(if doom-modeline-icon (if doom-modeline-icon
`(:height 1.3 :family ,(all-the-icons-icon-family icon) :inherit) `(:height
,(doom-modeline-icon-height 1.3)
:family
,(all-the-icons-icon-family icon)
:inherit)
'mode-line-inactive)) 'mode-line-inactive))
doom-modeline-vspc doom-modeline-vspc
(propertize text 'face 'mode-line-inactive))) (propertize text 'face 'mode-line-inactive)))