diff options
| -rw-r--r-- | bard-elisp/bard-modeline.el | 2 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-modeline.el | 17 |
2 files changed, 17 insertions, 2 deletions
diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index 5e8d0a4..df6183b 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -250,7 +250,7 @@ Specific to the current window's mode line.") (when (and (mode-line-window-selected-p) (buffer-narrowed-p) (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode))) - (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg))) + (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg))) "Mode line construct to report the multilingual environment.") ;;;; Input method 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 |