diff options
Diffstat (limited to 'lib/themes')
| -rw-r--r-- | lib/themes/jao-light-theme.el | 3 | ||||
| -rw-r--r-- | lib/themes/jao-themes.el | 10 | 
2 files changed, 9 insertions, 4 deletions
| diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index a9786ea..3c1aa31 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -43,7 +43,8 @@            (functions "#005555")            (red "salmon3")            (red2 "sienna4")) -  (:face-family "Hack") +  (:face-family "Roboto Mono") +  (:bold-weight 'medium)    (:palette (fg "black")              (bg "white")              (box "grey88") 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) | 
