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

Merge branch 'master' into 'master'

Browse Source 
Add xah-fly-keys to modal segment

See merge request jessieh/mood-line!12
This commit is contained in:
Gregg Sangster 2023-10-19 06:53:48 +00:00
commit 9fede653b6
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

@ -84,6 +84,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" ())
@ -382,7 +383,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))))
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
;; ;;