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

Fix incorrect faces of "%" in global-mode-string.

Browse source 
See https://github.com/seagle0128/doom-modeline/issues/121#issuecomment-471335250.
This commit is contained in:
Vincent Zhang 2019-03-11 15:36:29 +07:00
parent 94c24ac375
commit dc83e6a4c3
2 changed files with 14 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
doom-modeline-core.el
View file

@ -303,14 +303,15 @@ Example:
(rhs-forms (doom-modeline--prepare-segments rhs))) (rhs-forms (doom-modeline--prepare-segments rhs)))
(defalias sym (defalias sym
(lambda () (lambda ()
(let ((rhs-str (format-mode-line (cons "" rhs-forms)))) (list lhs-forms
(list lhs-forms (propertize
(propertize " "
" " 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)
'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'display `((space :align-to (- (+ right right-fringe right-margin)
'display `((space :align-to (- (+ right right-fringe right-margin) ,(+ 1 (string-width
,(+ 1 (string-width rhs-str)))))) (format-mode-line
rhs-str))) (cons "" rhs-forms))))))))
rhs-forms))
(concat "Modeline:\n" (concat "Modeline:\n"
(format " %s\n %s" (format " %s\n %s"
(prin1-to-string lhs) (prin1-to-string lhs)

16
doom-modeline-segments.el
View file

@ -467,12 +467,9 @@ mouse-1: Display minor modes menu"
'mouse-1 #'minions-minor-modes-menu)) 'mouse-1 #'minions-minor-modes-menu))
" ") " ")
(propertize (propertize
(concat (replace-regexp-in-string (regexp-quote "%") "%%"
(replace-regexp-in-string (regexp-quote "%") (format-mode-line '("" minor-mode-alist " "))
"%%%%" t t)
(format-mode-line '("" minor-mode-alist))
t t)
" ")
'face (if active 'face (if active
'doom-modeline-buffer-minor-mode 'doom-modeline-buffer-minor-mode
'mode-line-inactive)))))) 'mode-line-inactive))))))
@ -1284,10 +1281,7 @@ mouse-2: Show help for minor mode"
"Mode line construct for miscellaneous information. "Mode line construct for miscellaneous information.
By default, this shows the information specified by `global-mode-string'." By default, this shows the information specified by `global-mode-string'."
(if (doom-modeline--active) (if (doom-modeline--active)
(replace-regexp-in-string (regexp-quote "%") '("" mode-line-misc-info)))
"%%%%"
(format-mode-line mode-line-misc-info)
t t)))
;; ;;
@ -1767,7 +1761,7 @@ we don't want to remove that so we just return the original."
(if doom-modeline-icon (if doom-modeline-icon
(doom-modeline-icon-faicon "battery-empty" :v-adjust -0.0575) (doom-modeline-icon-faicon "battery-empty" :v-adjust -0.0575)
(propertize "!" 'face face))))) (propertize "!" 'face face)))))
(status (and percentage (concat percentage "%%%%"))) (status (and percentage (concat percentage "%%")))
(help-echo (if battery-echo-area-format (help-echo (if battery-echo-area-format
(battery-format battery-echo-area-format fancy-battery-last-status) (battery-format battery-echo-area-format fancy-battery-last-status)
"Battery status not available"))) "Battery status not available")))