/
dehun-theme.el
84 lines (68 loc) · 3.22 KB
/
dehun-theme.el
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
76
77
78
79
80
81
82
83
84
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme dehun "dehun's theme for emacs")
(custom-theme-set-variables
'dehun
'(linum-format " %5i "))
(let ((background "#14141c")
(gutters "#343d46")
(gutter-fg "#65737e")
(gutters-active "#4f5b66")
(builtin "#d08770")
(foreground "#c0c5ce")
(invisibles "#65737e")
(lineHighlight "#343d46")
(selection "#4f5b66")
(text "#c0c5ce")
(comments "#65737e")
(punctuation "#c0c5ce")
(delimiters "#c0c5ce")
(operators "#c0c5ce")
(keywords "#9acd32")
(variables "#bf616a")
(functions "#8fa1b3")
(methods "#8fa1b3")
(strings "#a3be8c")
(constants "#d08770")
(white "#ffffff"))
(custom-theme-set-faces
'dehun
;; Default colors
;; *****************************************************************************************
`(default ((t (:foreground ,text :background ,background))))
`(region ((t (:background ,selection ))))
`(cursor ((t (:background ,white ))))
`(fringe ((t (:background ,background :foreground ,white))))
`(linum ((t (:background ,background :foreground ,gutter-fg))))
`(mode-line ((t (:foreground ,white :background ,gutters-active ))))
`(mode-line-inactive ((t (:foreground ,gutter-fg :background ,gutters ))))
;; Font lock faces
;; *****************************************************************************************
`(font-lock-keyword-face ((t (:foreground ,keywords))))
`(font-lock-type-face ((t (:foreground ,punctuation))))
`(font-lock-constant-face ((t (:foreground ,constants))))
`(font-lock-variable-name-face ((t (:foreground ,variables))))
`(font-lock-builtin-face ((t (:foreground ,builtin))))
`(font-lock-string-face ((t (:foreground ,strings))))
`(font-lock-comment-face ((t (:foreground ,comments))))
`(font-lock-comment-delimiter-face ((t (:foreground ,delimiters))))
`(font-lock-function-name-face ((t (:foreground ,functions))))
;; helm stuff
'(helm-selection ((t (:background "black" :underline "peach puff"))))
'(helm-match ((t (:foreground "#9acd32"))))
'(helm-source-header ((t (:background "gray10" :foreground "dark gray" :weight bold :height 1.3))))
'(minibuffer-prompt ((t (:foreground "burlywood"))))
;; linum
'(linum ((t (:inherit (shadow default) :foreground "#666666"))))
`(font-lock-doc-string-face ((t (:foreground ,strings)))))
;; *****************************************************************************************
)
;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
;; *****************************************************************************************
(provide-theme 'dehun)
;; Local Variables:
;; no-byte-compile: t
;; End: