diff options
author | jao <jao@gnu.org> | 2022-04-14 03:28:23 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-04-14 03:28:23 +0100 |
commit | 8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07 (patch) | |
tree | f72ef05a82d362bcaafa0cb63e219b09c52e1a25 /lib/themes/jao-themes.el | |
parent | 107db50163d21852fe6c25a8eb8b2b308c3ddb4e (diff) | |
download | elibs-8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07.tar.gz elibs-8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07.tar.bz2 |
themes: default face family and size
Diffstat (limited to 'lib/themes/jao-themes.el')
-rw-r--r-- | lib/themes/jao-themes.el | 10 |
1 files changed, 7 insertions, 3 deletions
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))) |