hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-05 09:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactor: rename the variables and funcations for font width.

Browse source
This commit is contained in:
Vincent Zhang 2020-02-12 22:55:01 +08:00
parent f87b868bb9
commit 209ec76f56
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
doom-modeline-core.el
View file

@ -627,22 +627,22 @@ It requires `circe' or `erc' package."
((error "%s is not a valid segment" seg))))
(nreverse forms)))
(defvar doom-modeline--width-cache nil)
(defun doom-modeline--window-font-width ()
(defvar doom-modeline--font-width nil)
(defun doom-modeline--font-width ()
"Cache the font width."
(let ((attributes (face-all-attributes 'mode-line)))
(or (cdr (assoc attributes doom-modeline--width-cache))
(or (cdr (assoc attributes doom-modeline--font-width))
(let ((width (window-font-width nil 'mode-line)))
(push (cons attributes width) doom-modeline--width-cache)
(push (cons attributes width) doom-modeline--font-width)
width))))
;; Refresh the font width after setting frame parameters
;; to ensure the font width is correct.
(defun doom-modeline--refresh-width-cache ()
(defun doom-modeline--refresh-font-width ()
"Refresh the font width cache."
(setq doom-modeline--width-cache nil)
(doom-modeline--window-font-width))
(add-hook 'window-setup-hook #'doom-modeline--refresh-width-cache)
(setq doom-modeline--font-width nil)
(doom-modeline--font-width))
(add-hook 'window-setup-hook #'doom-modeline--refresh-font-width)
(defun doom-modeline-def-modeline (name lhs &optional rhs)
"Defines a modeline format and byte-compiles it.
@ -664,7 +664,7 @@ It requires `circe' or `erc' package."
(propertize
(doom-modeline-spc)
'display `((space :align-to (- (+ right right-fringe right-margin)
,(* (/ (doom-modeline--window-font-width)
,(* (/ (doom-modeline--font-width)
(frame-char-width) 1.0)
(string-width
(format-mode-line