blob: b93787804297ad29dec1b232e5204aec1aac103d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(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")))))))
(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)
|