Browse Source

Imported source.

Ian Barton 9 years ago
parent
commit
d6e8c5fe64

File diff suppressed because it is too large
+ 1531 - 0
color-themes/color-theme-folio.el


+ 990 - 0
color-themes/color-theme-manoj.el

@@ -0,0 +1,990 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; manoj-colors.el --- 
+;; Author           : Manoj Srivastava ( srivasta@anzu.internal.golden-gryphon.com ) 
+;; Created On       : Sun May 25 15:17:44 2008
+;; Created On Node  : anzu.internal.golden-gryphon.com
+;; Last Modified By : Manoj Srivastava
+;; Status           : Unknown, Use with caution!
+;; HISTORY          : 
+;; Description      : 
+;;
+;; Copyright © 2008 Manoj Srivastava <srivasta@debian.org
+;; 
+;; This file is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; On Debian GNU/Linux systems, the complete text of the GNU General
+;; Public License can be found in `/usr/share/common-licenses/GPL'
+;;
+;;    A copy of the GNU General Public License is also available at
+;;    <URL:http://www.gnu.org/copyleft/gpl.html>.  You may also obtain
+;;    it by writing to the Free Software Foundation, Inc., 51 Franklin
+;;    St, Fifth Floor, Boston, MA 02110-1301 USA
+
+;; A copy of this file, without the html, can be seen at:
+;; manoj-colors.el
+
+;; I spend a lot of time workin in front of a screen (many hours in a
+;; dimly lit room) and eye fatigue is an issue. This is a dark color
+;; theme for emacs, which is easier on the eyes than light themes.
+;;
+;; It does not help that I am blue-green color blind, so subtle
+;; variations are ofte lost on me. I do want to use color contrast to
+;; increase productivity, but I also want to avoid the jarring angry
+;; fruit salad look, and so I am in the process of crafting a logical
+;; color scheme that is high contrast enough for me, without being too
+;; unpleasing.
+;;
+;; In circumstances where there a lot of related faces that can be
+;; viewed, for example, the Gnus group buffer, consistent and logical
+;; color choices are the only sane option. Gnus groups can be newa
+;; (blueish) or mail (greenish), have states (large number of under
+;; messages, normal, and empty). The large number unread groups have
+;; highest luminance (appear brighter), and the empty one have lower
+;; luminance (appear greyer), but have the same chroma and saturation.
+;; Sub states and group priorities are rendered using a color series
+;; which has constant luminance and saturation, and vary in hue by a
+;; constant separation -- so all the related groups have the same
+;; brightness ({mail,news}/{unread,normal,empty}), and a graded
+;; selection of foreground colors.  It sounds more complicated that it
+;; looks. The eye is drawn naturally to the unread groups, and first
+;; to the mail, then USENET groups (which is my preference).
+;;
+;; Similar color variations occur for individual messages in a group;
+;; high scoring messages bubble to the top, and have a higher
+;; luminance.  This color schema has made me slightly faster at
+;; reading mail/USENET.
+;;
+;; In the message itself, quoted mail messages from different people
+;; are color coordinated, with high contrast beteen citations that are
+;; close to each other in the heirarchy, so it is less likely that one
+;; misunderstands who said what in a long conversation.
+;;
+;; The following scheme covers programming languages, Gnus, Erc, mail,
+;; org-mode, CUA-mode, apt-utils, bbdb, compilation buffers, changelog
+;; mode, diff and ediff, eshell, and more. You need emacs-goodies
+;; package on Debian to use this.  See the wiki page at
+;; http://www.emacswiki.org/cgi-bin/wiki?ColorTheme for details. The
+;; project home page is at https://gna.org/projects/color-theme
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(defun color-theme-manoj-font-lock ()
+  "Dark font-lock theme. Language constructs (types, preprocessor
+  directives, etc) are bluish, user variables are greenish,
+  Comments, strings, and doc content are reddish.  This is
+  intended for other color themes to use."
+  (interactive)
+  (color-theme-install
+   '(color-theme-manoj-font-lock
+     nil
+     (font-lock-builtin-face       ((t (:foreground "LightSteelBlue"))))
+     (font-lock-constant-face      ((t (:foreground "LightSlateBlue" :bold t)))) ;Aquamarine
+     (font-lock-exit-face          ((t (:foreground "LightBlue"))))
+     (font-lock-preprocessor-face  ((t (:foreground "CornFlowerBlue" :italic t)))) ;LightSteelBlue
+     (font-lock-keyword-face       ((t (:foreground "cyan1"))))
+     (font-lock-other-type-face    ((t (:foreground "Turquoise" :bold t))))
+     (font-lock-type-face          ((t (:foreground "SteelBlue1")))) ;PaleGreen
+     (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
+     (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
+
+     (font-lock-variable-name-face ((t (:foreground "Aquamarine")))) ;LightGoldenrod
+     (font-lock-function-name-face ((t (:foreground "mediumspringgreen" :weight bold :height 1.1)))) ;LightSkyBlue
+     (font-lock-reference-face     ((t (:foreground "PaleGreen"))))
+     (font-lock-negation-char-face ((t (nil))))
+     (cperl-array-face ((t (:foreground "LawnGreen" :background "B;ack" :bold t))))
+     (cperl-hash-face ((t (:foreground "SpringGreen" :background "B;ack" :bold t :italic t))))
+     (cperl-here-face  ((t (:foreground "RosyBrown1"))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+
+     (font-lock-string-face        ((t (:foreground "RosyBrown1")))) ;LightSalmon
+     (font-lock-comment-face       ((t (:italic t :slant oblique :foreground "chocolate1"))))
+     (font-lock-comment-delimiter-face ((t (:foreground "Salmon"))))
+     (font-lock-doc-face           ((t (:italic t :slant oblique :foreground "LightCoral")))) ;LightSalmon
+     (font-lock-doc-string-face    ((t (:foreground "Plum"))))
+     (cperl-pod-face  ((t (:italic t :slant oblique :foreground "chocolate1"))))
+     (cperl-pod-head-face ((t (:foreground "tomato"))))
+
+
+     (cperl-invalid-face ((t (:foreground "MediumPurple1"))))
+     (font-lock-emphasized-face    ((t (:bold t))))
+
+     (font-lock-other-emphasized-face ((t (:italic t :bold t))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))))))
+
+(defun color-theme-manoj-gnus ()
+  "Blue (news) and green (mail) theme for gnus on dark backgrounds.
+Unread groups have highest luminance, empty group have lower
+luminance.  Within a set of type,state ({mail,news}/{{unread,normal,empty}),
+groups have a constant luminosity and saturation, and vary in hue
+by a constant amount.
+
+This is intended for other color themes to use."
+
+  (interactive)
+  (color-theme-install
+   '(color-theme-manoj-gnus
+     nil
+     (gnus-button ((t (:bold t :weight bold :background "#191932" :box (:line-width 2 :style released-button)))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1  ((t (:foreground "CornflowerBlue"))))
+     (gnus-cite-face-2  ((t (:foreground "PaleGreen"))))
+     (gnus-cite-face-3  ((t (:foreground "LightGoldenrod"))))
+     (gnus-cite-face-4  ((t (:foreground "LightPink"))))
+     (gnus-cite-face-5  ((t (:foreground "turquoise"))))
+     (gnus-cite-face-6  ((t (:foreground "khaki"))))
+     (gnus-cite-face-7  ((t (:foreground "plum"))))
+     (gnus-cite-face-8  ((t (:foreground "DeepSkyBlue1"))))
+     (gnus-cite-face-9  ((t (:foreground "chartreuse1"))))
+     (gnus-cite-face-10 ((t (:foreground "thistle1"))))
+     (gnus-cite-face-11 ((t (:foreground "LightYellow1"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-strikethru ((t (:strike-through t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+
+     (gnus-header-content ((t (:italic t :foreground "DarkKhaki" :slant italic))))
+     (gnus-header-content-face ((t (:italic t :foreground "DarkKhaki" :slant italic))))
+     (gnus-header-from ((t (:foreground "PaleGreen1"))))
+     (gnus-header-from-face ((t (:foreground "PaleGreen1"))))
+     (gnus-header-name ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
+     (gnus-header-name-face ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
+     (gnus-header-newsgroups ((t (:italic t :foreground "yellow" :slant italic))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
+     (gnus-header-subject ((t (:foreground "coral1"))))
+     (gnus-header-subject-face ((t (:foreground "coral1"))))
+     (gnus-signature ((t (:italic t :slant italic))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash ((t (:foreground "#cccccc"))))
+     (gnus-splash-face ((t (:foreground "#cccccc"))))
+     (gnus-topic-face ((t (:italic t :bold t :foreground "lavender" :background "black" :slant italic :weight bold))))
+
+     (fp-topic-face ((t (:italic t :bold t :background "black" :foreground "lavender" :slant italic :weight bold))))
+     (face-6 ((t (:foreground "pink"))))
+     (face-7 ((t (:foreground "steelblue"))))
+     (face-8 ((t (:foreground "lime green"))))
+
+
+     (gnus-summary-cancelled ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+
+     (gnus-summary-high-ancient ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
+     (gnus-summary-normal-ancient ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-low-ancient ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
+     (gnus-summary-low-ancien-facet ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
+
+     (gnus-summary-high-read ((t (:bold t :foreground "grey60" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "grey60" :weight bold))))
+     (gnus-summary-normal-read ((t (:foreground "grey50"))))
+     (gnus-summary-normal-read-face ((t (:foreground "grey50"))))
+     (gnus-summary-low-read ((t (:italic t :foreground "LightSlateGray" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "LightSlateGray" :slant italic))))
+
+     (gnus-summary-high-ticked ((t (:bold t :foreground "RosyBrown" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "RosyBrown" :weight bold))))
+     (gnus-summary-normal-ticked ((t (:foreground "LightSalmon"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
+     (gnus-summary-low-ticked ((t (:italic t :foreground "pink" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+
+     (gnus-summary-high-undownloaded ((t (:bold t :foreground "ivory3" :weight bold))))
+     (gnus-summary-normal-undownloaded ((t (:foreground "LightGray" :weight normal))))
+     (gnus-summary-low-undownloaded ((t (:italic t :foreground "grey75" :slant italic :weight normal))))
+
+     (gnus-summary-high-unread ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-normal-unread ((t (:foreground "YellowGreen"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "YellowGreen"))))
+     (gnus-summary-low-unread ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
+
+     (my-gnus-direct-fup-face ((t (:bold t :background "NavyBlue" :foreground "#70fc70" :weight bold))))
+     (my-gnus-indirect-fup-face ((t (:bold t :background "#092109" :foreground "#7fff7f" :weight bold))))
+     (my-gnus-own-posting-face ((t (:bold t :background "#210909" :foreground "chartreuse3" :weight bold))))
+
+     (gnus-summary-root-face ((t (:bold t :foreground "Red" :weight bold))))
+     (gnus-summary-selected ((t (:underline t :foreground "LemonChiffon"))))
+     (gnus-summary-selected-face ((t (:underline t :foreground "LemonChiffon"))))
+     (gnus-user-agent-bad-face ((t (:bold t :background "black" :foreground "red" :weight bold))))
+     (gnus-user-agent-good-face ((t (:background "black" :foreground "green"))))
+     (gnus-user-agent-unknown-face ((t (:bold t :background "black" :foreground "orange" :weight bold))))
+     (gnus-x-face ((t (:background "white" :foreground "black"))))
+
+     (my-group-face-2 ((t (:bold t :foreground "DarkSeaGreen1" :weight bold))))
+     (my-group-face-3 ((t (:bold t :foreground "Green1" :weight bold))))
+     (my-group-face-4 ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
+     (my-group-face-5 ((t (:bold t :foreground "beige" :weight bold))))
+
+     (my-group-mail-unread-crit-1 ((t (:bold t :foreground "#99FFAA" :weight bold))))
+     (my-group-mail-unread-crit-2 ((t (:foreground "#99FF9C" :weight normal))))
+     (my-group-mail-unread-crit-3 ((t (:foreground "#A3FF99" :weight normal))))
+
+     (my-group-mail-unread-high-1 ((t (:bold t :foreground "#B1FF99" :weight bold))))
+     (my-group-mail-unread-high-2 ((t (:foreground "#BEFF99" :weight normal))))
+     (my-group-mail-unread-high-3 ((t (:foreground "#CCFF99" :weight normal))))
+
+     (my-group-mail-unread-mod-1 ((t (:bold t :foreground "#DAFF99" :weight bold))))
+     (my-group-mail-unread-mod-2 ((t (:foreground "#E7FF99" :weight normal))))
+     (my-group-mail-unread-mod-3 ((t (:foreground "#F5FF99" :weight normal))))
+
+     (gnus-group-mail-1 ((t (:bold t :foreground "#3BFF00" :weight normal))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "#3BFF00" :weight normal))))
+     (gnus-group-mail-2 ((t (:bold t :foreground "#5EFF00" :weight normal))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "#5EFF00" :weight normal))))
+     (gnus-group-mail-3 ((t (:bold t :foreground "#80FF00" :weight normal))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "#A1FF00" :weight normal))))
+
+
+     (gnus-group-mail-1-empty ((t (:foreground "#249900"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "#249900"))))
+     (gnus-group-mail-2-empty ((t (:foreground "#389900"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "#389900"))))
+     (gnus-group-mail-3-empty ((t (:foreground "#4D9900"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "#4D9900"))))
+
+     (gnus-group-mail-low ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-low-empty ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine2"))))
+
+
+     (my-group-news-unread-crit-3 ((t (:bold t :foreground "#BFB3FF" :weight bold))))
+     (my-group-news-unread-crit-4 ((t (:bold t :foreground "#BAB3FF" :weight bold))))
+     (my-group-news-unread-crit-5 ((t (:foreground "#B5B3FF" :weight normal))))
+     (my-group-news-unread-crit-6 ((t (:foreground "#B3B5FF" :weight normal))))
+
+     (my-group-news-unread-high-3 ((t (:bold t :foreground "#B3BAFF" :weight bold))))
+     (my-group-news-unread-high-4 ((t (:bold t :foreground "#B3BFFF" :weight bold))))
+     (my-group-news-unread-high-5 ((t (:foreground "#B3C4FF" :weight normal))))
+     (my-group-news-unread-high-6 ((t (:foreground "#B3C9FF" :weight normal))))
+
+     (my-group-news-unread-mod-3 ((t (:bold t :foreground "#B3CFFF" :weight bold))))
+     (my-group-news-unread-mod-4 ((t (:bold t :foreground "#B3D4FF" :weight bold))))
+     (my-group-news-unread-mod-5 ((t (:foreground "#B3D9FF" :weight normal))))
+     (my-group-news-unread-mod-6 ((t (:foreground "#B3DEFF" :weight normal))))
+
+
+     (gnus-group-news-1 ((t (:bold t :foreground "#8480FF" :weight bold))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "#8480FF" :weight bold))))
+     (gnus-group-news-2 ((t (:bold t :foreground "#8088FF" :weight bold))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "#8088FF" :weight bold))))
+     (gnus-group-news-3 ((t (:bold t :foreground "#8095FF" :weight bold))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "#8095FF" :weight bold))))
+     (gnus-group-news-4 ((t (:bold t :foreground "#80A1FF" :weight bold))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "#80A1FF" :weight bold))))
+     (gnus-group-news-5 ((t (:bold t :foreground "#80AEFF" :weight bold))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "#80AEFF" :weight bold))))
+     (gnus-group-news-6 ((t (:bold t :foreground "#80BBFF" :weight bold))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "#80BBFF" :weight bold))))
+
+
+     (gnus-group-news-1-empty ((t (:foreground "#524DFF"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "#524DFF"))))
+     (gnus-group-news-2-empty ((t (:foreground "#4D58FF"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "#4D58FF"))))
+     (gnus-group-news-3-empty ((t (:foreground "#4D6AFF"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "#4D6AFF"))))
+     (gnus-group-news-4-empty ((t (:foreground "#4D7CFF"))))
+     (gnus-group-news-4-empty-face ((t (:foreground "#4D7CFF"))))
+     (gnus-group-news-5-empty ((t (:foreground "#4D8EFF"))))
+     (gnus-group-news-5-empty-face ((t (:foreground "#4D8EFF"))))
+     (gnus-group-news-6-empty ((t (:foreground "#4DA0FF"))))
+     (gnus-group-news-6-empty-face ((t (:foreground "#4DA0FF"))))
+
+     (gnus-group-news-low ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-group-news-low-empty ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+
+
+)))
+
+(defun color-theme-manoj-message ()
+  "Blue green theme for message on dark backgrounds.
+This is intended for other color themes to use."
+  (color-theme-install
+   '(color-theme-manoj-message
+     nil
+     (mmm-face ((t (:background "black" :foreground "green"))))
+     (message-cited-text ((t (:foreground "red3"))))
+     (message-header-cc ((t (:bold t :foreground "chartreuse1" :weight bold))))
+     (message-header-cc-face ((t (:bold t :foreground "chartreuse1" :weight bold))))
+     (message-header-name ((t (:foreground "green"))))
+     (message-header-name-face ((t (:foreground "green"))))
+     (message-header-newsgroups ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
+     (message-header-other ((t (:foreground "ivory"))))
+     (message-header-other-face ((t (:foreground "ivory"))))
+     (message-header-subject ((t (:foreground "OliveDrab1"))))
+     (message-header-subject-face ((t (:foreground "OliveDrab1"))))
+     (message-header-to ((t (:bold t :foreground "floral white" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "floral white" :weight bold))))
+     (message-header-xheader ((t (:foreground "DeepSkyBlue1"))))
+     (message-header-xheader-face ((t (:foreground "DeepSkyBlue1"))))
+     (message-mml ((t (:foreground "MediumSpringGreen"))))
+     (message-mml-face ((t (:foreground "MediumSpringGreen"))))
+     (message-separator ((t (:foreground "LightSkyBlue1"))))
+     (message-separator-face ((t (:foreground "LightSkyBlue1"))))
+     (message-url ((t (:bold t :foreground "blue" :weight bold)))))))
+
+(defun color-theme-manoj-erc ()
+  "Blue green theme for erc on dark backgrounds.
+This is intended for other color themes to use."
+  (color-theme-install
+   '(color-theme-manoj-erc
+     nil
+     (bg:erc-color-face0 ((t (:background "saddle brown"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "DodgerBlue4"))))
+     (bg:erc-color-face11 ((t (:background "cyan4"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "grey15"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow4"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (erc-action-face ((t (:bold t :weight bold :foreground "turquoise1"))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-button ((t (:bold t :weight bold :foreground "RoyalBlue1" :box (:line-width 2 :style released-button)))))
+     (erc-button-face ((t (:bold t :weight bold :foreground "RoyalBlue1" :box (:line-width 2 :style released-button)))))
+     (erc-command-indicator-face ((t (:bold t :weight bold))))
+     (erc-current-nick-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (erc-dangerous-host-face ((t (:foreground "red"))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "sandybrown"))))
+     (erc-error-face ((t (:foreground "red"))))
+     (erc-fool-face ((t (:foreground "dim gray"))))
+     (erc-header-line ((t (:background "grey95" :foreground "ConFlowerBlue"))))
+     (erc-input-face ((t (:foreground "brown"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-my-nick-face ((t (:bold t :foreground "brown" :weight bold))))
+     (erc-nick-default-face ((t (:bold t :weight bold :foreground "DodgerBlue1"))))
+     (erc-button-nickname-face ((t (:bold t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button) ))))
+     (erc-nick-msg-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
+     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "Navy" :foreground "lightBlue2" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "SeaGreen1" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (fg:erc-color-face0 ((t (:foreground "BlanchedAlmond"))))
+     (fg:erc-color-face1 ((t (:foreground "beige"))))
+     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green")))))))
+
+(defun color-theme-manoj-org ()
+  "Blue green theme for org on dark backgrounds.
+This is intended for other color themes to use."
+  (color-theme-install
+   '(color-theme-manoj-org
+     nil
+     (org-agenda-date ((t (:foreground "LightSkyBlue"))))
+     (org-agenda-date-weekend ((t (:bold t :foreground "LightSkyBlue" :weight bold))))
+     (org-agenda-restriction-lock ((t (:background "skyblue4"))))
+     (org-agenda-structure ((t (:foreground "LightSkyBlue"))))
+     (org-archived ((t (:foreground "grey70"))))
+     (org-code ((t (:foreground "grey70"))))
+     (org-column ((t (:background "grey30" :strike-through nil :underline nil :slant normal :weight normal :height 81 :family "unknown-DejaVu Sans Mono"))))
+     (org-column-title ((t (:bold t :background "grey30" :underline t :weight bold))))
+     (org-date ((t (:foreground "Cyan" :underline t))))
+     (org-done ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (org-drawer ((t (:foreground "LightSkyBlue"))))
+     (org-ellipsis ((t (:foreground "LightGoldenrod" :underline t))))
+     (org-formula ((t (:foreground "chocolate1"))))
+     (org-headline-done ((t (:foreground "LightSalmon"))))
+     (org-hide ((t (:foreground "black"))))
+     (org-latex-and-export-specials ((t (:foreground "burlywood"))))
+     (org-level-1 ((t (:foreground "LightSkyBlue"))))
+     (org-level-2 ((t (:foreground "LightGoldenrod"))))
+     (org-level-3 ((t (:foreground "Cyan1"))))
+     (org-level-4 ((t (:foreground "chocolate1"))))
+     (org-level-5 ((t (:foreground "PaleGreen"))))
+     (org-level-6 ((t (:foreground "Aquamarine"))))
+     (org-level-7 ((t (:foreground "LightSteelBlue"))))
+     (org-level-8 ((t (:foreground "LightSalmon"))))
+     (org-link ((t (:foreground "Cyan" :underline t))))
+     (org-property-value ((t (nil))))
+     (org-scheduled-previously ((t (:foreground "chocolate1"))))
+     (org-scheduled-today ((t (:foreground "PaleGreen"))))
+     (org-sexp-date ((t (:foreground "Cyan"))))
+     (org-special-keyword ((t (:foreground "LightSalmon"))))
+     (org-table ((t (:foreground "LightSkyBlue"))))
+     (org-tag ((t (:bold t :weight bold))))
+     (org-target ((t (:underline t))))
+     (org-time-grid ((t (:foreground "LightGoldenrod"))))
+     (org-todo ((t (:bold t :foreground "Pink" :weight bold))))
+     (org-upcoming-deadline ((t (:foreground "chocolate1"))))
+     (org-verbatim ((t (:foreground "grey70" :underline t))))
+     (org-warning ((t (:bold t :weight bold :foreground "Pink"))))
+     (outline-1 ((t (:foreground "LightSkyBlue"))))
+     (outline-2 ((t (:foreground "LightGoldenrod"))))
+     (outline-3 ((t (:foreground "Cyan1"))))
+     (outline-4 ((t (:foreground "chocolate1"))))
+     (outline-5 ((t (:foreground "PaleGreen"))))
+     (outline-6 ((t (:foreground "Aquamarine"))))
+     (outline-7 ((t (:foreground "LightSteelBlue"))))
+     (outline-8 ((t (:foreground "LightSalmon")))))))
+
+(defun color-theme-manoj-dark ()
+  "Color theme by Manoj Srivastava, created 2008-05-22.
+A dark background theme, with special care being taken for gnus faces."
+  (interactive)
+  (color-theme-standard)
+  (color-theme-manoj-font-lock)
+  (color-theme-manoj-gnus)
+  (color-theme-manoj-message)
+  (color-theme-manoj-erc)
+  (color-theme-manoj-org)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-manoj-dark
+       ((background-color . "black")
+        (background-mode . dark)
+        (border-color . "gold")
+        (cursor-color . "orchid")
+        (background-toolbar-color . "#cf3ccf3ccf3c")
+        (bottom-toolbar-shadow-color . "#79e77df779e7")
+        (top-toolbar-shadow-color . "#fffffbeeffff")
+        (foreground-color . "WhiteSmoke") ;peachpuff cornsilk SteelBlue LightSkyBlue
+        (mouse-color . "OrangeRed"))
+       ((CUA-mode-global-mark-cursor-color . "cyan")
+        (CUA-mode-normal-cursor-color . "yellow")
+        (CUA-mode-overwrite-cursor-color . "red")
+        (CUA-mode-read-only-cursor-color . "green"))
+       (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
+       (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
+       (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
+       (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+       (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+       (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+       (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+       (Man-overstrike-face ((t (:bold t :weight bold))))
+       (Man-underline-face  ((t (:underline t))))
+       (align-highlight-nochange-face ((t (:background "SkyBlue4"))))
+       (apropos-keybinding-face  ((t (:underline t))))
+       (apropos-label-face  ((t (:italic t))))
+       (apropos-match-face ((t (:background "SkyBlue4"))))
+       (apropos-property-face ((t (:bold t :italic t :slant italic :weight bold))))
+       (apropos-symbol-face ((t (:bold t :weight bold))))
+       (apt-utils-broken-face ((t (:foreground "red"))))
+       (apt-utils-description-face ((t (:foreground "cadet blue"))))
+       (apt-utils-field-contents-face ((t (:foreground "orange"))))
+       (apt-utils-field-keyword-face ((t (:bold t :foreground "purple" :weight bold))))
+       (apt-utils-file-face ((t (:foreground "brown"))))
+       (apt-utils-installed-status-face ((t (:italic t :slant italic))))
+       (apt-utils-normal-package-face ((t (:foreground "yellow"))))
+       (apt-utils-version-face ((t (:italic t :slant italic))))
+       (apt-utils-virtual-package-face ((t (:foreground "green"))))
+       (bbdb-company ((t (:italic t :slant italic))))
+       (bbdb-field-name ((t (:bold t :weight bold))))
+       (bbdb-field-value ((t (nil))))
+       (bbdb-name ((t (:underline t))))
+       (blank-space-face ((t (:background "DarkGray"))))
+       (blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
+       (blue ((t (:foreground "blue"))))
+       (bold ((t (:bold t :weight bold))))
+       (bold-italic ((t (:bold t :italic t :slant italic :weight bold))))
+       (border ((t (:background "gold" :foreground "black" ))))
+       (browse-kill-ring-separator-face ((t (:bold t :weight bold))))
+       (buffer-menu-buffer ((t (:bold t :weight bold))))
+       (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
+       (buffers-tab-face ((t (:background "black" :foreground "LightSkyBlue"))))
+       (button ((t (:underline t :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold ))))
+       (calendar-today-face ((t (:underline t :bold t :foreground "cornsilk"))))
+       (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
+       (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
+       (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+       (change-log-email-face ((t (:foreground "Aquamarine"))))
+       (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
+       (change-log-function-face ((t (:foreground "Aquamarine"))))
+       (change-log-list-face ((t (:foreground "LightSkyBlue"))))
+       (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
+       (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9))))
+       (clearcase-dired-checkedout-face ((t (:foreground "red"))))
+       (comint-highlight-input ((t (:bold t :weight bold))))
+       (comint-highlight-prompt ((t (:foreground "cyan1"))))
+       (compilation-column-number ((t (:foreground "PaleGreen"))))
+       (compilation-error ((t (:bold t :weight bold :foreground "Pink"))))
+       (compilation-info ((t (:bold t :foreground "Green1" :weight bold))))
+       (compilation-line-number ((t (:foreground "LightGoldenrod"))))
+       (compilation-message-face  ((t (:underline t))))
+       (compilation-warning ((t (:bold t :foreground "Orange" :weight bold))))
+       (completions-common-part ((t (:family "unknown-DejaVu Sans Mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "WhiteSmoke" :background "black" :stipple nil :height 81))))
+       (completions-first-difference ((t (:bold t :weight bold))))
+       (cscope-file-face ((t (:foreground "blue"))))
+       (cscope-function-face ((t (:foreground "magenta"))))
+       (cscope-line-face ((t (:foreground "green"))))
+       (cscope-line-number-face ((t (:foreground "red"))))
+       (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
+       (cursor ((t (:background "orchid"))))
+       (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+       (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+       (custom-changed-face ((t (:foreground "wheat" :background "blue"))))
+       (custom-comment-face ((t (:background "dim gray"))))
+       (custom-comment-tag-face ((t (:foreground "gray80"))))
+       (custom-documentation-face ((t (nil))))
+       (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
+       (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
+       (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
+       (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+       (custom-modified-face ((t (:background "blue" :foreground "white"))))
+       (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+       (custom-saved-face ((t (:underline t))))
+       (custom-set-face ((t (:background "white" :foreground "blue"))))
+       (custom-state-face ((t (:foreground "lime green"))))
+       (custom-variable-button-face ((t (:bold t :underline t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
+       (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
+       (cvs-filename-face ((t (:foreground "white"))))
+       (cvs-handled-face ((t (:foreground "pink"))))
+       (cvs-header-face ((t (:foreground "green"))))
+       (cvs-marked-face ((t (:bold t :foreground "green3"))))
+       (cvs-msg-face ((t (:foreground "red"))))
+       (cvs-need-action-face ((t (:foreground "yellow"))))
+       (cvs-unknown-face ((t (:foreground "grey"))))
+       (cyan-bold ((t (:bold t :foreground "cyan" :weight bold))))
+       (cyan-italic ((t (:italic t :foreground "cyan" :slant italic))))
+       (darkviolet-bold ((t (:bold t :foreground "dark violet" :weight bold))))
+       (darkviolet-italic ((t (:italic t :foreground "dark violet" :slant italic))))
+       (debian-changelog-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+       (default ((t (:stipple nil :background "black" :foreground "WhiteSmoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 81 :width normal :family "unknown-DejaVu Sans Mono"))))
+       (develock-bad-manner ((t (:background "Yellow" :foreground "Black"))))
+       (develock-lonely-parentheses ((t (:background "PaleTurquoise" :foreground "Blue"))))
+       (develock-long-line-1 ((t (:foreground "Orange"))))
+       (develock-long-line-2 ((t (:background "#1a1a42"))))
+       (develock-reachable-mail-address ((t (:background "LemonChiffon" :foreground "DarkGreen"))))
+       (develock-upper-case-attribute ((t (:background "Wheat" :foreground "Black"))))
+       (develock-upper-case-tag ((t (:background "PowderBlue" :foreground "Black"))))
+       (develock-whitespace-1 ((t (:background "Red" :foreground "Black"))))
+       (develock-whitespace-2 ((t (:background "Orange" :foreground "Black"))))
+       (develock-whitespace-3 ((t (:background "Yellow" :foreground "Black"))))
+       (diary ((t (:foreground "IndianRed"))))
+       (diary-anniversary ((t (:foreground "Cyan1"))))
+       (diary-button ((t (:background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
+       (diary-face ((t (:foreground "IndianRed"))))
+       (diary-time ((t (:foreground "LightGoldenrod"))))
+       (dictionary-button-face ((t (:bold t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
+       (dictionary-reference-face ((t (:foreground "yellow"))))
+       (dictionary-word-entry-face ((t (:italic t :slant italic))))
+       (diff-added-face ((t (:foreground "Green"))))
+       (diff-changed-face ((t (:foreground "Khaki"))))
+       (diff-context-face ((t (:foreground "grey70"))))
+       (diff-file-header ((t (:bold t :background "grey20"  :foreground "ivory1" :weight bold))))
+       (diff-file-header-face ((t (:bold t :background "grey20" :foreground "ivory1" :weight bold))))
+       (diff-function-face ((t (:foreground "SpringGreen1"))))
+       (diff-header-face ((t (:background "SlateBlue4"))))
+       (diff-hunk-header-face ((t (:background "DodgerBlue4"))))
+       (diff-index-face ((t (:bold t :weight bold :background "SteelBlue4" :foregounr "linen" ))))
+       (diff-index-face ((t (:bold t :weight bold :background "SteelBlue4" :foregounr "linen" ))))
+       (diff-nonexistent ((t (:bold t :weight bold :background "Black" :foreground "Wheat1"))))
+       (diff-nonexistent-face ((t (:bold t :weight bold :background "Black" :foreground "Wheat1"))))
+       (diff-removed-face ((t (:foreground "salmon1"))))
+       (dired-face-boring ((t (:foreground "Gray65"))))
+       (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
+       (dired-face-executable ((t (:foreground "Green"))))
+       (dired-face-flagged ((t (:background "DarkSlateGray" :foreground "LemonChiffon"))))
+       (dired-face-header ((t (:background "grey15" :foreground "OldLace"))))
+       (dired-face-marked ((t (:background "PaleVioletRed"))))
+       (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+       (dired-face-setuid ((t (:foreground "Red"))))
+       (dired-face-socket ((t (:foreground "magenta"))))
+       (dired-face-symlink ((t (:foreground "cyan"))))
+       (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+       (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+       (display-time-time-balloon-face ((t (:foreground "red"))))
+       (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
+       (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
+       (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
+       (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
+       (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
+       (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
+       (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
+       (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
+       (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
+       (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
+       (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
+       (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
+       (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
+       (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
+       (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
+       (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
+       (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
+       (eldoc-highlight-function-argument ((t (:bold t :weight bold))))
+       (epa-field-body ((t (:italic t :foreground "turquoise" :slant italic))))
+       (epa-field-name ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+       (epa-mark ((t (:bold t :foreground "orange" :weight bold))))
+       (epa-string ((t (:foreground "lightyellow"))))
+       (epa-validity-disabled ((t (:italic t :slant italic))))
+       (epa-validity-high ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+       (epa-validity-low ((t (:italic t :slant italic))))
+       (epa-validity-medium ((t (:italic t :foreground "PaleTurquoise" :slant italic))))
+       (escape-glyph ((t (:foreground "cyan"))))
+       (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+       (eshell-ls-backup-face ((t (:foreground "Grey"))))
+       (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+       (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
+       (eshell-ls-executable-face ((t (:foreground "Coral"))))
+       (eshell-ls-missing-face ((t (:foreground "black"))))
+       (eshell-ls-picture-face ((t (:foreground "Violet"))))
+       (eshell-ls-product-face ((t (:foreground "sandybrown"))))
+       (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+       (eshell-ls-special-face ((t (:foreground "Gold"))))
+       (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
+       (eshell-ls-symlink-face ((t (:foreground "White"))))
+       (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+       (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
+       (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
+       (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
+       (excerpt ((t (:italic t))))
+       (ff-paths-non-existent-file-face ((t (:bold t :foreground "NavyBlue" :weight bold))))
+       (file-name-shadow ((t (:foreground "grey70"))))
+       (fixed ((t (:bold t))))
+       (fixed-pitch ((t (:family "courier"))))
+       (fl-comment-face ((t (:foreground "pink"))))
+       (fl-doc-string-face ((t (:foreground "purple"))))
+       (fl-function-name-face ((t (:foreground "red"))))
+       (fl-keyword-face ((t (:foreground "cyan"))))
+       (fl-string-face ((t (:foreground "green"))))
+       (fl-type-face ((t (:foreground "yellow"))))
+       (flyspell-duplicate-face ((t (:foreground "IndianRed" :bold t :underline t))))
+       (flyspell-incorrect-face ((t (:foreground "Pink" :bold t :underline t))))
+       (font-latex-sedate-face ((t (:foreground "Gray85"))))
+       (font-latex-string-face ((t (:foreground "orange"))))
+       (font-latex-warning-face ((t (:foreground "gold"))))
+       (fringe ((t (:background "grey30" :foreground "Wheat"))))
+       (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red"))))
+       (goto-address-mail-face  ((t (:italic t :slant italic))))
+       (goto-address-mail-face  ((t (:italic t :slant italic))))
+       (goto-address-mail-mouse-face ((t (:background "SkyBlue4"))))
+       (goto-address-mail-mouse-face ((t (:background "SkyBlue4"))))
+       (goto-address-url-face  ((t (:bold t :weight bold))))
+       (goto-address-url-face  ((t (:bold t :weight bold))))
+       (green ((t (:foreground "green"))))
+       (gui-button-face ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
+       (gui-element ((t (:size "12" :background "#D4D0C8" :foreground "black"))))
+       (header-line ((t (:box (:line-width -1 :color "grey20" :style released-button) :background "grey20" :foreground "grey90"  :height 0.9 :box nil))))
+       (help-argument-name ((t (:italic t :slant italic))))
+       (help-highlight-face  ((t (:underline t))))
+       (help-highlight-face  ((t (:underline t))))
+       (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
+       (gnus-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (erc-button-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (align-highlight-change-face  ((t (:background "darkseagreen2" :foreground "blue"))))
+       (goto-address-url-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (goto-address-url-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (ispell-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (ispell-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (tinyreplace-:face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (vc-mode-face  ((t (:background "darkseagreen2" :foreground "blue"))))
+       (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
+       (widget-mouse-face  ((t (:background "darkseagreen2" :foreground "blue"))))
+       (highlight-beyond-fill-column-face ((t (:underline t))))
+       (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+       (highlight-changes-face ((t (:foreground "red"))))
+       (highline ((t (:background "darkolivegreen"))))
+       (highline-face ((t (:background "darkolivegreen"))))
+       (holiday ((t (:background "chocolate4"))))
+       (holiday-face ((t (:background "chocolate4"))))
+       (html-helper-bold-face ((t (:bold t))))
+       (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
+       (html-helper-underline-face ((t (:underline t))))
+       (hyper-apropos-documentation ((t (:foreground "white"))))
+       (hyper-apropos-heading ((t (:bold t))))
+       (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+       (hyper-apropos-major-heading ((t (:bold t))))
+       (hyper-apropos-section-heading ((t (:bold t))))
+       (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+       (ibuffer-deletion-face ((t (:foreground "red"))))
+       (ibuffer-dired-buffer-face ((t (:foreground "mediumspringgreen" :weight bold :height 1.1)))) 
+       (ibuffer-help-buffer-face  ((t (:italic t :slant oblique :foreground "chocolate1"))))
+       (ibuffer-hidden-buffer-face  ((t (:bold t :foreground "Pink" :weight bold))))
+       (ibuffer-marked-face ((t (:foreground "green"))))
+       (ibuffer-occur-match-face ((t (:bold t :foreground "Pink" :weight bold))))
+       (ibuffer-read-only-buffer-face ((t (:foreground "SteelBlue1"))))
+       (ibuffer-special-buffer-face ((t (:foreground "SteelBlue1"))))
+       (ibuffer-title-face ((t (:foreground "SteelBlue1"))))
+       (ido-first-match ((t (:bold t :weight bold))))
+       (ido-incomplete-regexp ((t (:bold t :weight bold :foreground "Pink"))))
+       (ido-indicator ((t (:background "red1" :foreground "yellow1" :width condensed))))
+       (ido-only-match ((t (:foreground "ForestGreen"))))
+       (ido-subdir ((t (:foreground "red1"))))
+       (info-menu-5 ((t (:underline t))))
+       (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+       (info-node ((t (:bold t :italic t :foreground "yellow"))))
+       (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
+       (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
+       (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
+       (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+       (isearch-fail ((t (:background "red4"))))
+       (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+       (isearch-secondary ((t (:foreground "red3"))))
+       (italic ((t (:italic t))))
+       (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+       (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+       (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+       (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+       (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+       (jde-java-font-lock-bold-face ((t (:bold t))))
+       (jde-java-font-lock-code-face ((t (nil))))
+       (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+       (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+       (jde-java-font-lock-italic-face ((t (:italic t))))
+       (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue"))))
+       (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+       (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+       (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+       (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+       (jde-java-font-lock-pre-face ((t (nil))))
+       (jde-java-font-lock-underline-face ((t (:underline t))))
+       (lazy-highlight ((t (:background "paleturquoise4"))))
+       (linemenu-face ((t (:background "gray30"))))
+       (link ((t (:foreground "cyan1" :underline t))))
+       (link-visited ((t (:underline t :foreground "violet"))))
+       (list-matching-lines-buffer-name-face  ((t (:underline t))))
+       (list-matching-lines-face ((t (:bold t :weight bold))))
+       (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
+       (magenta ((t (:foreground "magenta"))))
+       (magenta-bold ((t (:bold t :foreground "magenta2" :weight bold))))
+       (makefile-space-face ((t (:background "hotpink"))))
+       (man-bold ((t (:bold t))))
+       (man-heading ((t (:bold t))))
+       (man-italic ((t (:foreground "yellow"))))
+       (man-xref ((t (:underline t))))
+       (match ((t (:background "RoyalBlue3"))))
+       (menu ((t (nil))))
+       (midnightblue-bold ((t (:bold t :foreground "midnightblue" :weight bold))))
+       (midnightblue-italic ((t (:italic t :foreground "midnightblue" :slant italic))))
+       (minibuffer-prompt ((t (:foreground "cyan"))))
+       (mm-uu-extract ((t (:background "dark green" :foreground "light yellow"))))
+       (mode-line ((t (:background "grey75" :foreground "Blue" :box (:line-width -1 :style released-button) :height 0.9))))
+       (mode-line-buffer-id ((t (:background "grey65" :foreground "red" :bold t :weight bold :height 0.9))))
+       (mode-line-emphasis ((t (:bold t :weight bold))))
+       (mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button :height 0.9)))))
+       (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light :height 0.9))))
+       (modeline-mousable ((t (:background "white" :foreground "magenta"))))
+       (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+       (mouse ((t (:background "OrangeRed"))))
+       (next-error ((t (:background "blue3"))))
+       (nobreak-space ((t (:foreground "cyan" :underline t))))
+       (orchid-bold ((t (:bold t :foreground "MediumOrchid1" :weight bold))))
+       (p4-depot-added-face ((t (:foreground "blue"))))
+       (p4-depot-deleted-face ((t (:foreground "red"))))
+       (p4-depot-unmapped-face ((t (:foreground "grey30"))))
+       (p4-diff-change-face ((t (:foreground "dark green"))))
+       (p4-diff-del-face ((t (:foreground "red"))))
+       (p4-diff-file-face ((t (:background "gray90"))))
+       (p4-diff-head-face ((t (:background "gray95"))))
+       (p4-diff-ins-face ((t (:foreground "blue"))))
+       (pabbrev-debug-display-label-face ((t (:underline "navy"))))
+       (pabbrev-suggestions-face ((t (:foreground "PaleGreen"))))
+       (pabbrev-suggestions-label-face ((t (nil))))
+       (paren-blink-off ((t (:foreground "black"))))
+       (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
+       (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
+       (plum ((t (:bold t :foreground "plum" :weight bold))))
+       (primary-selection ((t (:background "blue"))))
+       (qt-classes-face ((t (:foreground "Red"))))
+       (query-replace ((t (:foreground "brown4" :background "palevioletred2"))))
+       (red ((t (:foreground "red"))))
+       (region ((t (:background "blue3"))))
+       (scroll-bar ((t (:background "grey75" :foreground "WhiteSmoke"))))
+       (secondary-selection ((t (:background "SkyBlue4"))))
+       (semantic-dirty-token-face ((t (:background "lightyellow"))))
+       (semantic-highlight-edits-face ((t (:background "gray20"))))
+       (semantic-unmatched-syntax-face ((t (:underline "red"))))
+       (senator-intangible-face ((t (:foreground "gray75"))))
+       (senator-momentary-highlight-face ((t (:background "gray30"))))
+       (senator-read-only-face ((t (:background "#664444"))))
+       (setnu-line-number-face  ((t (:bold t :weight bold))))
+       (sgml-doctype-face ((t (:foreground "orange"))))
+       (sgml-end-tag-face ((t (:foreground "greenyellow"))))
+       (sgml-entity-face ((t (:foreground "gold"))))
+       (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
+       (sgml-sgml-face ((t (:foreground "yellow"))))
+       (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
+       (shadow ((t (:foreground "grey70"))))
+       (shell-option-face ((t (:foreground "blue4"))))
+       (shell-output-2-face ((t (:foreground "green4"))))
+       (shell-output-3-face ((t (:foreground "green4"))))
+       (shell-output-face ((t (:bold t))))
+       (shell-prompt-face ((t (:foreground "red4"))))
+       (show-block-face1 ((t (:background "gray10"))))
+       (show-block-face2 ((t (:background "gray15"))))
+       (show-block-face3 ((t (:background "gray20"))))
+       (show-block-face4 ((t (:background "gray25"))))
+       (show-block-face5 ((t (:background "gray30"))))
+       (show-block-face6 ((t (:background "gray35"))))
+       (show-block-face7 ((t (:background "gray40"))))
+       (show-block-face8 ((t (:background "gray45"))))
+       (show-block-face9 ((t (:background "gray50"))))
+       (show-paren-match ((t (:background "steelblue3"))))
+       (show-paren-match-face ((t (:background "steelblue3"))))
+       (show-paren-mismatch ((t (:background "purple" :foreground "white"))))
+       (speedbar-button-face ((t (:foreground "green3"))))
+       (speedbar-directory-face ((t (:foreground "light blue"))))
+       (speedbar-file-face ((t (:foreground "cyan"))))
+       (speedbar-highlight-face ((t (:background "sea green"))))
+       (speedbar-selected-face ((t (:foreground "red" :underline t))))
+       (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
+       (speedbar-tag-face ((t (:foreground "yellow"))))
+       (swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
+       (table-cell ((t (:background "blue1" :foreground "gray90" :inverse-video nil))))
+       (template-message-face ((t (:bold t))))
+       (term-black ((t (:foreground "black"))))
+       (term-blackbg ((t (nil))))
+       (term-blue ((t (:foreground "blue"))))
+       (term-blue-bold-face ((t (:bold t :foreground "blue"))))
+       (term-blue-face ((t (:foreground "blue"))))
+       (term-blue-inv-face ((t (:background "blue"))))
+       (term-blue-ul-face ((t (:underline t :foreground "blue"))))
+       (term-bluebg ((t (:background "blue"))))
+       (term-bold ((t (:bold t))))
+       (term-cyan ((t (:foreground "cyan"))))
+       (term-cyan-bold-face ((t (:bold t :foreground "cyan"))))
+       (term-cyan-face ((t (:foreground "cyan"))))
+       (term-cyan-inv-face ((t (:background "cyan"))))
+       (term-cyan-ul-face ((t (:underline t :foreground "cyan"))))
+       (term-cyanbg ((t (:background "cyan"))))
+       (term-default-bg ((t (nil))))
+       (term-default-bg-inv ((t (nil))))
+       (term-default-bold-face ((t (:bold t))))
+       (term-default-face ((t (nil))))
+       (term-default-fg ((t (nil))))
+       (term-default-fg-inv ((t (nil))))
+       (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
+       (term-default-ul-face ((t (:underline t))))
+       (term-green ((t (:foreground "green"))))
+       (term-green-bold-face ((t (:bold t :foreground "green"))))
+       (term-green-face ((t (:foreground "green"))))
+       (term-green-inv-face ((t (:background "green"))))
+       (term-green-ul-face ((t (:underline t :foreground "green"))))
+       (term-greenbg ((t (:background "green"))))
+       (term-invisible ((t (nil))))
+       (term-invisible-inv ((t (nil))))
+       (term-magenta ((t (:foreground "magenta"))))
+       (term-magenta-bold-face ((t (:bold t :foreground "magenta"))))
+       (term-magenta-face ((t (:foreground "magenta"))))
+       (term-magenta-inv-face ((t (:background "magenta"))))
+       (term-magenta-ul-face ((t (:underline t :foreground "magenta"))))
+       (term-magentabg ((t (:background "magenta"))))
+       (term-red ((t (:foreground "red"))))
+       (term-red-bold-face ((t (:bold t :foreground "red"))))
+       (term-red-face ((t (:foreground "red"))))
+       (term-red-inv-face ((t (:background "red"))))
+       (term-red-ul-face ((t (:underline t :foreground "red"))))
+       (term-redbg ((t (:background "red"))))
+       (term-underline ((t (:underline t))))
+       (term-white ((t (:foreground "white"))))
+       (term-white-bold-face ((t (:bold t :foreground "white"))))
+       (term-white-face ((t (:foreground "white"))))
+       (term-white-inv-face ((t (nil))))
+       (term-white-ul-face ((t (:underline t :foreground "white"))))
+       (term-whitebg ((t (:background "white"))))
+       (term-yellow ((t (:foreground "yellow"))))
+       (term-yellow-bold-face ((t (:bold t :foreground "yellow"))))
+       (term-yellow-face ((t (:foreground "yellow"))))
+       (term-yellow-inv-face ((t (:background "yellow"))))
+       (term-yellow-ul-face ((t (:underline t :foreground "yellow"))))
+       (term-yellowbg ((t (:background "yellow"))))
+       (text-cursor ((t (:background "Red3" :foreground "black"))))
+       (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+       (tooltip ((t (:family "helv" :background "lightyellow" :foreground "black"))))
+       (trailing-whitespace ((t (:background "red1"))))
+       (underline ((t (:underline t))))
+       (variable-pitch ((t (:family "helv"))))
+       (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
+       (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
+       (vertical-border ((t (:background "dim gray"))))
+       (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+       (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+       (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+       (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+       (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
+       (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
+       (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+       (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+       (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+       (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+       (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+       (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+       (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+       (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+       (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+       (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+       (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+       (violet-bold ((t (:bold t :foreground "violet" :weight bold))))
+       (violet-italic ((t (:italic t :foreground "violet" :slant italic))))
+       (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
+       (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
+       (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
+       (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
+       (viper-search-face ((t (:foreground "Black" :background "khaki"))))
+       (vm-highlight-url-face  ((t (:bold t :italic t :slant italic :weight bold))))
+       (vm-highlighted-header-face  ((t (:bold t :weight bold))))
+       (vm-mime-button-face  ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
+       (vm-summary-highlight-face  ((t (:bold t :weight bold))))
+       (vm-xface ((t (:background "white" :foreground "black"))))
+       (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
+       (vmpc-sig-face ((t (:foreground "steelblue"))))
+       (which-func ((t (:foreground "Blue1"))))
+       (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
+       (widget-button ((t (:bold t :weight bold :box (:line-width 2 :style released-button)))))
+       (widget-button-face ((t (:bold t :weight bold :box (:line-width 2 :style released-button)))))
+       (widget-button-pressed ((t (:foreground "red1" :background "lightgrey" :box (:line-width 2 :style pressed-button)))))
+       (widget-button-pressed-face ((t (:foreground "red1" :background "lightgrey" :box (:line-width 2 :style pressed-button)))))
+       (widget-documentation ((t (:foreground "lime green"))))
+       (widget-documentation-face ((t (:foreground "lime green"))))
+       (widget-field ((t (:background "dim gray"))))
+       (widget-field-face ((t (:background "dim gray"))))
+       (widget-inactive ((t (:foreground "grey70"))))
+       (widget-inactive-face ((t (:foreground "grey70"))))
+       (widget-single-line-field ((t (:background "dim gray"))))
+       (widget-single-line-field-face ((t (:background "dim gray"))))
+       (woman-bold-face ((t (:bold t))))
+       (woman-italic-face ((t (:foreground "beige"))))
+       (woman-unknown-face ((t (:foreground "LightSalmon"))))
+       (x-face ((t (:background "white" :foreground "black"))))
+       (x-symbol-heading-face ((t (:bold t))))
+       (xrdb-option-name-face ((t (:foreground "red"))))
+       (xrdb-option-value-face ((t (:bold t :foreground "magenta"))))
+       (xref-keyword-face ((t (:background "blue"))))
+       (xref-list-default-face ((t (nil))))
+       (xref-list-pilot-face ((t (:background "navy"))))
+       (xref-list-symbol-face ((t (:background "navy"))))
+       (yellow ((t (:foreground "yellow"))))
+       (zmacs-region ((t (:background "cyan" :foreground "black"))))))))
+
+(provide 'manoj-colors)

+ 575 - 0
color-themes/color-theme-sva.el

@@ -0,0 +1,575 @@
+;;; color-theme-sva.el --- my color theme
+
+;; Copyright (C) 2003-2010 Sebastien Vauban
+;; Time-stamp: <2010-10-07 Thu 10:53 sva on mundaneum>
+
+;; This file is NOT part of GNU Emacs.
+
+;; This file is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of
+;; the License, or (at your option) any later version.
+
+;; This file is distributed in the hope that it will be
+;; useful, but WITHOUT ANY WARRANTY; without even the implied
+;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;; PURPOSE.  See the GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public
+;; License along with this file; if not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+;;* Code:
+
+(require 'color-theme)
+
+(defun color-theme-sva ()
+  "Color theme by Sebastien Vauban."
+  (interactive)
+  (let*
+      ;; inherit properties, independently of definition order
+      ((ol1 '(:family "Arial" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1"))
+       (ol2 '(:family "Arial" :height 1.6 :weight bold :box (:line-width 1 :color "#00CC00") :foreground "lime green" :background "DarkSeaGreen1"))
+       (ol3 '(:family "Arial" :height 1.3 :weight bold :foreground "#F9A049"))
+       (ol4 '(:family "Arial" :height 1.2 :weight bold :foreground "red3"))
+       (ol5 '(:family "Arial" :height 1.1 :weight bold :foreground "cornflower blue"))
+       (ol6 '(:family "Arial" :height 1.1 :weight bold :foreground "lime green"))
+       (ol7 '(:family "Arial" :height 1.1 :weight bold :foreground "#F9A049"))
+       (ol8 '(:family "Arial" :height 1.1 :weight bold :foreground "red3"))
+       (inline-code '(:foreground "blue1" :background "#EAFFEA"))
+       (block-code '(:foreground "blue1" :background "#FFFFEA"))
+       (directory '(:weight bold :foreground "blue" :background "#FFF58F"))
+       (marked-line '(:weight bold :foreground "white" :background "red"))
+       (clock-line '(:box (:line-width 1 :color "#9EABB6") :foreground "black" :background "#BFBF00"))
+       (column '(:height 1.0 :weight normal :slant normal :underline nil :strike-through nil :box (:line-width 1 :color "black") :foreground "black" :background "#EEE8AA"))
+       (symlink '(:foreground "deep sky blue")))
+    (color-theme-install
+     `(color-theme-sva
+       ;; frame parameters
+       ((background-color . "white")
+        (background-mode . light)
+        (border-color . "black")
+        (cursor-color . "#15FF00")
+        (foreground-color . "black")
+        (mouse-color . "black"))
+
+       ;; faces
+       (default ((t (nil))))
+       (bold ((t (:weight bold))))
+       (bold-italic ((t (:weight bold :slant italic))))
+       (italic ((t (:slant italic))))
+       (underline ((t (:underline t))))
+
+       ;; anything
+       (anything-header ((t (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
+       ;; under test
+       (anything-bookmarks-su-face ((t (:foreground "red"))))
+       (anything-dir-heading ((t (:foreground "blue" :background "pink"))))
+       (anything-dir-priv ((t (:foreground "dark red" :background "light grey"))))
+       (anything-file-name ((t (:foreground "blue"))))
+       (anything-gentoo-match-face ((t (:foreground "red"))))
+       (anything-isearch-match ((t (:background "yellow"))))
+       (anything-overlay-line-face ((t (:underline t :foreground "white" :background "IndianRed4"))))
+       (anything-visible-mark ((t (:foreground "black" :background "green1"))))
+       (anything-w3m-bookmarks-face ((t (:underline t :foreground "cyan1"))))
+
+       ;; bbdb
+       (bbdb-company ((t (:slant italic :foreground "steel blue"))))
+       (bbdb-field-name ((t (:weight bold :foreground "steel blue"))))
+       (bbdb-field-value ((t (:foreground "steel blue"))))
+       (bbdb-name ((t (:underline t :foreground "#FF6633"))))
+
+       ;; browse-kill-ring
+       (browse-kill-ring-separator-face ((t (:weight bold :foreground "slate gray"))))
+
+       ;; calendar
+       (calendar-today-face ((t (:weight bold :background "#CCCCFF")))) ; "yellow"
+       (diary-face ((t (:foreground "#87C9FC"))))  ;"dark cyan"
+       (holiday-face ((t (:background "#B6B2AE"))))  ; "red"
+
+       ;; IRC
+       (circe-highlight-all-nicks-face ((t (:foreground "blue"))))  ; other nicks
+       (circe-highlight-nick-face ((t (:foreground "firebrick"))))  ; message with my nick cited
+       (circe-my-message-face ((t (:foreground "red"))))
+       (circe-originator-face ((t (:foreground "blue"))))
+
+       ;; column-marker
+       (column-marker-1-face ((t (:background "DarkSeaGreen1"))))
+       (column-marker-2-face ((t (:background "lemon chiffon"))))
+       (column-marker-3-face ((t (:background "misty rose"))))
+
+       (comint-highlight-input ((t (:weight bold))))
+       (comint-highlight-prompt ((t (:foreground "blue"))))
+
+       (css-selector ((t (:weight bold :foreground "blue"))))
+
+       ;; custom
+       (custom-button-pressed-face ((t (:foreground "black" :background "light grey" :box (:line-width 2 :style pressed-button)))))
+       (custom-changed-face ((t (:foreground "white" :background "blue"))))
+       (custom-face-tag-face ((t (:underline t))))
+       (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+       (custom-modified-face ((t (:foreground "white" :background "blue"))))
+       (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+       (custom-saved-face ((t (:underline t))))
+       (custom-set-face ((t (:foreground "blue" :background "white"))))
+       (custom-state-face ((t (:foreground "green4"))))
+       (custom-variable-button-face ((t (:weight bold :underline t))))
+
+       ;; cvs
+       (cvs-filename-face ((t (:foreground "blue4"))))
+       (cvs-handled-face ((t (:foreground "pink"))))
+       (cvs-header-face ((t (:weight bold :foreground "blue4"))))
+       (cvs-marked-face ((t (:weight bold :foreground "green3"))))
+       (cvs-msg-face ((t (:slant italic :foreground "gray55"))))
+       (cvs-need-action-face ((t (:foreground "orange"))))
+       (cvs-unknown-face ((t (:foreground "red"))))
+
+       ;; diff
+       (diff-added ((t (:foreground "#2B7E2A" :background "#DDFFDD"))))
+       (diff-file-header ((t (:foreground "red" :background "#EAF2F5"))))
+       (diff-header ((t (:foreground "#999999" :background "#EAF2F5"))))
+       (diff-hunk-header ((t (:foreground "#999999" :background "#EAF2F5"))))
+       (diff-index ((t (:foreground "#4183C4" :background "#EAF2F5"))))
+       (diff-indicator-added ((t (:background "#AAFFAA"))))
+       (diff-indicator-removed ((t (:background "#FFAAAA"))))
+       (diff-removed ((t (:foreground "dark magenta" :background "#FFDDDD"))))
+
+       ;; dircolors
+       (dircolors-face-asm ((t (:foreground "black"))))
+       (dircolors-face-backup ((t (:foreground "black"))))
+       (dircolors-face-compress ((t (:foreground "red"))))
+       (dircolors-face-dir ((t ,directory)))
+       (dircolors-face-doc ((t (:foreground "black"))))
+       (dircolors-face-dos ((t (:foreground "green3"))))
+       (dircolors-face-emacs ((t (:foreground "black"))))
+       (dircolors-face-exec ((t (:foreground "green3"))))
+       (dircolors-face-html ((t (:foreground "black"))))
+       (dircolors-face-img ((t (:foreground "black"))))
+       (dircolors-face-lang ((t (:foreground "black"))))
+       (dircolors-face-lang-interface ((t (:foreground "black"))))
+       (dircolors-face-make ((t (:foreground "black"))))
+       (dircolors-face-objet ((t (:foreground "black"))))
+       (dircolors-face-package ((t (:foreground "red"))))
+       (dircolors-face-paddb ((t (:foreground "black"))))
+       (dircolors-face-ps ((t (:foreground "black"))))
+       (dircolors-face-sound ((t (:foreground "black"))))
+       (dircolors-face-tar ((t (:foreground "red"))))
+       (dircolors-face-text ((t (:foreground "black"))))
+       (dircolors-face-yacc ((t (:foreground "black"))))
+
+       ;; dired
+       (dired-face-boring ((t (:foreground "gray65"))))
+       (dired-face-directory ((t (:weight bold))))
+       (dired-face-executable ((t (:foreground "green3"))))
+       (dired-face-flagged ((t (:weight bold :foreground "white" :background "red"))))
+       (dired-face-header ((t (:foreground "black" :background "gray75"))))
+       (dired-face-marked ((t (:background "pale violet red"))))
+       (dired-face-permissions ((t (:foreground "black" :background "gray75"))))
+       (dired-face-setuid ((t (:foreground "red"))))
+       (dired-face-socket ((t (:foreground "magenta"))))
+       (dired-face-symlink ((t ,symlink)))
+
+       ;; dired+
+       (diredp-compressed-file-suffix ((t (:foreground "red"))))
+       (diredp-date-time ((t (:foreground "purple"))))
+       (diredp-dir-heading ((t ,directory)))
+       (diredp-dir-priv ((t ,directory)))
+       (diredp-exec-priv ((t (:background "green"))))
+       (diredp-executable-tag ((t (:foreground "green3" :background "white"))))
+       (diredp-file-name ((t (:foreground "black"))))
+       (diredp-file-suffix ((t (:foreground "#6DB604"))))
+       (diredp-flag-mark-line ((t ,marked-line)))
+       (diredp-ignored-file-name ((t (:strike-through t :foreground "red"))))
+       (diredp-read-priv ((t (:foreground "white" :background "blue"))))
+       (diredp-write-priv ((t (:foreground "white" :background "red"))))
+
+       ;; flypell
+       (flyspell-duplicate-face ((t (:weight bold :underline t :foreground "gold3"))))
+       (flyspell-incorrect-face ((t (:weight bold :underline t :foreground "red"))))
+
+       ;; LaTeX
+       (font-latex-bold-face ((t (:weight bold :foreground "medium sea green"))))
+       (font-latex-math-face ((t (:foreground "blue1"))))
+       (font-latex-sectioning-1-face ((t (:family "Arial" :height 2.7 :weight bold :foreground "cornflower blue"))))
+       (font-latex-sectioning-2-face ((t ,ol1)))
+       (font-latex-sectioning-3-face ((t ,ol2)))
+       (font-latex-sectioning-4-face ((t ,ol3)))
+       (font-latex-sectioning-5-face ((t ,ol4)))
+       (font-latex-sedate-face ((t (:foreground "gray45"))))
+       (font-latex-verbatim-face ((t (:foreground "tan1"))))
+
+       ;; font-lock
+       (font-lock-builtin-face ((t (:foreground "orchid"))))
+       (font-lock-comment-delimiter-face ((t (:foreground "red"))))
+       (font-lock-comment-face ((t (:slant italic :foreground "red"))))
+       (font-lock-constant-face ((t (:foreground "dark cyan"))))
+       (font-lock-doc-face ((t (:foreground "#EB4264"))))
+       (font-lock-function-name-face ((t (:foreground "blue"))))
+       (font-lock-keyword-face ((t (:foreground "purple1"))))
+       (font-lock-reference-face ((t (:foreground "dark cyan"))))
+       (font-lock-string-face ((t (:foreground "#3AA221"))))
+       (font-lock-type-face ((t (:foreground "forest green"))))
+       (font-lock-variable-name-face ((t (:foreground "magenta"))))
+       (font-lock-warning-face ((t (:weight bold :foreground "red"))))
+
+       (fringe ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
+
+       ;; Gnus
+       (gnus-cite-attribution-face ((t (:foreground "#5050B0"))))
+       (gnus-cite-face-1 ((t (:foreground "#5050B0"))))
+       (gnus-cite-face-2 ((t (:foreground "#660066"))))
+       (gnus-cite-face-3 ((t (:foreground "#007777"))))
+       (gnus-cite-face-4 ((t (:foreground "#990000"))))
+       (gnus-cite-face-5 ((t (:foreground "#000099"))))
+       (gnus-cite-face-6 ((t (:foreground "#BB6600"))))
+       (gnus-cite-face-7 ((t (:foreground "#5050B0"))))
+       (gnus-cite-face-8 ((t (:foreground "#660066"))))
+       (gnus-cite-face-9 ((t (:foreground "#007777"))))
+       (gnus-cite-face-10 ((t (:foreground "#990000"))))
+       (gnus-emphasis-bold ((t (:weight bold))))
+       (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
+       (gnus-group-mail-1-empty-face ((t (:foreground "#5050B0"))))
+       (gnus-group-mail-1-face ((t (:weight bold :foreground "#FF50B0"))))
+       (gnus-group-mail-2-empty-face ((t (:foreground "#660066"))))
+       (gnus-group-mail-2-face ((t (:weight bold :foreground "#FF0066"))))
+       (gnus-group-mail-3-empty-face ((t (:foreground "#007777"))))
+       (gnus-group-mail-3-face ((t (:weight bold :foreground "#FF7777"))))
+       (gnus-group-news-1-empty-face ((t (:foreground "#5050B0"))))
+       (gnus-group-news-1-face ((t (:weight bold :foreground "#FF50B0"))))
+       (gnus-group-news-2-empty-face ((t (:foreground "#660066"))))
+       (gnus-group-news-2-face ((t (:weight bold :foreground "#FF0066"))))
+       (gnus-group-news-3-empty-face ((t (:foreground "#007777"))))
+       (gnus-group-news-3-face ((t (:weight bold :foreground "#FF7777"))))
+       (gnus-group-news-4-empty-face ((t (:foreground "#990000"))))
+       (gnus-group-news-4-face ((t (:weight bold :foreground "#FF0000"))))
+       (gnus-group-news-5-empty-face ((t (:foreground "#000099"))))
+       (gnus-group-news-5-face ((t (:weight bold :foreground "#FF0099"))))
+       (gnus-group-news-6-empty-face ((t (:foreground "#BB6600"))))
+       (gnus-group-news-6-face ((t (:weight bold :foreground "#FF6600"))))
+       (gnus-header-content-face ((t (:family "Arial" :foreground "#3399CC"))))
+       (gnus-header-from-face ((t (:family "Arial" :foreground "blue"))))
+       (gnus-header-name-face ((t (:family "Arial" :weight bold :foreground "#3399CC"))))
+       (gnus-header-newsgroups-face ((t (:family "Arial" :foreground "#3399CC"))))
+       (gnus-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
+       (gnus-picon-face ((t (:foreground "yellow" :background "white"))))
+       (gnus-picon-xbm-face ((t (:foreground "yellow" :background "white"))))
+       (gnus-signature-face ((t (:foreground "#7F7F7F"))))
+       (gnus-splash-face ((t (:foreground "gold"))))
+       (gnus-summary-cancelled-face ((t (:slant italic :strike-through t :foreground "gray55"))))
+       (gnus-summary-high-ancient-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
+       (gnus-summary-high-read-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
+       (gnus-summary-high-ticked-face ((t (:weight normal :foreground "#009900"))))
+       (gnus-summary-high-unread-face ((t (:weight normal :foreground "#1A44B6"))))
+       (gnus-summary-low-ancient-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
+       (gnus-summary-low-read-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
+       (gnus-summary-low-ticked-face ((t (:slant italic :foreground "#009900"))))
+       (gnus-summary-low-unread-face ((t (:slant italic :foreground "gray50"))))
+       (gnus-summary-normal-ancient-face ((t (:foreground "black" :background "#E0E0E0"))))
+       (gnus-summary-normal-read-face ((t (:foreground "black" :background "#E0E0E0"))))
+       (gnus-summary-normal-ticked-face ((t (:foreground "#009900"))))
+       (gnus-summary-normal-unread-face ((t (:foreground "black"))))
+       (gnus-summary-selected-face ((t (:background "#FFD0D0"))))
+       (gnus-x-face ((t (:foreground "black" :background "white"))))
+
+       (highlight ((t (:background "#FFFFA0"))))  ; used by hlt package of Drew Adams
+       (highlight-symbol-face ((t (:background "#FFFFA0"))))
+       (hl-line ((t (:background "cornsilk3"))))  ; #E6FEC0 or #D4EAFF
+
+       (html-helper-bold-face ((t (:weight bold :foreground "black"))))
+       (html-helper-italic-face ((t (:slant italic :foreground "black"))))
+       (html-helper-underline-face ((t (:underline t :foreground "black"))))
+       (html-tag-face ((t (:foreground "blue"))))
+
+       ;; Info / info+
+       (info-file ((t (:family "Arial" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1")))) 
+       (info-header-node ((t (:underline t :foreground "orange"))))  ; nodes in header
+       (info-header-xref ((t (:underline t :foreground "dodger blue"))))  ; cross references in header
+       (info-menu-header ((t (:family "Arial" :height 1.6 :weight bold :underline t :foreground "#00CC00"))))  ; menu titles (headers) -- major topics
+       (info-menu-star ((t (:foreground "black"))))  ; every 3rd menu item
+       (info-node ((t (:underline t :foreground "blue"))))  ; node names
+       (info-quoted-name ((t ,inline-code)))
+       (info-string ((t (:foreground "green4"))))  ; strings ("...")
+       (info-title-1-face ((t (:family "Arial" :height 1.6 :weight bold :box (:line-width 1 :color "#00CC00") :foreground "lime green" :background "DarkSeaGreen1"))))
+       (info-title-2-face ((t (:family "Arial" :height 1.3 :weight bold :foreground "#F9A049"))))
+       (info-title-3-face ((t (:family "Arial" :height 1.2 :weight bold :foreground "red3"))))
+       (info-xref ((t (:weight bold :underline t :foreground "blue"))))  ; unvisited cross-references
+       (info-xref-visited ((t (:weight bold :foreground "magenta4"))))  ; previously visited cross-references
+
+       ;; highlighting matches
+       (isearch ((t (:weight bold :foreground "#EE6600" :background "yellow"))))
+       (isearch-lazy-highlight-face ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for GNU Emacs
+       (isearch-secondary ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for XEmacs
+
+       (light-symbol-face ((t (:background "#FFFFA0"))))
+
+       (linum ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
+
+       ;; IRC
+       (lui-button-face ((t (:underline t :foreground "blue"))))
+       (lui-highlight-face ((t (:foreground "red"))))  ; my nick
+       (lui-time-stamp-face ((t (:foreground "orange"))))
+
+       ;; (magit-branch ((t )))
+       (magit-diff-add ((t (:inherit diff-added))))
+       (magit-diff-del ((t (:inherit diff-removed))))
+       ;; (magit-diff-file-header ((t )))
+       ;; (magit-diff-hunk-header ((t )))
+       ;; (magit-diff-none ((t )))
+       ;; (magit-header ((t )))
+       ;; (magit-item-highlight ((t )))
+       ;; (magit-item-mark ((t )))
+       ;; (magit-log-head-label ((t )))
+       ;; (magit-log-tag-label ((t )))
+       ;; (magit-section-title ((t )))
+
+       ;; make
+       (makefile-space-face ((t (:background "hot pink"))))
+       (makefile-targets ((t (:weight bold :foreground "blue"))))
+
+       (match ((t (:weight bold :foreground "#EE6600" :background "yellow"))))
+
+       ;; Message
+       (message-cited-text-face ((t (:foreground "#5050B0"))))
+       (message-header-cc-face ((t (:family "Arial" :foreground "blue"))))
+       (message-header-name-face ((t (:family "Arial" :weight bold :foreground "#3399CC"))))
+       (message-header-newsgroups-face ((t (:family "Arial" :foreground "#3399CC"))))
+       (message-header-other-face ((t (:family "Arial" :foreground "#3399CC"))))
+       (message-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
+       (message-header-to-face ((t (:family "Arial" :foreground "blue"))))
+       (message-header-xheader-face ((t (:foreground "red"))))
+       (message-mml-face ((t (:foreground "forest green"))))
+       (message-separator-face ((t (:family "Arial" :weight bold :foreground "red"))))
+
+       (minibuffer-prompt ((t (:weight bold :foreground "#FF6633"))))
+
+       ;; GNU Emacs mode-line
+       (mode-line ((t (:box (:line-width 1 :color "#9EABB6") :foreground "#FFC77F" :background "#0097CB"))))
+       (mode-line-buffer-id ((t (:weight bold :foreground "white" :background "#0097CB"))))
+       (mode-line-highlight ((t (:foreground "yellow"))))
+       (mode-line-inactive ((t (:box (:line-width 1 :color "#9EABB6") :foreground "#617A82" :background "#006382"))))
+
+       ;; XEmacs modeline
+       (modeline-mousable ((t (:foreground "firebrick"))))  ; major-mode string
+       (modeline-mousable-minor-mode ((t (:foreground "green4"))))
+
+       ;; non-breaking space
+       (nobreak-space ((t (:background "#C6C3C6"))))
+
+       (nxml-attribute-local-name-face ((t (:foreground "magenta"))))
+       (nxml-attribute-value-delimiter-face ((t (:foreground "green4"))))
+       (nxml-attribute-value-face ((t (:foreground "green4"))))
+       (nxml-comment-content-face  ((t (:slant italic :foreground "red"))))
+       (nxml-comment-delimiter-face ((t (:foreground "red"))))
+       (nxml-element-local-name-face ((t (:foreground "blue"))))
+       (nxml-processing-instruction-delimiter-face ((t (:foreground "purple1"))))
+       (nxml-processing-instruction-target-face ((t (:foreground "purple1"))))
+       (nxml-tag-delimiter-face ((t (:foreground "blue"))))
+       (nxml-tag-slash-face ((t (:foreground "blue"))))
+
+       ;; Org
+       (org-agenda-clocking ((t ,clock-line)))
+       (org-agenda-column-dateline ((t (:inherit org-column))))
+       ;; (org-agenda-column-dateline ((t (:background "deep sky blue" :height 79 :family "Consolas"))))
+       (org-agenda-date ((t (:height 1.6 :weight bold :foreground "#0063F5")))) ; "87C9FC"
+       ;; (org-agenda-date ((t (:foreground "blue1"))))
+       (org-agenda-date-today ((t (:foreground "purple"))))  ; "#CCCCFF"  ; inherit
+       ;; (org-agenda-date-today ((t (:slant italic :weight bold :foreground "blue1"))))
+       (org-agenda-date-weekend ((t (:foreground "dim gray"))))  ; "#B6B2AE"  ; inherit
+       ;; (org-agenda-date-weekend ((t (:weight bold :foreground "blue1"))))
+       (org-agenda-diary ((t (:weight bold :foreground "green4" :background "light blue"))))
+       (org-agenda-dimmed-todo-face ((t (:foreground "gold2"))))  ; org-blocked-todo
+       (org-agenda-done ((t (:foreground "gray50" :background "#EAFFEA"))))
+       (org-agenda-restriction-lock ((t (:foreground "white" :background "SkyBlue4"))))
+       (org-agenda-structure ((t (:foreground "#008ED1"))))
+       (org-archived ((t (:foreground "gray70"))))
+       (org-beamer-tag ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
+       (org-block ((t ,block-code)))
+       (org-checkbox ((t (:weight bold :background "gray"))))
+       (org-clock-overlay ((t (:foreground "white" :background "SkyBlue4"))))
+       (org-code ((t ,inline-code)))
+       (org-column ((t ,column)))
+       ;; (org-column ((t (:background "gold" :height 79 :family "Consolas"))))
+       (org-column-title ((t (:inherit org-column))))
+       ;; (org-column-title ((t (:background "gold" :height 79 :family "Consolas"))))
+       (org-date ((t (:underline t :foreground "purple"))))
+       (org-dim ((t (:foreground "#AAAAAA"))))
+       (org-document-info ((t (:foreground "midnight blue"))))
+       (org-document-info-keyword ((t (:foreground "#008ED1" :background "#EAEAFF"))))
+       (org-document-title ((t (:family "Arial" :height 1.8 :weight bold :foreground "blue"))))
+       (org-done ((t (:weight bold :box (:line-width 1 :color "black") :foreground "gray31"))))
+       ;; (org-done ((t (:foreground "green3" :weight bold :strike-through t))))
+       (org-drawer ((t (:foreground "light sky blue"))))
+       (org-ellipsis ((t (:foreground "white"))))
+       (org-footnote ((t (:underline t :foreground "#008ED1"))))
+       (org-formula ((t (:foreground "chocolate1"))))
+       (org-headline-done ((t (:family "Arial" :height 1.6 :weight bold :strike-through t :box (:line-width 1 :color "gray67") :foreground "gray67" :background "gray92"))))
+       (org-latex-and-export-specials ((t (:foreground "blue1"))))
+       (org-level-1 ((t ,ol1)))
+       (org-level-2 ((t ,ol2)))
+       (org-level-3 ((t ,ol3)))
+       (org-level-4 ((t ,ol4)))
+       (org-level-5 ((t ,ol5)))
+       (org-level-6 ((t ,ol6)))
+       (org-level-7 ((t ,ol7)))
+       (org-level-8 ((t ,ol8)))
+       (org-meta-line ((t (:foreground "#008ED1" :background "#EAEAFF"))))
+       (org-mode-line-clock ((t ,clock-line)))
+       (org-mode-line-clock-overrun ((t (:weight bold :box (:line-width 1 :color "#9EABB6") :foreground "white" :background "#FF4040"))))
+       (org-property-value ((t (nil))))
+       (org-scheduled ((t (:foreground "blue"))))
+       (org-scheduled-previously ((t (:foreground "red"))))
+       (org-scheduled-today ((t (:foreground "#00BB00"))))
+       (org-sexp-date ((t (:foreground "purple"))))
+       (org-special-keyword ((t (:foreground "#00BB00" :background "#EAFFEA"))))
+       (org-table ((t (:foreground "blue1" :background "#EAFFEA"))))
+       (org-tag ((t (:height 1.0 :weight bold :slant italic :foreground "#816A7D" :background "#F7B8DE"))))
+       (org-target ((t (:underline t))))
+       (org-time-grid ((t (:foreground "#008ED1"))))
+       (org-todo ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
+       (org-upcoming-deadline ((t (:foreground "#FF5555"))))
+       ;; (org-upcoming-deadline ((t (:foreground "white" :background "#E9A36A" :weight bold))))
+       (org-verbatim ((t ,inline-code)))
+       (org-warning ((t (:weight bold :foreground "#D80000" :background "white"))))
+
+       ;; Org non-standard faces
+       (my/org-deadline-later ((t (:foreground "black" :background "#AACAFC"))))
+       (my/org-deadline-today ((t (:weight bold :foreground "white" :background "#E9A36A"))))
+       (my/org-deadline-tomorrow ((t (:weight bold :foreground "black" :background "#B4F1B3"))))
+       (my/org-deadline-yesterday ((t (:weight bold :foreground "white" :background "#D80000"))))
+
+       (my/org-started-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "black" :background "#FF9000"))))
+       (my/org-waiting-kwd-face ((t (:weight bold :box (:line-width 1 :color "#00CC00") :foreground "black" :background "chartreuse"))))
+       (my/org-delegated-kwd-face ((t (:weight bold :box (:line-width 1 :color "#00CC00") :foreground "black" :background "chartreuse"))))
+       (my/org-deferred-kwd-face ((t (:weight bold :box (:line-width 1 :color "steel blue") :foreground "black" :background "cyan"))))
+       (my/org-someday-kwd-face ((t (:weight bold :box (:line-width 1 :color "steel blue") :foreground "black" :background "cyan"))))
+       (my/org-canceled-kwd-face ((t (:weight bold :box (:line-width 1 :color "#D80000") :foreground "red" :background "cyan"))))
+
+       (my/org-quote-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
+       (my/org-quoted-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "black" :background "#FF9000"))))
+       (my/org-approved-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "black" :background "chartreuse"))))
+       (my/org-rejected-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "red" :background "cyan"))))
+       (my/org-expired-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "gray31"))))
+
+       (my/org-openpo-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "white" :background "#FF5555"))))
+       (my/org-closedpo-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "white" :background "gray31"))))
+
+       ;; pabbrev
+       (pabbrev-debug-display-label-face ((t (:background "chartreuse"))))
+       (pabbrev-suggestions-label-face ((t (:weight bold :foreground "white" :background "purple"))))
+       (pabbrev-suggestions-face ((t (:weight bold :foreground "white" :background "red"))))
+
+       ;; parentheses
+       (paren-face-match ((t (:background "chartreuse"))))
+       (paren-face-mismatch ((t (:weight bold :foreground "white" :background "purple"))))
+       (paren-face-no-match ((t (:weight bold :foreground "white" :background "purple"))))
+
+       (pesche-space ((t (:background "lemon chiffon"))))
+       (pesche-tab ((t (:background "gold"))))
+
+       ;; pretty print ^L
+       (pp^L-highlight ((t (:strike-through t :inherit shadow))))
+
+       (recover-this-file ((t (:foreground "white" :background "red"))))
+
+       ;; selection, selected region
+       (region ((t (:background "#D2D9E0"))))  ; for GNU Emacs ; was seashell2
+       (zmacs-region ((t (:background "gray84"))))  ; for XEmacs
+
+       (secondary-selection ((t (:foreground "purple" :background "yellow"))))  ; used by Org-mode for highlighting matched entries and keywords
+
+       ;; for `cat <<EOF' in shell scripts
+       (sh-heredoc ((t (:foreground "blue1"))))
+
+       ;; shell
+       (shell-option-face ((t (:foreground "forest green"))))
+       (shell-output-2-face ((t (:foreground "blue"))))
+       (shell-output-3-face ((t (:foreground "purple"))))
+       (shell-output-face ((t (:foreground "black"))))
+       (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
+
+       ;; parentheses
+       (show-paren-match-face ((t (:background "chartreuse"))))
+       (show-paren-mismatch-face ((t (:weight bold :foreground "white" :background "purple"))))
+
+       ;; speedbar
+       (speedbar-button-face ((t (:foreground "green4"))))
+       (speedbar-directory-face ((t (:foreground "blue4"))))
+       (speedbar-file-face ((t (:foreground "cyan4"))))
+       (speedbar-highlight-face ((t (:background "green"))))
+       (speedbar-selected-face ((t (:underline t :foreground "red"))))
+       (speedbar-tag-face ((t (:foreground "brown"))))
+
+       ;; subversion
+       (svn-status-directory-face ((t ,directory)))
+       (svn-status-filename-face ((t (:foreground "magenta3"))))
+       (svn-status-locked-face ((t (:weight bold :foreground "red"))))
+       (svn-status-marked-face ((t ,marked-line)))
+       (svn-status-marked-popup-face ((t (:weight bold :foreground "green3"))))
+       (svn-status-switched-face ((t (:slant italic :foreground "gray55"))))
+       (svn-status-symlink-face  ((t ,symlink)))
+       (svn-status-update-available-face ((t (:foreground "orange"))))
+
+       ;; TeX
+       (tex-verbatim ((t (:foreground "blue1"))))
+
+       ;; tool-bar
+       (tool-bar ((t (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
+
+       ;; tooltip
+       (tooltip ((t (:foreground "black" :background "light yellow"))))
+
+       ;; show trailing whitespace
+       (trailing-whitespace ((t (:background "#D5FFD5"))))
+
+       (traverse-match-face ((t (:weight bold :foreground "blue violet"))))
+
+       ;; w3m
+       (w3m-anchor ((t (:foreground "blue"))))
+       (w3m-arrived-anchor ((t (:foreground "purple1"))))
+       (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
+       (w3m-bold ((t (:weight bold :foreground "medium sea green"))))
+       (w3m-current-anchor ((t (:weight bold :underline t :foreground "blue"))))
+       (w3m-form ((t (:underline t :foreground "tan1"))))
+       (w3m-form-button-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
+       ;; (w3m-form-button-face ((t (:background "lightgray" :foreground "black"))))
+       (w3m-form-button-mouse-face ((t (:underline t :foreground "light grey" :background "#2B7E2A"))))
+       ;; (w3m-form-button-mouse-face ((t (:background "orange"))))
+       (w3m-form-button-pressed-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
+       ;; (w3m-form-button-pressed-face ((t (:background "yellow"))))
+       (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
+       (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
+       (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))
+       ;; (w3m-history-current-url-face ((t (:foreground "LightSkyBlue" :background "SkyBlue4"))))
+       (w3m-image-face ((t (:weight bold :foreground "DarkSeaGreen2"))))
+       (w3m-link-numbering ((t (:foreground "#B4C7EB"))))     ;; mouseless browsing
+       (w3m-strike-through-face ((t (:strike-through t))))
+       (w3m-underline-face ((t (:underline t))))
+       ;; (w3m-tab-background-face ((t (:foreground "white" :background "#21364B"))))
+       ;; (w3m-tab-selected-face ((t (:foreground "black" :background "Gray85" :box (:line-width 1 :style nil)))))
+       ;; (w3m-tab-selected-retrieving-face ((t (:background "gray85" :foreground "white" :box (:line-width -1 :style nil)))))
+       ;; (w3m-tab-unselected-face ((t (:foreground "gray20" :background "gray70" :box (:line-width 1 :style nil)))))
+       ;; (w3m-tab-unselected-retrieving-face ((t (:foreground "white" :background "gray50" :box (:line-width -1 :style nil)))))
+
+       (widget-button-face ((t (:weight bold))))
+       (widget-button-pressed-face ((t (:foreground "red"))))
+       (widget-documentation-face ((t (:foreground "green4"))))
+       (widget-field-face ((t (:background "gray85"))))
+       (widget-inactive-face ((t (:foreground "dim gray"))))
+       (widget-single-line-field-face ((t (:background "gray85"))))
+       ))))
+
+(add-to-list 'color-themes
+             '(color-theme-sva "Sva" "Sebastien Vauban"))
+
+(provide 'color-theme-sva)
+
+
+;; This is for the sake of Emacs.
+;; Local Variables:
+;; ispell-local-dictionary: "en_US"
+;; mode: outline-minor
+;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode))
+;; End:
+
+;;; color-theme-sva.el ends here

+ 194 - 0
color-themes/color-theme-tangotango.el

@@ -0,0 +1,194 @@
+;;; Emacs Color theme based on the Tango Palette colors. 
+;;; First derived from color-theme-tango.el,  created by danranx@gmail.com :
+;;; http://www.emacswiki.org/emacs/color-theme-tango.el
+
+;; Copyright (C) 2010 Julien Barnier <julien@nozav.org>
+
+;; Project homepage : http://blog.nozav.org/post/2010/07/12/Updated-tangotango-emacs-color-theme
+
+;; This file is NOT part of GNU Emacs.
+
+;; This is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 2, or (at your option) any later
+;; version.
+
+;; This file is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with Emacs; see the file COPYING, or type `C-h C-c'. If not,
+;; write to the Free Software Foundation at this address:
+
+;;   Free Software Foundation
+;;   51 Franklin Street, Fifth Floor
+;;   Boston, MA 02110-1301
+;;   USA
+
+;;; Code:
+
+(eval-when-compile
+  (require 'color-theme))
+
+(defun color-theme-tangotango ()
+  "A color theme based on Tango Palette colors."
+  ;; Color codes :
+  ;; - blue :       "dodger blue"
+  ;; - yellow :     "#edd400"
+  ;; - green :      "#6ac214"
+  ;; - orange/red : "tomato"
+  (interactive)
+  (color-theme-install
+   '(color-theme-tangotango
+     ((background-color . "#000000")
+      (background-mode . dark)
+      (border-color . "#888a85")
+      (cursor-color . "#fce94f")
+      (foreground-color . "#eeeeec")
+      (mouse-color . "#8ae234"))
+     ((help-highlight-face . underline)
+      (ibuffer-dired-buffer-face . font-lock-function-name-face)
+      (ibuffer-help-buffer-face . font-lock-comment-face)
+      (ibuffer-hidden-buffer-face . font-lock-warning-face)
+      (ibuffer-occur-match-face . font-lock-warning-face)
+      (ibuffer-read-only-buffer-face . font-lock-type-face)
+      (ibuffer-special-buffer-face . font-lock-keyword-face)
+      (ibuffer-title-face . font-lock-type-face))
+     (highlight ((t (:background "brown4" :foreground nil))))
+     (border ((t (:background "#888a85"))))
+     (fringe ((t (:background "grey10"))))
+     (mode-line ((t (:foreground "#bbbbbc" :background "#222222" :box (:line-width 1 :color nil :style released-button)))))
+     (mode-line-inactive ((t (:foreground "#bbbbbc" :background "#555753"))))
+     (mode-line-buffer-id ((t (:bold t :foreground "orange" :background nil))))
+     (region ((t (:background "dark slate blue"))))
+     (link ((t (:underline t :foreground "dodger blue"))))
+     (custom-link ((t (:inherit 'link))))
+     (match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
+     (tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
+     (tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
+     (bold ((t (:bold t :underline nil :background nil))))
+     (italic ((t (:italic t :underline nil :background nil))))
+     (font-lock-builtin-face ((t (:foreground "#729fcf"))))
+     (font-lock-comment-face ((t (:foreground "#888a85"))))
+     (font-lock-constant-face ((t (:foreground "#8ae234"))))
+     (font-lock-doc-face ((t (:foreground "#888a85"))))
+     (font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
+     (font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
+     (font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
+     (font-lock-variable-name-face ((t (:foreground "tomato"))))
+     (font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
+     (font-lock-function-name-face ((t (:foreground "#edd400" :bold t))))
+     (comint-highlight-input ((t (:italic t :bold t))))
+     (comint-highlight-prompt ((t (:foreground "#8ae234"))))
+     (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
+     (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
+     (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
+     (show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
+     (minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
+     (info-xref ((t (:foreground "#729fcf"))))
+     (info-xref-visited ((t (:foreground "#ad7fa8"))))
+     (diary-face ((t (:bold t :foreground "IndianRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
+     (widget-button ((t (:bold t))))
+     (widget-mouse-face ((t (:bold t :foreground "white" :background "brown4"))))
+     (widget-field ((t (:foreground "orange" :background "gray30"))))
+     (widget-single-line-field ((t (:foreground "orange" :background "gray30"))))
+     (custom-group-tag ((t (:bold t :foreground "#edd400" :height 1.3))))
+     (custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
+     (custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
+     (custom-state-face ((t (:foreground "#729fcf"))))
+     (custom-button  ((t (:box (:line-width 1 :style released-button) :background "grey50" :foreground "black"))))
+     (custom-variable-button ((t (:inherit 'custom-button))))
+     (custom-button-mouse  ((t (:inherit 'custom-button :background "grey60"))))
+     (custom-button-unraised  ((t (:background "grey50" :foreground "black"))))
+     (custom-button-mouse-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
+     (custom-button-pressed  ((t (:inherit 'custom-button :box (:style pressed-button)))))
+     (custom-button-mouse-pressed-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
+     (custom-documentation ((t (:italic t))))
+     (message-cited-text ((t (:foreground "#edd400")))) 
+     (gnus-cite-face-1 ((t (:foreground "#ad7fa8"))))
+     (gnus-cite-face-2 ((t (:foreground "sienna4"))))
+     (gnus-cite-face-3 ((t (:foreground "khaki4"))))
+     (gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "#729fcf"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "#edd400"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "#729fcf"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "#edd400"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "dodger blue"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "dodger blue"))))
+     (gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
+     (gnus-header-from ((t (:bold t :foreground "#edd400"))))
+     (gnus-header-subject ((t (:foreground "#edd400"))))
+     (gnus-header-content ((t (:italic t :foreground "#8ae234"))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+     (gnus-signature-face ((t (:italic t :foreground "dark grey"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "rotal blue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "lime green"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "tomato"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "white"))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "lime green"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "royal blue"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "dark red"))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "royal blue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "lime green"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "indian red"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "white"))))
+     (gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
+     (message-header-name-face ((t (:foreground "tomato"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+     (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+     (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
+     (message-header-subject ((t (:foreground "white"))))
+     (message-header-to ((t (:foreground "white"))))
+     (message-header-cc ((t (:foreground "white"))))
+     (org-hide ((t (:foreground "#2e3436"))))
+     (org-level-1 ((t (:bold t :foreground "dodger blue" :height 1.5))))
+     (org-level-2 ((t (:bold nil :foreground "#edd400" :height 1.2))))
+     (org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
+     (org-level-4 ((t (:bold nil :foreground "tomato" :height 1.0))))
+     (org-date ((t (:underline t :foreground "magenta3"))))
+     (org-footnote  ((t (:underline t :foreground "magenta3"))))
+     (org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
+     (org-special-keyword ((t (:foreground "brown"))))
+     (org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
+     (org-block ((t (:foreground "#bbbbbc"))))
+     (org-quote ((t (:inherit org-block :slant italic))))
+     (org-verse ((t (:inherit org-block :slant italic))))
+     (org-todo ((t (:bold t :foreground "Red"))))
+     (org-done ((t (:bold t :foreground "ForestGreen"))))
+     (org-agenda-structure ((t (:weight bold :foreground "tomato"))))
+     (org-agenda-date ((t (:foreground "#6ac214"))))
+     (org-agenda-date-weekend ((t (:weight normal :foreground "dodger blue"))))
+     (org-agenda-date-today ((t (:weight bold :foreground "#edd400"))))
+     (anything-header ((t (:bold t :background "grey15" :foreground "#edd400"))))
+     (ess-jb-comment-face ((t (:background "#2e3436" :foreground "firebrick" :slant italic))))
+     (ess-jb-hide-face ((t (:background "#2e3436" :foreground "#243436"))))
+     (ess-jb-h1-face ((t (:height 1.6 :foreground "dodger blue" :slant normal))))
+     (ess-jb-h2-face ((t (:height 1.4 :foreground "#6ac214" :slant normal))))
+     (ess-jb-h3-face ((t (:height 1.2 :foreground "#edd400" :slant normal))))
+     (ecb-default-highlight-face ((t (:background "#729fcf"))))
+     (ecb-tag-header-face ((t (:background "#f57900"))))
+     (magit-header ((t (:foreground "#edd400"))))
+     (magit-diff-add ((t (:foreground "#729fcf"))))
+     (magit-item-highlight ((t (:weight extra-bold :inverse-video t))))
+)))
+
+(provide 'color-theme-tangotango)

+ 978 - 0
color-themes/color-theme-zenash.el

@@ -0,0 +1,978 @@
+;;; zenash.el --- a low-saturation, light-background version of zenburn.
+;; Author: Yavuz Arkun
+
+;; Original Author of zenburn.el: Daniel Brockman <daniel@brockman.se>
+;; 
+;; 
+
+;; This file is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of
+;; the License, or (at your option) any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty
+;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+;; See the GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public
+;; License along with GNU Emacs; if not, write to the Free
+;; Software Foundation, 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Some packages ship with broken implementations of `format-spec';
+;; for example, stable versions of TRAMP and ERC do this.  To fix
+;; this, you can put the following at the end of your ~/.emacs:
+
+;;   (unless (zenash-format-spec-works-p)
+;;     (zenash-define-format-spec))
+
+;; Thanks to Jani Nurminen, who created the original zenburn color
+;; theme for vim.  I'm just copying him. :-)
+
+;;; Short-Term Wishlist:
+
+;; Theme the ansi-term faces `term-red', etc., and the ERC faces
+;; `fg:erc-color-face1', etc.
+
+;; Theme `gnus-server-offline-face', `gnus-server-opened-face', and
+;; `gnus-server-denied-face'.  First, find out what they hell they do.
+
+;; Theme `gnus-emphasis-highlight-words' after finding out what it
+;; does.
+
+;; Theme `emms-stream-name-face' and `emms-stream-url-face'.
+
+;; Theme `ido-indicator-face'.
+
+;;; Code:
+
+(require 'color-theme)
+
+(defvar zenash-fg            "#4F4C48")
+(defvar zenash-fg+1          "#363431")
+(defvar zenash-fg+2          "#262421")
+
+(defvar zenash-bg-3          "#D1CDC5")
+(defvar zenash-bg-2          "#C9C5BD")
+(defvar zenash-bg-1          "#C1BDB5")
+(defvar zenash-bg            "#B0ACA5")
+(defvar zenash-bg+1          "#A39F99")
+(defvar zenash-bg+2          "#918C84")
+
+(defvar zenash-selection-bg  "#858A8C")
+(defvar zenash-selection-fg  "#E6E5E0")
+
+(defvar zenash-dark-gray     "#575753")
+(defvar zenash-light-blue    "#5181B4")
+(defvar zenash-light-cyan    "#6B9898")
+(defvar zenash-light-green   "#7E9B62")
+(defvar zenash-light-magenta "#895E84")
+(defvar zenash-light-red     "#CB5151")
+(defvar zenash-light-yellow  "#C1A128")
+(defvar zenash-white         "#F0EEE4")
+(defvar zenash-black         "#000000")
+(defvar zenash-dark-blue     "#1D5193")
+(defvar zenash-dark-cyan     "#338F96")
+(defvar zenash-dark-green    "#4D6B31")
+(defvar zenash-dark-magenta  "#56355C")
+(defvar zenash-dark-red      "#993D3D")
+(defvar zenash-dark-yellow   "#C08B18")
+(defvar zenash-light-gray    "#ADB3B5")
+
+(defvar zenash-ll-1          "#606060")
+(defvar zenash-ll-2          "#708070")
+
+(defvar zenash-yellow        zenash-dark-yellow)
+(defvar zenash-yellow-1      "#e0cf9f")
+(defvar zenash-yellow-2      "#C4A244")
+(defvar zenash-yellow-3      zenash-light-yellow)
+
+(defvar zenash-orange        "#D38226")
+(defvar zenash-brown         "#6B3722")
+
+(defvar zenash-red+1         "#dca3a3")
+(defvar zenash-red           zenash-dark-red)
+(defvar zenash-red-1         "#8C5D5D")
+(defvar zenash-red-2         "#BF7575")
+(defvar zenash-red-3         "#9c6363")
+(defvar zenash-red-4         zenash-light-red)
+
+(defvar zenash-green-1       "#457C7D")
+(defvar zenash-green         zenash-dark-green)
+(defvar zenash-green+1       "#457C7D")
+(defvar zenash-green+2       "#457C7D")
+(defvar zenash-green+3       "#457C7D")
+(defvar zenash-green+4       zenash-light-green)
+
+(defvar zenash-blue+1        "#94bff3")
+(defvar zenash-blue          zenash-dark-blue)
+(defvar zenash-blue-1        "#3E80B4")
+(defvar zenash-blue-2        "#547093")
+(defvar zenash-blue-3        "#718093")
+(defvar zenash-blue-4        zenash-light-blue)
+
+(defvar zenash-cyan          zenash-dark-cyan)
+
+(defvar font-lock-pseudo-keyword-face 'font-lock-pseudo-keyword-face)
+(defvar font-lock-operator-face 'font-lock-operator-face)
+
+(defun zenash-format-spec-works-p ()
+  (and (fboundp 'format-spec)
+       (= (next-property-change
+           0 (format-spec #("<%x>" 0 4 (face (:weight bold)))
+                          '((?x . "foo"))) 4) 4)))
+
+(defun zenash-format-spec (format specification)
+  "Return a string based on FORMAT and SPECIFICATION.
+FORMAT is a string containing `format'-like specs like \"bash %u %k\",
+while SPECIFICATION is an alist mapping from format spec characters
+to values."
+  (with-temp-buffer
+    (insert format)
+    (goto-char (point-min))
+    (while (search-forward "%" nil t)
+      (cond
+       ;; Quoted percent sign.
+       ((eq (char-after) ?%)
+        (delete-char 1))
+       ;; Valid format spec.
+       ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
+        (let* ((num (match-string 1))
+               (spec (string-to-char (match-string 2)))
+               (val (cdr (assq spec specification))))
+          (unless val
+            (error "Invalid format character: %s" spec))
+          (let ((text (format (concat "%" num "s") val)))
+            (insert-and-inherit text)
+            ;; Delete the specifier body.
+            (delete-region (+ (match-beginning 0) (length text))
+                           (+ (match-end 0) (length text)))
+            ;; Delete the percent sign.
+            (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
+       ;; Signal an error on bogus format strings.
+       (t
+        (error "Invalid format string"))))
+    (buffer-string)))
+
+(defun zenash-define-format-spec ()
+  (interactive)
+  (fset 'format-spec #'zenash-format-spec))
+
+(unless (zenash-format-spec-works-p)
+  (zenash-define-format-spec))
+
+(eval-after-load 'format-spec
+  (unless (zenash-format-spec-works-p)
+    (zenash-define-format-spec)))
+
+(setq-default mode-line-buffer-identification
+              (list (propertize "%12b" 'face
+                                (list :weight 'bold
+                                      :foreground zenash-bg-3))))
+(setq-default mode-line-frame-identification "")
+(setq-default erc-mode-line-format
+              (concat (propertize "%t" 'face
+                                  (list :weight 'bold
+                                        :foreground zenash-bg-3))
+                      " %a"))
+
+(setq gnus-logo-colors `(,zenash-bg+2 ,zenash-bg+1)
+      gnus-mode-line-image-cache
+      '(image :type xpm :ascent center :data "/* XPM */
+static char *gnus-pointer[] = {
+/* width height num_colors chars_per_pixel */
+\"    18    11        2            1\",
+/* colors */
+\". c #dcdccc\",
+\"# c None s None\",
+/* pixels */
+\"######..##..######\",
+\"#####........#####\",
+\"#.##.##..##...####\",
+\"#...####.###...##.\",
+\"#..###.######.....\",
+\"#####.########...#\",
+\"###########.######\",
+\"####.###.#..######\",
+\"######..###.######\",
+\"###....####.######\",
+\"###..######.######\"};"))
+
+(defun zenash-make-face-alias-clauses (alias-symbols)
+  (let (clauses)
+    (dolist (alias-symbol alias-symbols clauses)
+      (let ((alias-name (symbol-name alias-symbol)))
+        (if (not (string-match "-face" alias-name))
+            (error "Invalid face alias: %s" alias-name)
+          (let ((target-name (replace-regexp-in-string
+                              ".*\\(-face\\)" ""
+                              alias-name nil nil 1)))
+            (push `(,(intern alias-name)
+                    ((t (:inherit ,(intern target-name)))))
+                  clauses)))))))
+
+;;;###autoload
+(defun color-theme-zenash ()
+  "Just some alien fruit salad to keep you in the zone."
+  (interactive)
+  (color-theme-install
+   (append
+    (list 'color-theme-zenash
+          
+     `((background-color . ,zenash-bg)
+       (background-mode . light)
+       (border-color . ,zenash-bg)
+       (foreground-color . ,zenash-fg)
+       (mouse-color . ,zenash-fg))
+      
+     `((emms-mode-line-icon-color . ,zenash-fg)
+       (goto-address-mail-face . italic)
+       (goto-address-mail-mouse-face . secondary-selection)
+       (goto-address-url-face . bold)
+       (goto-address-url-mouse-face . hover-highlight)
+       (help-highlight-face . hover-highlight)
+       (imaxima-label-color . ,zenash-yellow-2)
+       (imaxima-equation-color . ,zenash-fg)
+       (list-matching-lines-face . bold)
+       (view-highlight-face . hover-highlight)
+       (widget-mouse-face . hover-highlight))
+
+     `(bold                            ((t (:weight bold))))
+     `(bold-italic                     ((t (:italic t :weight bold))))
+     `(default                         ((t (:background ,zenash-bg :foreground ,zenash-fg))))
+     `(fixed-pitch                     ((t (:weight bold))))
+     `(italic                          ((t (:slant italic))))
+     `(underline                       ((t (:underline t))))
+
+     `(zenash-foreground+1             ((t (:foreground ,zenash-fg+1))))
+     `(zenash-foreground+2             ((t (:foreground ,zenash-fg+2))))
+
+     `(zenash-background-1             ((t (:background ,zenash-bg-1))))
+     `(zenash-background-2             ((t (:background ,zenash-bg-2))))
+     `(zenash-background+1             ((t (:background ,zenash-bg+1))))
+     `(zenash-background+2             ((t (:background ,zenash-bg+2))))
+     
+     `(zenash-primary-1                ((t (:foreground ,zenash-blue :weight bold))))
+     `(zenash-primary-2                ((t (:foreground ,zenash-red :weight bold))))
+     `(zenash-primary-3                ((t (:foreground ,zenash-green :weight bold))))
+     `(zenash-primary-4                ((t (:foreground ,zenash-yellow :weight bold))))
+     `(zenash-primary-5                ((t (:foreground ,zenash-dark-magenta :weight bold))))
+
+     `(zenash-highlight-damp           ((t (:foreground ,zenash-ll-1 :background ,zenash-bg-1))))
+     `(zenash-highlight-alerting       ((t (:background ,zenash-bg+2))))
+     `(zenash-highlight-subtle         ((t (:background ,zenash-bg+1))))
+
+     `(zenash-lowlight-1               ((t (:foreground ,zenash-ll-1))))
+     `(zenash-lowlight-2               ((t (:foreground ,zenash-ll-2))))
+
+     `(zenash-yellow-2                 ((t (:foreground ,zenash-yellow-2))))
+     `(zenash-orange                   ((t (:foreground ,zenash-orange))))
+     `(zenash-red                      ((t (:foreground ,zenash-red))))
+     `(zenash-green-1                  ((t (:foreground ,zenash-green-1))))
+     `(zenash-green                    ((t (:foreground ,zenash-green))))
+     `(zenash-green+1                  ((t (:foreground ,zenash-green+1))))
+     `(zenash-green+2                  ((t (:foreground ,zenash-green+2))))
+     `(zenash-green+3                  ((t (:foreground ,zenash-green+3))))
+     `(zenash-green+4                  ((t (:foreground ,zenash-green+4))))
+     `(zenash-blue                     ((t (:foreground ,zenash-blue))))
+     `(zenash-blue-1                   ((t (:foreground ,zenash-blue-1))))
+     `(zenash-blue-2                   ((t (:foreground ,zenash-blue-2))))
+     `(zenash-blue-3                   ((t (:foreground ,zenash-blue-3))))
+     `(zenash-blue-4                   ((t (:foreground ,zenash-blue-4))))
+
+     `(zenash-title                    ((t (:inherit variable-pitch :weight bold))))
+
+     `(font-lock-builtin               ((t (:inherit zenash-foreground+1))))
+     `(font-lock-comment               ((t (:inherit zenash-lowlight-2 :slant italic))))
+     `(font-lock-comment-delimiter     ((t (:inherit zenash-lowlight-2 :slant italic))))
+     `(font-lock-constant              ((t (:inherit zenash-red-1 :slant italic))))
+     `(font-lock-doc                   ((t (:inherit zenash-lowlight-1))))
+     `(font-lock-function-name         ((t (:inherit zenash-blue-2 :slant italic))))
+     `(font-lock-keyword               ((t (:inherit zenash-foreground+1 :weight bold))))
+     `(font-lock-negation-char         ((t (:inherit zenash-primary-1))))
+     `(font-lock-preprocessor          ((t (:inherit zenash-blue-1))))
+     `(font-lock-string                ((t (:foreground ,zenash-red-1))))
+     `(font-lock-type                  ((t (:inherit zenash-green))))
+     `(font-lock-variable-name         ((t (:foreground ,zenash-blue-2))))
+     `(font-lock-warning               ((t (:inherit zenash-highlight-alerting))))
+
+     `(font-lock-pseudo-keyword        ((t (:inherit zenash-primary-2))))
+     `(font-lock-operator              ((t (:inherit zenash-primary-3))))
+
+     `(border                          ((t (:background ,zenash-bg))))
+     `(fringe                          ((t (:inherit zenash-highlight-subtle))))
+     `(header-line                     ((t (:foreground ,zenash-fg :background ,zenash-bg+2))))
+     `(mode-line                       ((t (:foreground ,zenash-fg :background ,zenash-bg+2))))
+     `(mode-line-inactive              ((t (:foreground ,zenash-ll-2 :background ,zenash-bg+1))))
+     `(mode-line-buffer-id             ((t (:foreground ,zenash-bg-2))))
+     `(mode-line-highlight             ((t (:background ,zenash-bg-2))))
+     `(mode-line-emphasis              ((t (:weight bold))))
+     `(minibuffer-prompt               ((t (:inherit zenash-primary-1))))
+     `(Buffer-menu-buffer              ((t (:weight bold))))
+
+     `(region                          ((t (:foreground ,zenash-selection-fg :background ,zenash-selection-bg))))
+     `(secondary-selection             ((t (:foreground ,zenash-fg :background ,zenash-bg+2))))
+
+     `(trailing-whitespace             ((t (:inherit font-lock-warning))))
+     `(highlight                       ((t (:inherit zenash-background-1))))
+     `(highlight-current-line          ((t (:inherit zenash-background+2))))
+     `(paren                           ((t (:inherit zenash-lowlight-1))))
+     `(show-paren-mismatch             ((t (:inherit font-lock-warning))))
+     `(show-paren-match                ((t (:foreground ,zenash-selection-fg :background ,zenash-selection-bg))))
+     `(match                           ((t (:weight bold))))
+
+     `(cursor                          ((t (:background ,zenash-orange))))
+     `(menu                            ((t nil)))
+     `(mouse                           ((t (:inherit zenash-foreground))))
+     `(scroll-bar                      ((t (:background ,zenash-bg+2))))
+     `(tool-bar                        ((t (:background ,zenash-bg+2))))
+     `(vertical-border                 ((t (:foreground ,zenash-ll-2))))
+
+     `(ido-first-match                 ((t (:weight bold :foreground ,zenash-selection-fg :background ,zenash-bg+2))))
+     `(ido-only-match                  ((t (:weight bold :foreground ,zenash-selection-fg :background ,zenash-bg+2))))
+     `(ido-subdir                      ((t (:weight bold))))
+
+     `(isearch                         ((t (:foreground ,zenash-selection-fg :background ,zenash-blue-3))))
+     `(isearch-lazy-highlight          ((t (:background ,zenash-bg-2))))
+
+     `(idle-highlight-face             ((t (:inherit isearch-lazy-highlight))))
+     
+     `(hover-highlight                 ((t (:background ,zenash-bg+2))))
+     `(link                            ((t (:foreground ,zenash-red-1 :weight bold))))
+     `(link-visited                    ((t (:foreground ,zenash-red-1))))
+     
+     `(info-xref                       ((t (:foreground ,zenash-red-1 :weight bold))))
+     `(info-xref-visited               ((t (:inherit info-xref :weight normal))))
+     `(info-header-xref                ((t (:inherit info-xref))))
+     `(info-menu-star                  ((t (:foreground ,zenash-red-1 :weight bold))))
+     `(info-menu-5                     ((t (:inherit info-menu-star))))
+     `(info-node                       ((t (:weight bold))))
+     `(info-header-node                ((t (:weight normal))))
+
+     `(outline-8                       ((t (:inherit default :foreground ,zenash-fg+1))))
+     `(outline-7                       ((t (:inherit outline-8 :height 1.0))))
+     `(outline-6                       ((t (:inherit outline-7 :height 1.0))))
+     `(outline-5                       ((t (:inherit outline-6 :height 1.0))))
+     `(outline-4                       ((t (:inherit outline-5 :height 1.0))))
+     `(outline-3                       ((t (:inherit outline-4 :height 1.0))))
+     `(outline-2                       ((t (:inherit outline-3 :height 1.0))))
+     `(outline-1                       ((t (:inherit outline-2 :height 1.0))))
+
+     `(org-hide                        ((t (:foreground ,zenash-bg))))
+     `(org-special-keyword             ((t (:inherit font-lock-comment))))
+     `(org-tag                         ((t (:inherit font-lock-comment))))
+     `(org-table                       ((t (:background ,zenash-bg+1))))
+     `(org-link                        ((t (:inherit link))))
+     `(org-todo                        ((t (:inherit font-lock-variable-name))))
+     `(org-formula                     ((t (:inherit font-lock-variable-name))))
+     
+     `(flyspell-incorrect              ((t (:inherit font-lock-warning))))
+     `(flyspell-duplicate              ((t (:inherit font-lock-warning))))
+     
+     `(term-default-bg                 ((t (nil))))
+     `(term-default-bg-inv             ((t (nil))))
+     `(term-default-fg                 ((t (nil))))
+     `(term-default-fg-inv             ((t (nil))))
+     `(term-invisible                  ((t (nil)))) ;; FIXME: Security risk?
+     `(term-invisible-inv              ((t (nil))))
+     `(term-bold                       ((t (:weight bold))))
+     `(term-underline                  ((t (:underline t))))
+
+     `(eshell-prompt                   ((t (:inherit zenash-primary-1))))
+     `(eshell-ls-archive               ((t (:foreground ,zenash-green :weight bold))))
+     `(eshell-ls-backup                ((t (:inherit font-lock-comment))))
+     `(eshell-ls-clutter               ((t (:inherit font-lock-comment))))
+     `(eshell-ls-directory             ((t (:foreground ,zenash-blue :weight bold))))
+     `(eshell-ls-executable            ((t (:foreground ,zenash-red :weight bold))))
+     `(eshell-ls-unreadable            ((t (:inherit zenash-lowlight-1))))
+     `(eshell-ls-missing               ((t (:inherit font-lock-warning))))
+     `(eshell-ls-product               ((t (:inherit font-lock-doc))))
+     `(eshell-ls-special               ((t (:foreground ,zenash-dark-magenta))))
+     `(eshell-ls-symlink               ((t (:foreground ,zenash-cyan :weight bold))))
+
+     
+     ;; FIXME: Map these to ansi-term`s faces (`term-red`, etc.).
+     `(zenash-term-dark-gray           ((t (:foreground ,zenash-dark-gray))))
+     `(zenash-term-light-blue          ((t (:foreground ,zenash-light-blue))))
+     `(zenash-term-light-cyan          ((t (:foreground ,zenash-light-cyan))))
+     `(zenash-term-light-green         ((t (:foreground ,zenash-light-green))))
+     `(zenash-term-light-magenta       ((t (:foreground ,zenash-light-magenta))))
+     `(zenash-term-light-red           ((t (:foreground ,zenash-light-red))))
+     `(zenash-term-light-yellow        ((t (:foreground ,zenash-light-yellow))))
+     `(zenash-term-white               ((t (:foreground ,zenash-white))))
+
+     `(zenash-term-black               ((t (:foreground ,zenash-black))))
+     `(zenash-term-dark-blue           ((t (:foreground ,zenash-dark-blue))))
+     `(zenash-term-dark-cyan           ((t (:foreground ,zenash-dark-cyan))))
+     `(zenash-term-dark-green          ((t (:foreground ,zenash-dark-green))))
+     `(zenash-term-dark-magenta        ((t (:foreground ,zenash-dark-magenta))))
+     `(zenash-term-dark-red            ((t (:foreground ,zenash-dark-red))))
+     `(zenash-term-dark-yellow         ((t (:foreground ,zenash-dark-yellow))))
+     `(zenash-term-light-gray          ((t (:foreground ,zenash-light-gray))))
+
+     `(plain-widget-button             ((t (:weight bold))))
+     `(plain-widget-button-pressed     ((t (:inverse-video t))))
+     `(plain-widget-documentation      ((t (:inherit font-lock-doc))))
+     `(plain-widget-field              ((t (:background ,zenash-bg+2))))
+     `(plain-widget-inactive           ((t (:strike-through t))))
+     `(plain-widget-single-line-field  ((t (:background ,zenash-bg+2))))
+
+     `(fancy-widget-button             ((t (:background ,zenash-bg+1 :box (:line-width 2 :style released-button)))))
+     `(fancy-widget-button-pressed     ((t (:background ,zenash-bg+1 :box (:line-width 2 :style pressed-button)))))
+     `(fancy-widget-button-highlight   ((t (:background ,zenash-bg+1 :box (:line-width 2 :style released-button)))))
+     `(fancy-widget-button-pressed-highlight ((t (:background ,zenash-bg+1 :box (:line-width 2 :style pressed-button)))))
+     `(fancy-widget-documentation      ((t (:inherit font-lock-doc))))
+     `(fancy-widget-field              ((t (:background ,zenash-bg+2))))
+     `(fancy-widget-inactive           ((t (:strike-through t))))
+     `(fancy-widget-single-line-field  ((t (:background ,zenash-bg+2))))
+
+     `(widget-button                   ((t (:inherit plain-widget-button))))
+     `(widget-button-pressed           ((t (:inherit fancy-widget-button-pressed))))
+     `(widget-button-highlight         ((t (:inherit fancy-widget-button-highlight))))
+     `(widget-button-pressed-highlight ((t (:inherit fancy-widget-button-pressed-highlight))))
+     `(widget-documentation            ((t (:inherit fancy-widget-documentation))))
+     `(widget-field                    ((t (:inherit fancy-widget-field))))
+     `(widget-inactive                 ((t (:inherit fancy-widget-inactive))))
+     `(widget-single-line-field        ((t (:inherit fancy-widget-single-line-field))))
+
+     `(mtorus-highlight                ((t (:inherit zenash-highlight-bluish))))
+     `(mtorus-notify-highlight         ((t (:inherit zenash-primary-1))))
+
+     `(apt-utils-normal-package        ((t (:inherit zenash-primary-1))))
+     `(apt-utils-virtual-package       ((t (:inherit zenash-primary-2))))
+     `(apt-utils-field-keyword         ((t (:inherit font-lock-doc))))
+     `(apt-utils-field-contents        ((t (:inherit font-lock-comment))))
+     `(apt-utils-summary               ((t (:inherit bold))))
+     `(apt-utils-description           ((t (:inherit default))))
+     `(apt-utils-version               ((t (:inherit zenash-blue))))
+     `(apt-utils-broken                ((t (:inherit font-lock-warning))))
+
+     `(breakpoint-enabled-bitmap       ((t (:inherit zenash-primary-1))))
+     `(breakpoint-disabled-bitmap      ((t (:inherit font-lock-comment))))
+
+     `(calendar-today                  ((t (:underline nil :inherit zenash-primary-2))))
+     `(diary                           ((t (:underline nil :inherit zenash-primary-1))))
+     `(holiday                         ((t (:underline t :inherit zenash-primary-4))))
+
+     `(change-log-date                 ((t (:inherit zenash-blue))))
+
+     `(comint-highlight-input          ((t (:inherit zenash-primary-1))))
+     `(comint-highlight-prompt         ((t (:inherit zenash-primary-2))))
+
+     `(compilation-info                ((t (:inherit zenash-primary-1))))
+     `(compilation-warning             ((t (:inherit font-lock-warning))))
+
+     ;; TODO
+     `(cua-rectangle                   ((t (:inherit region))))
+
+     `(custom-button                   ((t (:inherit fancy-widget-button))))
+     `(custom-button-pressed           ((t (:inherit fancy-widget-button-pressed))))
+     `(custom-changed                  ((t (:inherit zenash-blue))))
+     `(custom-comment                  ((t (:inherit font-lock-doc))))
+     `(custom-comment-tag              ((t (:inherit font-lock-doc))))
+     `(custom-documentation            ((t (:inherit font-lock-doc))))
+     `(custom-tag                      ((t (:inherit zenash-primary-2))))
+     `(custom-group-tag                ((t (:inherit zenash-primary-1))))
+     `(custom-group-tag-1              ((t (:inherit zenash-primary-4))))
+     `(custom-invalid                  ((t (:inherit font-lock-warning))))
+     `(custom-modified                 ((t (:inherit zenash-primary-3))))
+     `(custom-rogue                    ((t (:inhrit font-lock-warning))))
+     `(custom-saved                    ((t (:underline t))))
+     `(custom-set                      ((t (:inverse-video t :inherit zenash-blue))))
+     `(custom-state                    ((t (:inherit font-lock-comment))))
+     `(custom-variable-button          ((t (:weight bold :underline t))))
+     `(custom-variable-tag             ((t (:inherit zenash-primary-2))))
+
+     `(dictionary-button               ((t (:inherit fancy-widget-button))))
+     `(dictionary-reference            ((t (:inherit zenash-primary-1))))
+     `(dictionary-word-entry           ((t (:inherit font-lock-keyword))))
+
+     `(diff-header                     ((t (:inherit zenash-highlight-subtle))))
+     `(diff-index                      ((t (:inherit bold))))
+     `(diff-file-header                ((t (:foreground ,zenash-cyan))))
+     `(diff-hunk-header                ((t (:inherit zenash-blue))))
+     `(diff-added                      ((t (:inherit zenash-green))))
+     `(diff-removed                    ((t (:inherit zenash-red))))
+     `(diff-context                    ((t (:inherit font-lock-comment))))
+
+     `(magit-diff-file-header           ((t (:inherit diff-file-header))))
+     `(magit-diff-add                   ((t (:inherit diff-added))))
+     `(magit-diff-del                   ((t (:inherit diff-removed))))
+     `(magit-diff-hunk-header           ((t (:inherit diff-hunk-header))))
+     `(magit-diff-none                  ((t (:inherit diff-context))))
+     `(magit-item-highlight             ((t (:background ,zenash-bg-1))))
+     `(magit-section-title              ((t (:inherit zenash-primary-1))))
+     `(magit-branch                     ((t (:inherit font-lock-function-name :weight: bold))))
+     `(magit-log-tag-label              ((t (:foreground ,zenash-blue))))
+     `(magit-log-head-label             ((t (:foreground ,zenash-blue))))
+     `(magit-item-mark                  ((t (:inherit isearch-lazy-highlight))))
+     
+     `(emms-pbi-song                   ((t (:foreground ,zenash-yellow))))
+     `(emms-pbi-current                ((t (:inherit zenash-primary-1))))
+     `(emms-pbi-mark-marked            ((t (:inherit zenash-primary-2))))
+
+     `(erc-action                      ((t (:inherit erc-default))))
+     `(erc-bold                        ((t (:weight bold))))
+     `(erc-current-nick                ((t (:inherit zenash-primary-1))))
+     `(erc-dangerous-host              ((t (:inherit font-lock-warning))))
+     `(erc-default                     ((t (:foreground ,zenash-fg))))
+     `(erc-direct-msg                  ((t (:inherit erc-default))))
+     `(erc-error                       ((t (:inherit font-lock-warning))))
+     `(erc-fool                        ((t (:inherit zenash-lowlight-1))))
+     `(erc-highlight                   ((t (:inherit hover-highlight))))
+     `(erc-input                       ((t (:foreground ,zenash-yellow))))
+     `(erc-keyword                     ((t (:inherit zenash-primary-1))))
+     `(erc-nick-default                ((t (:inherit bold))))
+     `(erc-nick-msg                    ((t (:inherit erc-default))))
+     `(erc-notice                      ((t (:inherit zenash-green))))
+     `(erc-pal                         ((t (:inherit zenash-primary-3))))
+     `(erc-prompt                      ((t (:inherit zenash-primary-2))))
+     `(erc-timestamp                   ((t (:inherit zenash-green+1))))
+     `(erc-underline                   ((t (:inherit underline))))
+
+     `(ibuffer-deletion                ((t (:inherit zenash-primary-2))))
+     `(ibuffer-marked                  ((t (:inherit zenash-primary-1))))
+     `(ibuffer-special-buffer          ((t (:inherit font-lock-doc))))
+     `(ibuffer-help-buffer             ((t (:inherit font-lock-comment))))
+
+     `(message-cited-text              ((t (:inherit font-lock-comment))))
+     ;;`(message-cited-text ((t (:foreground ,zenash-blue))))
+     `(message-header-name             ((t (:inherit zenash-green+1))))
+     `(message-header-other            ((t (:inherit zenash-green))))
+     `(message-header-to               ((t (:inherit zenash-primary-1))))
+     `(message-header-from             ((t (:inherit zenash-primary-1))))
+     `(message-header-cc               ((t (:inherit zenash-primary-1))))
+     `(message-header-newsgroups       ((t (:inherit zenash-primary-1))))
+     `(message-header-subject          ((t (:inherit zenash-primary-2))))
+     `(message-header-xheader          ((t (:inherit zenash-green))))
+     `(message-mml                     ((t (:inherit zenash-primary-1))))
+     `(message-separator               ((t (:inherit font-lock-comment))))
+
+     `(gnus-header-name                ((t (:inherit message-header-name))))
+     `(gnus-header-content             ((t (:inherit message-header-other))))
+     `(gnus-header-from                ((t (:inherit message-header-from))))
+     `(gnus-header-subject             ((t (:inherit message-header-subject))))
+     `(gnus-header-newsgroups          ((t (:inherit message-header-other))))
+
+     `(gnus-x-face                     ((t (:background ,zenash-fg :foreground ,zenash-bg))))
+
+     ;; (gnus-cite-1 ((t (:inherit message-cited-text))))
+     `(gnus-cite-1  ((t (:foreground ,zenash-blue))))
+     `(gnus-cite-2  ((t (:foreground ,zenash-blue-1))))
+     `(gnus-cite-3  ((t (:foreground ,zenash-blue-2))))
+;;      (gnus-cite-4 ((t (:foreground ,zenash-blue-3))))
+;;      (gnus-cite-5 ((t (:foreground ,zenash-blue-4))))
+;;      (gnus-cite-6 ((t (:foreground ,zenash-red-4))))
+;;      (gnus-cite-5 ((t (:foreground ,zenash-red-3))))
+     `(gnus-cite-4  ((t (:foreground ,zenash-green+2))))
+     `(gnus-cite-5  ((t (:foreground ,zenash-green+1))))
+     `(gnus-cite-6  ((t (:foreground ,zenash-green))))
+     `(gnus-cite-7  ((t (:foreground ,zenash-red))))
+     `(gnus-cite-8  ((t (:foreground ,zenash-red-1))))
+     `(gnus-cite-9  ((t (:foreground ,zenash-red-2))))
+     `(gnus-cite-10 ((t (:foreground ,zenash-yellow-1))))
+     `(gnus-cite-11 ((t (:foreground ,zenash-yellow))))
+
+     `(gnus-group-mail-1           ((t (:inherit zenash-primary-1))))
+     `(gnus-group-mail-2           ((t (:inherit zenash-primary-1))))
+     `(gnus-group-mail-3           ((t (:inherit zenash-primary-1))))
+     `(gnus-group-mail-1-empty     ((t (:inherit default))))
+     `(gnus-group-mail-2-empty     ((t (:inherit default))))
+     `(gnus-group-mail-3-empty     ((t (:foreground ,zenash-yellow))))
+     `(gnus-group-news-1-empty     ((t (:inherit default))))
+     `(gnus-group-news-2-empty     ((t (:inherit default))))
+     `(gnus-group-news-3-empty     ((t (:inherit default))))
+
+     `(gnus-signature              ((t (:foreground ,zenash-yellow))))
+
+     `(gnus-summary-selected       ((t (:inherit zenash-primary-1))))
+     `(gnus-summary-cancelled      ((t (:inherit zenash-highlight-alerting))))
+
+     `(gnus-summary-low-ticked     ((t (:inherit zenash-primary-2))))
+     `(gnus-summary-normal-ticked  ((t (:inherit zenash-primary-2))))
+     `(gnus-summary-high-ticked    ((t (:inherit zenash-primary-2))))
+
+     `(gnus-summary-low-unread     ((t (:inherit zenash-foreground :weight normal))))
+     `(gnus-summary-normal-unread  ((t (:inherit zenash-foreground :weight normal))))
+     `(gnus-summary-high-unread    ((t (:inherit zenash-foreground :weight bold))))
+
+     `(gnus-summary-low-read       ((t (:inherit zenash-green :weight normal))))
+     `(gnus-summary-normal-read    ((t (:inherit zenash-green :weight normal))))
+     `(gnus-summary-high-read      ((t (:inherit zenash-green :weight bold))))
+
+     `(gnus-summary-low-ancient    ((t (:inherit zenash-blue :weight normal))))
+     `(gnus-summary-normal-ancient ((t (:inherit zenash-blue :weight normal))))
+     `(gnus-summary-high-ancient   ((t (:inherit zenash-blue))))
+
+     `(help-argument-name          ((t (:weight bold))))
+
+     ;; See also the variable definitions at the top of this file
+     `(imaxima-latex-error         ((t (:inherit font-lock-warning))))
+
+     `(jabber-roster-user-chatty   ((t (:inherit zenash-primary-1))))
+     `(jabber-roster-user-online   ((t (:inherit zenash-primary-2))))
+     `(jabber-roster-user-away     ((t (:inherit font-lock-doc))))
+     `(jabber-roster-user-xa       ((t (:inherit font-lock-comment))))
+     `(jabber-roster-user-offline  ((t (:inherit zenash-lowlight-1))))
+     `(jabber-roster-user-dnd      ((t (:inherit zenash-primary-5))))
+     `(jabber-roster-user-error    ((t (:inherit font-lock-warning))))
+
+     `(jabber-title-small          ((t (:inherit zenash-title :height 1.2))))
+     `(jabber-title-medium         ((t (:inherit jabber-title-small :height 1.2))))
+     `(jabber-title-large          ((t (:inherit jabber-title-medium :height 1.2))))
+
+     `(jabber-chat-prompt-local    ((t (:inherit zenash-primary-1))))
+     `(jabber-chat-prompt-foreign  ((t (:inherit zenash-primary-2))))
+
+     `(jde-java-font-lock-modifier ((t (:inherit zenash-primary-2))))
+     `(jde-java-font-lock-doc-tag  ((t (:inherit zenash-primary-1))))
+     `(jde-java-font-lock-constant ((t (:inherit font-lock-constant))))
+     `(jde-java-font-lock-package  ((t (:inherit zenash-primary-3))))
+     `(jde-java-font-lock-number   ((t (:inherit font-lock-constant))))
+     `(jde-java-font-lock-operator ((t (:inherit font-lock-keyword))))
+     `(jde-java-font-lock-link     ((t (:inherit zenash-primary-5 :underline t))))
+
+     `(keywiz-right                ((t (:inherit zenash-primary-1))))
+     `(keywiz-wrong                ((t (:inherit font-lock-warning))))
+     `(keywiz-command              ((t (:inherit zenash-primary-2))))
+
+     `(font-latex-bold             ((t (:inherit bold))))
+     `(font-latex-warning          ((t (:inherit font-lock-warning))))
+     `(font-latex-sedate           ((t (:inherit zenash-primary-1))))
+     `(font-latex-title-4          ((t (:inherit zenash-title))))
+
+     `(makefile-space              ((t (:inherit font-lock-warning))))
+     `(makefile-shell              ((t (nil))))
+     ;; This does not work very well because everything that`s highlighted
+     ;; inside the shell region will get its own box.
+     ;; (makefile-shell ((t (:background "#4f4f4f"
+     ;;                           :box (:line-width 2 :color "#4f4f4f")))))
+
+     `(nxml-delimited-data                   ((t (:inherit font-lock-string))))
+     `(nxml-name                             ((t (:inherit zenash-primary-1))))
+     `(nxml-ref                              ((t (:inherit zenash-primary-5))))
+     `(nxml-delimiter                        ((t (:inherit default))))
+     `(nxml-text                             ((t (:inherit default))))
+
+     `(nxml-comment-content                  ((t (:inherit font-lock-comment))))
+     `(nxml-comment-delimiter                ((t (:inherit nxml-comment-content))))
+     `(nxml-processing-instruction-target    ((t (:inherit zenash-primary-2))))
+     `(nxml-processing-instruction-delimiter ((t (:inherit nxml-processing-instruction-target))))
+     `(nxml-processing-instruction-content   ((t (:inherit nxml-processing-instruction-target))))
+     `(nxml-cdata-section-CDATA              ((t (:inherit zenash-primary-4))))
+     `(nxml-cdata-section-delimiter          ((t (:inherit nxml-cdata-section-CDATA))))
+     `(nxml-cdata-section-content            ((t (:inherit nxml-text))))
+     `(nxml-entity-ref-name                  ((t (:inherit zenash-primary-5))))
+     `(nxml-entity-ref-delimiter             ((t (:inherit nxml-entity-ref-name))))
+     `(nxml-char-ref-number                  ((t (:inherit nxml-entity-ref-name))))
+     `(nxml-char-ref-delimiter               ((t (:inherit nxml-entity-ref-delimiter))))
+
+     `(nxml-tag-delimiter                    ((t (:inherit default))))
+     `(nxml-tag-slash                        ((t (:inherit default))))
+     `(nxml-element-local-name               ((t (:inherit zenash-primary-1))))
+     `(nxml-element-prefix                   ((t (:inherit default))))
+     `(nxml-element-colon                    ((t (:inherit default))))
+
+     `(nxml-attribute-local-name             ((t (:inherit zenash-primary-3))))
+     `(nxml-namespace-attribute-prefix       ((t (:inherit nxml-attribute-local-name))))
+     `(nxml-attribute-value                  ((t (:inherit font-lock-string))))
+     `(nxml-attribute-value-delimiter        ((t (:inherit nxml-attribute-value))))
+     `(nxml-attribute-prefix                 ((t (:inherit default))))
+     `(nxml-namespace-attribute-xmlns        ((t (:inherit nxml-attribute-prefix))))
+     `(nxml-attribute-colon                  ((t (:inherit default))))
+     `(nxml-namespace-attribute-colon        ((t (:inherit nxml-attribute-colon))))
+
+     ;; TODO
+     `(setnu-line-number                     ((t (:inherit zenash-lowlight-2))))
+
+     `(speedbar-button                       ((t (:inherit zenash-primary-1))))
+     `(speedbar-file                         ((t (:inherit zenash-primary-2))))
+     `(speedbar-directory                    ((t (:inherit zenash-primary-5))))
+     `(speedbar-tag                          ((t (:inherit font-lock-function-name))))
+     `(speedbar-highlight                    ((t (:underline t))))
+
+     `(strokes-char                          ((t (:inherit font-lock-keyword))))
+
+     `(todoo-item-header                     ((t (:inherit zenash-primary-1))))
+     `(todoo-item-assigned-header            ((t (:inherit zenash-primary-2))))
+     `(todoo-sub-item-header                 ((t (:foreground ,zenash-yellow))))
+
+     `(tuareg-font-lock-governing            ((t (:inherit zenash-primary-2))))
+     `(tuareg-font-lock-interactive-error    ((t (:inherit font-lock-warning))))
+     `(tuareg-font-lock-interactive-output   ((t (:inherit zenash-primary-3))))
+     `(tuareg-font-lock-operator             ((t (:inherit font-lock-operator))))
+
+     `(w3m-form-button                       ((t (:inherit widget-button))))
+     `(w3m-form-button-pressed               ((t (:inherit widget-button-pressed))))
+     `(w3m-form-button-mouse                 ((t (:inherit widget-button-pressed))))
+     `(w3m-tab-unselected                    ((t (:box (:line-width 1 :style released-button)))))
+     `(w3m-tab-selected                      ((t (:box (:line-width 1 :style pressed-button)))))
+     `(w3m-tab-unselected-retrieving         ((t (:inherit (w3m-tab-unselected widget-inactive)))))
+     `(w3m-tab-selected-retrieving           ((t (:inherit (w3m-tab-selected widget-inactive)))))
+     `(w3m-tab-background                    ((t (:inherit zenash-highlight-subtle))))
+     `(w3m-anchor                            ((t (:inherit zenash-primary-1))))
+     `(w3m-arrived-anchor                    ((t (:inherit zenash-primary-2))))
+     `(w3m-image                             ((t (:inherit zenash-primary-4))))
+     `(w3m-form                              ((t (:inherit widget-field)))))
+
+     (zenash-make-face-alias-clauses
+      '(Buffer-menu-buffer-face
+        apt-utils-broken-face
+        apt-utils-description-face
+        apt-utils-field-contents-face
+        apt-utils-field-keyword-face
+        apt-utils-normal-package-face
+        apt-utils-summary-face
+        apt-utils-version-face
+        apt-utils-virtual-package-face
+        breakpoint-disabled-bitmap-face
+        breakpoint-enabled-bitmap-face
+        calendar-today-face
+        change-log-date-face
+        compilation-info-face
+        compilation-warning-face
+        cua-rectangle-face
+        custom-button-face
+        custom-button-pressed-face
+        custom-changed-face
+        custom-comment-face
+        custom-comment-tag-face
+        custom-documentation-face
+        custom-face-tag-face
+        custom-group-tag-face
+        custom-group-tag-face-1
+        custom-invalid-face
+        custom-modified-face
+        custom-rogue-face
+        custom-saved-face
+        custom-set-face
+        custom-state-face
+        custom-variable-button-face
+        custom-variable-tag-face
+        diary-face
+        dictionary-button-face
+        dictionary-reference-face
+        dictionary-word-entry-face
+        diff-added-face
+        diff-context-face
+        diff-file-header-face
+        diff-header-face
+        diff-hunk-header-face
+        diff-index-face
+        diff-removed-face
+        emms-pbi-current-face
+        emms-pbi-mark-marked-face
+        emms-pbi-song-face
+        erc-action-face
+        erc-bold-face
+        erc-current-nick-face
+        erc-dangerous-host-face
+        erc-default-face
+        erc-direct-msg-face
+        erc-error-face
+        erc-fool-face
+        erc-highlight-face
+        erc-input-face
+        erc-keyword-face
+        erc-nick-default-face
+        erc-nick-msg-face
+        erc-notice-face
+        erc-pal-face
+        erc-prompt-face
+        erc-timestamp-face
+        erc-underline-face
+        eshell-ls-archive-face
+        eshell-ls-backup-face
+        eshell-ls-clutter-face
+        eshell-ls-directory-face
+        eshell-ls-executable-face
+        eshell-ls-missing-face
+        eshell-ls-product-face
+        eshell-ls-special-face
+        eshell-ls-symlink-face
+        eshell-ls-unreadable-face
+        eshell-prompt-face
+        fancy-widget-button-face
+        fancy-widget-button-highlight-face
+        fancy-widget-button-pressed-face
+        fancy-widget-button-pressed-highlight-face
+        fancy-widget-documentation-face
+        fancy-widget-field-face
+        fancy-widget-inactive-face
+        fancy-widget-single-line-field-face
+        font-latex-bold-face
+        font-latex-sedate-face
+        font-latex-title-4-face
+        font-latex-warning-face
+        font-lock-builtin-face
+        font-lock-comment-delimiter-face
+        font-lock-comment-face
+        font-lock-constant-face
+        font-lock-doc-face
+        font-lock-function-name-face
+        font-lock-keyword-face
+        font-lock-negation-char-face
+        font-lock-operator-face
+        font-lock-preprocessor-face
+        font-lock-pseudo-keyword-face
+        font-lock-string-face
+        font-lock-type-face
+        font-lock-variable-name-face
+        font-lock-warning-face
+        gnus-cite-face-1
+        gnus-cite-face-10
+        gnus-cite-face-11
+        gnus-cite-face-2
+        gnus-cite-face-3
+        gnus-cite-face-4
+        gnus-cite-face-5
+        gnus-cite-face-6
+        gnus-cite-face-7
+        gnus-cite-face-8
+        gnus-cite-face-9
+        gnus-group-mail-1-empty-face
+        gnus-group-mail-2-empty-face
+        gnus-group-mail-3-empty-face
+        gnus-group-mail-3-face
+        gnus-group-news-1-empty-face
+        gnus-group-news-2-empty-face
+        gnus-group-news-3-empty-face
+        gnus-header-content-face
+        gnus-header-from-face
+        gnus-header-name-face
+        gnus-header-newsgroups-face
+        gnus-header-subject-face
+        gnus-signature-face
+        gnus-summary-cancelled-face
+        gnus-summary-high-ancient-face
+        gnus-summary-high-read-face
+        gnus-summary-high-ticked-face
+        gnus-summary-high-unread-face
+        gnus-summary-low-ancient-face
+        gnus-summary-low-read-face
+        gnus-summary-low-ticked-face
+        gnus-summary-low-unread-face
+        gnus-summary-normal-ancient-face
+        gnus-summary-normal-read-face
+        gnus-summary-normal-ticked-face
+        gnus-summary-normal-unread-face
+        gnus-summary-selected-face
+        highlight-current-line-face
+        holiday-face
+        ibuffer-deletion-face
+        ibuffer-help-buffer-face
+        ibuffer-marked-face
+        ibuffer-special-buffer-face
+        ido-first-match-face
+        ido-only-match-face
+        ido-subdir-face
+        imaxima-latex-error-face
+        isearch-lazy-highlight-face
+        jde-java-font-lock-constant-face
+        jde-java-font-lock-doc-tag-face
+        jde-java-font-lock-link-face
+        jde-java-font-lock-modifier-face
+        jde-java-font-lock-number-face
+        jde-java-font-lock-operator-face
+        jde-java-font-lock-package-face
+        keywiz-command-face
+        keywiz-right-face
+        keywiz-wrong-face
+        makefile-shell-face
+        makefile-space-face
+        message-cited-text-face
+        message-header-cc-face
+        message-header-from-face
+        message-header-name-face
+        message-header-newsgroups-face
+        message-header-other-face
+        message-header-subject-face
+        message-header-to-face
+        message-header-xheader-face
+        message-mml-face
+        message-separator-face
+        mtorus-highlight-face
+        mtorus-notify-highlight-face
+        nxml-attribute-colon-face
+        nxml-attribute-local-name-face
+        nxml-attribute-prefix-face
+        nxml-attribute-value-delimiter-face
+        nxml-attribute-value-face
+        nxml-cdata-section-CDATA-face
+        nxml-cdata-section-content-face
+        nxml-cdata-section-delimiter-face
+        nxml-char-ref-delimiter-face
+        nxml-char-ref-number-face
+        nxml-comment-content-face
+        nxml-comment-delimiter-face
+        nxml-delimited-data-face
+        nxml-delimiter-face
+        nxml-element-colon-face
+        nxml-element-local-name-face
+        nxml-element-prefix-face
+        nxml-entity-ref-delimiter-face
+        nxml-entity-ref-name-face
+        nxml-name-face
+        nxml-namespace-attribute-colon-face
+        nxml-namespace-attribute-prefix-face
+        nxml-namespace-attribute-xmlns-face
+        nxml-processing-instruction-content-face
+        nxml-processing-instruction-delimiter-face
+        nxml-processing-instruction-target-face
+        nxml-ref-face
+        nxml-tag-delimiter-face
+        nxml-tag-slash-face
+        nxml-text-face
+        paren-face
+        plain-widget-button-face
+        plain-widget-button-pressed-face
+        plain-widget-documentation-face
+        plain-widget-field-face
+        plain-widget-inactive-face
+        plain-widget-single-line-field-face
+        setnu-line-number-face
+        show-paren-match-face
+        show-paren-mismatch-face
+        speedbar-button-face
+        speedbar-directory-face
+        speedbar-file-face
+        speedbar-highlight-face
+        speedbar-tag-face
+        strokes-char-face
+        todoo-item-assigned-header-face
+        todoo-item-header-face
+        todoo-sub-item-header-face
+        tuareg-font-lock-governing-face
+        tuareg-font-lock-interactive-error-face
+        tuareg-font-lock-interactive-output-face
+        tuareg-font-lock-operator-face
+        w3m-anchor-face
+        w3m-arrived-anchor-face
+        w3m-form-button-face
+        w3m-form-button-mouse-face
+        w3m-form-button-pressed-face
+        w3m-form-face
+        w3m-image-face
+        w3m-tab-background-face
+        w3m-tab-selected-face
+        w3m-tab-selected-retrieving-face
+        w3m-tab-unselected-face
+        w3m-tab-unselected-retrieving-face
+        widget-button-face
+        widget-button-highlight-face
+        widget-button-pressed-face
+        widget-button-pressed-highlight-face
+        widget-documentation-face
+        widget-field-face
+        widget-inactive-face
+        widget-single-line-field-face))
+    )))
+
+;;;###autoload
+(defalias 'zenash #'color-theme-zenash)
+
+(provide 'zenash)
+;;; zenash.el ends here.

File diff suppressed because it is too large
+ 1179 - 0
color-themes/color-theme-zenburn.el