From 5aeb375b59ef4898d9d4525f86c3c2cd49ad5258 Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Fri, 6 Jan 2023 23:40:47 +0800
Subject: theme + eshell: adapt to version 4.

theme.el: Modus-themes now uses a great system for customising
faces, and this change in configuration adapts to that update.

eshell-conf.el: Besides adapting to the new Modus-themes, also
add some visual commands for better display.
---
 theme.el | 53 +++++++++++++++++++++++++++++------------------------
 1 file changed, 29 insertions(+), 24 deletions(-)

(limited to 'theme.el')

diff --git a/theme.el b/theme.el
index 5b42c7e..1033e46 100644
--- a/theme.el
+++ b/theme.el
@@ -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?
-- 
cgit v1.2.3-18-g5258