From b7d91fdf7a988ada0bd3442c56c29a0b3a73fe49 Mon Sep 17 00:00:00 2001
From: Daniel <89086143+BardofSprites@users.noreply.github.com>
Date: Thu, 1 Feb 2024 13:53:11 -0500
Subject: fix narrow mode indicator

---
 bard-emacs-modules/bard-emacs-modeline.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'bard-emacs-modules')

diff --git a/bard-emacs-modules/bard-emacs-modeline.el b/bard-emacs-modules/bard-emacs-modeline.el
index dcedd95..2a2ed6f 100644
--- a/bard-emacs-modules/bard-emacs-modeline.el
+++ b/bard-emacs-modules/bard-emacs-modeline.el
@@ -65,9 +65,10 @@
 (setq mode-line-compact nil) ; Emacs 28
 (setq-default mode-line-format
               '("%e"
-		"  "
                 prot-modeline-narrow
+		" "
                 prot-modeline-buffer-status
+		" "
                 prot-modeline-input-method
                 prot-modeline-buffer-identification
                 "  "
@@ -80,6 +81,20 @@
                 "  "
                 prot-modeline-misc-info))
 
+(with-eval-after-load 'spacious-padding
+  (defun prot/modeline-spacious-indicators ()
+    "Set box attribute to `'prot-modeline-indicator-button' if spacious-padding is enabled."
+    (if (bound-and-true-p spacious-padding-mode)
+        (set-face-attribute 'prot-modeline-indicator-button nil :box t)
+      (set-face-attribute 'prot-modeline-indicator-button nil :box 'unspecified)))
+
+  ;; Run it at startup and then afterwards whenever
+  ;; `spacious-padding-mode' is toggled on/off.
+  (prot/modeline-spacious-indicators)
+
+  (add-hook 'spacious-padding-mode-hook #'prot/modeline-spacious-indicators))
+
+
 (provide 'bard-emacs-modeline)
 
 ;;; bard-emacs-modeline.el ends here
-- 
cgit v1.2.3