(defun sw-theme-set-faces (theme) (custom-theme-set-faces theme '(font-lock-builtin-face ((((background light)) (:foreground "#00aa00")) (((background dark)) (:foreground "#ff0000")))) '(font-lock-comment-delimiter-face ((default (:weight bold)) (((background light)) (:foreground "#404040")) (((background dark)) (:foreground "#888888")))) '(font-lock-comment-face ((((background light)) (:foreground "#808080")) (((background dark)) (:foreground "#aaaaaa")))) '(font-lock-function-name-face ((default (:weight bold)) (((background light)) (:foreground "#00aa00")) (((background dark)) (:foreground "#ff0000")))) '(font-lock-keyword-face ((((background light)) (:foreground "#1e90ff")) (((background dark)) (:foreground "#ffa500")))) '(font-lock-type-face ((default (:weight bold)) (((background light)) (:foreground "#800080")) (((background dark)) (:foreground "#ffff00")))) '(font-lock-variable-name-face ((((background light)) (:foreground "#800080")) (((background dark)) (:foreground "#ffff00")))) '(fringe ((((background light)) (:background "#ffe7ba" :foreground "#000000")) (((background dark)) (:background "#000000" :foreground "#ffffff")))) '(mode-line ((((background light)) (:background "#ffe4b5" :foreground "#000000" :box (:line-width 1 :color "#00aa00"))) (((background dark)) (:background "#000000" :foreground "#ffffff" :box (:line-width 1 :color "#ff0000"))))) '(mode-line-buffer-id ((default (:weight bold)) (((background light)) (:foreground "#aa00aa")) (((background dark)) (:foreground "#ffff00")))) '(mode-line-inactive ((((background light)) (:background "#ffe4b5" :foreground "#808080" :box (:line-width 1 :color "#004000"))) (((background dark)) (:background "#000000" :foreground "#aaaaaa" :box (:line-width 1 :color "#500000"))))) '(region ((((background light)) (:background "#00aa00" :foreground "#ffffff")) (((background dark)) (:background "#ff0000" :foreground "#ffffff")))))) (defun turn-on-jedi () (disable-theme 'sith) (enable-theme 'jedi)) (defun turn-on-sith () (disable-theme 'jedi) (enable-theme 'sith)) (defun sw-theme-switch () (interactive) (if (eq (car custom-enabled-themes) 'jedi) (turn-on-sith) (turn-on-jedi))) (provide 'sw-theme)