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

add the minions mode

Browse Source
This commit is contained in:
Hyoyoung CHANG 2020-06-29 23:58:02 +09:00
parent 5ff7cb514d
commit 930038ea8d
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mood-line.el
View File

@ -55,6 +55,9 @@
(defvar anzu--current-position)
(defvar anzu--total-matched)
(defvar multiple-cursors-mode)
(defvar minions-direct)
(defvar minions-mode-line-lighter)
(defvar minions-mode-line-minor-modes-map)
;;
;; Function prototypes
@ -131,6 +134,11 @@
"Face used for the 'modified' indicator symbol in the mode-line."
:group 'mood-line)
(defface mood-line-minions-mode
'((t (:inherit (shadow))))
"Face used for the minions mode element."
:group 'mood-line)
;;
;; Helper functions
;;
@ -297,6 +305,11 @@
(when mode-line-process
(concat (mood-line--string-trim (format-mode-line mode-line-process)) " ")))
(defun mood-line-segment-minions-mode ()
"Displays the minions mode symbol characters."
(when (and (boundp 'minions-mode) minions-mode)
(propertize (format "%s " minions-mode-line-lighter) 'face 'mood-line-minions-mode 'mouse-face 'mood-line-minions-mode 'help-echo "Minions mouse-1: Display minor modes menu" 'local-map minions-mode-line-minor-modes-map)))
;;
;; Activation function
;;
@ -345,6 +358,7 @@
(:eval (mood-line-segment-flycheck))
(:eval (mood-line-segment-flymake))
(:eval (mood-line-segment-process))
(:eval (mood-line-segment-minions-mode))
" ")))))))
(progn