]> code.delx.au - gnu-emacs-elpa/blob - ahungry-theme.el
560661fc123f660ba379c174080a12781f09e5d3
[gnu-emacs-elpa] / ahungry-theme.el
1 ;;; ahungry-theme.el --- Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry).
2
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
4
5 ;; Author: Matthew Carter <m@ahungry.com>
6 ;; Maintainer: Matthew Carter <m@ahungry.com>
7 ;; URL: https://github.com/ahungry/color-theme-ahungry
8 ;; Version: 1.0.8
9 ;; Keywords: ahungry palette color theme emacs color-theme deftheme
10 ;; Package-Requires: ((emacs "24"))
11
12 ;; This file is part of GNU Emacs.
13
14 ;;; License:
15
16 ;; This program is free software: you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by
18 ;; the Free Software Foundation, either version 3 of the License, or
19 ;; (at your option) any later version.
20 ;;
21 ;; This program is distributed in the hope that it will be useful,
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 ;; GNU General Public License for more details.
25 ;;
26 ;; You should have received a copy of the GNU General Public License
27 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
28
29 ;;; Commentary:
30
31 ;; Bright and bold color theme for GNU Emacs.
32
33 ;; If you load it from a terminal, you will be able to make use of the
34 ;; transparent background. If you load it from a GUI, it will default
35 ;; to a dark background.
36
37 ;;; News:
38
39 ;;;; Changes since 1.0.7:
40 ;; - Add colors for magit 2.0 face names
41
42 ;;;; Changes since 1.0.6:
43 ;; - Remove warning producing call to "default" background color
44 ;; - Add a color update for mm-uu-extract
45
46 ;;;; Changes since 1.0.5:
47 ;; - Add a few colors for helm (the defaults did not work well with this theme)
48
49 ;;;; Changes since 1.0.4:
50 ;; - Don't circumvent normal autoloads functionality, use the comment load method
51
52 ;;;; Changes since 1.0.3:
53 ;; - Manually include an autoloads file to make sure
54 ;; custom-theme-load-path is filled out
55 ;; - Update description to make mention of (load-theme 'ahungry) for new users
56
57 ;;; Code:
58
59 (deftheme ahungry
60 "Ahungry Theme")
61
62 (let ((mainbg (when (display-graphic-p) "#222222")));; "default")))
63 (custom-theme-set-faces
64 'ahungry ;; This is the theme name
65 `(default ((t (:foreground "#ffffff" :background ,mainbg
66 :family "Terminus" :foundry "xos4"
67 :slant normal :weight normal
68 :height 100 :width normal))))
69 '(cursor ((t (:background "#fce94f" :foreground "#ffffff"))))
70 '(highlight ((t (:background "brown4" :foreground nil))))
71 '(border ((t (:background "#888a85"))))
72 '(fringe ((t (:background "#333333"))))
73 '(mode-line ((t (:foreground "#0022ff" :bold t :background "#77ff00"
74 :box (:line-width 1 :color nil :style released-button)))))
75 '(mode-line-inactive ((t (:foreground "#444444" :background "#66ff33"))))
76 '(mode-line-buffer-id ((t (:bold t :foreground "#ffffff" :background "#0055ff"))))
77 '(region ((t (:background "#444444"))))
78 '(link ((t (:underline t :foreground "#33ff99"))))
79 '(custom-link ((t (:inherit 'link))))
80 '(match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
81 '(tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "#ffff33"))))
82 '(tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "#ffff33"))))
83 '(bold ((t (:bold t :underline nil :background nil))))
84 '(italic ((t (:italic t :underline nil :background nil))))
85 '(font-lock-builtin-face ((t (:foreground "#0055ff"))))
86 '(font-lock-comment-face ((t (:foreground "#888a85" :bold nil :italic t))))
87 '(font-lock-constant-face ((t (:foreground "#fff900"))))
88 '(font-lock-doc-face ((t (:foreground "#777700" :bold t :italic t))))
89 '(font-lock-keyword-face ((t (:foreground "#3cff00" :bold t))))
90 '(font-lock-string-face ((t (:foreground "#ff0077" :italic nil :bold nil))))
91 '(font-lock-type-face ((t (:foreground "#deff00" :bold t))))
92 '(font-lock-variable-name-face ((t (:foreground "#9900ff" :bold t))))
93 '(font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
94 '(font-lock-function-name-face ((t (:foreground "#ffee00" :bold t))))
95 '(comint-highlight-input ((t (:italic t :bold t))))
96 '(comint-highlight-prompt ((t (:foreground "#33cc33"))))
97 '(diff-header ((t (:background "#444444"))))
98 '(diff-index ((t (:foreground "#ffff00" :bold t))))
99 '(diff-file-header ((t (:foreground "#aaaaaa" :bold t))))
100 '(diff-hunk-header ((t (:foreground "#ffff00"))))
101 '(diff-added ((t (:background "default" :foreground "#00ff00" :weight normal))))
102 '(diff-removed ((t (:background "default" :foreground "#ff0000" :weight normal))))
103 '(diff-context ((t (:foreground "#777777"))))
104 '(diff-refine-change ((t (:bold t :background "#444444"))))
105 '(isearch ((t (:background "#ff6600" :foreground "#333333"))))
106 '(isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#ff6600"))))
107 '(show-paren-match-face ((t (:background "#ff6600" :foreground "#2e3436"))))
108 '(show-paren-mismatch-face ((t (:background "#999999" :foreground "#ff6600"))))
109 '(info-xref ((t (:foreground "#33ffbb"))))
110 '(info-xref-visited ((t (:foreground "#999999"))))
111 '(diary ((t (:bold t :foreground "#ff0000"))))
112 '(message-cited-text ((t (:foreground "#ffc800"))))
113 '(gnus-cite-1 ((t (:foreground "#999999"))))
114 '(gnus-cite-2 ((t (:foreground "#cba559"))))
115 '(gnus-cite-3 ((t (:foreground "#83ae92"))))
116 '(gnus-cite-4 ((t (:foreground "#6898a7"))))
117 '(gnus-cite-face-1 ((t (:foreground "#999999"))))
118 '(gnus-cite-face-2 ((t (:foreground "#cba559"))))
119 '(gnus-cite-face-3 ((t (:foreground "#83ae92"))))
120 '(gnus-cite-face-4 ((t (:foreground "#6898a7"))))
121 '(gnus-group-mail-1-empty ((t (:foreground "#00bbff"))))
122 '(gnus-group-mail-1 ((t (:bold t :foreground "#00bbff"))))
123 '(gnus-group-mail-2-empty ((t (:foreground "#00ffbb"))))
124 '(gnus-group-mail-2 ((t (:bold t :foreground "#00ffbb"))))
125 '(gnus-group-mail-3-empty ((t (:foreground "#009955"))))
126 '(gnus-group-mail-3 ((t (:bold t :foreground "#ffc800"))))
127 '(gnus-group-mail-low-empty ((t (:foreground "#005fff"))))
128 '(gnus-group-mail-low ((t (:bold t :foreground "#005fff"))))
129 '(gnus-group-news-1-empty ((t (:foreground "#00bbff"))))
130 '(gnus-group-news-1 ((t (:bold t :foreground "#00bbff"))))
131 '(gnus-group-news-2-empty ((t (:foreground "#00ffbb"))))
132 '(gnus-group-news-2 ((t (:bold t :foreground "#00ffbb"))))
133 '(gnus-group-news-3-empty ((t (:foreground "#009955"))))
134 '(gnus-group-news-3 ((t (:bold t :foreground "#ffc800"))))
135 '(gnus-group-news-low-empty ((t (:foreground "#005fff"))))
136 '(gnus-group-news-low ((t (:bold t :foreground "#005fff"))))
137 '(gnus-header-name ((t (:bold t :foreground "#33ffbb"))))
138 '(gnus-header-from ((t (:bold t :foreground "#ffc800"))))
139 '(gnus-header-subject ((t (:foreground "#ffc800"))))
140 '(gnus-header-content ((t (:italic t :foreground "#33cc33"))))
141 '(gnus-header-newsgroups ((t (:italic t :bold t :foreground "#0088ff"))))
142 '(gnus-signature ((t (:italic t :foreground "#666666"))))
143 '(gnus-summary-cancelled ((t (:background "#222222" :foreground "#ffff00"))))
144 '(gnus-summary-high-ancient ((t (:bold t :foreground "#0099ff"))))
145 '(gnus-summary-high-read ((t (:bold t :foreground "#33ff99"))))
146 '(gnus-summary-high-ticked ((t (:bold t :foreground "#f68585"))))
147 '(gnus-summary-high-unread ((t (:bold t :foreground "#ffffff"))))
148 '(gnus-summary-low-ancient ((t (:italic t :foreground "#33ff99"))))
149 '(gnus-summary-low-read ((t (:italic t :foreground "#0099ff"))))
150 '(gnus-summary-low-ticked ((t (:italic t :foreground "#ff3333"))))
151 '(gnus-summary-low-unread ((t (:italic t :foreground "#ffffff"))))
152 '(gnus-summary-normal-ancient ((t (:foreground "#0099ff"))))
153 '(gnus-summary-normal-read ((t (:foreground "#33ff99"))))
154 '(gnus-summary-normal-ticked ((t (:foreground "#ff0000"))))
155 '(gnus-summary-normal-unread ((t (:foreground "#ffffff"))))
156 '(gnus-summary-selected ((t (:background "brown4" :foreground "#ffffff"))))
157 '(message-header-name ((t (:foreground "#f68585"))))
158 '(message-header-newsgroups ((t (:italic t :bold t :foreground "#0088ff"))))
159 '(message-header-other ((t (:foreground "#0088ff"))))
160 '(message-header-xheader ((t (:foreground "#0088ff"))))
161 '(message-header-subject ((t (:foreground "#ffffff"))))
162 '(message-header-to ((t (:foreground "#ffffff"))))
163 '(message-header-cc ((t (:foreground "#ffffff"))))
164 '(mm-uu-extract ((t (:foreground "#0066ff"))))
165 '(org-hide ((t (:foreground "#009933"))))
166 '(org-level-1 ((t (:bold t :foreground "#4477ff" :height 1.5))))
167 '(org-level-2 ((t (:bold nil :foreground "#ffc800" :height 1.2))))
168 '(org-level-3 ((t (:bold t :foreground "#00aa33" :height 1.0))))
169 '(org-level-4 ((t (:bold nil :foreground "#f68585" :height 1.0))))
170 '(org-date ((t (:underline t :foreground "#ff0066"))))
171 '(org-footnote ((t (:underline t :foreground "#ff0066"))))
172 '(org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
173 '(org-special-keyword ((t (:foreground "#cc0033"))))
174 '(org-verbatim ((t (:foreground "#cc6600" :underline t :slant italic))))
175 '(org-block ((t (:foreground "#999999"))))
176 '(org-quote ((t (:inherit org-block :bold t :slant italic))))
177 '(org-verse ((t (:inherit org-block :bold t :slant italic))))
178 '(org-todo ((t (:bold t :foreground "#ff0099"))))
179 '(org-done ((t (:bold t :foreground "#00cc33"))))
180 '(org-agenda-structure ((t (:weight bold :foreground "#f68585"))))
181 '(org-agenda-date ((t (:foreground "#00ff55"))))
182 '(org-agenda-date-weekend ((t (:weight normal :foreground "#005fff"))))
183 '(org-agenda-date-today ((t (:weight bold :foreground "#ffc800"))))
184 '(org-agenda-done ((t (:weight normal :foreground "#00aa33"))))
185 '(org-block-begin-line ((t (:foreground "#bbbbbb" :background "#333333"))))
186 '(org-block-background ((t (:background "#333333"))))
187 '(org-block-end-line ((t (:foreground "#bbbbbb" :background "#333333"))))
188 '(org-document-title ((t (:weight bold :foreground "#0077cc"))))
189 '(org-document-info ((t (:weight normal :foreground "#0077cc"))))
190 '(org-warning ((t (:weight normal :foreground "#ee0033"))))
191 '(magit-diff-added-highlight ((t (:foreground "#00ff66"))))
192 '(magit-diffstat-added ((t (:foreground "#00ff66"))))
193 '(magit-diff-added ((t (:foreground "#00ff66"))))
194 '(magit-diff-removed-highlight ((t (:foreground "#ff0066"))))
195 '(magit-diffstat-removed ((t (:foreground "#ff0066"))))
196 '(magit-diff-removed ((t (:foreground "#ff0066"))))
197 '(magit-diff-context-highlight ((t (:foreground "#ffffff"))))
198 '(magit-diff-hunk-heading-highlight ((t (:background "#333333" :foreground "#bbbbbb"))))
199 '(magit-section-heading ((t (:foreground "#ff0066"))))
200 '(magit-section-highlight ((t (:foreground "#ffffff"))))
201 '(minibuffer-prompt ((t (:foreground "#0055ff" :bold t))))
202 '(web-mode-html-tag-bracket-face ((t (:foreground "#666666"))))
203 '(helm-selection ((t (:foreground "#ff0099" :italic t :bold t :background "#f2e997"))))
204 '(helm-match ((t (:foreground "gold1"))))
205 '(helm-visible-mark ((t (:background "#f2e997" :foreground "#ff0099" :bold nil :italic nil))))
206 )
207 (custom-theme-set-variables
208 'ahungry
209 '(red "#ffffff"))
210 )
211
212 ;;;###autoload
213 (when (and load-file-name (boundp 'custom-theme-load-path))
214 (add-to-list
215 'custom-theme-load-path
216 (file-name-as-directory (file-name-directory load-file-name))))
217
218 (provide-theme 'ahungry)
219
220 ;;; ahungry-theme.el ends here