Commit | Line | Data |
---|---|---|
2919746c CY |
1 | ;;; wheatgrass-theme.el --- custom theme for faces |
2 | ||
73b0cd50 | 3 | ;; Copyright (C) 2010-2011 Free Software Foundation, Inc. |
2919746c CY |
4 | |
5 | ;; This file is part of GNU Emacs. | |
6 | ||
7 | ;; GNU Emacs is free software: you can redistribute it and/or modify | |
8 | ;; it under the terms of the GNU General Public License as published by | |
9 | ;; the Free Software Foundation, either version 3 of the License, or | |
10 | ;; (at your option) any later version. | |
11 | ||
12 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;; GNU General Public License for more details. | |
16 | ||
17 | ;; You should have received a copy of the GNU General Public License | |
18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
20 | ;;; Code: | |
21 | ||
22 | (deftheme wheatgrass | |
aa2d499c CY |
23 | "A high-contrast theme with a black background. |
24 | Basic, Font Lock, Isearch, Gnus, and Message faces are included. | |
25 | The default face foreground is wheat, with other faces in shades | |
26 | of green, brown, and blue.") | |
2919746c | 27 | |
aa2d499c CY |
28 | (let ((class '((class color) (min-colors 89)))) |
29 | (custom-theme-set-faces | |
30 | 'wheatgrass | |
31 | `(default ((,class (:foreground "wheat" :background "black")))) | |
32 | `(cursor ((,class (:foreground "black" :background "thistle")))) | |
33 | ;; Highlighting faces | |
34 | `(highlight ((,class (:foreground "white" :background "dark green")))) | |
35 | `(region ((,class (:foreground "white" :background "dark green")))) | |
36 | `(secondary-selection ((,class (:background "dark slate gray")))) | |
37 | `(isearch ((,class (:foreground "white" :background "dark goldenrod")))) | |
38 | `(lazy-highlight ((,class (:background "gray25")))) | |
39 | ;; Font lock faces | |
40 | `(font-lock-builtin-face ((,class (:foreground "LightSteelBlue")))) | |
41 | `(font-lock-comment-face ((,class (:foreground "SpringGreen3")))) | |
42 | `(font-lock-constant-face ((,class (:foreground "turquoise")))) | |
43 | `(font-lock-function-name-face ((,class (:foreground "pale green")))) | |
44 | `(font-lock-keyword-face ((,class (:foreground "white")))) | |
45 | `(font-lock-string-face ((,class (:foreground "dark khaki")))) | |
46 | `(font-lock-type-face ((,class (:foreground "aquamarine")))) | |
47 | `(font-lock-variable-name-face ((,class (:foreground "yellow green")))) | |
48 | `(font-lock-warning-face ((,class (:foreground "salmon1")))) | |
49 | ;; Button and link faces | |
50 | `(button ((,class (:underline t :foreground "cyan")))) | |
51 | `(link ((,class (:underline t :foreground "cyan")))) | |
52 | `(link-visited ((,class (:underline t :foreground "dark cyan")))) | |
53 | ;; Gnus faces | |
54 | `(gnus-header-content ((,class (:weight normal :foreground "yellow green")))) | |
55 | `(gnus-header-from ((,class (:foreground "pale green")))) | |
56 | `(gnus-header-subject ((,class (:foreground "pale turquoise")))) | |
57 | `(gnus-header-name ((,class (:foreground "dark sea green")))) | |
58 | `(gnus-header-newsgroups ((,class (:foreground "dark khaki")))) | |
59 | ;; Message faces | |
60 | `(message-header-name ((,class (:foreground "dark turquoise")))) | |
61 | `(message-header-cc ((,class (:foreground "yellow green")))) | |
62 | `(message-header-other ((,class (:foreground "dark khaki")))) | |
63 | `(message-header-subject ((,class (:foreground "pale turquoise")))) | |
64 | `(message-header-to ((,class (:foreground "pale green")))) | |
65 | `(message-cited-text ((,class (:foreground "SpringGreen3")))) | |
66 | `(message-separator ((,class (:foreground "deep sky blue")))))) | |
2919746c CY |
67 | |
68 | (provide-theme 'wheatgrass) | |
69 | ||
70 | ;; Local Variables: | |
71 | ;; no-byte-compile: t | |
72 | ;; End: | |
73 | ||
74 | ;;; wheatgrass-theme.el ends here |