jessieh/mood-line
jessieh/mood-line
1
Fork 2
Code Issues 4 Pull Requests 1 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)) 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 ;; 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--evil "mood-line-segment-modal" ())
(declare-function mood-line-segment-modal--meow "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--god "mood-line-segment-modal" ())
(declare-function mood-line-segment-modal--xah "mood-line-segment-modal" ())
(declare-function mc/num-cursors "multiple-cursors" ()) (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)) (mood-line-segment-modal--meow))
((featurep 'god-mode) ((featurep 'god-mode)
(require 'mood-line-segment-modal) (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))))
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
;; ;;