awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor refactors & comment revision

Browse Source
This commit is contained in:
Henrik Lissner
2020-01-11 17:27:04 -05:00
parent 29250133e8
commit 0c9f1b1a9c
6 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
modules/ui/modeline/autoload.el
View File

@ -22,11 +22,11 @@ Meant for `doom-change-font-size-hook'."
(let ((default-height +modeline--old-bar-height)
(scale (or (frame-parameter nil 'font-scale) 0)))
(if (> scale 0)
(let* ((font-size (string-to-number
(aref (doom--font-name (frame-parameter nil 'font)
(selected-frame))
xlfd-regexp-pixelsize-subnum)))
(scale (frame-parameter nil 'font-scale)))
(let ((font-size (string-to-number
(aref (doom--font-name (frame-parameter nil 'font)
(selected-frame))
xlfd-regexp-pixelsize-subnum)))
(scale (frame-parameter nil 'font-scale)))
(setq doom-modeline-height (+ default-height (* scale doom-font-increment))))
(setq doom-modeline-height default-height))))