jessieh/mood-line
jessieh/mood-line
1
Fork 2
Code Issues 4 Pull Requests 1 Releases Activity

Merge branch 'fix/global-mode-string' into 'master'

Browse Source 
Fix global-mode-string handling

See merge request jessieh/mood-line!3
This commit is contained in:
Jessie Hildebrandt 2019-09-11 20:23:46 +00:00
commit 29ba637959
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mood-line.el
View File

@ -262,9 +262,9 @@
(defun mood-line-segment-global-mode-string () (defun mood-line-segment-global-mode-string ()
"Displays the current value of `global-mode-string' in the mode-line." "Displays the current value of `global-mode-string' in the mode-line."
(when (not (string= (mapconcat 'concat (mapcar 'eval global-mode-string) "") "")) (let ((global (format-mode-line global-mode-string 'mood-line-status-grayed-out)))
(propertize "%M " (unless (string-empty-p global)
'face 'mood-line-status-grayed-out))) (concat global " "))))
(defun mood-line-segment-flycheck () (defun mood-line-segment-flycheck ()
"Displays color-coded flycheck information in the mode-line (if available)." "Displays color-coded flycheck information in the mode-line (if available)."