From c54c8f909e18734b38ee99149ddca29e4bd58ab0 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 26 Oct 2010 04:35:55 +0200 Subject: themes: tweaks for recent emacs snapshot --- themes/jao-themes.el | 24 +++++++++++++----------- 1 file 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) -- cgit v1.2.3