summaryrefslogtreecommitdiffhomepage
path: root/lib/themes
diff options
context:
space:
mode:
Diffstat (limited to 'lib/themes')
-rw-r--r--lib/themes/jao-light-theme.el3
-rw-r--r--lib/themes/jao-themes.el10
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)))