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 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))) |