From 4ffc5fa01a0285177d1313d04684ffb9d73cc0da Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 19 Sep 2025 18:15:26 +0100
Subject: themes: external specification of face family

---
 lib/themes/jao-light-theme.el |  6 ++----
 lib/themes/jao-themes.el      | 12 ++++++++----
 2 files changed, 10 insertions(+), 8 deletions(-)

(limited to 'lib/themes')

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 30a56af..c9b1882 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -18,7 +18,7 @@
 
 (jao-define-custom-theme jao-light
   (:names (bg-lightest "gray98")
-          (bg-light "gray95")
+          (bg-light "#efefef")
 
           (light-gray "gray80")
 
@@ -36,9 +36,6 @@
           (green "#005555")
           (lightgreen "darkgreen")
           (yellow "lightyellow"))
-  (:face-size (jao-d-l 12 9))
-  ;; (:face-family "DejaVu Sans Mono")
-  (:face-family (jao-d-l "Triplicate T4c" "Hack"))
   (:bold-weight 'semibold)
   (:palette (fg "black")
             (bg "white")
@@ -102,6 +99,7 @@
             (magit-diff-hunk-heading-highlight (c nil hl) it bf)
             (message-header-subject (p warning) nbf)
             (mode-line (c "grey20") :box (:line-width 1 :color "grey80"))
+            (mode-line-active (c "grey20") :box (:line-width 1 :color "grey80"))
             (mode-line-inactive
              (c "grey40" bg-light) :box (:line-width 1 :color "grey80"))
             (mode-line-buffer-id (~ default) (c nil nil) nit)
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index f529842..efb691c 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -21,8 +21,10 @@
 (require 'ansi-color)
 
 ;;; palette
-(defvar jao-themes-default-face "DejaVu Sans Mono-9")
-(defvar jao-themes--face-family "DejaVu Sans Mono")
+(defvar jao-themes-default-face nil)
+(defvar jao-themes-default-family "Hack")
+(defvar jao-themes-default-size 9)
+(defvar jao-themes--face-family jao-themes-default-face)
 (defvar jao-themes--fg "black")
 (defvar jao-themes--bg "white")
 (defvar jao-themes--box "grey75")
@@ -1228,8 +1230,10 @@
   (let ((palette (cdr (assoc :palette args)))
         (x-faces (cdr (assoc :x-faces args)))
         (x-colors (cdr (assoc :x-colors args)))
-        (family (cadr (assoc :face-family args)))
-        (size (or (cadr (assoc :face-size args)) 9))
+        (family (or (cadr (assoc :face-family args))
+                    jao-themes-default-family))
+        (size (or (cadr (assoc :face-size args))
+                  jao-themes-default-size))
         (bw (or (cadr (assoc :bold-weight args)) jao-themes--bold-weight)))
     `(progn
        (custom-make-theme-feature ',name)
-- 
cgit v1.2.3