Revert ob-lilypond docs commit in an attempt to fix worg build
[Worg.git] / color-themes / color-theme-zenash.el
blob61a4abdef028264cae7ac23d4040e44a60b65bca
1 ;;; zenash.el --- a low-saturation, light-background version of zenburn.
2 ;; Author: Yavuz Arkun
4 ;; Original Author of zenburn.el: Daniel Brockman <daniel@brockman.se>
5 ;;
6 ;;
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.
23 ;;; Commentary:
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
44 ;; does.
46 ;; Theme `emms-stream-name-face' and `emms-stream-url-face'.
48 ;; Theme `ido-indicator-face'.
50 ;;; Code:
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
132 to values."
133 (with-temp-buffer
134 (insert format)
135 (goto-char (point-min))
136 (while (search-forward "%" nil t)
137 (cond
138 ;; Quoted percent sign.
139 ((eq (char-after) ?%)
140 (delete-char 1))
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))))
146 (unless val
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"))))
158 (buffer-string)))
160 (defun zenash-define-format-spec ()
161 (interactive)
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
173 (list :weight 'bold
174 :foreground zenash-bg-3))))
175 (setq-default mode-line-frame-identification "")
176 (setq-default erc-mode-line-format
177 (concat (propertize "%t" 'face
178 (list :weight 'bold
179 :foreground zenash-bg-3))
180 " %a"))
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 */
187 \" 18 11 2 1\",
188 /* colors */
189 \". c #dcdccc\",
190 \"# c None s None\",
191 /* pixels */
192 \"######..##..######\",
193 \"#####........#####\",
194 \"#.##.##..##...####\",
195 \"#...####.###...##.\",
196 \"#..###.######.....\",
197 \"#####.########...#\",
198 \"###########.######\",
199 \"####.###.#..######\",
200 \"######..###.######\",
201 \"###....####.######\",
202 \"###..######.######\"};"))
204 (defun zenash-make-face-alias-clauses (alias-symbols)
205 (let (clauses)
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
211 ".*\\(-face\\)" ""
212 alias-name nil nil 1)))
213 (push `(,(intern alias-name)
214 ((t (:inherit ,(intern target-name)))))
215 clauses)))))))
217 ;;;###autoload
218 (defun color-theme-zenash ()
219 "Just some alien fruit salad to keep you in the zone."
220 (interactive)
221 (color-theme-install
222 (append
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))))
328 `(menu ((t nil)))
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))))
468 ;; TODO
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))))
688 ;; TODO
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
733 calendar-today-face
734 change-log-date-face
735 compilation-info-face
736 compilation-warning-face
737 cua-rectangle-face
738 custom-button-face
739 custom-button-pressed-face
740 custom-changed-face
741 custom-comment-face
742 custom-comment-tag-face
743 custom-documentation-face
744 custom-face-tag-face
745 custom-group-tag-face
746 custom-group-tag-face-1
747 custom-invalid-face
748 custom-modified-face
749 custom-rogue-face
750 custom-saved-face
751 custom-set-face
752 custom-state-face
753 custom-variable-button-face
754 custom-variable-tag-face
755 diary-face
756 dictionary-button-face
757 dictionary-reference-face
758 dictionary-word-entry-face
759 diff-added-face
760 diff-context-face
761 diff-file-header-face
762 diff-header-face
763 diff-hunk-header-face
764 diff-index-face
765 diff-removed-face
766 emms-pbi-current-face
767 emms-pbi-mark-marked-face
768 emms-pbi-song-face
769 erc-action-face
770 erc-bold-face
771 erc-current-nick-face
772 erc-dangerous-host-face
773 erc-default-face
774 erc-direct-msg-face
775 erc-error-face
776 erc-fool-face
777 erc-highlight-face
778 erc-input-face
779 erc-keyword-face
780 erc-nick-default-face
781 erc-nick-msg-face
782 erc-notice-face
783 erc-pal-face
784 erc-prompt-face
785 erc-timestamp-face
786 erc-underline-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
797 eshell-prompt-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
806 font-latex-bold-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
814 font-lock-doc-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
822 font-lock-type-face
823 font-lock-variable-name-face
824 font-lock-warning-face
825 gnus-cite-face-1
826 gnus-cite-face-10
827 gnus-cite-face-11
828 gnus-cite-face-2
829 gnus-cite-face-3
830 gnus-cite-face-4
831 gnus-cite-face-5
832 gnus-cite-face-6
833 gnus-cite-face-7
834 gnus-cite-face-8
835 gnus-cite-face-9
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
848 gnus-signature-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
864 holiday-face
865 ibuffer-deletion-face
866 ibuffer-help-buffer-face
867 ibuffer-marked-face
868 ibuffer-special-buffer-face
869 ido-first-match-face
870 ido-only-match-face
871 ido-subdir-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
881 keywiz-command-face
882 keywiz-right-face
883 keywiz-wrong-face
884 makefile-shell-face
885 makefile-space-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
895 message-mml-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
912 nxml-delimiter-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
918 nxml-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
925 nxml-ref-face
926 nxml-tag-delimiter-face
927 nxml-tag-slash-face
928 nxml-text-face
929 paren-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
939 speedbar-button-face
940 speedbar-directory-face
941 speedbar-file-face
942 speedbar-highlight-face
943 speedbar-tag-face
944 strokes-char-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
952 w3m-anchor-face
953 w3m-arrived-anchor-face
954 w3m-form-button-face
955 w3m-form-button-mouse-face
956 w3m-form-button-pressed-face
957 w3m-form-face
958 w3m-image-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
964 widget-button-face
965 widget-button-highlight-face
966 widget-button-pressed-face
967 widget-button-pressed-highlight-face
968 widget-documentation-face
969 widget-field-face
970 widget-inactive-face
971 widget-single-line-field-face))
974 ;;;###autoload
975 (defalias 'zenash #'color-theme-zenash)
977 (provide 'zenash)
978 ;;; zenash.el ends here.