github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-24 03:00:10 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix #46: God-mode indicator.

Browse source
This commit is contained in:
Vincent Zhang 2018-11-22 02:46:51 +08:00
parent 69f3029c31
commit 9acad7f3f4
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
doom-modeline.el
View file

@ -240,6 +240,9 @@ active.")
(defface doom-modeline-evil-replace-state'((t (:inherit doom-modeline-buffer-modified))) (defface doom-modeline-evil-replace-state'((t (:inherit doom-modeline-buffer-modified)))
"Face for the replace state tag in evil state indicator.") "Face for the replace state tag in evil state indicator.")
(defface doom-modeline-god-state'((t (:inherit doom-modeline-info)))
"Face for the god state indicator.")
;; ;;
;; Modeline library ;; Modeline library
;; ;;
@ -1167,6 +1170,16 @@ See `mode-line-percent-position'.")
((evil-replace-state-p) 'doom-modeline-evil-replace-state))))))) ((evil-replace-state-p) 'doom-modeline-evil-replace-state)))))))
;;
;; god-state
;;
(doom-modeline-def-segment god-state
"The current god state. Requires `god-mode' to be enabled."
(when (bound-and-true-p god-local-mode)
(propertize " <G> " 'face 'doom-modeline-god-state)))
;; ;;
;; input method ;; input method
;; ;;
@ -1182,12 +1195,13 @@ See `mode-line-percent-position'.")
(nth 3 (assoc default-input-method input-method-alist)) (nth 3 (assoc default-input-method input-method-alist))
" ")))) " "))))
;; ;;
;; Mode lines ;; Mode lines
;; ;;
(doom-modeline-def-modeline 'main (doom-modeline-def-modeline 'main
'(bar workspace-number window-number evil-state matches " " buffer-info buffer-position " " selection-info) '(bar workspace-number window-number evil-state god-state matches " " buffer-info buffer-position " " selection-info)
'(global input-method buffer-encoding major-mode process vcs flycheck)) '(global input-method buffer-encoding major-mode process vcs flycheck))
(doom-modeline-def-modeline 'minimal (doom-modeline-def-modeline 'minimal
@ -1195,7 +1209,7 @@ See `mode-line-percent-position'.")
'(media-info major-mode)) '(media-info major-mode))
(doom-modeline-def-modeline 'special (doom-modeline-def-modeline 'special
'(bar window-number evil-state matches " " buffer-info-simple buffer-position " " selection-info) '(bar window-number evil-state god-state matches " " buffer-info-simple buffer-position " " selection-info)
'(global input-method buffer-encoding major-mode process flycheck)) '(global input-method buffer-encoding major-mode process flycheck))
(doom-modeline-def-modeline 'project (doom-modeline-def-modeline 'project