From 77ecd5ea6c7dab034ce25149fe6e5a22a139b274 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Mon, 18 Dec 2023 11:36:17 +0200 Subject: [PATCH] prot-emacs.org: tweak the colour of the active spacious-padding-subtle-mode-line --- emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el | 6 +++++- emacs/.emacs.d/prot-emacs.org | 6 +++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el index cd99e7ad..b1fec10e 100644 --- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el +++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el @@ -78,7 +78,11 @@ ;; Read the doc string of `spacious-padding-subtle-mode-line' as it ;; is very flexible. (setq spacious-padding-subtle-mode-line - '(:mode-line-active default :mode-line-inactive vertical-border)) + `( :mode-line-active ,(if (or (eq prot-emacs-load-theme-family 'modus) + (eq prot-emacs-load-theme-family 'standard)) + 'default + 'help-key-binding) + :mode-line-inactive vertical-border)) (spacious-padding-mode 1) diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org index 4765a3aa..537f9028 100644 --- a/emacs/.emacs.d/prot-emacs.org +++ b/emacs/.emacs.d/prot-emacs.org @@ -1929,7 +1929,11 @@ and [[https://github.com/minad/org-modern][Daniel Mendler's ~org-modern~ package ;; Read the doc string of `spacious-padding-subtle-mode-line' as it ;; is very flexible. (setq spacious-padding-subtle-mode-line - '(:mode-line-active default :mode-line-inactive vertical-border)) + `( :mode-line-active ,(if (or (eq prot-emacs-load-theme-family 'modus) + (eq prot-emacs-load-theme-family 'standard)) + 'default + 'help-key-binding) + :mode-line-inactive vertical-border)) (spacious-padding-mode 1)