79 lines
3.5 KiB
EmacsLisp
79 lines
3.5 KiB
EmacsLisp
(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)
|