diff options
| -rw-r--r-- | themes/jao-themes.el | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/themes/jao-themes.el b/themes/jao-themes.el index bcedc36..4411a40 100644 --- a/themes/jao-themes.el +++ b/themes/jao-themes.el @@ -664,17 +664,19 @@ (faces (cdr (assoc :faces args))) (x-faces (cdr (assoc :x-faces args))) (x-colors (cdr (assoc :x-colors args)))) - `(let* ,(jao-themes--let-palette palette nil) - (jao-themes--set-fbg nil) - (let ((,t-faces (jao-themes--make-faces ',faces))) - (let* ,(jao-themes--let-palette palette t) - (jao-themes--set-fbg 'x) - (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) - (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) - (deftheme ,name) - (put ',name 'theme-immediate t) - (apply 'custom-theme-set-faces (cons ',name ,tx-faces)) - (provide-theme ',name))))))) + `(progn + (custom-make-theme-feature ',name) + (deftheme ,name) + (let* ,(jao-themes--let-palette palette nil) + (jao-themes--set-fbg nil) + (let ((,t-faces (jao-themes--make-faces ',faces))) + (let* ,(jao-themes--let-palette palette t) + (jao-themes--set-fbg 'x) + (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) + (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) + (put ',name 'theme-immediate t) + (apply 'custom-theme-set-faces (cons ',name ,tx-faces))))) + (provide-theme ',name))))) (put 'jao-define-custom-theme 'lisp-indent-function 1) |