dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: re-enable the spacious-padding-subtle-mode-line (for testing purposes)

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-05-16 07:26:47 +03:00
parent fc4cf67f1d
commit cddc1cd258
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
emacs/.emacs.d/prot-emacs-modules/prot-emacs-theme.el
View file

@ -70,15 +70,14 @@
:left-fringe-width 20
:right-fringe-width 20))
;; ;; Read the doc string of `spacious-padding-subtle-mode-line' as
;; ;; it is very flexible.
;;
;; (setq spacious-padding-subtle-mode-line
;; `( :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))
;; Read the doc string of `spacious-padding-subtle-mode-line' as
;; it is very flexible.
(setq spacious-padding-subtle-mode-line
`( :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))
(setq spacious-padding-subtle-mode-line nil))

17
emacs/.emacs.d/prot-emacs.org
View file

@ -1809,15 +1809,14 @@ I also take care to make it work with my customised mode line
:left-fringe-width 20
:right-fringe-width 20))
;; ;; Read the doc string of `spacious-padding-subtle-mode-line' as
;; ;; it is very flexible.
;;
;; (setq spacious-padding-subtle-mode-line
;; `( :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))
;; Read the doc string of `spacious-padding-subtle-mode-line' as
;; it is very flexible.
(setq spacious-padding-subtle-mode-line
`( :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))
(setq spacious-padding-subtle-mode-line nil))
#+end_src