themes: trying roboto and configurable bold weight

1 files changed, 7 insertions, 3 deletions

diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index eca20c5..db68668 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -179,6 +179,7 @@
 
 (defvar jao-themes--cidxs nil)
 (defvar jao-themes--x-colors nil)
+(defvar jao-themes--bold-weight 'medium)
 
 (defvar *jao-themes--color-names* nil)
 (defvar *jao--parsed-faces* nil)
@@ -213,7 +214,7 @@
            (dfg `(:foreground ,jao-themes--fg))
            (link (jao-themes--parse-face-body jao-themes--link))
            (vlink (jao-themes--parse-face-body jao-themes--visited-link))
-           (bf '(:bold t :weight bold))
+           (bf `(:bold t :weight ,jao-themes--bold-weight))
            (nbf '(:bold t :weight normal))
            (it '(:italic t :slant italic))
            (nit '(:italic nil :slant normal))
@@ -1202,11 +1203,14 @@
   (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))))
+        (family (cadr (assoc :face-family args)))
+        (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--face-family ,family))
+       (custom-theme-set-variables ',name
+                                   '(jao-themes--face-family ,family)
+                                   '(jao-themes--bold-weight ,bw))
        (let ((*jao-themes--color-names* ',(cdr (assoc :names args)))
              (jao-themes--face-family ,family))
          (let* ,(jao-themes--let-palette palette)