From 6c875529a26e7d7e55596cf274c97acd240c30f6 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Thu, 6 Jun 2019 06:44:59 -0400 Subject: [PATCH] Add segment to display 'mode-line-process' value --- mood-line.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/mood-line.el b/mood-line.el index f66e965..f4663d9 100644 --- a/mood-line.el +++ b/mood-line.el @@ -270,6 +270,11 @@ "Displays color-coded flycheck information in the mode-line (if available)." 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 ;; @@ -319,6 +324,7 @@ (:eval (mood-line-segment-major-mode)) (:eval (mood-line-segment-global-mode-string)) (:eval (mood-line-segment-flycheck)) + (:eval (mood-line-segment-process)) " "))))))) (progn