diff options
| author | Daniel <[email protected]> | 2024-02-01 13:53:11 -0500 |
|---|---|---|
| committer | Daniel <[email protected]> | 2024-02-01 13:53:11 -0500 |
| commit | b7d91fdf7a988ada0bd3442c56c29a0b3a73fe49 (patch) | |
| tree | f1f969457cff0774f33eede393ac92fe943f4009 /bard-emacs-modules | |
| parent | 57ba40046cff58c1bd23dcc4183392ab1fdf2745 (diff) | |
fix narrow mode indicator
Diffstat (limited to 'bard-emacs-modules')
| -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 |