diff options
Diffstat (limited to 'bard-emacs-modules/bard-emacs-modeline.el')
| -rw-r--r-- | bard-emacs-modules/bard-emacs-modeline.el | 17 |
1 files changed, 16 insertions, 1 deletions
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 |