1 ;;; zenash.el --- a low-saturation, light-background version of zenburn.
4 ;; Original Author of zenburn.el: Daniel Brockman <daniel@brockman.se>
8 ;; This file is free software; you can redistribute it and/or
9 ;; modify it under the terms of the GNU General Public License as
10 ;; published by the Free Software Foundation; either version 2 of
11 ;; the License, or (at your option) any later version.
13 ;; This file is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty
15 ;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
16 ;; See the GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public
19 ;; License along with GNU Emacs; if not, write to the Free
20 ;; Software Foundation, 51 Franklin Street, Fifth Floor,
21 ;; Boston, MA 02110-1301, USA.
25 ;; Some packages ship with broken implementations of `format-spec';
26 ;; for example, stable versions of TRAMP and ERC do this. To fix
27 ;; this, you can put the following at the end of your ~/.emacs:
29 ;; (unless (zenash-format-spec-works-p)
30 ;; (zenash-define-format-spec))
32 ;; Thanks to Jani Nurminen, who created the original zenburn color
33 ;; theme for vim. I'm just copying him. :-)
35 ;;; Short-Term Wishlist:
37 ;; Theme the ansi-term faces `term-red', etc., and the ERC faces
38 ;; `fg:erc-color-face1', etc.
40 ;; Theme `gnus-server-offline-face', `gnus-server-opened-face', and
41 ;; `gnus-server-denied-face'. First, find out what they hell they do.
43 ;; Theme `gnus-emphasis-highlight-words' after finding out what it
46 ;; Theme `emms-stream-name-face' and `emms-stream-url-face'.
48 ;; Theme `ido-indicator-face'.
52 (require 'color-theme
)
54 (defvar zenash-fg
"#4F4C48")
55 (defvar zenash-fg
+1 "#363431")
56 (defvar zenash-fg
+2 "#262421")
58 (defvar zenash-bg-3
"#D1CDC5")
59 (defvar zenash-bg-2
"#C9C5BD")
60 (defvar zenash-bg-1
"#C1BDB5")
61 (defvar zenash-bg
"#B0ACA5")
62 (defvar zenash-bg
+1 "#A39F99")
63 (defvar zenash-bg
+2 "#918C84")
65 (defvar zenash-selection-bg
"#858A8C")
66 (defvar zenash-selection-fg
"#E6E5E0")
68 (defvar zenash-dark-gray
"#575753")
69 (defvar zenash-light-blue
"#5181B4")
70 (defvar zenash-light-cyan
"#6B9898")
71 (defvar zenash-light-green
"#7E9B62")
72 (defvar zenash-light-magenta
"#895E84")
73 (defvar zenash-light-red
"#CB5151")
74 (defvar zenash-light-yellow
"#C1A128")
75 (defvar zenash-white
"#F0EEE4")
76 (defvar zenash-black
"#000000")
77 (defvar zenash-dark-blue
"#1D5193")
78 (defvar zenash-dark-cyan
"#338F96")
79 (defvar zenash-dark-green
"#4D6B31")
80 (defvar zenash-dark-magenta
"#56355C")
81 (defvar zenash-dark-red
"#993D3D")
82 (defvar zenash-dark-yellow
"#C08B18")
83 (defvar zenash-light-gray
"#ADB3B5")
85 (defvar zenash-ll-1
"#606060")
86 (defvar zenash-ll-2
"#708070")
88 (defvar zenash-yellow zenash-dark-yellow
)
89 (defvar zenash-yellow-1
"#e0cf9f")
90 (defvar zenash-yellow-2
"#C4A244")
91 (defvar zenash-yellow-3 zenash-light-yellow
)
93 (defvar zenash-orange
"#D38226")
94 (defvar zenash-brown
"#6B3722")
96 (defvar zenash-red
+1 "#dca3a3")
97 (defvar zenash-red zenash-dark-red
)
98 (defvar zenash-red-1
"#8C5D5D")
99 (defvar zenash-red-2
"#BF7575")
100 (defvar zenash-red-3
"#9c6363")
101 (defvar zenash-red-4 zenash-light-red
)
103 (defvar zenash-green-1
"#457C7D")
104 (defvar zenash-green zenash-dark-green
)
105 (defvar zenash-green
+1 "#457C7D")
106 (defvar zenash-green
+2 "#457C7D")
107 (defvar zenash-green
+3 "#457C7D")
108 (defvar zenash-green
+4 zenash-light-green
)
110 (defvar zenash-blue
+1 "#94bff3")
111 (defvar zenash-blue zenash-dark-blue
)
112 (defvar zenash-blue-1
"#3E80B4")
113 (defvar zenash-blue-2
"#547093")
114 (defvar zenash-blue-3
"#718093")
115 (defvar zenash-blue-4 zenash-light-blue
)
117 (defvar zenash-cyan zenash-dark-cyan
)
119 (defvar font-lock-pseudo-keyword-face
'font-lock-pseudo-keyword-face
)
120 (defvar font-lock-operator-face
'font-lock-operator-face
)
122 (defun zenash-format-spec-works-p ()
123 (and (fboundp 'format-spec
)
124 (= (next-property-change
125 0 (format-spec #("<%x>" 0 4 (face (:weight bold
)))
126 '((?x .
"foo"))) 4) 4)))
128 (defun zenash-format-spec (format specification
)
129 "Return a string based on FORMAT and SPECIFICATION.
130 FORMAT is a string containing `format'-like specs like \"bash %u %k\",
131 while SPECIFICATION is an alist mapping from format spec characters
135 (goto-char (point-min))
136 (while (search-forward "%" nil t
)
138 ;; Quoted percent sign.
139 ((eq (char-after) ?%
)
141 ;; Valid format spec.
142 ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
143 (let* ((num (match-string 1))
144 (spec (string-to-char (match-string 2)))
145 (val (cdr (assq spec specification
))))
147 (error "Invalid format character: %s" spec
))
148 (let ((text (format (concat "%" num
"s") val
)))
149 (insert-and-inherit text
)
150 ;; Delete the specifier body.
151 (delete-region (+ (match-beginning 0) (length text
))
152 (+ (match-end 0) (length text
)))
153 ;; Delete the percent sign.
154 (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
155 ;; Signal an error on bogus format strings.
157 (error "Invalid format string"))))
160 (defun zenash-define-format-spec ()
162 (fset 'format-spec
#'zenash-format-spec
))
164 (unless (zenash-format-spec-works-p)
165 (zenash-define-format-spec))
167 (eval-after-load 'format-spec
168 (unless (zenash-format-spec-works-p)
169 (zenash-define-format-spec)))
171 (setq-default mode-line-buffer-identification
172 (list (propertize "%12b" 'face
174 :foreground zenash-bg-3
))))
175 (setq-default mode-line-frame-identification
"")
176 (setq-default erc-mode-line-format
177 (concat (propertize "%t" 'face
179 :foreground zenash-bg-3
))
182 (setq gnus-logo-colors
`(,zenash-bg
+2 ,zenash-bg
+1)
183 gnus-mode-line-image-cache
184 '(image :type xpm
:ascent center
:data
"/* XPM */
185 static char *gnus-pointer[] = {
186 /* width height num_colors chars_per_pixel */
192 \"######..##..######\",
193 \"#####........#####\",
194 \"#.##.##..##...####\",
195 \"#...####.###...##.\",
196 \"#..###.######.....\",
197 \"#####.########...#\",
198 \"###########.######\",
199 \"####.###.#..######\",
200 \"######..###.######\",
201 \"###....####.######\",
202 \"###..######.######\"};"))
204 (defun zenash-make-face-alias-clauses (alias-symbols)
206 (dolist (alias-symbol alias-symbols clauses
)
207 (let ((alias-name (symbol-name alias-symbol
)))
208 (if (not (string-match "-face" alias-name
))
209 (error "Invalid face alias: %s" alias-name
)
210 (let ((target-name (replace-regexp-in-string
212 alias-name nil nil
1)))
213 (push `(,(intern alias-name
)
214 ((t (:inherit
,(intern target-name
)))))
218 (defun color-theme-zenash ()
219 "Just some alien fruit salad to keep you in the zone."
223 (list 'color-theme-zenash
225 `((background-color .
,zenash-bg
)
226 (background-mode . light
)
227 (border-color .
,zenash-bg
)
228 (foreground-color .
,zenash-fg
)
229 (mouse-color .
,zenash-fg
))
231 `((emms-mode-line-icon-color .
,zenash-fg
)
232 (goto-address-mail-face . italic
)
233 (goto-address-mail-mouse-face . secondary-selection
)
234 (goto-address-url-face . bold
)
235 (goto-address-url-mouse-face . hover-highlight
)
236 (help-highlight-face . hover-highlight
)
237 (imaxima-label-color .
,zenash-yellow-2
)
238 (imaxima-equation-color .
,zenash-fg
)
239 (list-matching-lines-face . bold
)
240 (view-highlight-face . hover-highlight
)
241 (widget-mouse-face . hover-highlight
))
243 `(bold ((t (:weight bold
))))
244 `(bold-italic ((t (:italic t
:weight bold
))))
245 `(default ((t (:background
,zenash-bg
:foreground
,zenash-fg
))))
246 `(fixed-pitch ((t (:weight bold
))))
247 `(italic ((t (:slant italic
))))
248 `(underline ((t (:underline t
))))
250 `(zenash-foreground+1 ((t (:foreground
,zenash-fg
+1))))
251 `(zenash-foreground+2 ((t (:foreground
,zenash-fg
+2))))
253 `(zenash-background-1 ((t (:background
,zenash-bg-1
))))
254 `(zenash-background-2 ((t (:background
,zenash-bg-2
))))
255 `(zenash-background+1 ((t (:background
,zenash-bg
+1))))
256 `(zenash-background+2 ((t (:background
,zenash-bg
+2))))
258 `(zenash-primary-1 ((t (:foreground
,zenash-blue
:weight bold
))))
259 `(zenash-primary-2 ((t (:foreground
,zenash-red
:weight bold
))))
260 `(zenash-primary-3 ((t (:foreground
,zenash-green
:weight bold
))))
261 `(zenash-primary-4 ((t (:foreground
,zenash-yellow
:weight bold
))))
262 `(zenash-primary-5 ((t (:foreground
,zenash-dark-magenta
:weight bold
))))
264 `(zenash-highlight-damp ((t (:foreground
,zenash-ll-1
:background
,zenash-bg-1
))))
265 `(zenash-highlight-alerting ((t (:background
,zenash-bg
+2))))
266 `(zenash-highlight-subtle ((t (:background
,zenash-bg
+1))))
268 `(zenash-lowlight-1 ((t (:foreground
,zenash-ll-1
))))
269 `(zenash-lowlight-2 ((t (:foreground
,zenash-ll-2
))))
271 `(zenash-yellow-2 ((t (:foreground
,zenash-yellow-2
))))
272 `(zenash-orange ((t (:foreground
,zenash-orange
))))
273 `(zenash-red ((t (:foreground
,zenash-red
))))
274 `(zenash-green-1 ((t (:foreground
,zenash-green-1
))))
275 `(zenash-green ((t (:foreground
,zenash-green
))))
276 `(zenash-green+1 ((t (:foreground
,zenash-green
+1))))
277 `(zenash-green+2 ((t (:foreground
,zenash-green
+2))))
278 `(zenash-green+3 ((t (:foreground
,zenash-green
+3))))
279 `(zenash-green+4 ((t (:foreground
,zenash-green
+4))))
280 `(zenash-blue ((t (:foreground
,zenash-blue
))))
281 `(zenash-blue-1 ((t (:foreground
,zenash-blue-1
))))
282 `(zenash-blue-2 ((t (:foreground
,zenash-blue-2
))))
283 `(zenash-blue-3 ((t (:foreground
,zenash-blue-3
))))
284 `(zenash-blue-4 ((t (:foreground
,zenash-blue-4
))))
286 `(zenash-title ((t (:inherit variable-pitch
:weight bold
))))
288 `(font-lock-builtin ((t (:inherit zenash-foreground
+1))))
289 `(font-lock-comment ((t (:inherit zenash-lowlight-2
:slant italic
))))
290 `(font-lock-comment-delimiter ((t (:inherit zenash-lowlight-2
:slant italic
))))
291 `(font-lock-constant ((t (:inherit zenash-red-1
:slant italic
))))
292 `(font-lock-doc ((t (:inherit zenash-lowlight-1
))))
293 `(font-lock-function-name ((t (:inherit zenash-blue-2
:slant italic
))))
294 `(font-lock-keyword ((t (:inherit zenash-foreground
+1 :weight bold
))))
295 `(font-lock-negation-char ((t (:inherit zenash-primary-1
))))
296 `(font-lock-preprocessor ((t (:inherit zenash-blue-1
))))
297 `(font-lock-string ((t (:foreground
,zenash-red-1
))))
298 `(font-lock-type ((t (:inherit zenash-green
))))
299 `(font-lock-variable-name ((t (:foreground
,zenash-blue-2
))))
300 `(font-lock-warning ((t (:inherit zenash-highlight-alerting
))))
302 `(font-lock-pseudo-keyword ((t (:inherit zenash-primary-2
))))
303 `(font-lock-operator ((t (:inherit zenash-primary-3
))))
305 `(border ((t (:background
,zenash-bg
))))
306 `(fringe ((t (:inherit zenash-highlight-subtle
))))
307 `(header-line ((t (:foreground
,zenash-fg
:background
,zenash-bg
+2))))
308 `(mode-line ((t (:foreground
,zenash-fg
:background
,zenash-bg
+2))))
309 `(mode-line-inactive ((t (:foreground
,zenash-ll-2
:background
,zenash-bg
+1))))
310 `(mode-line-buffer-id ((t (:foreground
,zenash-bg-2
))))
311 `(mode-line-highlight ((t (:background
,zenash-bg-2
))))
312 `(mode-line-emphasis ((t (:weight bold
))))
313 `(minibuffer-prompt ((t (:inherit zenash-primary-1
))))
314 `(Buffer-menu-buffer ((t (:weight bold
))))
316 `(region ((t (:foreground
,zenash-selection-fg
:background
,zenash-selection-bg
))))
317 `(secondary-selection ((t (:foreground
,zenash-fg
:background
,zenash-bg
+2))))
319 `(trailing-whitespace ((t (:inherit font-lock-warning
))))
320 `(highlight ((t (:inherit zenash-background-1
))))
321 `(highlight-current-line ((t (:inherit zenash-background
+2))))
322 `(paren ((t (:inherit zenash-lowlight-1
))))
323 `(show-paren-mismatch ((t (:inherit font-lock-warning
))))
324 `(show-paren-match ((t (:foreground
,zenash-selection-fg
:background
,zenash-selection-bg
))))
325 `(match ((t (:weight bold
))))
327 `(cursor ((t (:background
,zenash-orange
))))
329 `(mouse ((t (:inherit zenash-foreground
))))
330 `(scroll-bar ((t (:background
,zenash-bg
+2))))
331 `(tool-bar ((t (:background
,zenash-bg
+2))))
332 `(vertical-border ((t (:foreground
,zenash-ll-2
))))
334 `(ido-first-match ((t (:weight bold
:foreground
,zenash-selection-fg
:background
,zenash-bg
+2))))
335 `(ido-only-match ((t (:weight bold
:foreground
,zenash-selection-fg
:background
,zenash-bg
+2))))
336 `(ido-subdir ((t (:weight bold
))))
338 `(isearch ((t (:foreground
,zenash-selection-fg
:background
,zenash-blue-3
))))
339 `(isearch-lazy-highlight ((t (:background
,zenash-bg-2
))))
341 `(idle-highlight-face ((t (:inherit isearch-lazy-highlight
))))
343 `(hover-highlight ((t (:background
,zenash-bg
+2))))
344 `(link ((t (:foreground
,zenash-red-1
:weight bold
))))
345 `(link-visited ((t (:foreground
,zenash-red-1
))))
347 `(info-xref ((t (:foreground
,zenash-red-1
:weight bold
))))
348 `(info-xref-visited ((t (:inherit info-xref
:weight normal
))))
349 `(info-header-xref ((t (:inherit info-xref
))))
350 `(info-menu-star ((t (:foreground
,zenash-red-1
:weight bold
))))
351 `(info-menu-5 ((t (:inherit info-menu-star
))))
352 `(info-node ((t (:weight bold
))))
353 `(info-header-node ((t (:weight normal
))))
355 `(outline-8 ((t (:inherit default
:foreground
,zenash-fg
+1))))
356 `(outline-7 ((t (:inherit outline-8
:height
1.0))))
357 `(outline-6 ((t (:inherit outline-7
:height
1.0))))
358 `(outline-5 ((t (:inherit outline-6
:height
1.0))))
359 `(outline-4 ((t (:inherit outline-5
:height
1.0))))
360 `(outline-3 ((t (:inherit outline-4
:height
1.0))))
361 `(outline-2 ((t (:inherit outline-3
:height
1.0))))
362 `(outline-1 ((t (:inherit outline-2
:height
1.0))))
364 `(org-hide ((t (:foreground
,zenash-bg
))))
365 `(org-special-keyword ((t (:inherit font-lock-comment
))))
366 `(org-tag ((t (:inherit font-lock-comment
))))
367 `(org-table ((t (:background
,zenash-bg
+1))))
368 `(org-link ((t (:inherit link
))))
369 `(org-todo ((t (:inherit font-lock-variable-name
))))
370 `(org-formula ((t (:inherit font-lock-variable-name
))))
372 `(flyspell-incorrect ((t (:inherit font-lock-warning
))))
373 `(flyspell-duplicate ((t (:inherit font-lock-warning
))))
375 `(term-default-bg ((t (nil))))
376 `(term-default-bg-inv ((t (nil))))
377 `(term-default-fg ((t (nil))))
378 `(term-default-fg-inv ((t (nil))))
379 `(term-invisible ((t (nil)))) ;; FIXME: Security risk?
380 `(term-invisible-inv ((t (nil))))
381 `(term-bold ((t (:weight bold
))))
382 `(term-underline ((t (:underline t
))))
384 `(eshell-prompt ((t (:inherit zenash-primary-1
))))
385 `(eshell-ls-archive ((t (:foreground
,zenash-green
:weight bold
))))
386 `(eshell-ls-backup ((t (:inherit font-lock-comment
))))
387 `(eshell-ls-clutter ((t (:inherit font-lock-comment
))))
388 `(eshell-ls-directory ((t (:foreground
,zenash-blue
:weight bold
))))
389 `(eshell-ls-executable ((t (:foreground
,zenash-red
:weight bold
))))
390 `(eshell-ls-unreadable ((t (:inherit zenash-lowlight-1
))))
391 `(eshell-ls-missing ((t (:inherit font-lock-warning
))))
392 `(eshell-ls-product ((t (:inherit font-lock-doc
))))
393 `(eshell-ls-special ((t (:foreground
,zenash-dark-magenta
))))
394 `(eshell-ls-symlink ((t (:foreground
,zenash-cyan
:weight bold
))))
397 ;; FIXME: Map these to ansi-term`s faces (`term-red`, etc.).
398 `(zenash-term-dark-gray ((t (:foreground
,zenash-dark-gray
))))
399 `(zenash-term-light-blue ((t (:foreground
,zenash-light-blue
))))
400 `(zenash-term-light-cyan ((t (:foreground
,zenash-light-cyan
))))
401 `(zenash-term-light-green ((t (:foreground
,zenash-light-green
))))
402 `(zenash-term-light-magenta ((t (:foreground
,zenash-light-magenta
))))
403 `(zenash-term-light-red ((t (:foreground
,zenash-light-red
))))
404 `(zenash-term-light-yellow ((t (:foreground
,zenash-light-yellow
))))
405 `(zenash-term-white ((t (:foreground
,zenash-white
))))
407 `(zenash-term-black ((t (:foreground
,zenash-black
))))
408 `(zenash-term-dark-blue ((t (:foreground
,zenash-dark-blue
))))
409 `(zenash-term-dark-cyan ((t (:foreground
,zenash-dark-cyan
))))
410 `(zenash-term-dark-green ((t (:foreground
,zenash-dark-green
))))
411 `(zenash-term-dark-magenta ((t (:foreground
,zenash-dark-magenta
))))
412 `(zenash-term-dark-red ((t (:foreground
,zenash-dark-red
))))
413 `(zenash-term-dark-yellow ((t (:foreground
,zenash-dark-yellow
))))
414 `(zenash-term-light-gray ((t (:foreground
,zenash-light-gray
))))
416 `(plain-widget-button ((t (:weight bold
))))
417 `(plain-widget-button-pressed ((t (:inverse-video t
))))
418 `(plain-widget-documentation ((t (:inherit font-lock-doc
))))
419 `(plain-widget-field ((t (:background
,zenash-bg
+2))))
420 `(plain-widget-inactive ((t (:strike-through t
))))
421 `(plain-widget-single-line-field ((t (:background
,zenash-bg
+2))))
423 `(fancy-widget-button ((t (:background
,zenash-bg
+1 :box
(:line-width
2 :style released-button
)))))
424 `(fancy-widget-button-pressed ((t (:background
,zenash-bg
+1 :box
(:line-width
2 :style pressed-button
)))))
425 `(fancy-widget-button-highlight ((t (:background
,zenash-bg
+1 :box
(:line-width
2 :style released-button
)))))
426 `(fancy-widget-button-pressed-highlight ((t (:background
,zenash-bg
+1 :box
(:line-width
2 :style pressed-button
)))))
427 `(fancy-widget-documentation ((t (:inherit font-lock-doc
))))
428 `(fancy-widget-field ((t (:background
,zenash-bg
+2))))
429 `(fancy-widget-inactive ((t (:strike-through t
))))
430 `(fancy-widget-single-line-field ((t (:background
,zenash-bg
+2))))
432 `(widget-button ((t (:inherit plain-widget-button
))))
433 `(widget-button-pressed ((t (:inherit fancy-widget-button-pressed
))))
434 `(widget-button-highlight ((t (:inherit fancy-widget-button-highlight
))))
435 `(widget-button-pressed-highlight ((t (:inherit fancy-widget-button-pressed-highlight
))))
436 `(widget-documentation ((t (:inherit fancy-widget-documentation
))))
437 `(widget-field ((t (:inherit fancy-widget-field
))))
438 `(widget-inactive ((t (:inherit fancy-widget-inactive
))))
439 `(widget-single-line-field ((t (:inherit fancy-widget-single-line-field
))))
441 `(mtorus-highlight ((t (:inherit zenash-highlight-bluish
))))
442 `(mtorus-notify-highlight ((t (:inherit zenash-primary-1
))))
444 `(apt-utils-normal-package ((t (:inherit zenash-primary-1
))))
445 `(apt-utils-virtual-package ((t (:inherit zenash-primary-2
))))
446 `(apt-utils-field-keyword ((t (:inherit font-lock-doc
))))
447 `(apt-utils-field-contents ((t (:inherit font-lock-comment
))))
448 `(apt-utils-summary ((t (:inherit bold
))))
449 `(apt-utils-description ((t (:inherit default
))))
450 `(apt-utils-version ((t (:inherit zenash-blue
))))
451 `(apt-utils-broken ((t (:inherit font-lock-warning
))))
453 `(breakpoint-enabled-bitmap ((t (:inherit zenash-primary-1
))))
454 `(breakpoint-disabled-bitmap ((t (:inherit font-lock-comment
))))
456 `(calendar-today ((t (:underline nil
:inherit zenash-primary-2
))))
457 `(diary ((t (:underline nil
:inherit zenash-primary-1
))))
458 `(holiday ((t (:underline t
:inherit zenash-primary-4
))))
460 `(change-log-date ((t (:inherit zenash-blue
))))
462 `(comint-highlight-input ((t (:inherit zenash-primary-1
))))
463 `(comint-highlight-prompt ((t (:inherit zenash-primary-2
))))
465 `(compilation-info ((t (:inherit zenash-primary-1
))))
466 `(compilation-warning ((t (:inherit font-lock-warning
))))
469 `(cua-rectangle ((t (:inherit region
))))
471 `(custom-button ((t (:inherit fancy-widget-button
))))
472 `(custom-button-pressed ((t (:inherit fancy-widget-button-pressed
))))
473 `(custom-changed ((t (:inherit zenash-blue
))))
474 `(custom-comment ((t (:inherit font-lock-doc
))))
475 `(custom-comment-tag ((t (:inherit font-lock-doc
))))
476 `(custom-documentation ((t (:inherit font-lock-doc
))))
477 `(custom-tag ((t (:inherit zenash-primary-2
))))
478 `(custom-group-tag ((t (:inherit zenash-primary-1
))))
479 `(custom-group-tag-1 ((t (:inherit zenash-primary-4
))))
480 `(custom-invalid ((t (:inherit font-lock-warning
))))
481 `(custom-modified ((t (:inherit zenash-primary-3
))))
482 `(custom-rogue ((t (:inhrit font-lock-warning
))))
483 `(custom-saved ((t (:underline t
))))
484 `(custom-set ((t (:inverse-video t
:inherit zenash-blue
))))
485 `(custom-state ((t (:inherit font-lock-comment
))))
486 `(custom-variable-button ((t (:weight bold
:underline t
))))
487 `(custom-variable-tag ((t (:inherit zenash-primary-2
))))
489 `(dictionary-button ((t (:inherit fancy-widget-button
))))
490 `(dictionary-reference ((t (:inherit zenash-primary-1
))))
491 `(dictionary-word-entry ((t (:inherit font-lock-keyword
))))
493 `(diff-header ((t (:inherit zenash-highlight-subtle
))))
494 `(diff-index ((t (:inherit bold
))))
495 `(diff-file-header ((t (:foreground
,zenash-cyan
))))
496 `(diff-hunk-header ((t (:inherit zenash-blue
))))
497 `(diff-added ((t (:inherit zenash-green
))))
498 `(diff-removed ((t (:inherit zenash-red
))))
499 `(diff-context ((t (:inherit font-lock-comment
))))
501 `(magit-diff-file-header ((t (:inherit diff-file-header
))))
502 `(magit-diff-add ((t (:inherit diff-added
))))
503 `(magit-diff-del ((t (:inherit diff-removed
))))
504 `(magit-diff-hunk-header ((t (:inherit diff-hunk-header
))))
505 `(magit-diff-none ((t (:inherit diff-context
))))
506 `(magit-item-highlight ((t (:background
,zenash-bg-1
))))
507 `(magit-section-title ((t (:inherit zenash-primary-1
))))
508 `(magit-branch ((t (:inherit font-lock-function-name
:weight
: bold
))))
509 `(magit-log-tag-label ((t (:foreground
,zenash-blue
))))
510 `(magit-log-head-label ((t (:foreground
,zenash-blue
))))
511 `(magit-item-mark ((t (:inherit isearch-lazy-highlight
))))
513 `(emms-pbi-song ((t (:foreground
,zenash-yellow
))))
514 `(emms-pbi-current ((t (:inherit zenash-primary-1
))))
515 `(emms-pbi-mark-marked ((t (:inherit zenash-primary-2
))))
517 `(erc-action ((t (:inherit erc-default
))))
518 `(erc-bold ((t (:weight bold
))))
519 `(erc-current-nick ((t (:inherit zenash-primary-1
))))
520 `(erc-dangerous-host ((t (:inherit font-lock-warning
))))
521 `(erc-default ((t (:foreground
,zenash-fg
))))
522 `(erc-direct-msg ((t (:inherit erc-default
))))
523 `(erc-error ((t (:inherit font-lock-warning
))))
524 `(erc-fool ((t (:inherit zenash-lowlight-1
))))
525 `(erc-highlight ((t (:inherit hover-highlight
))))
526 `(erc-input ((t (:foreground
,zenash-yellow
))))
527 `(erc-keyword ((t (:inherit zenash-primary-1
))))
528 `(erc-nick-default ((t (:inherit bold
))))
529 `(erc-nick-msg ((t (:inherit erc-default
))))
530 `(erc-notice ((t (:inherit zenash-green
))))
531 `(erc-pal ((t (:inherit zenash-primary-3
))))
532 `(erc-prompt ((t (:inherit zenash-primary-2
))))
533 `(erc-timestamp ((t (:inherit zenash-green
+1))))
534 `(erc-underline ((t (:inherit underline
))))
536 `(ibuffer-deletion ((t (:inherit zenash-primary-2
))))
537 `(ibuffer-marked ((t (:inherit zenash-primary-1
))))
538 `(ibuffer-special-buffer ((t (:inherit font-lock-doc
))))
539 `(ibuffer-help-buffer ((t (:inherit font-lock-comment
))))
541 `(message-cited-text ((t (:inherit font-lock-comment
))))
542 ;;`(message-cited-text ((t (:foreground ,zenash-blue))))
543 `(message-header-name ((t (:inherit zenash-green
+1))))
544 `(message-header-other ((t (:inherit zenash-green
))))
545 `(message-header-to ((t (:inherit zenash-primary-1
))))
546 `(message-header-from ((t (:inherit zenash-primary-1
))))
547 `(message-header-cc ((t (:inherit zenash-primary-1
))))
548 `(message-header-newsgroups ((t (:inherit zenash-primary-1
))))
549 `(message-header-subject ((t (:inherit zenash-primary-2
))))
550 `(message-header-xheader ((t (:inherit zenash-green
))))
551 `(message-mml ((t (:inherit zenash-primary-1
))))
552 `(message-separator ((t (:inherit font-lock-comment
))))
554 `(gnus-header-name ((t (:inherit message-header-name
))))
555 `(gnus-header-content ((t (:inherit message-header-other
))))
556 `(gnus-header-from ((t (:inherit message-header-from
))))
557 `(gnus-header-subject ((t (:inherit message-header-subject
))))
558 `(gnus-header-newsgroups ((t (:inherit message-header-other
))))
560 `(gnus-x-face ((t (:background
,zenash-fg
:foreground
,zenash-bg
))))
562 ;; (gnus-cite-1 ((t (:inherit message-cited-text))))
563 `(gnus-cite-1 ((t (:foreground
,zenash-blue
))))
564 `(gnus-cite-2 ((t (:foreground
,zenash-blue-1
))))
565 `(gnus-cite-3 ((t (:foreground
,zenash-blue-2
))))
566 ;; (gnus-cite-4 ((t (:foreground ,zenash-blue-3))))
567 ;; (gnus-cite-5 ((t (:foreground ,zenash-blue-4))))
568 ;; (gnus-cite-6 ((t (:foreground ,zenash-red-4))))
569 ;; (gnus-cite-5 ((t (:foreground ,zenash-red-3))))
570 `(gnus-cite-4 ((t (:foreground
,zenash-green
+2))))
571 `(gnus-cite-5 ((t (:foreground
,zenash-green
+1))))
572 `(gnus-cite-6 ((t (:foreground
,zenash-green
))))
573 `(gnus-cite-7 ((t (:foreground
,zenash-red
))))
574 `(gnus-cite-8 ((t (:foreground
,zenash-red-1
))))
575 `(gnus-cite-9 ((t (:foreground
,zenash-red-2
))))
576 `(gnus-cite-10 ((t (:foreground
,zenash-yellow-1
))))
577 `(gnus-cite-11 ((t (:foreground
,zenash-yellow
))))
579 `(gnus-group-mail-1 ((t (:inherit zenash-primary-1
))))
580 `(gnus-group-mail-2 ((t (:inherit zenash-primary-1
))))
581 `(gnus-group-mail-3 ((t (:inherit zenash-primary-1
))))
582 `(gnus-group-mail-1-empty ((t (:inherit default
))))
583 `(gnus-group-mail-2-empty ((t (:inherit default
))))
584 `(gnus-group-mail-3-empty ((t (:foreground
,zenash-yellow
))))
585 `(gnus-group-news-1-empty ((t (:inherit default
))))
586 `(gnus-group-news-2-empty ((t (:inherit default
))))
587 `(gnus-group-news-3-empty ((t (:inherit default
))))
589 `(gnus-signature ((t (:foreground
,zenash-yellow
))))
591 `(gnus-summary-selected ((t (:inherit zenash-primary-1
))))
592 `(gnus-summary-cancelled ((t (:inherit zenash-highlight-alerting
))))
594 `(gnus-summary-low-ticked ((t (:inherit zenash-primary-2
))))
595 `(gnus-summary-normal-ticked ((t (:inherit zenash-primary-2
))))
596 `(gnus-summary-high-ticked ((t (:inherit zenash-primary-2
))))
598 `(gnus-summary-low-unread ((t (:inherit zenash-foreground
:weight normal
))))
599 `(gnus-summary-normal-unread ((t (:inherit zenash-foreground
:weight normal
))))
600 `(gnus-summary-high-unread ((t (:inherit zenash-foreground
:weight bold
))))
602 `(gnus-summary-low-read ((t (:inherit zenash-green
:weight normal
))))
603 `(gnus-summary-normal-read ((t (:inherit zenash-green
:weight normal
))))
604 `(gnus-summary-high-read ((t (:inherit zenash-green
:weight bold
))))
606 `(gnus-summary-low-ancient ((t (:inherit zenash-blue
:weight normal
))))
607 `(gnus-summary-normal-ancient ((t (:inherit zenash-blue
:weight normal
))))
608 `(gnus-summary-high-ancient ((t (:inherit zenash-blue
))))
610 `(help-argument-name ((t (:weight bold
))))
612 ;; See also the variable definitions at the top of this file
613 `(imaxima-latex-error ((t (:inherit font-lock-warning
))))
615 `(jabber-roster-user-chatty ((t (:inherit zenash-primary-1
))))
616 `(jabber-roster-user-online ((t (:inherit zenash-primary-2
))))
617 `(jabber-roster-user-away ((t (:inherit font-lock-doc
))))
618 `(jabber-roster-user-xa ((t (:inherit font-lock-comment
))))
619 `(jabber-roster-user-offline ((t (:inherit zenash-lowlight-1
))))
620 `(jabber-roster-user-dnd ((t (:inherit zenash-primary-5
))))
621 `(jabber-roster-user-error ((t (:inherit font-lock-warning
))))
623 `(jabber-title-small ((t (:inherit zenash-title
:height
1.2))))
624 `(jabber-title-medium ((t (:inherit jabber-title-small
:height
1.2))))
625 `(jabber-title-large ((t (:inherit jabber-title-medium
:height
1.2))))
627 `(jabber-chat-prompt-local ((t (:inherit zenash-primary-1
))))
628 `(jabber-chat-prompt-foreign ((t (:inherit zenash-primary-2
))))
630 `(jde-java-font-lock-modifier ((t (:inherit zenash-primary-2
))))
631 `(jde-java-font-lock-doc-tag ((t (:inherit zenash-primary-1
))))
632 `(jde-java-font-lock-constant ((t (:inherit font-lock-constant
))))
633 `(jde-java-font-lock-package ((t (:inherit zenash-primary-3
))))
634 `(jde-java-font-lock-number ((t (:inherit font-lock-constant
))))
635 `(jde-java-font-lock-operator ((t (:inherit font-lock-keyword
))))
636 `(jde-java-font-lock-link ((t (:inherit zenash-primary-5
:underline t
))))
638 `(keywiz-right ((t (:inherit zenash-primary-1
))))
639 `(keywiz-wrong ((t (:inherit font-lock-warning
))))
640 `(keywiz-command ((t (:inherit zenash-primary-2
))))
642 `(font-latex-bold ((t (:inherit bold
))))
643 `(font-latex-warning ((t (:inherit font-lock-warning
))))
644 `(font-latex-sedate ((t (:inherit zenash-primary-1
))))
645 `(font-latex-title-4 ((t (:inherit zenash-title
))))
647 `(makefile-space ((t (:inherit font-lock-warning
))))
648 `(makefile-shell ((t (nil))))
649 ;; This does not work very well because everything that`s highlighted
650 ;; inside the shell region will get its own box.
651 ;; (makefile-shell ((t (:background "#4f4f4f"
652 ;; :box (:line-width 2 :color "#4f4f4f")))))
654 `(nxml-delimited-data ((t (:inherit font-lock-string
))))
655 `(nxml-name ((t (:inherit zenash-primary-1
))))
656 `(nxml-ref ((t (:inherit zenash-primary-5
))))
657 `(nxml-delimiter ((t (:inherit default
))))
658 `(nxml-text ((t (:inherit default
))))
660 `(nxml-comment-content ((t (:inherit font-lock-comment
))))
661 `(nxml-comment-delimiter ((t (:inherit nxml-comment-content
))))
662 `(nxml-processing-instruction-target ((t (:inherit zenash-primary-2
))))
663 `(nxml-processing-instruction-delimiter ((t (:inherit nxml-processing-instruction-target
))))
664 `(nxml-processing-instruction-content ((t (:inherit nxml-processing-instruction-target
))))
665 `(nxml-cdata-section-CDATA ((t (:inherit zenash-primary-4
))))
666 `(nxml-cdata-section-delimiter ((t (:inherit nxml-cdata-section-CDATA
))))
667 `(nxml-cdata-section-content ((t (:inherit nxml-text
))))
668 `(nxml-entity-ref-name ((t (:inherit zenash-primary-5
))))
669 `(nxml-entity-ref-delimiter ((t (:inherit nxml-entity-ref-name
))))
670 `(nxml-char-ref-number ((t (:inherit nxml-entity-ref-name
))))
671 `(nxml-char-ref-delimiter ((t (:inherit nxml-entity-ref-delimiter
))))
673 `(nxml-tag-delimiter ((t (:inherit default
))))
674 `(nxml-tag-slash ((t (:inherit default
))))
675 `(nxml-element-local-name ((t (:inherit zenash-primary-1
))))
676 `(nxml-element-prefix ((t (:inherit default
))))
677 `(nxml-element-colon ((t (:inherit default
))))
679 `(nxml-attribute-local-name ((t (:inherit zenash-primary-3
))))
680 `(nxml-namespace-attribute-prefix ((t (:inherit nxml-attribute-local-name
))))
681 `(nxml-attribute-value ((t (:inherit font-lock-string
))))
682 `(nxml-attribute-value-delimiter ((t (:inherit nxml-attribute-value
))))
683 `(nxml-attribute-prefix ((t (:inherit default
))))
684 `(nxml-namespace-attribute-xmlns ((t (:inherit nxml-attribute-prefix
))))
685 `(nxml-attribute-colon ((t (:inherit default
))))
686 `(nxml-namespace-attribute-colon ((t (:inherit nxml-attribute-colon
))))
689 `(setnu-line-number ((t (:inherit zenash-lowlight-2
))))
691 `(speedbar-button ((t (:inherit zenash-primary-1
))))
692 `(speedbar-file ((t (:inherit zenash-primary-2
))))
693 `(speedbar-directory ((t (:inherit zenash-primary-5
))))
694 `(speedbar-tag ((t (:inherit font-lock-function-name
))))
695 `(speedbar-highlight ((t (:underline t
))))
697 `(strokes-char ((t (:inherit font-lock-keyword
))))
699 `(todoo-item-header ((t (:inherit zenash-primary-1
))))
700 `(todoo-item-assigned-header ((t (:inherit zenash-primary-2
))))
701 `(todoo-sub-item-header ((t (:foreground
,zenash-yellow
))))
703 `(tuareg-font-lock-governing ((t (:inherit zenash-primary-2
))))
704 `(tuareg-font-lock-interactive-error ((t (:inherit font-lock-warning
))))
705 `(tuareg-font-lock-interactive-output ((t (:inherit zenash-primary-3
))))
706 `(tuareg-font-lock-operator ((t (:inherit font-lock-operator
))))
708 `(w3m-form-button ((t (:inherit widget-button
))))
709 `(w3m-form-button-pressed ((t (:inherit widget-button-pressed
))))
710 `(w3m-form-button-mouse ((t (:inherit widget-button-pressed
))))
711 `(w3m-tab-unselected ((t (:box
(:line-width
1 :style released-button
)))))
712 `(w3m-tab-selected ((t (:box
(:line-width
1 :style pressed-button
)))))
713 `(w3m-tab-unselected-retrieving ((t (:inherit
(w3m-tab-unselected widget-inactive
)))))
714 `(w3m-tab-selected-retrieving ((t (:inherit
(w3m-tab-selected widget-inactive
)))))
715 `(w3m-tab-background ((t (:inherit zenash-highlight-subtle
))))
716 `(w3m-anchor ((t (:inherit zenash-primary-1
))))
717 `(w3m-arrived-anchor ((t (:inherit zenash-primary-2
))))
718 `(w3m-image ((t (:inherit zenash-primary-4
))))
719 `(w3m-form ((t (:inherit widget-field
)))))
721 (zenash-make-face-alias-clauses
722 '(Buffer-menu-buffer-face
723 apt-utils-broken-face
724 apt-utils-description-face
725 apt-utils-field-contents-face
726 apt-utils-field-keyword-face
727 apt-utils-normal-package-face
728 apt-utils-summary-face
729 apt-utils-version-face
730 apt-utils-virtual-package-face
731 breakpoint-disabled-bitmap-face
732 breakpoint-enabled-bitmap-face
735 compilation-info-face
736 compilation-warning-face
739 custom-button-pressed-face
742 custom-comment-tag-face
743 custom-documentation-face
745 custom-group-tag-face
746 custom-group-tag-face-1
753 custom-variable-button-face
754 custom-variable-tag-face
756 dictionary-button-face
757 dictionary-reference-face
758 dictionary-word-entry-face
761 diff-file-header-face
763 diff-hunk-header-face
766 emms-pbi-current-face
767 emms-pbi-mark-marked-face
771 erc-current-nick-face
772 erc-dangerous-host-face
780 erc-nick-default-face
787 eshell-ls-archive-face
788 eshell-ls-backup-face
789 eshell-ls-clutter-face
790 eshell-ls-directory-face
791 eshell-ls-executable-face
792 eshell-ls-missing-face
793 eshell-ls-product-face
794 eshell-ls-special-face
795 eshell-ls-symlink-face
796 eshell-ls-unreadable-face
798 fancy-widget-button-face
799 fancy-widget-button-highlight-face
800 fancy-widget-button-pressed-face
801 fancy-widget-button-pressed-highlight-face
802 fancy-widget-documentation-face
803 fancy-widget-field-face
804 fancy-widget-inactive-face
805 fancy-widget-single-line-field-face
807 font-latex-sedate-face
808 font-latex-title-4-face
809 font-latex-warning-face
810 font-lock-builtin-face
811 font-lock-comment-delimiter-face
812 font-lock-comment-face
813 font-lock-constant-face
815 font-lock-function-name-face
816 font-lock-keyword-face
817 font-lock-negation-char-face
818 font-lock-operator-face
819 font-lock-preprocessor-face
820 font-lock-pseudo-keyword-face
821 font-lock-string-face
823 font-lock-variable-name-face
824 font-lock-warning-face
836 gnus-group-mail-1-empty-face
837 gnus-group-mail-2-empty-face
838 gnus-group-mail-3-empty-face
839 gnus-group-mail-3-face
840 gnus-group-news-1-empty-face
841 gnus-group-news-2-empty-face
842 gnus-group-news-3-empty-face
843 gnus-header-content-face
844 gnus-header-from-face
845 gnus-header-name-face
846 gnus-header-newsgroups-face
847 gnus-header-subject-face
849 gnus-summary-cancelled-face
850 gnus-summary-high-ancient-face
851 gnus-summary-high-read-face
852 gnus-summary-high-ticked-face
853 gnus-summary-high-unread-face
854 gnus-summary-low-ancient-face
855 gnus-summary-low-read-face
856 gnus-summary-low-ticked-face
857 gnus-summary-low-unread-face
858 gnus-summary-normal-ancient-face
859 gnus-summary-normal-read-face
860 gnus-summary-normal-ticked-face
861 gnus-summary-normal-unread-face
862 gnus-summary-selected-face
863 highlight-current-line-face
865 ibuffer-deletion-face
866 ibuffer-help-buffer-face
868 ibuffer-special-buffer-face
872 imaxima-latex-error-face
873 isearch-lazy-highlight-face
874 jde-java-font-lock-constant-face
875 jde-java-font-lock-doc-tag-face
876 jde-java-font-lock-link-face
877 jde-java-font-lock-modifier-face
878 jde-java-font-lock-number-face
879 jde-java-font-lock-operator-face
880 jde-java-font-lock-package-face
886 message-cited-text-face
887 message-header-cc-face
888 message-header-from-face
889 message-header-name-face
890 message-header-newsgroups-face
891 message-header-other-face
892 message-header-subject-face
893 message-header-to-face
894 message-header-xheader-face
896 message-separator-face
897 mtorus-highlight-face
898 mtorus-notify-highlight-face
899 nxml-attribute-colon-face
900 nxml-attribute-local-name-face
901 nxml-attribute-prefix-face
902 nxml-attribute-value-delimiter-face
903 nxml-attribute-value-face
904 nxml-cdata-section-CDATA-face
905 nxml-cdata-section-content-face
906 nxml-cdata-section-delimiter-face
907 nxml-char-ref-delimiter-face
908 nxml-char-ref-number-face
909 nxml-comment-content-face
910 nxml-comment-delimiter-face
911 nxml-delimited-data-face
913 nxml-element-colon-face
914 nxml-element-local-name-face
915 nxml-element-prefix-face
916 nxml-entity-ref-delimiter-face
917 nxml-entity-ref-name-face
919 nxml-namespace-attribute-colon-face
920 nxml-namespace-attribute-prefix-face
921 nxml-namespace-attribute-xmlns-face
922 nxml-processing-instruction-content-face
923 nxml-processing-instruction-delimiter-face
924 nxml-processing-instruction-target-face
926 nxml-tag-delimiter-face
930 plain-widget-button-face
931 plain-widget-button-pressed-face
932 plain-widget-documentation-face
933 plain-widget-field-face
934 plain-widget-inactive-face
935 plain-widget-single-line-field-face
936 setnu-line-number-face
937 show-paren-match-face
938 show-paren-mismatch-face
940 speedbar-directory-face
942 speedbar-highlight-face
945 todoo-item-assigned-header-face
946 todoo-item-header-face
947 todoo-sub-item-header-face
948 tuareg-font-lock-governing-face
949 tuareg-font-lock-interactive-error-face
950 tuareg-font-lock-interactive-output-face
951 tuareg-font-lock-operator-face
953 w3m-arrived-anchor-face
955 w3m-form-button-mouse-face
956 w3m-form-button-pressed-face
959 w3m-tab-background-face
960 w3m-tab-selected-face
961 w3m-tab-selected-retrieving-face
962 w3m-tab-unselected-face
963 w3m-tab-unselected-retrieving-face
965 widget-button-highlight-face
966 widget-button-pressed-face
967 widget-button-pressed-highlight-face
968 widget-documentation-face
971 widget-single-line-field-face
))
975 (defalias 'zenash
#'color-theme-zenash
)
978 ;;; zenash.el ends here.