fordon_greeman / voidfiles

Branch: main
Switch branches/tags
main
theidioticdev add emacs 2079ec5 20h ago
426 lines · 20.6 KB Raw Blame History
1 ;;; gruber-darker-theme.el --- Gruber Darker color theme for Emacs 24. -*- lexical-binding: t; -*-
2
3 ;; Copyright (C) 2013-2016 Alexey Kutepov a.k.a rexim
4 ;; Copyright (C) 2009-2010 Jason R. Blevins
5
6 ;; Author: Alexey Kutepov <reximkut@gmail.com>
7 ;; URL: http://github.com/rexim/gruber-darker-theme
8 ;; Package-Version: 20231026.2031
9 ;; Package-Revision: 2e9f99c41fe8
10
11 ;; Permission is hereby granted, free of charge, to any person
12 ;; obtaining a copy of this software and associated documentation
13 ;; files (the "Software"), to deal in the Software without
14 ;; restriction, including without limitation the rights to use, copy,
15 ;; modify, merge, publish, distribute, sublicense, and/or sell copies
16 ;; of the Software, and to permit persons to whom the Software is
17 ;; furnished to do so, subject to the following conditions:
18
19 ;; The above copyright notice and this permission notice shall be
20 ;; included in all copies or substantial portions of the Software.
21
22 ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
23 ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
25 ;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
26 ;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
27 ;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
28 ;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
29 ;; SOFTWARE.
30
31 ;;; Commentary:
32 ;;
33 ;; Gruber Darker color theme for Emacs by Jason Blevins. A darker
34 ;; variant of the Gruber Dark theme for BBEdit by John Gruber. Adapted
35 ;; for deftheme and extended by Alexey Kutepov a.k.a. rexim.
36
37
38 (deftheme gruber-darker
39 "Gruber Darker color theme for Emacs 24")
40
41 ;; Please, install rainbow-mode.
42 ;; Colors with +x are lighter. Colors with -x are darker.
43 (let ((gruber-darker-fg "#e4e4ef")
44 (gruber-darker-fg+1 "#f4f4ff")
45 (gruber-darker-fg+2 "#f5f5f5")
46 (gruber-darker-white "#ffffff")
47 (gruber-darker-black "#000000")
48 (gruber-darker-bg-1 "#101010")
49 (gruber-darker-bg "#181818")
50 (gruber-darker-bg+1 "#282828")
51 (gruber-darker-bg+2 "#453d41")
52 (gruber-darker-bg+3 "#484848")
53 (gruber-darker-bg+4 "#52494e")
54 (gruber-darker-red-1 "#c73c3f")
55 (gruber-darker-red "#f43841")
56 (gruber-darker-red+1 "#ff4f58")
57 (gruber-darker-green "#73c936")
58 (gruber-darker-yellow "#ffdd33")
59 (gruber-darker-brown "#cc8c3c")
60 (gruber-darker-quartz "#95a99f")
61 (gruber-darker-niagara-2 "#303540")
62 (gruber-darker-niagara-1 "#565f73")
63 (gruber-darker-niagara "#96a6c8")
64 (gruber-darker-wisteria "#9e95c7")
65 )
66 (custom-theme-set-variables
67 'gruber-darker
68 '(frame-brackground-mode (quote dark)))
69
70 (custom-theme-set-faces
71 'gruber-darker
72
73 ;; Agda2
74 `(agda2-highlight-datatype-face ((t (:foreground ,gruber-darker-quartz))))
75 `(agda2-highlight-primitive-type-face ((t (:foreground ,gruber-darker-quartz))))
76 `(agda2-highlight-function-face ((t (:foreground ,gruber-darker-niagara))))
77 `(agda2-highlight-keyword-face ((t ,(list :foreground gruber-darker-yellow
78 :bold t))))
79 `(agda2-highlight-inductive-constructor-face ((t (:foreground ,gruber-darker-green))))
80 `(agda2-highlight-number-face ((t (:foreground ,gruber-darker-wisteria))))
81
82 ;; AUCTeX
83 `(font-latex-bold-face ((t (:foreground ,gruber-darker-quartz :bold t))))
84 `(font-latex-italic-face ((t (:foreground ,gruber-darker-quartz :italic t))))
85 `(font-latex-math-face ((t (:foreground ,gruber-darker-green))))
86 `(font-latex-sectioning-5-face ((t ,(list :foreground gruber-darker-niagara
87 :bold t))))
88 `(font-latex-slide-title-face ((t (:foreground ,gruber-darker-niagara))))
89 `(font-latex-string-face ((t (:foreground ,gruber-darker-green))))
90 `(font-latex-warning-face ((t (:foreground ,gruber-darker-red))))
91
92 ;; Basic Coloring (or Uncategorized)
93 `(border ((t ,(list :background gruber-darker-bg-1
94 :foreground gruber-darker-bg+2))))
95 `(cursor ((t (:background ,gruber-darker-yellow))))
96 `(default ((t ,(list :foreground gruber-darker-fg
97 :background gruber-darker-bg))))
98 `(fringe ((t ,(list :background nil
99 :foreground gruber-darker-bg+2))))
100 `(vertical-border ((t ,(list :foreground gruber-darker-bg+2))))
101 `(link ((t (:foreground ,gruber-darker-niagara :underline t))))
102 `(link-visited ((t (:foreground ,gruber-darker-wisteria :underline t))))
103 `(match ((t (:background ,gruber-darker-bg+4))))
104 `(shadow ((t (:foreground ,gruber-darker-bg+4))))
105 `(minibuffer-prompt ((t (:foreground ,gruber-darker-niagara))))
106 `(region ((t (:background ,gruber-darker-bg+3 :foreground nil))))
107 `(secondary-selection ((t ,(list :background gruber-darker-bg+3
108 :foreground nil))))
109 `(trailing-whitespace ((t ,(list :foreground gruber-darker-black
110 :background gruber-darker-red))))
111 `(tooltip ((t ,(list :background gruber-darker-bg+4
112 :foreground gruber-darker-white))))
113
114 ;; Calendar
115 `(holiday-face ((t (:foreground ,gruber-darker-red))))
116
117 ;; Compilation
118 `(compilation-info ((t ,(list :foreground gruber-darker-green
119 :inherit 'unspecified))))
120 `(compilation-warning ((t ,(list :foreground gruber-darker-brown
121 :bold t
122 :inherit 'unspecified))))
123 `(compilation-error ((t (:foreground ,gruber-darker-red+1))))
124 `(compilation-mode-line-fail ((t ,(list :foreground gruber-darker-red
125 :weight 'bold
126 :inherit 'unspecified))))
127 `(compilation-mode-line-exit ((t ,(list :foreground gruber-darker-green
128 :weight 'bold
129 :inherit 'unspecified))))
130
131 ;; Completion
132 `(completions-annotations ((t (:inherit 'shadow))))
133
134 ;; Custom
135 `(custom-state ((t (:foreground ,gruber-darker-green))))
136
137 ;; Diff
138 `(diff-removed ((t ,(list :foreground gruber-darker-red+1
139 :background nil))))
140 `(diff-added ((t ,(list :foreground gruber-darker-green
141 :background nil))))
142
143 ;; Dired
144 `(dired-directory ((t (:foreground ,gruber-darker-niagara :weight bold))))
145 `(dired-ignored ((t ,(list :foreground gruber-darker-quartz
146 :inherit 'unspecified))))
147
148 ;; Ebrowse
149 `(ebrowse-root-class ((t (:foreground ,gruber-darker-niagara :weight bold))))
150 `(ebrowse-progress ((t (:background ,gruber-darker-niagara))))
151
152 ;; Egg
153 `(egg-branch ((t (:foreground ,gruber-darker-yellow))))
154 `(egg-branch-mono ((t (:foreground ,gruber-darker-yellow))))
155 `(egg-diff-add ((t (:foreground ,gruber-darker-green))))
156 `(egg-diff-del ((t (:foreground ,gruber-darker-red))))
157 `(egg-diff-file-header ((t (:foreground ,gruber-darker-wisteria))))
158 `(egg-help-header-1 ((t (:foreground ,gruber-darker-yellow))))
159 `(egg-help-header-2 ((t (:foreground ,gruber-darker-niagara))))
160 `(egg-log-HEAD-name ((t (:box (:color ,gruber-darker-fg)))))
161 `(egg-reflog-mono ((t (:foreground ,gruber-darker-niagara-1))))
162 `(egg-section-title ((t (:foreground ,gruber-darker-yellow))))
163 `(egg-text-base ((t (:foreground ,gruber-darker-fg))))
164 `(egg-term ((t (:foreground ,gruber-darker-yellow))))
165
166 ;; ERC
167 `(erc-notice-face ((t (:foreground ,gruber-darker-wisteria))))
168 `(erc-timestamp-face ((t (:foreground ,gruber-darker-green))))
169 `(erc-input-face ((t (:foreground ,gruber-darker-red+1))))
170 `(erc-my-nick-face ((t (:foreground ,gruber-darker-red+1))))
171
172 ;; EShell
173 `(eshell-ls-backup ((t (:foreground ,gruber-darker-quartz))))
174 `(eshell-ls-directory ((t (:foreground ,gruber-darker-niagara))))
175 `(eshell-ls-executable ((t (:foreground ,gruber-darker-green))))
176 `(eshell-ls-symlink ((t (:foreground ,gruber-darker-yellow))))
177
178 ;; Font Lock
179 `(font-lock-builtin-face ((t (:foreground ,gruber-darker-yellow))))
180 `(font-lock-comment-face ((t (:foreground ,gruber-darker-brown))))
181 `(font-lock-comment-delimiter-face ((t (:foreground ,gruber-darker-brown))))
182 `(font-lock-constant-face ((t (:foreground ,gruber-darker-quartz))))
183 `(font-lock-doc-face ((t (:foreground ,gruber-darker-green))))
184 `(font-lock-doc-string-face ((t (:foreground ,gruber-darker-green))))
185 `(font-lock-function-name-face ((t (:foreground ,gruber-darker-niagara))))
186 `(font-lock-keyword-face ((t (:foreground ,gruber-darker-yellow :bold t))))
187 `(font-lock-preprocessor-face ((t (:foreground ,gruber-darker-quartz))))
188 `(font-lock-reference-face ((t (:foreground ,gruber-darker-quartz))))
189 `(font-lock-string-face ((t (:foreground ,gruber-darker-green))))
190 `(font-lock-type-face ((t (:foreground ,gruber-darker-quartz))))
191 `(font-lock-variable-name-face ((t (:foreground ,gruber-darker-fg+1))))
192 `(font-lock-warning-face ((t (:foreground ,gruber-darker-red))))
193
194 ;; Flymake
195 `(flymake-errline
196 ((((supports :underline (:style wave)))
197 (:underline (:style wave :color ,gruber-darker-red)
198 :foreground unspecified
199 :background unspecified
200 :inherit unspecified))
201 (t (:foreground ,gruber-darker-red :weight bold :underline t))))
202 `(flymake-warnline
203 ((((supports :underline (:style wave)))
204 (:underline (:style wave :color ,gruber-darker-yellow)
205 :foreground unspecified
206 :background unspecified
207 :inherit unspecified))
208 (t (:forground ,gruber-darker-yellow :weight bold :underline t))))
209 `(flymake-infoline
210 ((((supports :underline (:style wave)))
211 (:underline (:style wave :color ,gruber-darker-green)
212 :foreground unspecified
213 :background unspecified
214 :inherit unspecified))
215 (t (:forground ,gruber-darker-green :weight bold :underline t))))
216
217 ;; Flyspell
218 `(flyspell-incorrect
219 ((((supports :underline (:style wave)))
220 (:underline (:style wave :color ,gruber-darker-red) :inherit unspecified))
221 (t (:foreground ,gruber-darker-red :weight bold :underline t))))
222 `(flyspell-duplicate
223 ((((supports :underline (:style wave)))
224 (:underline (:style wave :color ,gruber-darker-yellow) :inherit unspecified))
225 (t (:foreground ,gruber-darker-yellow :weight bold :underline t))))
226
227 ;; Helm
228 `(helm-candidate-number ((t ,(list :background gruber-darker-bg+2
229 :foreground gruber-darker-yellow
230 :bold t))))
231 `(helm-ff-directory ((t ,(list :foreground gruber-darker-niagara
232 :background gruber-darker-bg
233 :bold t))))
234 `(helm-ff-executable ((t (:foreground ,gruber-darker-green))))
235 `(helm-ff-file ((t (:foreground ,gruber-darker-fg :inherit unspecified))))
236 `(helm-ff-invalid-symlink ((t ,(list :foreground gruber-darker-bg
237 :background gruber-darker-red))))
238 `(helm-ff-symlink ((t (:foreground ,gruber-darker-yellow :bold t))))
239 `(helm-selection-line ((t (:background ,gruber-darker-bg+1))))
240 `(helm-selection ((t (:background ,gruber-darker-bg+1 :underline nil))))
241 `(helm-source-header ((t ,(list :foreground gruber-darker-yellow
242 :background gruber-darker-bg
243 :box (list :line-width -1
244 :style 'released-button)))))
245
246 ;; Ido
247 `(ido-first-match ((t (:foreground ,gruber-darker-yellow :bold nil))))
248 `(ido-only-match ((t (:foreground ,gruber-darker-brown :weight bold))))
249 `(ido-subdir ((t (:foreground ,gruber-darker-niagara :weight bold))))
250
251 ;; Info
252 `(info-xref ((t (:foreground ,gruber-darker-niagara))))
253 `(info-visited ((t (:foreground ,gruber-darker-wisteria))))
254
255 ;; Jabber
256 `(jabber-chat-prompt-foreign ((t ,(list :foreground gruber-darker-quartz
257 :bold nil))))
258 `(jabber-chat-prompt-local ((t (:foreground ,gruber-darker-yellow))))
259 `(jabber-chat-prompt-system ((t (:foreground ,gruber-darker-green))))
260 `(jabber-rare-time-face ((t (:foreground ,gruber-darker-green))))
261 `(jabber-roster-user-online ((t (:foreground ,gruber-darker-green))))
262 `(jabber-activity-face ((t (:foreground ,gruber-darker-red))))
263 `(jabber-activity-personal-face ((t (:foreground ,gruber-darker-yellow :bold t))))
264
265 ;; Line Highlighting
266 `(highlight ((t (:background ,gruber-darker-bg+1 :foreground nil))))
267 `(highlight-current-line-face ((t ,(list :background gruber-darker-bg+1
268 :foreground nil))))
269
270 ;; line numbers
271 `(line-number ((t (:inherit default :foreground ,gruber-darker-bg+4))))
272 `(line-number-current-line ((t (:inherit line-number :foreground ,gruber-darker-yellow))))
273
274 ;; Linum
275 `(linum ((t `(list :foreground gruber-darker-quartz
276 :background gruber-darker-bg))))
277
278 ;; Magit
279 `(magit-branch ((t (:foreground ,gruber-darker-niagara))))
280 `(magit-diff-hunk-header ((t (:background ,gruber-darker-bg+2))))
281 `(magit-diff-file-header ((t (:background ,gruber-darker-bg+4))))
282 `(magit-log-sha1 ((t (:foreground ,gruber-darker-red+1))))
283 `(magit-log-author ((t (:foreground ,gruber-darker-brown))))
284 `(magit-log-head-label-remote ((t ,(list :foreground gruber-darker-green
285 :background gruber-darker-bg+1))))
286 `(magit-log-head-label-local ((t ,(list :foreground gruber-darker-niagara
287 :background gruber-darker-bg+1))))
288 `(magit-log-head-label-tags ((t ,(list :foreground gruber-darker-yellow
289 :background gruber-darker-bg+1))))
290 `(magit-log-head-label-head ((t ,(list :foreground gruber-darker-fg
291 :background gruber-darker-bg+1))))
292 `(magit-item-highlight ((t (:background ,gruber-darker-bg+1))))
293 `(magit-tag ((t ,(list :foreground gruber-darker-yellow
294 :background gruber-darker-bg))))
295 `(magit-blame-heading ((t ,(list :background gruber-darker-bg+1
296 :foreground gruber-darker-fg))))
297
298 ;; Message
299 `(message-header-name ((t (:foreground ,gruber-darker-green))))
300
301 ;; Mode Line
302 `(mode-line ((t ,(list :background gruber-darker-bg+1
303 :foreground gruber-darker-white))))
304 `(mode-line-buffer-id ((t ,(list :background gruber-darker-bg+1
305 :foreground gruber-darker-white))))
306 `(mode-line-inactive ((t ,(list :background gruber-darker-bg+1
307 :foreground gruber-darker-quartz))))
308
309 ;; Neo Dir
310 `(neo-dir-link-face ((t (:foreground ,gruber-darker-niagara))))
311
312 ;; Org Mode
313 `(org-agenda-structure ((t (:foreground ,gruber-darker-niagara))))
314 `(org-column ((t (:background ,gruber-darker-bg-1))))
315 `(org-column-title ((t (:background ,gruber-darker-bg-1 :underline t :weight bold))))
316 `(org-done ((t (:foreground ,gruber-darker-green))))
317 `(org-todo ((t (:foreground ,gruber-darker-red-1))))
318 `(org-upcoming-deadline ((t (:foreground ,gruber-darker-yellow))))
319
320 ;; Search
321 `(isearch ((t ,(list :foreground gruber-darker-black
322 :background gruber-darker-fg+2))))
323 `(isearch-fail ((t ,(list :foreground gruber-darker-black
324 :background gruber-darker-red))))
325 `(isearch-lazy-highlight-face ((t ,(list
326 :foreground gruber-darker-fg+1
327 :background gruber-darker-niagara-1))))
328
329 ;; Sh
330 `(sh-quoted-exec ((t (:foreground ,gruber-darker-red+1))))
331
332 ;; Show Paren
333 `(show-paren-match-face ((t (:background ,gruber-darker-bg+4))))
334 `(show-paren-mismatch-face ((t (:background ,gruber-darker-red-1))))
335
336 ;; Slime
337 `(slime-repl-inputed-output-face ((t (:foreground ,gruber-darker-red))))
338
339 ;; Tuareg
340 `(tuareg-font-lock-governing-face ((t (:foreground ,gruber-darker-yellow))))
341
342 ;; Speedbar
343 `(speedbar-directory-face ((t ,(list :foreground gruber-darker-niagara
344 :weight 'bold))))
345 `(speedbar-file-face ((t (:foreground ,gruber-darker-fg))))
346 `(speedbar-highlight-face ((t (:background ,gruber-darker-bg+1))))
347 `(speedbar-selected-face ((t (:foreground ,gruber-darker-red))))
348 `(speedbar-tag-face ((t (:foreground ,gruber-darker-yellow))))
349
350 ;; Which Function
351 `(which-func ((t (:foreground ,gruber-darker-wisteria))))
352
353 ;; Whitespace
354 `(whitespace-space ((t ,(list :background gruber-darker-bg
355 :foreground gruber-darker-bg+1))))
356 `(whitespace-tab ((t ,(list :background gruber-darker-bg
357 :foreground gruber-darker-bg+1))))
358 `(whitespace-hspace ((t ,(list :background gruber-darker-bg
359 :foreground gruber-darker-bg+2))))
360 `(whitespace-line ((t ,(list :background gruber-darker-bg+2
361 :foreground gruber-darker-red+1))))
362 `(whitespace-newline ((t ,(list :background gruber-darker-bg
363 :foreground gruber-darker-bg+2))))
364 `(whitespace-trailing ((t ,(list :background gruber-darker-red
365 :foreground gruber-darker-red))))
366 `(whitespace-empty ((t ,(list :background gruber-darker-yellow
367 :foreground gruber-darker-yellow))))
368 `(whitespace-indentation ((t ,(list :background gruber-darker-yellow
369 :foreground gruber-darker-red))))
370 `(whitespace-space-after-tab ((t ,(list :background gruber-darker-yellow
371 :foreground gruber-darker-yellow))))
372 `(whitespace-space-before-tab ((t ,(list :background gruber-darker-brown
373 :foreground gruber-darker-brown))))
374
375 ;; tab-bar
376 `(tab-bar ((t (:background ,gruber-darker-bg+1 :foreground ,gruber-darker-bg+4))))
377 `(tab-bar-tab ((t (:background nil :foreground ,gruber-darker-yellow :weight bold))))
378 `(tab-bar-tab-inactive ((t (:background nil))))
379
380 ;; vterm / ansi-term
381 `(term-color-black ((t (:foreground ,gruber-darker-bg+3 :background ,gruber-darker-bg+4))))
382 `(term-color-red ((t (:foreground ,gruber-darker-red-1 :background ,gruber-darker-red-1))))
383 `(term-color-green ((t (:foreground ,gruber-darker-green :background ,gruber-darker-green))))
384 `(term-color-blue ((t (:foreground ,gruber-darker-niagara :background ,gruber-darker-niagara))))
385 `(term-color-yellow ((t (:foreground ,gruber-darker-yellow :background ,gruber-darker-yellow))))
386 `(term-color-magenta ((t (:foreground ,gruber-darker-wisteria :background ,gruber-darker-wisteria))))
387 `(term-color-cyan ((t (:foreground ,gruber-darker-quartz :background ,gruber-darker-quartz))))
388 `(term-color-white ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-white))))
389
390 ;; company-mode
391 `(company-tooltip ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-bg+1))))
392 `(company-tooltip-annotation ((t (:foreground ,gruber-darker-brown :background ,gruber-darker-bg+1))))
393 `(company-tooltip-annotation-selection ((t (:foreground ,gruber-darker-brown :background ,gruber-darker-bg-1))))
394 `(company-tooltip-selection ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-bg-1))))
395 `(company-tooltip-mouse ((t (:background ,gruber-darker-bg-1))))
396 `(company-tooltip-common ((t (:foreground ,gruber-darker-green))))
397 `(company-tooltip-common-selection ((t (:foreground ,gruber-darker-green))))
398 `(company-scrollbar-fg ((t (:background ,gruber-darker-bg-1))))
399 `(company-scrollbar-bg ((t (:background ,gruber-darker-bg+2))))
400 `(company-preview ((t (:background ,gruber-darker-green))))
401 `(company-preview-common ((t (:foreground ,gruber-darker-green :background ,gruber-darker-bg-1))))
402
403 ;; Proof General
404 `(proof-locked-face ((t (:background ,gruber-darker-niagara-2))))
405
406 ;; Orderless
407 `(orderless-match-face-0 ((t (:foreground ,gruber-darker-yellow))))
408 `(orderless-match-face-1 ((t (:foreground ,gruber-darker-green))))
409 `(orderless-match-face-2 ((t (:foreground ,gruber-darker-brown))))
410 `(orderless-match-face-3 ((t (:foreground ,gruber-darker-quartz))))
411 ))
412
413 ;;;###autoload
414 (when load-file-name
415 (add-to-list 'custom-theme-load-path
416 (file-name-as-directory (file-name-directory load-file-name))))
417
418 (provide-theme 'gruber-darker)
419
420 ;; Local Variables:
421 ;; no-byte-compile: t
422 ;; indent-tabs-mode: nil
423 ;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode +1))
424 ;; End:
425
426 ;;; gruber-darker-theme.el ends here.