hpet_dog/mood-line
hpet_dog/mood-line
1
Fork 2
Code Issues 6 Pull Requests 1 Releases Activity

Fix spacing issue with misc-info and process segs.

Browse Source
This commit is contained in:
Dog 2020-07-20 23:47:18 -04:00
parent 5ff7cb514d
commit 9358d9c81f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mood-line.el
View File

@ -280,7 +280,7 @@
(defun mood-line-segment-misc-info () (defun mood-line-segment-misc-info ()
"Displays the current value of `mode-line-misc-info' in the mode-line." "Displays the current value of `mode-line-misc-info' in the mode-line."
(let ((misc-info (format-mode-line mode-line-misc-info 'mood-line-unimportant))) (let ((misc-info (format-mode-line mode-line-misc-info 'mood-line-unimportant)))
(unless (string= misc-info "") (unless (string= (mood-line--string-trim misc-info) "")
(concat (mood-line--string-trim misc-info) " ")))) (concat (mood-line--string-trim misc-info) " "))))
(defun mood-line-segment-flycheck () (defun mood-line-segment-flycheck ()
@ -294,8 +294,9 @@
(defun mood-line-segment-process () (defun mood-line-segment-process ()
"Displays the current value of `mode-line-process' in the mode-line." "Displays the current value of `mode-line-process' in the mode-line."
(when mode-line-process (let ((process-info (format-mode-line mode-line-process)))
(concat (mood-line--string-trim (format-mode-line mode-line-process)) " "))) (unless (string= (mood-line--string-trim process-info) "")
(concat (mood-line--string-trim process-info) " "))))
;; ;;
;; Activation function ;; Activation function