From 725a83f63836cc98a64285ed6dc31da3ccc99858 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 11 Mar 2022 21:17:54 +0000 Subject: themes: trying roboto and configurable bold weight --- 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 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) -- cgit v1.2.3