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 | |
| parent | 107db50163d21852fe6c25a8eb8b2b308c3ddb4e (diff) | |
| download | elibs-8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07.tar.gz elibs-8cd2e8df81f3c61395bd16f4f2c0e6de46c82f07.tar.bz2 | |
themes: default face family and size
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))) |