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-themes.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lib/themes/jao-themes.el') 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