From 0eccdd32a3944b312ae6031c979f2bfcf6546d54 Mon Sep 17 00:00:00 2001 From: BardofSprites <89086143+BardofSprites@users.noreply.github.com> Date: Mon, 9 Dec 2024 21:36:14 -0500 Subject: ryo-modal with modeline and cursor --- bard-elisp/bard-modeline.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'bard-elisp/bard-modeline.el') diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index b87047d..e1892ef 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -233,6 +233,25 @@ Specific to the current window's mode line.") (propertize " Center " 'face 'prot-modeline-indicator-yellow-bg))) "Mode line construct to report the multilingual environment.") +;; FIXME: Combine these two functions one day... +(defvar-local bard-modeline-ryo-modal-normal + '(:eval + (when (and (mode-line-window-selected-p) + (not (bard/ryo-insert-p)) + (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode))) + (propertize "" 'face 'prot-modeline-indicator-magenta-bg)) + ) + "Mode line construct to show normal mode for ryo-modal.") + +(defvar-local bard-modeline-ryo-modal-insert + '(:eval + (when (and (mode-line-window-selected-p) + (bard/ryo-insert-p) + (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode))) + (propertize "" 'face 'prot-modeline-indicator-blue-bg)) + ) + "Mode line construct to show insert mode for ryo-modal.") + ;;;; Input method (defvar-local prot-modeline-input-method @@ -529,6 +548,8 @@ Specific to the current window's mode line.") (dolist (construct '(prot-modeline-kbd-macro prot-modeline-narrow bard-modeline-centered-cursor + bard-modeline-ryo-modal-insert + bard-modeline-ryo-modal-normal prot-modeline-input-method prot-modeline-buffer-status prot-modeline-evil -- cgit v1.2.3