From 8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 14 Apr 2022 03:28:23 +0100
Subject: themes: default face family and size

---
 lib/themes/jao-light-theme.el |  3 ++-
 lib/themes/jao-themes.el      | 10 +++++++---
 2 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 81ff759..a96950e 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -41,7 +41,8 @@
           (red "burlywood4")
           (blue "#023770")
           (green "#005555"))
-  (:face-family "Roboto Mono")
+  (:face-family "Fira Code")
+  (:face-size 9)
   (:bold-weight 'medium)
   (:palette (fg "black")
             (bg "white")
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index efc6a9f..cd8a0f0 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -21,7 +21,8 @@
 (require 'ansi-color)
 
 ;;; palette
-(defvar jao-themes--face-family "Inconsolata")
+(defvar jao-themes-default-face "Hack-9")
+(defvar jao-themes--face-family "Hack")
 (defvar jao-themes--fg "black")
 (defvar jao-themes--bg "white")
 (defvar jao-themes--box "grey75")
@@ -1195,11 +1196,11 @@
     (when jao-themes--fg
       (push (cons 'foreground-color jao-themes--fg) f-alist)
       (when (stringp jao-themes--fg)
-	(set-frame-parameter nil 'foreground-color jao-themes--fg)))
+        (set-frame-parameter nil 'foreground-color jao-themes--fg)))
     (when jao-themes--bg
       (push (cons 'background-color jao-themes--bg) f-alist)
       (when (stringp jao-themes--bg)
-	(set-frame-parameter nil 'background-color jao-themes--bg)))
+        (set-frame-parameter nil 'background-color jao-themes--bg)))
     (setq window-system-default-frame-alist
           (cons
            (cons kind f-alist)
@@ -1210,11 +1211,14 @@
         (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))
         (bw (or (cadr (assoc :bold-weight args)) jao-themes--bold-weight)))
     `(progn
        (custom-make-theme-feature ',name)
        (deftheme ,name)
        (custom-theme-set-variables ',name
+                                   '(jao-themes-default-face
+                                     (format "%s-%s" ,family ,size))
                                    '(jao-themes--face-family ,family)
                                    '(jao-themes--bold-weight ,bw))
        (let ((*jao-themes--color-names* ',(cdr (assoc :names args)))
-- 
cgit v1.2.3