code/elisp/color-theme-manoj.el

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; manoj-colors.el ---
   3 ;; Author           : Manoj Srivastava ( srivasta@anzu.internal.golden-gryphon.com )
   4 ;; Created On       : Sun May 25 15:17:44 2008
   5 ;; Created On Node  : anzu.internal.golden-gryphon.com
   6 ;; Last Modified By : Manoj Srivastava
   7 ;; Status           : Unknown, Use with caution!
   8 ;; HISTORY          :
   9 ;; Description      :
  10 ;;
  11 ;; Copyright © 2008 Manoj Srivastava <srivasta@debian.org
  12 ;;
  13 ;; This file is free software: you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation, either version 3 of the License, or
  16 ;; (at your option) any later version.
  17 ;;
  18 ;; GNU Emacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22 ;;
  23 ;; On Debian GNU/Linux systems, the complete text of the GNU General
  24 ;; Public License can be found in `/usr/share/common-licenses/GPL'
  25 ;;
  26 ;;    A copy of the GNU General Public License is also available at
  27 ;;    <URL:http://www.gnu.org/copyleft/gpl.html>.  You may also obtain
  28 ;;    it by writing to the Free Software Foundation, Inc., 51 Franklin
  29 ;;    St, Fifth Floor, Boston, MA 02110-1301 USA
  30
  31 ;; A copy of this file, without the html, can be seen at:
  32 ;; manoj-colors.el
  33
  34 ;; I spend a lot of time workin in front of a screen (many hours in a
  35 ;; dimly lit room) and eye fatigue is an issue. This is a dark color
  36 ;; theme for emacs, which is easier on the eyes than light themes.
  37 ;;
  38 ;; It does not help that I am blue-green color blind, so subtle
  39 ;; variations are ofte lost on me. I do want to use color contrast to
  40 ;; increase productivity, but I also want to avoid the jarring angry
  41 ;; fruit salad look, and so I am in the process of crafting a logical
  42 ;; color scheme that is high contrast enough for me, without being too
  43 ;; unpleasing.
  44 ;;
  45 ;; In circumstances where there a lot of related faces that can be
  46 ;; viewed, for example, the Gnus group buffer, consistent and logical
  47 ;; color choices are the only sane option. Gnus groups can be newa
  48 ;; (blueish) or mail (greenish), have states (large number of under
  49 ;; messages, normal, and empty). The large number unread groups have
  50 ;; highest luminance (appear brighter), and the empty one have lower
  51 ;; luminance (appear greyer), but have the same chroma and saturation.
  52 ;; Sub states and group priorities are rendered using a color series
  53 ;; which has constant luminance and saturation, and vary in hue by a
  54 ;; constant separation -- so all the related groups have the same
  55 ;; brightness ({mail,news}/{unread,normal,empty}), and a graded
  56 ;; selection of foreground colors.  It sounds more complicated that it
  57 ;; looks. The eye is drawn naturally to the unread groups, and first
  58 ;; to the mail, then USENET groups (which is my preference).
  59 ;;
  60 ;; Similar color variations occur for individual messages in a group;
  61 ;; high scoring messages bubble to the top, and have a higher
  62 ;; luminance.  This color schema has made me slightly faster at
  63 ;; reading mail/USENET.
  64 ;;
  65 ;; In the message itself, quoted mail messages from different people
  66 ;; are color coordinated, with high contrast beteen citations that are
  67 ;; close to each other in the heirarchy, so it is less likely that one
  68 ;; misunderstands who said what in a long conversation.
  69 ;;
  70 ;; The following scheme covers programming languages, Gnus, Erc, mail,
  71 ;; org-mode, CUA-mode, apt-utils, bbdb, compilation buffers, changelog
  72 ;; mode, diff and ediff, eshell, and more. You need emacs-goodies
  73 ;; package on Debian to use this.  See the wiki page at
  74 ;; http://www.emacswiki.org/cgi-bin/wiki?ColorTheme for details. The
  75 ;; project home page is at https://gna.org/projects/color-theme
  76 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  77
  78
  79 (defun color-theme-manoj-font-lock ()
  80   "Dark font-lock theme. Language constructs (types, preprocessor
  81   directives, etc) are bluish, user variables are greenish,
  82   Comments, strings, and doc content are reddish.  This is
  83   intended for other color themes to use."
  84   (interactive)
  85   (color-theme-install
  86    '(color-theme-manoj-font-lock
  87      nil
  88      (font-lock-builtin-face       ((t (:foreground "LightSteelBlue"))))
  89      (font-lock-constant-face      ((t (:foreground "LightSlateBlue" :bold t)))) ;Aquamarine
  90      (font-lock-exit-face          ((t (:foreground "LightBlue"))))
  91      (font-lock-preprocessor-face  ((t (:foreground "CornFlowerBlue" :italic t)))) ;LightSteelBlue
  92      (font-lock-keyword-face       ((t (:foreground "cyan1"))))
  93      (font-lock-other-type-face    ((t (:foreground "Turquoise" :bold t))))
  94      (font-lock-type-face          ((t (:foreground "SteelBlue1")))) ;PaleGreen
  95      (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
  96      (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
  97
  98      (font-lock-variable-name-face ((t (:foreground "Aquamarine")))) ;LightGoldenrod
  99      (font-lock-function-name-face ((t (:foreground "mediumspringgreen" :weight bold :height 1.1)))) ;LightSkyBlue
 100      (font-lock-reference-face     ((t (:foreground "PaleGreen"))))
 101      (font-lock-negation-char-face ((t (nil))))
 102      (cperl-array-face ((t (:foreground "LawnGreen" :background "B;ack" :bold t))))
 103      (cperl-hash-face ((t (:foreground "SpringGreen" :background "B;ack" :bold t :italic t))))
 104      (cperl-here-face  ((t (:foreground "RosyBrown1"))))
 105      (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
 106
 107      (font-lock-string-face        ((t (:foreground "RosyBrown1")))) ;LightSalmon
 108      (font-lock-comment-face       ((t (:italic t :slant oblique :foreground "chocolate1"))))
 109      (font-lock-comment-delimiter-face ((t (:foreground "Salmon"))))
 110      (font-lock-doc-face           ((t (:italic t :slant oblique :foreground "LightCoral")))) ;LightSalmon
 111      (font-lock-doc-string-face    ((t (:foreground "Plum"))))
 112      (cperl-pod-face  ((t (:italic t :slant oblique :foreground "chocolate1"))))
 113      (cperl-pod-head-face ((t (:foreground "tomato"))))
 114
 115
 116      (cperl-invalid-face ((t (:foreground "MediumPurple1"))))
 117      (font-lock-emphasized-face    ((t (:bold t))))
 118
 119      (font-lock-other-emphasized-face ((t (:italic t :bold t))))
 120      (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))))))
 121
 122 (defun color-theme-manoj-gnus ()
 123   "Blue (news) and green (mail) theme for gnus on dark backgrounds.
 124 Unread groups have highest luminance, empty group have lower
 125 luminance.  Within a set of type,state ({mail,news}/{{unread,normal,empty}),
 126 groups have a constant luminosity and saturation, and vary in hue
 127 by a constant amount.
 128
 129 This is intended for other color themes to use."
 130
 131   (interactive)
 132   (color-theme-install
 133    '(color-theme-manoj-gnus
 134      nil
 135      (gnus-button ((t (:bold t :weight bold :background "#191932" :box (:line-width 2 :style released-button)))))
 136      (gnus-cite-attribution-face ((t (:italic t))))
 137      (gnus-cite-face-1  ((t (:foreground "CornflowerBlue"))))
 138      (gnus-cite-face-2  ((t (:foreground "PaleGreen"))))
 139      (gnus-cite-face-3  ((t (:foreground "LightGoldenrod"))))
 140      (gnus-cite-face-4  ((t (:foreground "LightPink"))))
 141      (gnus-cite-face-5  ((t (:foreground "turquoise"))))
 142      (gnus-cite-face-6  ((t (:foreground "khaki"))))
 143      (gnus-cite-face-7  ((t (:foreground "plum"))))
 144      (gnus-cite-face-8  ((t (:foreground "DeepSkyBlue1"))))
 145      (gnus-cite-face-9  ((t (:foreground "chartreuse1"))))
 146      (gnus-cite-face-10 ((t (:foreground "thistle1"))))
 147      (gnus-cite-face-11 ((t (:foreground "LightYellow1"))))
 148      (gnus-emphasis-bold ((t (:bold t :weight bold))))
 149      (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
 150      (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
 151      (gnus-emphasis-italic ((t (:italic t :slant italic))))
 152      (gnus-emphasis-strikethru ((t (:strike-through t))))
 153      (gnus-emphasis-underline ((t (:underline t))))
 154      (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
 155      (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
 156      (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
 157
 158      (gnus-header-content ((t (:italic t :foreground "DarkKhaki" :slant italic))))
 159      (gnus-header-content-face ((t (:italic t :foreground "DarkKhaki" :slant italic))))
 160      (gnus-header-from ((t (:foreground "PaleGreen1"))))
 161      (gnus-header-from-face ((t (:foreground "PaleGreen1"))))
 162      (gnus-header-name ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
 163      (gnus-header-name-face ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
 164      (gnus-header-newsgroups ((t (:italic t :foreground "yellow" :slant italic))))
 165      (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
 166      (gnus-header-subject ((t (:foreground "coral1"))))
 167      (gnus-header-subject-face ((t (:foreground "coral1"))))
 168      (gnus-signature ((t (:italic t :slant italic))))
 169      (gnus-signature-face ((t (:italic t :slant italic))))
 170      (gnus-splash ((t (:foreground "#cccccc"))))
 171      (gnus-splash-face ((t (:foreground "#cccccc"))))
 172      (gnus-topic-face ((t (:italic t :bold t :foreground "lavender" :background "black" :slant italic :weight bold))))
 173
 174      (fp-topic-face ((t (:italic t :bold t :background "black" :foreground "lavender" :slant italic :weight bold))))
 175      (face-6 ((t (:foreground "pink"))))
 176      (face-7 ((t (:foreground "steelblue"))))
 177      (face-8 ((t (:foreground "lime green"))))
 178
 179
 180      (gnus-summary-cancelled ((t (:background "black" :foreground "yellow"))))
 181      (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
 182
 183      (gnus-summary-high-ancient ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
 184      (gnus-summary-high-ancient-face ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
 185      (gnus-summary-normal-ancient ((t (:foreground "SkyBlue"))))
 186      (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
 187      (gnus-summary-low-ancient ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
 188      (gnus-summary-low-ancien-facet ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
 189
 190      (gnus-summary-high-read ((t (:bold t :foreground "grey60" :weight bold))))
 191      (gnus-summary-high-read-face ((t (:bold t :foreground "grey60" :weight bold))))
 192      (gnus-summary-normal-read ((t (:foreground "grey50"))))
 193      (gnus-summary-normal-read-face ((t (:foreground "grey50"))))
 194      (gnus-summary-low-read ((t (:italic t :foreground "LightSlateGray" :slant italic))))
 195      (gnus-summary-low-read-face ((t (:italic t :foreground "LightSlateGray" :slant italic))))
 196
 197      (gnus-summary-high-ticked ((t (:bold t :foreground "RosyBrown" :weight bold))))
 198      (gnus-summary-high-ticked-face ((t (:bold t :foreground "RosyBrown" :weight bold))))
 199      (gnus-summary-normal-ticked ((t (:foreground "LightSalmon"))))
 200      (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
 201      (gnus-summary-low-ticked ((t (:italic t :foreground "pink" :slant italic))))
 202      (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
 203
 204      (gnus-summary-high-undownloaded ((t (:bold t :foreground "ivory3" :weight bold))))
 205      (gnus-summary-normal-undownloaded ((t (:foreground "LightGray" :weight normal))))
 206      (gnus-summary-low-undownloaded ((t (:italic t :foreground "grey75" :slant italic :weight normal))))
 207
 208      (gnus-summary-high-unread ((t (:bold t :foreground "PaleGreen" :weight bold))))
 209      (gnus-summary-high-unread-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
 210      (gnus-summary-normal-unread ((t (:foreground "YellowGreen"))))
 211      (gnus-summary-normal-unread-face ((t (:foreground "YellowGreen"))))
 212      (gnus-summary-low-unread ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
 213      (gnus-summary-low-unread-face ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
 214
 215      (my-gnus-direct-fup-face ((t (:bold t :background "NavyBlue" :foreground "#70fc70" :weight bold))))
 216      (my-gnus-indirect-fup-face ((t (:bold t :background "#092109" :foreground "#7fff7f" :weight bold))))
 217      (my-gnus-own-posting-face ((t (:bold t :background "#210909" :foreground "chartreuse3" :weight bold))))
 218
 219      (gnus-summary-root-face ((t (:bold t :foreground "Red" :weight bold))))
 220      (gnus-summary-selected ((t (:underline t :foreground "LemonChiffon"))))
 221      (gnus-summary-selected-face ((t (:underline t :foreground "LemonChiffon"))))
 222      (gnus-user-agent-bad-face ((t (:bold t :background "black" :foreground "red" :weight bold))))
 223      (gnus-user-agent-good-face ((t (:background "black" :foreground "green"))))
 224      (gnus-user-agent-unknown-face ((t (:bold t :background "black" :foreground "orange" :weight bold))))
 225      (gnus-x-face ((t (:background "white" :foreground "black"))))
 226
 227      (my-group-face-2 ((t (:bold t :foreground "DarkSeaGreen1" :weight bold))))
 228      (my-group-face-3 ((t (:bold t :foreground "Green1" :weight bold))))
 229      (my-group-face-4 ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
 230      (my-group-face-5 ((t (:bold t :foreground "beige" :weight bold))))
 231
 232      (my-group-mail-unread-crit-1 ((t (:bold t :foreground "#99FFAA" :weight bold))))
 233      (my-group-mail-unread-crit-2 ((t (:foreground "#99FF9C" :weight normal))))
 234      (my-group-mail-unread-crit-3 ((t (:foreground "#A3FF99" :weight normal))))
 235
 236      (my-group-mail-unread-high-1 ((t (:bold t :foreground "#B1FF99" :weight bold))))
 237      (my-group-mail-unread-high-2 ((t (:foreground "#BEFF99" :weight normal))))
 238      (my-group-mail-unread-high-3 ((t (:foreground "#CCFF99" :weight normal))))
 239
 240      (my-group-mail-unread-mod-1 ((t (:bold t :foreground "#DAFF99" :weight bold))))
 241      (my-group-mail-unread-mod-2 ((t (:foreground "#E7FF99" :weight normal))))
 242      (my-group-mail-unread-mod-3 ((t (:foreground "#F5FF99" :weight normal))))
 243
 244      (gnus-group-mail-1 ((t (:bold t :foreground "#3BFF00" :weight normal))))
 245      (gnus-group-mail-1-face ((t (:bold t :foreground "#3BFF00" :weight normal))))
 246      (gnus-group-mail-2 ((t (:bold t :foreground "#5EFF00" :weight normal))))
 247      (gnus-group-mail-2-face ((t (:bold t :foreground "#5EFF00" :weight normal))))
 248      (gnus-group-mail-3 ((t (:bold t :foreground "#80FF00" :weight normal))))
 249      (gnus-group-mail-3-face ((t (:bold t :foreground "#A1FF00" :weight normal))))
 250
 251
 252      (gnus-group-mail-1-empty ((t (:foreground "#249900"))))
 253      (gnus-group-mail-1-empty-face ((t (:foreground "#249900"))))
 254      (gnus-group-mail-2-empty ((t (:foreground "#389900"))))
 255      (gnus-group-mail-2-empty-face ((t (:foreground "#389900"))))
 256      (gnus-group-mail-3-empty ((t (:foreground "#4D9900"))))
 257      (gnus-group-mail-3-empty-face ((t (:foreground "#4D9900"))))
 258
 259      (gnus-group-mail-low ((t (:bold t :foreground "aquamarine2" :weight bold))))
 260      (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
 261      (gnus-group-mail-low-empty ((t (:foreground "aquamarine2"))))
 262      (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine2"))))
 263
 264
 265      (my-group-news-unread-crit-3 ((t (:bold t :foreground "#BFB3FF" :weight bold))))
 266      (my-group-news-unread-crit-4 ((t (:bold t :foreground "#BAB3FF" :weight bold))))
 267      (my-group-news-unread-crit-5 ((t (:foreground "#B5B3FF" :weight normal))))
 268      (my-group-news-unread-crit-6 ((t (:foreground "#B3B5FF" :weight normal))))
 269
 270      (my-group-news-unread-high-3 ((t (:bold t :foreground "#B3BAFF" :weight bold))))
 271      (my-group-news-unread-high-4 ((t (:bold t :foreground "#B3BFFF" :weight bold))))
 272      (my-group-news-unread-high-5 ((t (:foreground "#B3C4FF" :weight normal))))
 273      (my-group-news-unread-high-6 ((t (:foreground "#B3C9FF" :weight normal))))
 274
 275      (my-group-news-unread-mod-3 ((t (:bold t :foreground "#B3CFFF" :weight bold))))
 276      (my-group-news-unread-mod-4 ((t (:bold t :foreground "#B3D4FF" :weight bold))))
 277      (my-group-news-unread-mod-5 ((t (:foreground "#B3D9FF" :weight normal))))
 278      (my-group-news-unread-mod-6 ((t (:foreground "#B3DEFF" :weight normal))))
 279
 280
 281      (gnus-group-news-1 ((t (:bold t :foreground "#8480FF" :weight bold))))
 282      (gnus-group-news-1-face ((t (:bold t :foreground "#8480FF" :weight bold))))
 283      (gnus-group-news-2 ((t (:bold t :foreground "#8088FF" :weight bold))))
 284      (gnus-group-news-2-face ((t (:bold t :foreground "#8088FF" :weight bold))))
 285      (gnus-group-news-3 ((t (:bold t :foreground "#8095FF" :weight bold))))
 286      (gnus-group-news-3-face ((t (:bold t :foreground "#8095FF" :weight bold))))
 287      (gnus-group-news-4 ((t (:bold t :foreground "#80A1FF" :weight bold))))
 288      (gnus-group-news-4-face ((t (:bold t :foreground "#80A1FF" :weight bold))))
 289      (gnus-group-news-5 ((t (:bold t :foreground "#80AEFF" :weight bold))))
 290      (gnus-group-news-5-face ((t (:bold t :foreground "#80AEFF" :weight bold))))
 291      (gnus-group-news-6 ((t (:bold t :foreground "#80BBFF" :weight bold))))
 292      (gnus-group-news-6-face ((t (:bold t :foreground "#80BBFF" :weight bold))))
 293
 294
 295      (gnus-group-news-1-empty ((t (:foreground "#524DFF"))))
 296      (gnus-group-news-1-empty-face ((t (:foreground "#524DFF"))))
 297      (gnus-group-news-2-empty ((t (:foreground "#4D58FF"))))
 298      (gnus-group-news-2-empty-face ((t (:foreground "#4D58FF"))))
 299      (gnus-group-news-3-empty ((t (:foreground "#4D6AFF"))))
 300      (gnus-group-news-3-empty-face ((t (:foreground "#4D6AFF"))))
 301      (gnus-group-news-4-empty ((t (:foreground "#4D7CFF"))))
 302      (gnus-group-news-4-empty-face ((t (:foreground "#4D7CFF"))))
 303      (gnus-group-news-5-empty ((t (:foreground "#4D8EFF"))))
 304      (gnus-group-news-5-empty-face ((t (:foreground "#4D8EFF"))))
 305      (gnus-group-news-6-empty ((t (:foreground "#4DA0FF"))))
 306      (gnus-group-news-6-empty-face ((t (:foreground "#4DA0FF"))))
 307
 308      (gnus-group-news-low ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
 309      (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
 310      (gnus-group-news-low-empty ((t (:foreground "DarkTurquoise"))))
 311      (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
 312
 313
 314 )))
 315
 316 (defun color-theme-manoj-message ()
 317   "Blue green theme for message on dark backgrounds.
 318 This is intended for other color themes to use."
 319   (color-theme-install
 320    '(color-theme-manoj-message
 321      nil
 322      (mmm-face ((t (:background "black" :foreground "green"))))
 323      (message-cited-text ((t (:foreground "red3"))))
 324      (message-header-cc ((t (:bold t :foreground "chartreuse1" :weight bold))))
 325      (message-header-cc-face ((t (:bold t :foreground "chartreuse1" :weight bold))))
 326      (message-header-name ((t (:foreground "green"))))
 327      (message-header-name-face ((t (:foreground "green"))))
 328      (message-header-newsgroups ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
 329      (message-header-newsgroups-face ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
 330      (message-header-other ((t (:foreground "ivory"))))
 331      (message-header-other-face ((t (:foreground "ivory"))))
 332      (message-header-subject ((t (:foreground "OliveDrab1"))))
 333      (message-header-subject-face ((t (:foreground "OliveDrab1"))))
 334      (message-header-to ((t (:bold t :foreground "floral white" :weight bold))))
 335      (message-header-to-face ((t (:bold t :foreground "floral white" :weight bold))))
 336      (message-header-xheader ((t (:foreground "DeepSkyBlue1"))))
 337      (message-header-xheader-face ((t (:foreground "DeepSkyBlue1"))))
 338      (message-mml ((t (:foreground "MediumSpringGreen"))))
 339      (message-mml-face ((t (:foreground "MediumSpringGreen"))))
 340      (message-separator ((t (:foreground "LightSkyBlue1"))))
 341      (message-separator-face ((t (:foreground "LightSkyBlue1"))))
 342      (message-url ((t (:bold t :foreground "blue" :weight bold)))))))
 343
 344 (defun color-theme-manoj-erc ()
 345   "Blue green theme for erc on dark backgrounds.
 346 This is intended for other color themes to use."
 347   (color-theme-install
 348    '(color-theme-manoj-erc
 349      nil
 350      (bg:erc-color-face0 ((t (:background "saddle brown"))))
 351      (bg:erc-color-face1 ((t (:background "black"))))
 352      (bg:erc-color-face10 ((t (:background "DodgerBlue4"))))
 353      (bg:erc-color-face11 ((t (:background "cyan4"))))
 354      (bg:erc-color-face12 ((t (:background "blue"))))
 355      (bg:erc-color-face13 ((t (:background "deeppink"))))
 356      (bg:erc-color-face14 ((t (:background "gray50"))))
 357      (bg:erc-color-face15 ((t (:background "grey15"))))
 358      (bg:erc-color-face2 ((t (:background "blue4"))))
 359      (bg:erc-color-face3 ((t (:background "green4"))))
 360      (bg:erc-color-face4 ((t (:background "red"))))
 361      (bg:erc-color-face5 ((t (:background "brown"))))
 362      (bg:erc-color-face6 ((t (:background "purple"))))
 363      (bg:erc-color-face7 ((t (:background "orange"))))
 364      (bg:erc-color-face8 ((t (:background "yellow4"))))
 365      (bg:erc-color-face9 ((t (:background "green"))))
 366      (erc-action-face ((t (:bold t :weight bold :foreground "turquoise1"))))
 367      (erc-bold-face ((t (:bold t :weight bold))))
 368      (erc-button ((t (:bold t :weight bold :foreground "RoyalBlue1" :box (:line-width 2 :style released-button)))))
 369      (erc-button-face ((t (:bold t :weight bold :foreground "RoyalBlue1" :box (:line-width 2 :style released-button)))))
 370      (erc-command-indicator-face ((t (:bold t :weight bold))))
 371      (erc-current-nick-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
 372      (erc-dangerous-host-face ((t (:foreground "red"))))
 373      (erc-default-face ((t (nil))))
 374      (erc-direct-msg-face ((t (:foreground "sandybrown"))))
 375      (erc-error-face ((t (:foreground "red"))))
 376      (erc-fool-face ((t (:foreground "dim gray"))))
 377      (erc-header-line ((t (:background "grey95" :foreground "ConFlowerBlue"))))
 378      (erc-input-face ((t (:foreground "brown"))))
 379      (erc-inverse-face ((t (:background "Black" :foreground "White"))))
 380      (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
 381      (erc-my-nick-face ((t (:bold t :foreground "brown" :weight bold))))
 382      (erc-nick-default-face ((t (:bold t :weight bold :foreground "DodgerBlue1"))))
 383      (erc-button-nickname-face ((t (:bold t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button) ))))
 384      (erc-nick-msg-face ((t (:bold t :foreground "IndianRed" :weight bold))))
 385      (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
 386      (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
 387      (erc-prompt-face ((t (:bold t :background "Navy" :foreground "lightBlue2" :weight bold))))
 388      (erc-timestamp-face ((t (:bold t :foreground "SeaGreen1" :weight bold))))
 389      (erc-underline-face ((t (:underline t))))
 390      (fg:erc-color-face0 ((t (:foreground "BlanchedAlmond"))))
 391      (fg:erc-color-face1 ((t (:foreground "beige"))))
 392      (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
 393      (fg:erc-color-face11 ((t (:foreground "cyan"))))
 394      (fg:erc-color-face12 ((t (:foreground "lightblue1"))))
 395      (fg:erc-color-face13 ((t (:foreground "deeppink"))))
 396      (fg:erc-color-face14 ((t (:foreground "gray50"))))
 397      (fg:erc-color-face15 ((t (:foreground "gray90"))))
 398      (fg:erc-color-face2 ((t (:foreground "blue4"))))
 399      (fg:erc-color-face3 ((t (:foreground "green4"))))
 400      (fg:erc-color-face4 ((t (:foreground "red"))))
 401      (fg:erc-color-face5 ((t (:foreground "brown"))))
 402      (fg:erc-color-face6 ((t (:foreground "purple"))))
 403      (fg:erc-color-face7 ((t (:foreground "orange"))))
 404      (fg:erc-color-face8 ((t (:foreground "yellow"))))
 405      (fg:erc-color-face9 ((t (:foreground "green")))))))
 406
 407 (defun color-theme-manoj-org ()
 408   "Blue green theme for org on dark backgrounds.
 409 This is intended for other color themes to use."
 410   (color-theme-install
 411    '(color-theme-manoj-org
 412      nil
 413      (org-agenda-date ((t (:foreground "LightSkyBlue"))))
 414      (org-agenda-date-weekend ((t (:bold t :foreground "LightSkyBlue" :weight bold))))
 415      (org-agenda-restriction-lock ((t (:background "skyblue4"))))
 416      (org-agenda-structure ((t (:foreground "LightSkyBlue"))))
 417      (org-archived ((t (:foreground "grey70"))))
 418      (org-code ((t (:foreground "grey70"))))
 419      (org-column ((t (:background "grey30" :strike-through nil :underline nil :slant normal :weight normal :height 81 :family "unknown-DejaVu Sans Mono"))))
 420      (org-column-title ((t (:bold t :background "grey30" :underline t :weight bold))))
 421      (org-date ((t (:foreground "Cyan" :underline t))))
 422      (org-done ((t (:bold t :foreground "PaleGreen" :weight bold))))
 423      (org-drawer ((t (:foreground "LightSkyBlue"))))
 424      (org-ellipsis ((t (:foreground "LightGoldenrod" :underline t))))
 425      (org-formula ((t (:foreground "chocolate1"))))
 426      (org-headline-done ((t (:foreground "LightSalmon"))))
 427      (org-hide ((t (:foreground "black"))))
 428      (org-latex-and-export-specials ((t (:foreground "burlywood"))))
 429      (org-level-1 ((t (:foreground "LightSkyBlue"))))
 430      (org-level-2 ((t (:foreground "LightGoldenrod"))))
 431      (org-level-3 ((t (:foreground "Cyan1"))))
 432      (org-level-4 ((t (:foreground "chocolate1"))))
 433      (org-level-5 ((t (:foreground "PaleGreen"))))
 434      (org-level-6 ((t (:foreground "Aquamarine"))))
 435      (org-level-7 ((t (:foreground "LightSteelBlue"))))
 436      (org-level-8 ((t (:foreground "LightSalmon"))))
 437      (org-link ((t (:foreground "Cyan" :underline t))))
 438      (org-property-value ((t (nil))))
 439      (org-scheduled-previously ((t (:foreground "chocolate1"))))
 440      (org-scheduled-today ((t (:foreground "PaleGreen"))))
 441      (org-sexp-date ((t (:foreground "Cyan"))))
 442      (org-special-keyword ((t (:foreground "LightSalmon"))))
 443      (org-table ((t (:foreground "LightSkyBlue"))))
 444      (org-tag ((t (:bold t :weight bold))))
 445      (org-target ((t (:underline t))))
 446      (org-time-grid ((t (:foreground "LightGoldenrod"))))
 447      (org-todo ((t (:bold t :foreground "Pink" :weight bold))))
 448      (org-upcoming-deadline ((t (:foreground "chocolate1"))))
 449      (org-verbatim ((t (:foreground "grey70" :underline t))))
 450      (org-warning ((t (:bold t :weight bold :foreground "Pink"))))
 451      (outline-1 ((t (:foreground "LightSkyBlue"))))
 452      (outline-2 ((t (:foreground "LightGoldenrod"))))
 453      (outline-3 ((t (:foreground "Cyan1"))))
 454      (outline-4 ((t (:foreground "chocolate1"))))
 455      (outline-5 ((t (:foreground "PaleGreen"))))
 456      (outline-6 ((t (:foreground "Aquamarine"))))
 457      (outline-7 ((t (:foreground "LightSteelBlue"))))
 458      (outline-8 ((t (:foreground "LightSalmon")))))))
 459
 460 (defun color-theme-manoj-dark ()
 461   "Color theme by Manoj Srivastava, created 2008-05-22.
 462 A dark background theme, with special care being taken for gnus faces."
 463   (interactive)
 464   (color-theme-standard)
 465   (color-theme-manoj-font-lock)
 466   (color-theme-manoj-gnus)
 467   (color-theme-manoj-message)
 468   (color-theme-manoj-erc)
 469   (color-theme-manoj-org)
 470   (let ((color-theme-is-cumulative t))
 471     (color-theme-install
 472      '(color-theme-manoj-dark
 473        ((background-color . "black")
 474         (background-mode . dark)
 475         (border-color . "gold")
 476         (cursor-color . "orchid")
 477         (background-toolbar-color . "#cf3ccf3ccf3c")
 478         (bottom-toolbar-shadow-color . "#79e77df779e7")
 479         (top-toolbar-shadow-color . "#fffffbeeffff")
 480         (foreground-color . "WhiteSmoke") ;peachpuff cornsilk SteelBlue LightSkyBlue
 481         (mouse-color . "OrangeRed"))
 482        ((CUA-mode-global-mark-cursor-color . "cyan")
 483         (CUA-mode-normal-cursor-color . "yellow")
 484         (CUA-mode-overwrite-cursor-color . "red")
 485         (CUA-mode-read-only-cursor-color . "green"))
 486        (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
 487        (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
 488        (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
 489        (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
 490        (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
 491        (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
 492        (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
 493        (Man-overstrike-face ((t (:bold t :weight bold))))
 494        (Man-underline-face  ((t (:underline t))))
 495        (align-highlight-nochange-face ((t (:background "SkyBlue4"))))
 496        (apropos-keybinding-face  ((t (:underline t))))
 497        (apropos-label-face  ((t (:italic t))))
 498        (apropos-match-face ((t (:background "SkyBlue4"))))
 499        (apropos-property-face ((t (:bold t :italic t :slant italic :weight bold))))
 500        (apropos-symbol-face ((t (:bold t :weight bold))))
 501        (apt-utils-broken-face ((t (:foreground "red"))))
 502        (apt-utils-description-face ((t (:foreground "cadet blue"))))
 503        (apt-utils-field-contents-face ((t (:foreground "orange"))))
 504        (apt-utils-field-keyword-face ((t (:bold t :foreground "purple" :weight bold))))
 505        (apt-utils-file-face ((t (:foreground "brown"))))
 506        (apt-utils-installed-status-face ((t (:italic t :slant italic))))
 507        (apt-utils-normal-package-face ((t (:foreground "yellow"))))
 508        (apt-utils-version-face ((t (:italic t :slant italic))))
 509        (apt-utils-virtual-package-face ((t (:foreground "green"))))
 510        (bbdb-company ((t (:italic t :slant italic))))
 511        (bbdb-field-name ((t (:bold t :weight bold))))
 512        (bbdb-field-value ((t (nil))))
 513        (bbdb-name ((t (:underline t))))
 514        (blank-space-face ((t (:background "DarkGray"))))
 515        (blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
 516        (blue ((t (:foreground "blue"))))
 517        (bold ((t (:bold t :weight bold))))
 518        (bold-italic ((t (:bold t :italic t :slant italic :weight bold))))
 519        (border ((t (:background "gold" :foreground "black" ))))
 520        (browse-kill-ring-separator-face ((t (:bold t :weight bold))))
 521        (buffer-menu-buffer ((t (:bold t :weight bold))))
 522        (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
 523        (buffers-tab-face ((t (:background "black" :foreground "LightSkyBlue"))))
 524        (button ((t (:underline t :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold ))))
 525        (calendar-today-face ((t (:underline t :bold t :foreground "cornsilk"))))
 526        (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
 527        (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
 528        (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
 529        (change-log-email-face ((t (:foreground "Aquamarine"))))
 530        (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
 531        (change-log-function-face ((t (:foreground "Aquamarine"))))
 532        (change-log-list-face ((t (:foreground "LightSkyBlue"))))
 533        (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
 534        (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))))
 535        (clearcase-dired-checkedout-face ((t (:foreground "red"))))
 536        (comint-highlight-input ((t (:bold t :weight bold))))
 537        (comint-highlight-prompt ((t (:foreground "cyan1"))))
 538        (compilation-column-number ((t (:foreground "PaleGreen"))))
 539        (compilation-error ((t (:bold t :weight bold :foreground "Pink"))))
 540        (compilation-info ((t (:bold t :foreground "Green1" :weight bold))))
 541        (compilation-line-number ((t (:foreground "LightGoldenrod"))))
 542        (compilation-message-face  ((t (:underline t))))
 543        (compilation-warning ((t (:bold t :foreground "Orange" :weight bold))))
 544        (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))))
 545        (completions-first-difference ((t (:bold t :weight bold))))
 546        (cscope-file-face ((t (:foreground "blue"))))
 547        (cscope-function-face ((t (:foreground "magenta"))))
 548        (cscope-line-face ((t (:foreground "green"))))
 549        (cscope-line-number-face ((t (:foreground "red"))))
 550        (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
 551        (cursor ((t (:background "orchid"))))
 552        (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
 553        (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
 554        (custom-changed-face ((t (:foreground "wheat" :background "blue"))))
 555        (custom-comment-face ((t (:background "dim gray"))))
 556        (custom-comment-tag-face ((t (:foreground "gray80"))))
 557        (custom-documentation-face ((t (nil))))
 558        (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
 559        (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
 560        (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
 561        (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
 562        (custom-modified-face ((t (:background "blue" :foreground "white"))))
 563        (custom-rogue-face ((t (:background "black" :foreground "pink"))))
 564        (custom-saved-face ((t (:underline t))))
 565        (custom-set-face ((t (:background "white" :foreground "blue"))))
 566        (custom-state-face ((t (:foreground "lime green"))))
 567        (custom-variable-button-face ((t (:bold t :underline t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
 568        (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
 569        (cvs-filename-face ((t (:foreground "white"))))
 570        (cvs-handled-face ((t (:foreground "pink"))))
 571        (cvs-header-face ((t (:foreground "green"))))
 572        (cvs-marked-face ((t (:bold t :foreground "green3"))))
 573        (cvs-msg-face ((t (:foreground "red"))))
 574        (cvs-need-action-face ((t (:foreground "yellow"))))
 575        (cvs-unknown-face ((t (:foreground "grey"))))
 576        (cyan-bold ((t (:bold t :foreground "cyan" :weight bold))))
 577        (cyan-italic ((t (:italic t :foreground "cyan" :slant italic))))
 578        (darkviolet-bold ((t (:bold t :foreground "dark violet" :weight bold))))
 579        (darkviolet-italic ((t (:italic t :foreground "dark violet" :slant italic))))
 580        (debian-changelog-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
 581        (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"))))
 582        (develock-bad-manner ((t (:background "Yellow" :foreground "Black"))))
 583        (develock-lonely-parentheses ((t (:background "PaleTurquoise" :foreground "Blue"))))
 584        (develock-long-line-1 ((t (:foreground "Orange"))))
 585        (develock-long-line-2 ((t (:background "#1a1a42"))))
 586        (develock-reachable-mail-address ((t (:background "LemonChiffon" :foreground "DarkGreen"))))
 587        (develock-upper-case-attribute ((t (:background "Wheat" :foreground "Black"))))
 588        (develock-upper-case-tag ((t (:background "PowderBlue" :foreground "Black"))))
 589        (develock-whitespace-1 ((t (:background "Red" :foreground "Black"))))
 590        (develock-whitespace-2 ((t (:background "Orange" :foreground "Black"))))
 591        (develock-whitespace-3 ((t (:background "Yellow" :foreground "Black"))))
 592        (diary ((t (:foreground "IndianRed"))))
 593        (diary-anniversary ((t (:foreground "Cyan1"))))
 594        (diary-button ((t (:background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
 595        (diary-face ((t (:foreground "IndianRed"))))
 596        (diary-time ((t (:foreground "LightGoldenrod"))))
 597        (dictionary-button-face ((t (:bold t :weight bold :background "lightgrey" :foreground "black"  :box (:line-width 2 :style released-button)))))
 598        (dictionary-reference-face ((t (:foreground "yellow"))))
 599        (dictionary-word-entry-face ((t (:italic t :slant italic))))
 600        (diff-added-face ((t (:foreground "Green"))))
 601        (diff-changed-face ((t (:foreground "Khaki"))))
 602        (diff-context-face ((t (:foreground "grey70"))))
 603        (diff-file-header ((t (:bold t :background "grey20"  :foreground "ivory1" :weight bold))))
 604        (diff-file-header-face ((t (:bold t :background "grey20" :foreground "ivory1" :weight bold))))
 605        (diff-function-face ((t (:foreground "SpringGreen1"))))
 606        (diff-header-face ((t (:background "SlateBlue4"))))
 607        (diff-hunk-header-face ((t (:background "DodgerBlue4"))))
 608        (diff-index-face ((t (:bold t :weight bold :background "SteelBlue4" :foregounr "linen" ))))
 609        (diff-index-face ((t (:bold t :weight bold :background "SteelBlue4" :foregounr "linen" ))))
 610        (diff-nonexistent ((t (:bold t :weight bold :background "Black" :foreground "Wheat1"))))
 611        (diff-nonexistent-face ((t (:bold t :weight bold :background "Black" :foreground "Wheat1"))))
 612        (diff-removed-face ((t (:foreground "salmon1"))))
 613        (dired-face-boring ((t (:foreground "Gray65"))))
 614        (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
 615        (dired-face-executable ((t (:foreground "Green"))))
 616        (dired-face-flagged ((t (:background "DarkSlateGray" :foreground "LemonChiffon"))))
 617        (dired-face-header ((t (:background "grey15" :foreground "OldLace"))))
 618        (dired-face-marked ((t (:background "PaleVioletRed"))))
 619        (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
 620        (dired-face-setuid ((t (:foreground "Red"))))
 621        (dired-face-socket ((t (:foreground "magenta"))))
 622        (dired-face-symlink ((t (:foreground "cyan"))))
 623        (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
 624        (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
 625        (display-time-time-balloon-face ((t (:foreground "red"))))
 626        (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
 627        (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
 628        (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
 629        (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
 630        (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
 631        (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
 632        (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
 633        (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
 634        (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
 635        (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
 636        (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
 637        (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
 638        (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
 639        (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
 640        (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
 641        (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
 642        (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
 643        (eldoc-highlight-function-argument ((t (:bold t :weight bold))))
 644        (epa-field-body ((t (:italic t :foreground "turquoise" :slant italic))))
 645        (epa-field-name ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
 646        (epa-mark ((t (:bold t :foreground "orange" :weight bold))))
 647        (epa-string ((t (:foreground "lightyellow"))))
 648        (epa-validity-disabled ((t (:italic t :slant italic))))
 649        (epa-validity-high ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
 650        (epa-validity-low ((t (:italic t :slant italic))))
 651        (epa-validity-medium ((t (:italic t :foreground "PaleTurquoise" :slant italic))))
 652        (escape-glyph ((t (:foreground "cyan"))))
 653        (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
 654        (eshell-ls-backup-face ((t (:foreground "Grey"))))
 655        (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
 656        (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
 657        (eshell-ls-executable-face ((t (:foreground "Coral"))))
 658        (eshell-ls-missing-face ((t (:foreground "black"))))
 659        (eshell-ls-picture-face ((t (:foreground "Violet"))))
 660        (eshell-ls-product-face ((t (:foreground "sandybrown"))))
 661        (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
 662        (eshell-ls-special-face ((t (:foreground "Gold"))))
 663        (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
 664        (eshell-ls-symlink-face ((t (:foreground "White"))))
 665        (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
 666        (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
 667        (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
 668        (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
 669        (excerpt ((t (:italic t))))
 670        (ff-paths-non-existent-file-face ((t (:bold t :foreground "NavyBlue" :weight bold))))
 671        (file-name-shadow ((t (:foreground "grey70"))))
 672        (fixed ((t (:bold t))))
 673        (fixed-pitch ((t (:family "courier"))))
 674        (fl-comment-face ((t (:foreground "pink"))))
 675        (fl-doc-string-face ((t (:foreground "purple"))))
 676        (fl-function-name-face ((t (:foreground "red"))))
 677        (fl-keyword-face ((t (:foreground "cyan"))))
 678        (fl-string-face ((t (:foreground "green"))))
 679        (fl-type-face ((t (:foreground "yellow"))))
 680        (flyspell-duplicate-face ((t (:foreground "IndianRed" :bold t :underline t))))
 681        (flyspell-incorrect-face ((t (:foreground "Pink" :bold t :underline t))))
 682        (font-latex-sedate-face ((t (:foreground "Gray85"))))
 683        (font-latex-string-face ((t (:foreground "orange"))))
 684        (font-latex-warning-face ((t (:foreground "gold"))))
 685        (fringe ((t (:background "grey30" :foreground "Wheat"))))
 686        (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red"))))
 687        (goto-address-mail-face  ((t (:italic t :slant italic))))
 688        (goto-address-mail-face  ((t (:italic t :slant italic))))
 689        (goto-address-mail-mouse-face ((t (:background "SkyBlue4"))))
 690        (goto-address-mail-mouse-face ((t (:background "SkyBlue4"))))
 691        (goto-address-url-face  ((t (:bold t :weight bold))))
 692        (goto-address-url-face  ((t (:bold t :weight bold))))
 693        (green ((t (:foreground "green"))))
 694        (gui-button-face ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
 695        (gui-element ((t (:size "12" :background "#D4D0C8" :foreground "black"))))
 696        (header-line ((t (:box (:line-width -1 :color "grey20" :style released-button) :background "grey20" :foreground "grey90"  :height 0.9 :box nil))))
 697        (help-argument-name ((t (:italic t :slant italic))))
 698        (help-highlight-face  ((t (:underline t))))
 699        (help-highlight-face  ((t (:underline t))))
 700        (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
 701        (gnus-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
 702        (erc-button-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
 703        (align-highlight-change-face  ((t (:background "darkseagreen2" :foreground "blue"))))
 704        (goto-address-url-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
 705        (goto-address-url-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
 706        (ispell-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
 707        (ispell-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
 708        (tinyreplace-:face ((t (:background "darkseagreen2" :foreground "blue"))))
 709        (vc-mode-face  ((t (:background "darkseagreen2" :foreground "blue"))))
 710        (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
 711        (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
 712        (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
 713        (widget-mouse-face  ((t (:background "darkseagreen2" :foreground "blue"))))
 714        (highlight-beyond-fill-column-face ((t (:underline t))))
 715        (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
 716        (highlight-changes-face ((t (:foreground "red"))))
 717        (highline ((t (:background "darkolivegreen"))))
 718        (highline-face ((t (:background "darkolivegreen"))))
 719        (holiday ((t (:background "chocolate4"))))
 720        (holiday-face ((t (:background "chocolate4"))))
 721        (html-helper-bold-face ((t (:bold t))))
 722        (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
 723        (html-helper-underline-face ((t (:underline t))))
 724        (hyper-apropos-documentation ((t (:foreground "white"))))
 725        (hyper-apropos-heading ((t (:bold t))))
 726        (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
 727        (hyper-apropos-major-heading ((t (:bold t))))
 728        (hyper-apropos-section-heading ((t (:bold t))))
 729        (hyper-apropos-warning ((t (:bold t :foreground "red"))))
 730        (ibuffer-deletion-face ((t (:foreground "red"))))
 731        (ibuffer-dired-buffer-face ((t (:foreground "mediumspringgreen" :weight bold :height 1.1))))
 732        (ibuffer-help-buffer-face  ((t (:italic t :slant oblique :foreground "chocolate1"))))
 733        (ibuffer-hidden-buffer-face  ((t (:bold t :foreground "Pink" :weight bold))))
 734        (ibuffer-marked-face ((t (:foreground "green"))))
 735        (ibuffer-occur-match-face ((t (:bold t :foreground "Pink" :weight bold))))
 736        (ibuffer-read-only-buffer-face ((t (:foreground "SteelBlue1"))))
 737        (ibuffer-special-buffer-face ((t (:foreground "SteelBlue1"))))
 738        (ibuffer-title-face ((t (:foreground "SteelBlue1"))))
 739        (ido-first-match ((t (:bold t :weight bold))))
 740        (ido-incomplete-regexp ((t (:bold t :weight bold :foreground "Pink"))))
 741        (ido-indicator ((t (:background "red1" :foreground "yellow1" :width condensed))))
 742        (ido-only-match ((t (:foreground "ForestGreen"))))
 743        (ido-subdir ((t (:foreground "red1"))))
 744        (info-menu-5 ((t (:underline t))))
 745        (info-menu-header ((t (:bold t :family "helv" :weight bold))))
 746        (info-node ((t (:bold t :italic t :foreground "yellow"))))
 747        (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
 748        (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
 749        (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
 750        (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
 751        (isearch-fail ((t (:background "red4"))))
 752        (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
 753        (isearch-secondary ((t (:foreground "red3"))))
 754        (italic ((t (:italic t))))
 755        (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
 756        (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
 757        (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
 758        (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
 759        (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
 760        (jde-java-font-lock-bold-face ((t (:bold t))))
 761        (jde-java-font-lock-code-face ((t (nil))))
 762        (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
 763        (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
 764        (jde-java-font-lock-italic-face ((t (:italic t))))
 765        (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue"))))
 766        (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
 767        (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
 768        (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
 769        (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
 770        (jde-java-font-lock-pre-face ((t (nil))))
 771        (jde-java-font-lock-underline-face ((t (:underline t))))
 772        (lazy-highlight ((t (:background "paleturquoise4"))))
 773        (linemenu-face ((t (:background "gray30"))))
 774        (link ((t (:foreground "cyan1" :underline t))))
 775        (link-visited ((t (:underline t :foreground "violet"))))
 776        (list-matching-lines-buffer-name-face  ((t (:underline t))))
 777        (list-matching-lines-face ((t (:bold t :weight bold))))
 778        (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
 779        (magenta ((t (:foreground "magenta"))))
 780        (magenta-bold ((t (:bold t :foreground "magenta2" :weight bold))))
 781        (makefile-space-face ((t (:background "hotpink"))))
 782        (man-bold ((t (:bold t))))
 783        (man-heading ((t (:bold t))))
 784        (man-italic ((t (:foreground "yellow"))))
 785        (man-xref ((t (:underline t))))
 786        (match ((t (:background "RoyalBlue3"))))
 787        (menu ((t (nil))))
 788        (midnightblue-bold ((t (:bold t :foreground "midnightblue" :weight bold))))
 789        (midnightblue-italic ((t (:italic t :foreground "midnightblue" :slant italic))))
 790        (minibuffer-prompt ((t (:foreground "cyan"))))
 791        (mm-uu-extract ((t (:background "dark green" :foreground "light yellow"))))
 792        (mode-line ((t (:background "grey75" :foreground "Blue" :box (:line-width -1 :style released-button) :height 0.9))))
 793        (mode-line-buffer-id ((t (:background "grey65" :foreground "red" :bold t :weight bold :height 0.9))))
 794        (mode-line-emphasis ((t (:bold t :weight bold))))
 795        (mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button :height 0.9)))))
 796        (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light :height 0.9))))
 797        (modeline-mousable ((t (:background "white" :foreground "magenta"))))
 798        (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
 799        (mouse ((t (:background "OrangeRed"))))
 800        (next-error ((t (:background "blue3"))))
 801        (nobreak-space ((t (:foreground "cyan" :underline t))))
 802        (orchid-bold ((t (:bold t :foreground "MediumOrchid1" :weight bold))))
 803        (p4-depot-added-face ((t (:foreground "blue"))))
 804        (p4-depot-deleted-face ((t (:foreground "red"))))
 805        (p4-depot-unmapped-face ((t (:foreground "grey30"))))
 806        (p4-diff-change-face ((t (:foreground "dark green"))))
 807        (p4-diff-del-face ((t (:foreground "red"))))
 808        (p4-diff-file-face ((t (:background "gray90"))))
 809        (p4-diff-head-face ((t (:background "gray95"))))
 810        (p4-diff-ins-face ((t (:foreground "blue"))))
 811        (pabbrev-debug-display-label-face ((t (:underline "navy"))))
 812        (pabbrev-suggestions-face ((t (:foreground "PaleGreen"))))
 813        (pabbrev-suggestions-label-face ((t (nil))))
 814        (paren-blink-off ((t (:foreground "black"))))
 815        (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
 816        (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
 817        (plum ((t (:bold t :foreground "plum" :weight bold))))
 818        (primary-selection ((t (:background "blue"))))
 819        (qt-classes-face ((t (:foreground "Red"))))
 820        (query-replace ((t (:foreground "brown4" :background "palevioletred2"))))
 821        (red ((t (:foreground "red"))))
 822        (region ((t (:background "blue3"))))
 823        (scroll-bar ((t (:background "grey75" :foreground "WhiteSmoke"))))
 824        (secondary-selection ((t (:background "SkyBlue4"))))
 825        (semantic-dirty-token-face ((t (:background "lightyellow"))))
 826        (semantic-highlight-edits-face ((t (:background "gray20"))))
 827        (semantic-unmatched-syntax-face ((t (:underline "red"))))
 828        (senator-intangible-face ((t (:foreground "gray75"))))
 829        (senator-momentary-highlight-face ((t (:background "gray30"))))
 830        (senator-read-only-face ((t (:background "#664444"))))
 831        (setnu-line-number-face  ((t (:bold t :weight bold))))
 832        (sgml-doctype-face ((t (:foreground "orange"))))
 833        (sgml-end-tag-face ((t (:foreground "greenyellow"))))
 834        (sgml-entity-face ((t (:foreground "gold"))))
 835        (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
 836        (sgml-sgml-face ((t (:foreground "yellow"))))
 837        (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
 838        (shadow ((t (:foreground "grey70"))))
 839        (shell-option-face ((t (:foreground "blue4"))))
 840        (shell-output-2-face ((t (:foreground "green4"))))
 841        (shell-output-3-face ((t (:foreground "green4"))))
 842        (shell-output-face ((t (:bold t))))
 843        (shell-prompt-face ((t (:foreground "red4"))))
 844        (show-block-face1 ((t (:background "gray10"))))
 845        (show-block-face2 ((t (:background "gray15"))))
 846        (show-block-face3 ((t (:background "gray20"))))
 847        (show-block-face4 ((t (:background "gray25"))))
 848        (show-block-face5 ((t (:background "gray30"))))
 849        (show-block-face6 ((t (:background "gray35"))))
 850        (show-block-face7 ((t (:background "gray40"))))
 851        (show-block-face8 ((t (:background "gray45"))))
 852        (show-block-face9 ((t (:background "gray50"))))
 853        (show-paren-match ((t (:background "steelblue3"))))
 854        (show-paren-match-face ((t (:background "steelblue3"))))
 855        (show-paren-mismatch ((t (:background "purple" :foreground "white"))))
 856        (speedbar-button-face ((t (:foreground "green3"))))
 857        (speedbar-directory-face ((t (:foreground "light blue"))))
 858        (speedbar-file-face ((t (:foreground "cyan"))))
 859        (speedbar-highlight-face ((t (:background "sea green"))))
 860        (speedbar-selected-face ((t (:foreground "red" :underline t))))
 861        (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
 862        (speedbar-tag-face ((t (:foreground "yellow"))))
 863        (swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
 864        (table-cell ((t (:background "blue1" :foreground "gray90" :inverse-video nil))))
 865        (template-message-face ((t (:bold t))))
 866        (term-black ((t (:foreground "black"))))
 867        (term-blackbg ((t (nil))))
 868        (term-blue ((t (:foreground "blue"))))
 869        (term-blue-bold-face ((t (:bold t :foreground "blue"))))
 870        (term-blue-face ((t (:foreground "blue"))))
 871        (term-blue-inv-face ((t (:background "blue"))))
 872        (term-blue-ul-face ((t (:underline t :foreground "blue"))))
 873        (term-bluebg ((t (:background "blue"))))
 874        (term-bold ((t (:bold t))))
 875        (term-cyan ((t (:foreground "cyan"))))
 876        (term-cyan-bold-face ((t (:bold t :foreground "cyan"))))
 877        (term-cyan-face ((t (:foreground "cyan"))))
 878        (term-cyan-inv-face ((t (:background "cyan"))))
 879        (term-cyan-ul-face ((t (:underline t :foreground "cyan"))))
 880        (term-cyanbg ((t (:background "cyan"))))
 881        (term-default-bg ((t (nil))))
 882        (term-default-bg-inv ((t (nil))))
 883        (term-default-bold-face ((t (:bold t))))
 884        (term-default-face ((t (nil))))
 885        (term-default-fg ((t (nil))))
 886        (term-default-fg-inv ((t (nil))))
 887        (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
 888        (term-default-ul-face ((t (:underline t))))
 889        (term-green ((t (:foreground "green"))))
 890        (term-green-bold-face ((t (:bold t :foreground "green"))))
 891        (term-green-face ((t (:foreground "green"))))
 892        (term-green-inv-face ((t (:background "green"))))
 893        (term-green-ul-face ((t (:underline t :foreground "green"))))
 894        (term-greenbg ((t (:background "green"))))
 895        (term-invisible ((t (nil))))
 896        (term-invisible-inv ((t (nil))))
 897        (term-magenta ((t (:foreground "magenta"))))
 898        (term-magenta-bold-face ((t (:bold t :foreground "magenta"))))
 899        (term-magenta-face ((t (:foreground "magenta"))))
 900        (term-magenta-inv-face ((t (:background "magenta"))))
 901        (term-magenta-ul-face ((t (:underline t :foreground "magenta"))))
 902        (term-magentabg ((t (:background "magenta"))))
 903        (term-red ((t (:foreground "red"))))
 904        (term-red-bold-face ((t (:bold t :foreground "red"))))
 905        (term-red-face ((t (:foreground "red"))))
 906        (term-red-inv-face ((t (:background "red"))))
 907        (term-red-ul-face ((t (:underline t :foreground "red"))))
 908        (term-redbg ((t (:background "red"))))
 909        (term-underline ((t (:underline t))))
 910        (term-white ((t (:foreground "white"))))
 911        (term-white-bold-face ((t (:bold t :foreground "white"))))
 912        (term-white-face ((t (:foreground "white"))))
 913        (term-white-inv-face ((t (nil))))
 914        (term-white-ul-face ((t (:underline t :foreground "white"))))
 915        (term-whitebg ((t (:background "white"))))
 916        (term-yellow ((t (:foreground "yellow"))))
 917        (term-yellow-bold-face ((t (:bold t :foreground "yellow"))))
 918        (term-yellow-face ((t (:foreground "yellow"))))
 919        (term-yellow-inv-face ((t (:background "yellow"))))
 920        (term-yellow-ul-face ((t (:underline t :foreground "yellow"))))
 921        (term-yellowbg ((t (:background "yellow"))))
 922        (text-cursor ((t (:background "Red3" :foreground "black"))))
 923        (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
 924        (tooltip ((t (:family "helv" :background "lightyellow" :foreground "black"))))
 925        (trailing-whitespace ((t (:background "red1"))))
 926        (underline ((t (:underline t))))
 927        (variable-pitch ((t (:family "helv"))))
 928        (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
 929        (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
 930        (vertical-border ((t (:background "dim gray"))))
 931        (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
 932        (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
 933        (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
 934        (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
 935        (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
 936        (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
 937        (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
 938        (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
 939        (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
 940        (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
 941        (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
 942        (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
 943        (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
 944        (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
 945        (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
 946        (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
 947        (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
 948        (violet-bold ((t (:bold t :foreground "violet" :weight bold))))
 949        (violet-italic ((t (:italic t :foreground "violet" :slant italic))))
 950        (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
 951        (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
 952        (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
 953        (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
 954        (viper-search-face ((t (:foreground "Black" :background "khaki"))))
 955        (vm-highlight-url-face  ((t (:bold t :italic t :slant italic :weight bold))))
 956        (vm-highlighted-header-face  ((t (:bold t :weight bold))))
 957        (vm-mime-button-face  ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
 958        (vm-summary-highlight-face  ((t (:bold t :weight bold))))
 959        (vm-xface ((t (:background "white" :foreground "black"))))
 960        (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
 961        (vmpc-sig-face ((t (:foreground "steelblue"))))
 962        (which-func ((t (:foreground "Blue1"))))
 963        (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
 964        (widget-button ((t (:bold t :weight bold :box (:line-width 2 :style released-button)))))
 965        (widget-button-face ((t (:bold t :weight bold :box (:line-width 2 :style released-button)))))
 966        (widget-button-pressed ((t (:foreground "red1" :background "lightgrey" :box (:line-width 2 :style pressed-button)))))
 967        (widget-button-pressed-face ((t (:foreground "red1" :background "lightgrey" :box (:line-width 2 :style pressed-button)))))
 968        (widget-documentation ((t (:foreground "lime green"))))
 969        (widget-documentation-face ((t (:foreground "lime green"))))
 970        (widget-field ((t (:background "dim gray"))))
 971        (widget-field-face ((t (:background "dim gray"))))
 972        (widget-inactive ((t (:foreground "grey70"))))
 973        (widget-inactive-face ((t (:foreground "grey70"))))
 974        (widget-single-line-field ((t (:background "dim gray"))))
 975        (widget-single-line-field-face ((t (:background "dim gray"))))
 976        (woman-bold-face ((t (:bold t))))
 977        (woman-italic-face ((t (:foreground "beige"))))
 978        (woman-unknown-face ((t (:foreground "LightSalmon"))))
 979        (x-face ((t (:background "white" :foreground "black"))))
 980        (x-symbol-heading-face ((t (:bold t))))
 981        (xrdb-option-name-face ((t (:foreground "red"))))
 982        (xrdb-option-value-face ((t (:bold t :foreground "magenta"))))
 983        (xref-keyword-face ((t (:background "blue"))))
 984        (xref-list-default-face ((t (nil))))
 985        (xref-list-pilot-face ((t (:background "navy"))))
 986        (xref-list-symbol-face ((t (:background "navy"))))
 987        (yellow ((t (:foreground "yellow"))))
 988        (zmacs-region ((t (:background "cyan" :foreground "black"))))))))
 989
 990 (provide 'manoj-colors)