From f425c2f84af59f5235cca3bd20ebffe4d0be5d61 Mon Sep 17 00:00:00 2001
From: BardofSprites <89086143+BardofSprites@users.noreply.github.com>
Date: Sat, 16 Nov 2024 15:40:00 -0500
Subject: centered cursor indicator

---
 bard-elisp/bard-modeline.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'bard-elisp')

diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el
index 70e99e7..b87047d 100644
--- a/bard-elisp/bard-modeline.el
+++ b/bard-elisp/bard-modeline.el
@@ -224,6 +224,15 @@ Specific to the current window's mode line.")
         (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg)))
   "Mode line construct to report the multilingual environment.")
 
+;;;; Centered cursor indicator
+(defvar-local bard-modeline-centered-cursor
+    '(:eval
+      (when (and (mode-line-window-selected-p)
+                 (bard/cursor-centered-p)
+                 (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode)))
+        (propertize " Center " 'face 'prot-modeline-indicator-yellow-bg)))
+  "Mode line construct to report the multilingual environment.")
+
 ;;;; Input method
 
 (defvar-local prot-modeline-input-method
@@ -519,6 +528,7 @@ Specific to the current window's mode line.")
 ;; variables will not work without it.
 (dolist (construct '(prot-modeline-kbd-macro
                      prot-modeline-narrow
+                     bard-modeline-centered-cursor
                      prot-modeline-input-method
                      prot-modeline-buffer-status
                      prot-modeline-evil
-- 
cgit v1.2.3