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

* mood-line.el: Added god-mode support

Browse Source
This commit is contained in:
Trevor Richards 2022-07-30 07:38:35 -07:00
parent f94b098b34
commit 214263c0fc
No known key found for this signature in database
GPG Key ID: 8546CF84A13DD5EF
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mood-line.el
View File

@ -348,10 +348,18 @@ The `Face' may be either a face symbol or a property list of key-value pairs
mood-line-meow-state-alist))) mood-line-meow-state-alist)))
(concat (propertize (car mode-cons) 'face (cdr mode-cons)) " ")))) (concat (propertize (car mode-cons) 'face (cdr mode-cons)) " "))))
(defun mood-line-segment-god ()
"Indicate whether or not god-mode is active."
(if (bound-and-true-p god-local-mode)
'(:propertize "<G> "
face (:inherit mood-line-status-warning))
"--- "))
(defun mood-line-segment-modal () (defun mood-line-segment-modal ()
"Call the correct mode-line segment when the first modal-mode is found." "Call the correct mode-line segment when the first modal-mode is found."
(cond ((bound-and-true-p evil-mode) (mood-line-segment-evil)) (cond ((bound-and-true-p evil-mode) (mood-line-segment-evil))
((bound-and-true-p meow-mode) (mood-line-segment-meow)))) ((bound-and-true-p meow-mode) (mood-line-segment-meow))
((featurep 'god-mode) (mood-line-segment-god))))
;; ;;
;; Activation function ;; Activation function