PageRenderTime 90ms CodeModel.GetById 13ms app.highlight 59ms RepoModel.GetById 1ms app.codeStats 2ms

/vendor/color-theme/themes/color-theme-library.el

http://github.com/rejeep/emacs
Emacs Lisp | 4450 lines | 4338 code | 77 blank | 35 comment | 38 complexity | cefa00572d65aabc7c2f88710c24435f MD5 | raw file

Large files files are truncated, but you can click here to view the full file

  1;;; color-theme-library.el --- The real color theme functions
  2
  3;; Copyright (C) 2005, 2006  Xavier Maillard <zedek@gnu.org>
  4;; Copyright (C) 2005, 2006  Brian Palmer <bpalmer@gmail.com>
  5
  6;; Version: 0.0.9
  7;; Keywords: faces
  8;; Author: Brian Palmer, Xavier Maillard
  9;; Maintainer: Xavier Maillard <zedek@gnu.org>
 10;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme
 11
 12;; This file is not (YET) part of GNU Emacs.
 13
 14;; This is free software; you can redistribute it and/or modify it under
 15;; the terms of the GNU General Public License as published by the Free
 16;; Software Foundation; either version 2, or (at your option) any later
 17;; version.
 18;;
 19;; This is distributed in the hope that it will be useful, but WITHOUT
 20;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 21;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 22;; for more details.
 23;;
 24;; You should have received a copy of the GNU General Public License
 25;; along with GNU Emacs; see the file COPYING.  If not, write to the
 26;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 27;; MA 02111-1307, USA.
 28
 29;; Code:
 30(eval-when-compile
 31  (require 'color-theme))
 32
 33(defun color-theme-gnome ()
 34  "Wheat on darkslategrey scheme.
 35From one version of Emacs in RH6 and Gnome, modified by Jonadab."
 36  (interactive)
 37  (color-theme-install
 38   '(color-theme-gnome
 39     ((foreground-color . "wheat")
 40      (background-color . "darkslategrey")
 41      (background-mode . dark))
 42     (default ((t (nil))))
 43     (region ((t (:foreground "cyan" :background "dark cyan"))))
 44     (underline ((t (:foreground "yellow" :underline t))))
 45     (modeline ((t (:foreground "dark cyan" :background "wheat"))))
 46     (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
 47     (modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
 48     (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
 49     (italic ((t (:foreground "dark red" :italic t))))
 50     (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
 51     (font-lock-comment-face ((t (:foreground "Firebrick"))))
 52     (bold ((t (:bold)))))))
 53
 54(defun color-theme-blue-gnus ()
 55  "Color theme for gnus and message faces only.
 56This is intended for other color themes to use (eg. `color-theme-gnome2'
 57and `color-theme-blue-sea')."
 58  (interactive)
 59  (color-theme-install
 60   '(color-theme-blue-gnus
 61     nil
 62     (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
 63     (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
 64     (gnus-cite-face-2 ((t (:foreground "Khaki"))))
 65     (gnus-cite-face-3 ((t (:foreground "Coral"))))
 66     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
 67     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
 68     (gnus-cite-face-6 ((t (:foreground "bisque"))))
 69     (gnus-cite-face-7 ((t (:foreground "peru"))))
 70     (gnus-cite-face-8 ((t (:foreground "light coral"))))
 71     (gnus-cite-face-9 ((t (:foreground "plum"))))
 72     (gnus-emphasis-bold ((t (:bold t))))
 73     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
 74     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
 75     (gnus-emphasis-italic ((t (:italic t))))
 76     (gnus-emphasis-underline ((t (:underline t))))
 77     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
 78     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
 79     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
 80     (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
 81     (gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
 82     (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
 83     (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
 84     (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
 85     (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
 86     (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
 87     (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
 88     (gnus-group-news-1-empty-face ((t (:foreground "White"))))
 89     (gnus-group-news-1-face ((t (:bold t :foreground "White"))))
 90     (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
 91     (gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
 92     (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
 93     (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
 94     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
 95     (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
 96     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
 97     (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
 98     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
 99     (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
100     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
101     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
102     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
103     (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
104     (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
105     (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
106     (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
107     (gnus-signature-face ((t (:foreground "Grey"))))
108     (gnus-splash-face ((t (:foreground "ForestGreen"))))
109     (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
110     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
111     (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
112     (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
113     (gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
114     (gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
115     (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
116     (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
117     (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
118     (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
119     (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
120     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
121     (gnus-summary-normal-unread-face ((t (nil))))
122     (gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
123     (message-cited-text-face ((t (:foreground "LightSalmon"))))
124     (message-header-cc-face ((t (:foreground "light cyan"))))
125     (message-header-name-face ((t (:foreground "LightBlue"))))
126     (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
127     (message-header-other-face ((t (:foreground "MediumAquamarine"))))
128     (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
129     (message-header-to-face ((t (:bold t :foreground "light cyan"))))
130     (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
131     (message-separator-face ((t (:foreground "chocolate")))))))
132
133(defun color-theme-dark-gnus ()
134  "Color theme for gnus and message faces only.
135This is intended for other color themes to use
136\(eg. `color-theme-late-night')."
137  (interactive)
138  (color-theme-install
139   '(color-theme-blue-gnus
140     nil
141     (gnus-cite-attribution-face ((t (:foreground "#bbb"))))
142     (gnus-cite-face-1 ((t (:foreground "#aaa"))))
143     (gnus-cite-face-2 ((t (:foreground "#aaa"))))
144     (gnus-cite-face-3 ((t (:foreground "#aaa"))))
145     (gnus-cite-face-4 ((t (:foreground "#aaa"))))
146     (gnus-cite-face-5 ((t (:foreground "#aaa"))))
147     (gnus-cite-face-6 ((t (:foreground "#aaa"))))
148     (gnus-cite-face-7 ((t (:foreground "#aaa"))))
149     (gnus-cite-face-8 ((t (:foreground "#aaa"))))
150     (gnus-cite-face-9 ((t (:foreground "#aaa"))))
151     (gnus-emphasis-bold ((t (:bold t))))
152     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
153     (gnus-emphasis-highlight-words ((t (:foreground "#ccc"))))
154     (gnus-emphasis-italic ((t (:italic t))))
155     (gnus-emphasis-underline ((t (:underline t))))
156     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
157     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
158     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
159     (gnus-group-mail-1-empty-face ((t (:foreground "#999"))))
160     (gnus-group-mail-1-face ((t (:bold t :foreground "#999"))))
161     (gnus-group-mail-2-empty-face ((t (:foreground "#999"))))
162     (gnus-group-mail-2-face ((t (:bold t :foreground "#999"))))
163     (gnus-group-mail-3-empty-face ((t (:foreground "#888"))))
164     (gnus-group-mail-3-face ((t (:bold t :foreground "#888"))))
165     (gnus-group-mail-low-empty-face ((t (:foreground "#777"))))
166     (gnus-group-mail-low-face ((t (:bold t :foreground "#777"))))
167     (gnus-group-news-1-empty-face ((t (:foreground "#999"))))
168     (gnus-group-news-1-face ((t (:bold t :foreground "#999"))))
169     (gnus-group-news-2-empty-face ((t (:foreground "#888"))))
170     (gnus-group-news-2-face ((t (:bold t :foreground "#888"))))
171     (gnus-group-news-3-empty-face ((t (:foreground "#777"))))
172     (gnus-group-news-3-face ((t (:bold t :foreground "#777"))))
173     (gnus-group-news-4-empty-face ((t (:foreground "#666"))))
174     (gnus-group-news-4-face ((t (:bold t :foreground "#666"))))
175     (gnus-group-news-5-empty-face ((t (:foreground "#666"))))
176     (gnus-group-news-5-face ((t (:bold t :foreground "#666"))))
177     (gnus-group-news-6-empty-face ((t (:foreground "#666"))))
178     (gnus-group-news-6-face ((t (:bold t :foreground "#666"))))
179     (gnus-group-news-low-empty-face ((t (:foreground "#666"))))
180     (gnus-group-news-low-face ((t (:bold t :foreground "#666"))))
181     (gnus-header-content-face ((t (:foreground "#888"))))
182     (gnus-header-from-face ((t (:bold t :foreground "#888"))))
183     (gnus-header-name-face ((t (:bold t :foreground "#777"))))
184     (gnus-header-newsgroups-face ((t (:bold t :foreground "#777"))))
185     (gnus-header-subject-face ((t (:bold t :foreground "#999"))))
186     (gnus-signature-face ((t (:foreground "#444"))))
187     (gnus-splash-face ((t (:foreground "#ccc"))))
188     (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000"))))
189     (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555"))))
190     (gnus-summary-high-read-face ((t (:bold t :foreground "#666"))))
191     (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777"))))
192     (gnus-summary-high-unread-face ((t (:bold t :foreground "#888"))))
193     (gnus-summary-low-ancient-face ((t (:foreground "#444"))))
194     (gnus-summary-low-read-face ((t (:foreground "#555"))))
195     (gnus-summary-low-ticked-face ((t (:foreground "#666"))))
196     (gnus-summary-low-unread-face ((t (:foreground "#777"))))
197     (gnus-summary-normal-ancient-face ((t (:foreground "#555"))))
198     (gnus-summary-normal-read-face ((t (:foreground "#666"))))
199     (gnus-summary-normal-ticked-face ((t (:foreground "#777"))))
200     (gnus-summary-normal-unread-face ((t (:foreground "#888"))))
201     (gnus-summary-selected-face ((t (:background "#333"))))
202     (message-cited-text-face ((t (:foreground "#aaa"))))
203     (message-header-cc-face ((t (:foreground "#888"))))
204     (message-header-name-face ((t (:bold t :foreground "#777"))))
205     (message-header-newsgroups-face ((t (:bold t :foreground "#777"))))
206     (message-header-other-face ((t (:foreground "#666"))))
207     (message-header-subject-face ((t (:bold t :foreground "#999"))))
208     (message-header-to-face ((t (:bold t :foreground "#777"))))
209     (message-header-xheader-face ((t (:foreground "#666"))))
210     (message-separator-face ((t (:foreground "#999")))))))
211
212(defun color-theme-blue-eshell ()
213  "Color theme for eshell faces only.
214This is intended for other color themes to use (eg. `color-theme-gnome2')."
215  (interactive)
216  (color-theme-install
217   '(color-theme-blue-eshell
218     nil
219     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
220     (eshell-ls-backup-face ((t (:foreground "Grey"))))
221     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
222     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
223     (eshell-ls-executable-face ((t (:foreground "Coral"))))
224     (eshell-ls-missing-face ((t (:foreground "black"))))
225     (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face
226     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
227     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
228     (eshell-ls-special-face ((t (:foreground "Gold"))))
229     (eshell-ls-symlink-face ((t (:foreground "White"))))
230     (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face
231     (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face
232     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
233     (eshell-prompt-face ((t (:foreground "powder blue")))))))
234
235(defun color-theme-salmon-font-lock ()
236  "Color theme for font-lock faces only.
237This is intended for other color themes to use (eg. `color-theme-gnome2')."
238  (interactive)
239  (color-theme-install
240   '(color-theme-salmon-font-lock
241     nil
242     (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
243     (font-lock-comment-face ((t (:foreground "LightBlue"))))
244     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
245     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
246     (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine"))))
247     (font-lock-keyword-face ((t (:foreground "Salmon"))))
248     (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
249     (font-lock-reference-face ((t (:foreground "pale green"))))
250     (font-lock-string-face ((t (:foreground "LightSalmon"))))
251     (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
252     (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine"))))
253     (font-lock-warning-face ((t (:bold t :foreground "red")))))))
254
255(defun color-theme-dark-font-lock ()
256  "Color theme for font-lock faces only.
257This is intended for other color themes to use (eg. `color-theme-late-night')."
258  (interactive)
259  (color-theme-install
260   '(color-theme-dark-font-lock
261     nil
262     (font-lock-builtin-face ((t (:bold t :foreground "#777"))))
263     (font-lock-comment-face ((t (:foreground "#555"))))
264     (font-lock-constant-face ((t (:foreground "#777"))))
265     (font-lock-doc-string-face ((t (:foreground "#777"))))
266     (font-lock-doc-face ((t (:foreground "#777"))))
267     (font-lock-function-name-face ((t (:bold t :foreground "#777"))))
268     (font-lock-keyword-face ((t (:foreground "#777"))))
269     (font-lock-preprocessor-face ((t (:foreground "#777"))))
270     (font-lock-reference-face ((t (:foreground "#777"))))
271     (font-lock-string-face ((t (:foreground "#777"))))
272     (font-lock-type-face ((t (:bold t))))
273     (font-lock-variable-name-face ((t (:bold t :foreground "#888"))))
274     (font-lock-warning-face ((t (:bold t :foreground "#999")))))))
275
276(defun color-theme-dark-info ()
277  "Color theme for info, help and apropos faces.
278This is intended for other color themes to use (eg. `color-theme-late-night')."
279  (interactive)
280  (color-theme-install
281   '(color-theme-dark-info
282     nil
283     (info-header-node ((t (:foreground "#666"))))
284     (info-header-xref ((t (:foreground "#666"))))
285     (info-menu-5 ((t (:underline t))))
286     (info-menu-header ((t (:bold t :foreground "#666"))))
287     (info-node ((t (:bold t :foreground "#888"))))
288     (info-xref ((t (:bold t :foreground "#777")))))))
289
290(defun color-theme-gnome2 ()
291  "Wheat on darkslategrey scheme.
292`color-theme-gnome' started it all.
293
294This theme supports standard faces, font-lock, eshell, info, message,
295gnus, custom, widget, woman, diary, cperl, bbdb, and erc.  This theme
296includes faces for Emacs and XEmacs.
297
298The theme does not support w3 faces because w3 faces can be controlled
299by your default style sheet.
300
301This is what you should put in your .Xdefaults file, if you want to
302change the colors of the menus in Emacs 20 as well:
303
304emacs*Background:		DarkSlateGray
305emacs*Foreground:		Wheat"
306  (interactive)
307  (color-theme-blue-gnus)
308  (let ((color-theme-is-cumulative t))
309    (color-theme-blue-erc)
310    (color-theme-blue-eshell)
311    (color-theme-salmon-font-lock)
312    (color-theme-salmon-diff)
313    (color-theme-install
314     '(color-theme-gnome2
315       ((foreground-color . "wheat")
316	(background-color . "darkslategrey")
317	(mouse-color . "Grey")
318	(cursor-color . "LightGray")
319	(border-color . "black")
320	(background-mode . dark))
321       ((apropos-keybinding-face . underline)
322	(apropos-label-face . italic)
323	(apropos-match-face . secondary-selection)
324	(apropos-property-face . bold-italic)
325	(apropos-symbol-face . info-xref)
326	(goto-address-mail-face . message-header-to-face)
327	(goto-address-mail-mouse-face . secondary-selection)
328	(goto-address-url-face . info-xref)
329	(goto-address-url-mouse-face . highlight)
330	(list-matching-lines-face . bold)
331	(view-highlight-face . highlight))
332       (default ((t (nil))))
333       (bbdb-company ((t (:foreground "pale green"))))
334       (bbdb-name ((t (:bold t :foreground "pale green"))))
335       (bbdb-field-name ((t (:foreground "medium sea green"))))
336       (bbdb-field-value ((t (:foreground "dark sea green"))))
337       (bold ((t (:bold t))))
338       (bold-italic ((t (:italic t :bold t :foreground "beige"))))
339       (calendar-today-face ((t (:underline t))))
340       (comint-highlight-prompt ((t (:foreground "medium aquamarine"))))
341       (cperl-array-face ((t (:foreground "Yellow"))))
342       (cperl-hash-face ((t (:foreground "White"))))
343       (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
344       (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
345       (custom-documentation-face ((t (:foreground "Grey"))))
346       (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
347       (custom-state-face ((t (:foreground "LightSalmon"))))
348       (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
349       (diary-face ((t (:foreground "IndianRed"))))
350       (dired-face-directory ((t (:bold t :foreground "sky blue"))))
351       (dired-face-permissions ((t (:foreground "aquamarine"))))
352       (dired-face-flagged ((t (:foreground "tomato"))))
353       (dired-face-marked ((t (:foreground "light salmon"))))
354       (dired-face-executable ((t (:foreground "green yellow"))))
355       (fringe ((t (:background "darkslategrey"))))
356       (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
357       (highline-face ((t (:background "SeaGreen"))))
358       (holiday-face ((t (:background "DimGray"))))
359       (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1"))))
360       (hyper-apropos-documentation ((t (:foreground "LightSalmon"))))
361       (info-header-xref ((t (:foreground "DodgerBlue1" :bold t))))
362       (info-menu-5 ((t (:underline t))))
363       (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
364       (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
365       (isearch ((t (:background "sea green"))))
366       (italic ((t (:italic t))))
367       (menu ((t (:foreground "wheat" :background "darkslategrey"))))
368       (modeline ((t (:background "dark olive green" :foreground "wheat"))))
369       (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige"))))
370       (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green"))))
371       (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat"))))
372       (region ((t (:background "dark cyan" :foreground "cyan"))))
373       (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
374       (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue"))))
375       (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
376       (underline ((t (:underline t))))
377       (widget-field-face ((t (:foreground "LightBlue"))))
378       (widget-inactive-face ((t (:foreground "DimGray"))))
379       (widget-single-line-field-face ((t (:foreground "LightBlue"))))
380       (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
381       (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
382       (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green"))))
383       (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green"))))
384       (woman-bold-face ((t (:bold t))))
385       (woman-italic-face ((t (:foreground "beige"))))
386       (woman-unknown-face ((t (:foreground "LightSalmon"))))
387       (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))))
388
389(defun color-theme-simple-1 ()
390  "Black background.
391Doesn't mess with most faces, but does turn on dark background mode."
392  (interactive)
393  (color-theme-install
394   '(color-theme-simple-1
395     ((foreground-color . "white")
396      (background-color . "black")
397      (cursor-color	. "indian red")
398      (background-mode	. dark))
399     (default ((t (nil))))
400     (modeline ((t (:foreground "black" :background "white"))))
401     (modeline-buffer-id ((t (:foreground "black" :background "white"))))
402     (modeline-mousable ((t (:foreground "black" :background "white"))))
403     (modeline-mousable-minor-mode ((t (:foreground "black" :background "white"))))
404     (underline ((t (:underline t))))
405     (region ((t (:background "grey")))))))
406
407(defun color-theme-jonadabian ()
408  "Dark blue background.
409Supports standard faces, font-lock, highlight-changes, widget and
410custom."
411  (interactive)
412  (color-theme-install
413   '(color-theme-jonadabian
414     ((foreground-color . "#CCBB77")
415      (cursor-color . "medium turquoise")
416      (background-color . "#000055")
417      (background-mode . dark))
418     (default ((t (nil))))
419     (modeline ((t (:foreground "cyan" :background "#007080"))))
420     (modeline-buffer-id ((t (:foreground "cyan" :background "#007080"))))
421     (modeline-mousable ((t (:foreground "cyan" :background "#007080"))))
422     (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080"))))
423     (underline ((t (:underline t))))
424     (region ((t (:background "#004080"))))
425     (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
426     (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t))))
427     (font-lock-string-face ((t (:foreground "#10D010"))))
428     (font-lock-constant-face ((t (:foreground "indian red"))))
429     (highlight-changes-face ((t (:background "navy"))))
430     (highlight-changes-delete-face ((t (:foreground "red" :background "navy"))))
431     (widget-field-face ((t (:foreground "black" :background "grey35"))))
432     (widget-inactive-face ((t (:foreground "gray"))))
433     (custom-button-face ((t (:foreground "yellow" :background "dark blue"))))
434     (custom-state-face ((t (:foreground "mediumaquamarine"))))
435     (custom-face-tag-face ((t (:foreground "goldenrod" :underline t))))
436     (custom-documentation-face ((t (:foreground "#10D010"))))
437     (custom-set-face ((t (:foreground "#2020D0")))))))
438
439(defun color-theme-ryerson ()
440  "White on midnightblue scheme.
441Used at Ryerson Polytechnic University in the Electronic Engineering department."
442  (interactive)
443  (color-theme-install
444   '(color-theme-ryerson
445     ((foreground-color . "white")
446      (background-color . "midnightblue")
447      (cursor-color	. "red")
448      (background-mode	. dark))
449     (default ((t (nil))))
450     (modeline ((t (:foreground "black" :background "slategray3"))))
451     (modeline-buffer-id ((t (:foreground "black" :background "slategray3"))))
452     (modeline-mousable ((t (:foreground "black" :background "slategray3"))))
453     (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3"))))
454     (underline ((t (:underline t))))
455     (region ((t (:foreground "black" :background "slategray3")))))))
456
457(defun color-theme-wheat ()
458  "Default colors on a wheat background.
459Calls the standard color theme function `color-theme-standard' in order
460to reset all faces."
461  (interactive)
462  (color-theme-standard)
463  (let ((color-theme-is-cumulative t))
464    (color-theme-install
465     '(color-theme-wheat
466       ((background-color . "Wheat"))))))
467
468(defun color-theme-standard ()
469  "Emacs default colors.
470If you are missing standard faces in this theme, please notify the maintainer."
471  (interactive)
472  ;; Note that some of the things that make up a color theme are
473  ;; actually variable settings!
474  (color-theme-install
475   '(color-theme-standard
476     ((foreground-color . "black")
477      (background-color . "white")
478      (mouse-color . "black")
479      (cursor-color . "black")
480      (border-color . "black")
481      (background-mode . light))
482     ((Man-overstrike-face . bold)
483      (Man-underline-face . underline)
484      (apropos-keybinding-face . underline)
485      (apropos-label-face . italic)
486      (apropos-match-face . secondary-selection)
487      (apropos-property-face . bold-italic)
488      (apropos-symbol-face . bold)
489      (goto-address-mail-face . italic)
490      (goto-address-mail-mouse-face . secondary-selection)
491      (goto-address-url-face . bold)
492      (goto-address-url-mouse-face . highlight)
493      (help-highlight-face . underline)
494      (list-matching-lines-face . bold)
495      (view-highlight-face . highlight))
496     (default ((t (nil))))
497     (bold ((t (:bold t))))
498     (bold-italic ((t (:bold t :italic t))))
499     (calendar-today-face ((t (:underline t))))
500     (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t))))
501     (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t))))
502     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
503     (custom-button-face ((t (nil))))
504     (custom-changed-face ((t (:foreground "white" :background "blue"))))
505     (custom-documentation-face ((t (nil))))
506     (custom-face-tag-face ((t (:underline t))))
507     (custom-group-tag-face ((t (:foreground "blue" :underline t))))
508     (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
509     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
510     (custom-modified-face ((t (:foreground "white" :background "blue"))))
511     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
512     (custom-saved-face ((t (:underline t))))
513     (custom-set-face ((t (:foreground "blue" :background "white"))))
514     (custom-state-face ((t (:foreground "dark green"))))
515     (custom-variable-button-face ((t (:bold t :underline t))))
516     (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
517     (diary-face ((t (:foreground "red"))))
518     (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
519     (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
520     (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
521     (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
522     (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
523     (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
524     (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
525     (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
526     (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
527     (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
528     (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
529     (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
530     (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
531     (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
532     (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
533     (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
534     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
535     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
536     (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
537     (eshell-ls-directory-face ((t (:foreground "Blue" :bold t))))
538     (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t))))
539     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
540     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
541     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
542     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
543     (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
544     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
545     (eshell-prompt-face ((t (:foreground "Red" :bold t))))
546     (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
547     (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
548     (excerpt ((t (:italic t))))
549     (fixed ((t (:bold t))))
550     (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
551     (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
552     (font-lock-builtin-face ((t (:foreground "Orchid"))))
553     (font-lock-comment-face ((t (:foreground "Firebrick"))))
554     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
555     (font-lock-function-name-face ((t (:foreground "Blue"))))
556     (font-lock-keyword-face ((t (:foreground "Purple"))))
557     (font-lock-string-face ((t (:foreground "RosyBrown"))))
558     (font-lock-type-face ((t (:foreground "ForestGreen"))))
559     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
560     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
561     (fringe ((t (:background "grey95"))))
562     (gnus-cite-attribution-face ((t (:italic t))))
563     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
564     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
565     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
566     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
567     (gnus-cite-face-3 ((t (:foreground "dark green"))))
568     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
569     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
570     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
571     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
572     (gnus-cite-face-8 ((t (:foreground "magenta"))))
573     (gnus-cite-face-9 ((t (:foreground "violet"))))
574     (gnus-emphasis-bold ((t (:bold t))))
575     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
576     (gnus-emphasis-italic ((t (:italic t))))
577     (gnus-emphasis-underline ((t (:underline t))))
578     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
579     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
580     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
581     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
582     (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
583     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
584     (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
585     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
586     (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
587     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
588     (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
589     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
590     (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
591     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
592     (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
593     (gnus-group-news-3-empty-face ((t (nil))))
594     (gnus-group-news-3-face ((t (:bold t))))
595     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
596     (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
597     (gnus-header-content-face ((t (:foreground "indianred4" :italic t))))
598     (gnus-header-from-face ((t (:foreground "red3"))))
599     (gnus-header-name-face ((t (:foreground "maroon"))))
600     (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t))))
601     (gnus-header-subject-face ((t (:foreground "red4"))))
602     (gnus-signature-face ((t (:italic t))))
603     (gnus-splash-face ((t (:foreground "ForestGreen"))))
604     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
605     (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
606     (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
607     (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
608     (gnus-summary-high-unread-face ((t (:bold t))))
609     (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
610     (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
611     (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
612     (gnus-summary-low-unread-face ((t (:italic t))))
613     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
614     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
615     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
616     (gnus-summary-normal-unread-face ((t (nil))))
617     (gnus-summary-selected-face ((t (:underline t))))
618     (highlight ((t (:background "darkseagreen2"))))
619     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
620     (highlight-changes-face ((t (:foreground "red"))))
621     (highline-face ((t (:background "paleturquoise"))))
622     (holiday-face ((t (:background "pink"))))
623     (info-menu-5 ((t (:underline t))))
624     (info-node ((t (:bold t :italic t))))
625     (info-xref ((t (:bold t))))
626     (italic ((t (:italic t))))
627     (makefile-space-face ((t (:background "hotpink"))))
628     (message-cited-text-face ((t (:foreground "red"))))
629     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
630     (message-header-name-face ((t (:foreground "cornflower blue"))))
631     (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t))))
632     (message-header-other-face ((t (:foreground "steel blue"))))
633     (message-header-subject-face ((t (:foreground "navy blue" :bold t))))
634     (message-header-to-face ((t (:foreground "MidnightBlue" :bold t))))
635     (message-header-xheader-face ((t (:foreground "blue"))))
636     (message-separator-face ((t (:foreground "brown"))))
637     (modeline ((t (:foreground "white" :background "black"))))
638     (modeline-buffer-id ((t (:foreground "white" :background "black"))))
639     (modeline-mousable ((t (:foreground "white" :background "black"))))
640     (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
641     (region ((t (:background "gray"))))
642     (secondary-selection ((t (:background "paleturquoise"))))
643     (show-paren-match-face ((t (:background "turquoise"))))
644     (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
645     (speedbar-button-face ((t (:foreground "green4"))))
646     (speedbar-directory-face ((t (:foreground "blue4"))))
647     (speedbar-file-face ((t (:foreground "cyan4"))))
648     (speedbar-highlight-face ((t (:background "green"))))
649     (speedbar-selected-face ((t (:foreground "red" :underline t))))
650     (speedbar-tag-face ((t (:foreground "brown"))))
651     (term-black ((t (:foreground "black"))))
652     (term-blackbg ((t (:background "black"))))
653     (term-blue ((t (:foreground "blue"))))
654     (term-bluebg ((t (:background "blue"))))
655     (term-bold ((t (:bold t))))
656     (term-cyan ((t (:foreground "cyan"))))
657     (term-cyanbg ((t (:background "cyan"))))
658     (term-default-bg ((t (nil))))
659     (term-default-bg-inv ((t (nil))))
660     (term-default-fg ((t (nil))))
661     (term-default-fg-inv ((t (nil))))
662     (term-green ((t (:foreground "green"))))
663     (term-greenbg ((t (:background "green"))))
664     (term-invisible ((t (nil))))
665     (term-invisible-inv ((t (nil))))
666     (term-magenta ((t (:foreground "magenta"))))
667     (term-magentabg ((t (:background "magenta"))))
668     (term-red ((t (:foreground "red"))))
669     (term-redbg ((t (:background "red"))))
670     (term-underline ((t (:underline t))))
671     (term-white ((t (:foreground "white"))))
672     (term-whitebg ((t (:background "white"))))
673     (term-yellow ((t (:foreground "yellow"))))
674     (term-yellowbg ((t (:background "yellow"))))
675     (underline ((t (:underline t))))
676     (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
677     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
678     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
679     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
680     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
681     (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
682     (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
683     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
684     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
685     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
686     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
687     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
688     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
689     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
690     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
691     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
692     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
693     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
694     (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
695     (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
696     (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
697     (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
698     (viper-search-face ((t (:foreground "Black" :background "khaki"))))
699     (widget-button-face ((t (:bold t))))
700     (widget-button-pressed-face ((t (:foreground "red"))))
701     (widget-documentation-face ((t (:foreground "dark green"))))
702     (widget-field-face ((t (:background "gray85"))))
703     (widget-inactive-face ((t (:foreground "dim gray"))))
704     (widget-single-line-field-face ((t (:background "gray85")))))))
705
706(defun color-theme-fischmeister ()
707  "The light colors on a grey blackground.
708Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>"
709  (interactive)
710  (color-theme-install
711   '(color-theme-fischmeister
712     ((foreground-color . "black")
713      (background-color . "gray80")
714      (mouse-color . "red")
715      (cursor-color . "yellow")
716      (border-color . "black")
717      (background-mode . light))
718     (default ((t (nil))))
719     (modeline ((t (:foreground "gray80" :background "black"))))
720     (modeline-buffer-id ((t (:foreground "gray80" :background "black"))))
721     (modeline-mousable ((t (:foreground "gray80" :background "black"))))
722     (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black"))))
723     (highlight ((t (:background "darkseagreen2"))))
724     (bold ((t (:bold t))))
725     (italic ((t (:italic t))))
726     (bold-italic ((t (:bold t :italic t))))
727     (region ((t (:background "gray"))))
728     (secondary-selection ((t (:background "paleturquoise"))))
729     (underline ((t (:underline t))))
730     (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen"))))
731     (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
732     (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t))))
733     (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t))))
734     (font-lock-keyword-face ((t (:foreground "navy"))))
735     (font-lock-builtin-face ((t (:foreground "white"))))
736     (font-lock-function-name-face ((t (:foreground "Blue"))))
737     (font-lock-variable-name-face ((t (:foreground "Darkblue"))))
738     (font-lock-type-face ((t (:foreground "darkgreen"))))
739     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
740     (font-lock-warning-face ((t (:foreground "Orchid" :bold t))))
741     (font-lock-reference-face ((t (:foreground "SteelBlue")))))))
742
743(defun color-theme-sitaramv-solaris ()
744  "White on a midnight blue background.  Lots of yellow and orange.
745Includes faces for font-lock, widget, custom, speedbar, message, gnus,
746eshell."
747  (interactive)
748  (color-theme-install
749   '(color-theme-sitaramv-solaris
750     ((foreground-color . "white")
751      (background-color . "MidnightBlue")
752      (mouse-color . "yellow")
753      (cursor-color . "magenta2")
754      (border-color . "black")
755      (background-mode . dark))
756     (default ((t (nil))))
757     (modeline ((t (:foreground "black" :background "gold2"))))
758     (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
759     (modeline-mousable ((t (:foreground "black" :background "gold2"))))
760     (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
761     (highlight ((t (:foreground "black" :background "Aquamarine"))))
762     (bold ((t (:bold t))))
763     (italic ((t (:italic t))))
764     (bold-italic ((t (:bold t :italic t))))
765     (region ((t (:foreground "black" :background "snow3"))))
766     (secondary-selection ((t (:foreground "black" :background "aquamarine"))))
767     (underline ((t (:underline t))))
768     (lazy-highlight-face ((t (:foreground "yellow"))))
769     (font-lock-comment-face ((t (:foreground "orange" :italic t))))
770     (font-lock-string-face ((t (:foreground "orange"))))
771     (font-lock-keyword-face ((t (:foreground "green"))))
772     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
773     (font-lock-function-name-face ((t (:foreground "cyan" :bold t))))
774     (font-lock-variable-name-face ((t (:foreground "white"))))
775     (font-lock-type-face ((t (:foreground "cyan"))))
776     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
777     (font-lock-warning-face ((t (:foreground "Pink" :bold t))))
778     (widget-documentation-face ((t (:foreground "lime green"))))
779     (widget-button-face ((t (:bold t))))
780     (widget-field-face ((t (:background "dim gray"))))
781     (widget-single-line-field-face ((t (:background "dim gray"))))
782     (widget-inactive-face ((t (:foreground "light gray"))))
783     (widget-button-pressed-face ((t (:foreground "red"))))
784     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
785     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
786     (custom-modified-face ((t (:foreground "white" :background "blue"))))
787     (custom-set-face ((t (:foreground "blue" :background "white"))))
788     (custom-changed-face ((t (:foreground "white" :background "blue"))))
789     (custom-saved-face ((t (:underline t))))
790     (custom-button-face ((t (nil))))
791     (custom-documentation-face ((t (nil))))
792     (custom-state-face ((t (:foreground "lime green"))))
793     (custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
794     (custom-variable-button-face ((t (:bold t :underline t))))
795     (custom-face-tag-face ((t (:underline t))))
796     (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
797     (custom-group-tag-face ((t (:foreground "light blue" :underline t))))
798     (speedbar-button-face ((t (:foreground "green3"))))
799     (speedbar-file-face ((t (:foreground "cyan"))))
800     (speedbar-directory-face ((t (:foreground "light blue"))))
801     (speedbar-tag-face ((t (:foreground "yellow"))))
802     (speedbar-selected-face ((t (:foreground "red" :underline t))))
803     (speedbar-highlight-face ((t (:background "sea green"))))
804     (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t))))
805     (font-lock-exit-face ((t (:foreground "green"))))
806     (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
807     (show-paren-match-face ((t (:background "red"))))
808     (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
809     (message-header-to-face ((t (:foreground "green2" :bold t))))
810     (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
811     (message-header-subject-face ((t (:foreground "green3"))))
812     (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
813     (message-header-other-face ((t (:foreground "Salmon"))))
814     (message-header-name-face ((t (:foreground "green3"))))
815     (message-header-xheader-face ((t (:foreground "GreenYellow"))))
816     (message-separator-face ((t (:foreground "Tan"))))
817     (message-cited-text-face ((t (:foreground "Gold"))))
818     (message-mml-face ((t (:foreground "ForestGreen"))))
819     (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
820     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
821     (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
822     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
823     (gnus-group-news-3-face ((t (:bold t))))
824     (gnus-group-news-3-empty-face ((t (nil))))
825     (gnus-group-news-4-face ((t (:bold t))))
826     (gnus-group-news-4-empty-face ((t (nil))))
827     (gnus-group-news-5-face ((t (:bold t))))
828     (gnus-group-news-5-empty-face ((t (nil))))
829     (gnus-group-news-6-face ((t (:bold t))))
830     (gnus-group-news-6-empty-face ((t (nil))))
831     (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
832     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
833     (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
834     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
835     (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
836     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
837     (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
838     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
839     (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
840     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
841     (gnus-summary-selected-face ((t (:underline t))))
842     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
843     (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
844     (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
845     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
846     (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
847     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
848     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
849     (gnus-summary-high-unread-face ((t (:bold t))))
850     (gnus-summary-low-unread-face ((t (:italic t))))
851     (gnus-summary-normal-unread-face ((t (nil))))
852     (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
853     (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
854     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
855     (gnus-splash-face ((t (:foreground "Brown"))))
856     (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
857     (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
858     (eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
859     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
860     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
861     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
862     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
863     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
864     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
865     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
866     (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
867     (eshell-prompt-face ((t (:foreground "Pink" :bold t))))
868     (term-default-fg ((t (nil))))
869     (term-default-bg ((t (nil))))
870     (term-default-fg-inv ((t (nil))))
871     (term-default-bg-inv ((t (nil))))
872     (term-bold ((t (:bold t))))
873     (term-underline ((t (:underline t))))
874     (term-invisible ((t (nil))))
875     (term-invisible-inv ((t (nil))))
876     (term-black ((t (:foreground "black"))))
877     (term-red ((t (:foreground "red"))))
878     (term-green ((t (:foreground "green"))))
879     (term-yellow ((t (:foreground "yellow"))))
880     (term-blue ((t (:foreground "blue"))))
881     (term-magenta ((t (:foreground "magenta"))))
882     (term-cyan ((t (:foreground "cyan"))))
883     (term-white ((t (:foreground "white"))))
884     (term-blackbg ((t (:background "black"))))
885     (term-redbg ((t (:background "red"))))
886     (term-greenbg ((t (:background "green"))))
887     (term-yellowbg ((t (:background "yellow"))))
888     (term-bluebg ((t (:background "blue"))))
889     (term-magentabg ((t (:background "magenta"))))
890     (term-cyanbg ((t (:background "cyan"))))
891     (term-whitebg ((t (:background "white"))))
892     (gnus-emphasis-bold ((t (:bold t))))
893     (gnus-emphasis-italic ((t (:italic t))))
894     (gnus-emphasis-underline ((t (:underline t))))
895     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
896     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
897     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
898     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
899     (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
900     (gnus-signature-face ((t (:italic t))))
901     (gnus-header-from-face ((t (:foreground "spring green"))))
902     (gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
903     (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
904     (gnus-header-name-face ((t (:foreground "pink"))))
905     (gnus-header-content-face ((t (:foreground "lime green" :italic t))))
906     (gnus-cite-attribution-face ((t (:italic t))))
907     (gnus-cite-face-1 ((t (:foreground "light blue"))))
908     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
909     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
910     (gnus-cite-face-4 ((t (:foreground "light pin…

Large files files are truncated, but you can click here to view the full file