diff options
Diffstat (limited to 'theme.el')
| -rw-r--r-- | theme.el | 53 |
1 files changed, 29 insertions, 24 deletions
@@ -14,8 +14,8 @@ (set symbol (list ;; borders - ;; (list 'border-mode-line-active 'bg-mode-line-active) - ;; (list 'border-mode-line-inactive 'bg-mode-line-inactive) + (list 'border-mode-line-active 'bg-mode-line-active) + (list 'border-mode-line-inactive 'bg-mode-line-inactive) ;; subtle line numbers (list 'bg-line-number-inactive 'bg-dim) (list 'fg-line-number-inactive 'fg-dim) @@ -108,30 +108,35 @@ ;; To change the mode-line face via a hook. +;; Load the theme so that the macro expansion does not complain. +(modus-themes-load-theme 'modus-vivendi) + (defun durand-custom-face (&rest _args) "Change appearances of some themes." - (modus-themes-with-colors - (custom-set-faces - (list 'mode-line - (list - (list - t - :box (list :line-width 4 - :color bg-mode-line-active - :style 'released-button) - :background bg-mode-line-active - :foreground fg-mode-line-active))) - (list 'mode-line-inactive - (list - (list - t - :box (list :line-width 4 - :color bg-mode-line-inactive - :style 'released-button) - :background bg-mode-line-inactive - :foreground fg-mode-line-inactive)))))) - -(remove-hook 'modus-themes-after-load-theme-hook #'durand-custom-face) + (cond + ((featurep 'modus-themes) + (modus-themes-with-colors + (custom-set-faces + (list 'mode-line + (list + (list + t + :box (list :line-width 4 + :color bg-mode-line-active + :style 'released-button) + :background bg-mode-line-active + :foreground fg-mode-line-active))) + (list 'mode-line-inactive + (list + (list + t + :box (list :line-width 4 + :color bg-mode-line-inactive + :style 'released-button) + :background bg-mode-line-inactive + :foreground fg-mode-line-inactive)))))))) + +(add-hook 'modus-themes-after-load-theme-hook #'durand-custom-face) ;;;; Links ;; Fine, but I cannot set the background color now? |