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

Add xah-fly-keys to modal segment

Browse Source
This commit is contained in:
Gregg Sangster 2023-03-16 15:54:27 -04:00
parent 58e85c8150
commit 8331e01908
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mood-line-segment-modal.el
View File

@ -114,6 +114,16 @@ The `Face' may be either a face symbol or a property list of key-value pairs
face (:inherit mood-line-status-warning))
"--- "))
;; ---------------------------------- ;;
;; Xah segment function
;; ---------------------------------- ;;
(defun mood-line-segment-modal--xah ()
"Display the current xah-fly-keys state."
(if (bound-and-true-p xah-fly-insert-state-p)
"<I> "
"<C> "))
;; -------------------------------------------------------------------------- ;;
;;
;; Provide package

6
mood-line.el
View File

@ -83,6 +83,7 @@
(declare-function mood-line-segment-modal--evil "mood-line-segment-modal" ())
(declare-function mood-line-segment-modal--meow "mood-line-segment-modal" ())
(declare-function mood-line-segment-modal--god "mood-line-segment-modal" ())
(declare-function mood-line-segment-modal--xah "mood-line-segment-modal" ())
(declare-function mc/num-cursors "multiple-cursors" ())
@ -381,7 +382,10 @@ Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
(mood-line-segment-modal--meow))
((featurep 'god-mode)
(require 'mood-line-segment-modal)
(mood-line-segment-modal--god))))
(mood-line-segment-modal--god))
((bound-and-true-p xah-fly-keys)
(require 'mood-line-segment-modal)
(mood-line-segment-modal--xah))))
;; -------------------------------------------------------------------------- ;;
;;