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

Add segment to display 'mode-line-process' value

Browse Source
This commit is contained in:
Jessie Hildebrandt 2019-06-06 06:44:59 -04:00
parent 07355d6cf8
commit 6c875529a2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mood-line.el
View File

@ -270,6 +270,11 @@
"Displays color-coded flycheck information in the mode-line (if available)." "Displays color-coded flycheck information in the mode-line (if available)."
mood-line--flycheck-text) mood-line--flycheck-text)
(defun mood-line-segment-process ()
"Displays the current value of `mode-line-process' in the mode-line."
(when mode-line-process
(list mode-line-process " ")))
;; ;;
;; Activation function ;; Activation function
;; ;;
@ -319,6 +324,7 @@
(:eval (mood-line-segment-major-mode)) (:eval (mood-line-segment-major-mode))
(:eval (mood-line-segment-global-mode-string)) (:eval (mood-line-segment-global-mode-string))
(:eval (mood-line-segment-flycheck)) (:eval (mood-line-segment-flycheck))
(:eval (mood-line-segment-process))
" "))))))) " ")))))))
(progn (progn