color-theme.el
1 ;;; color-theme.el --- install color themes 2 3 ;; Copyright (C) 1999, 2000 Jonadab the Unsightly One <jonadab@bright.net> 4 ;; Copyright (C) 2000, 2001, 2002, 2003 Alex Schroeder <alex@gnu.org> 5 ;; Copyright (C) 2003 Xavier Maillard <zedek@gnu-rox.org> 6 7 ;; Version: 6.5.4 8 ;; Keywords: faces 9 ;; Author: Jonadab the Unsightly One <jonadab@bright.net> 10 ;; Maintainer: Xavier Maillard <zedek@gnu-rox.org> 11 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme 12 13 ;; This file is not part of GNU Emacs. 14 15 ;; This is free software; you can redistribute it and/or modify it under 16 ;; the terms of the GNU General Public License as published by the Free 17 ;; Software Foundation; either version 2, or (at your option) any later 18 ;; version. 19 ;; 20 ;; This is distributed in the hope that it will be useful, but WITHOUT 21 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 22 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 23 ;; for more details. 24 ;; 25 ;; You should have received a copy of the GNU General Public License 26 ;; along with GNU Emacs; see the file COPYING. If not, write to the 27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, 28 ;; MA 02111-1307, USA. 29 30 ;;; Commentary: 31 32 ;; Sharing your current color setup: 33 ;; 34 ;; Use `color-theme-submit'. If you have already invested time in 35 ;; customizing Emacs faces, please consider sharing your current setup. 36 ;; Make sure that color-theme.el is in your `load-path'. Type M-x 37 ;; load-library RET color-theme RET to load all the functions. Type M-x 38 ;; color-theme-submit RET and mail the result to the maintainer of this 39 ;; package (see above for mail addres). 40 ;; 41 ;; If you want to make sure that all your customization was exported, 42 ;; type M-x list-faces-display RET to get a list of all faces currently 43 ;; defined. This is the list of faces that `color-theme-print' uses. 44 45 ;; Installing a color theme: 46 ;; 47 ;; Make sure that color-theme.el is in your `load-path'. Type M-x 48 ;; load-library RET color-theme RET to load all the functions. 49 ;; 50 ;; The main function to call is color-theme-select. Type M-x 51 ;; color-theme-select RET. That creates a Color Theme Selection 52 ;; buffer. Press RET or `i' on a color theme to install it for the 53 ;; rest of your session. 54 ;; 55 ;; If you want to install the color theme as soon as Emacs is started 56 ;; up, read the description of the theme you like and remember the 57 ;; name of the color theme function. Press `d' on a color theme in 58 ;; the Color Theme Selection buffer to read the description. Assuming 59 ;; you like the Gnome2 theme, you'll find that the function to use is 60 ;; called `color-theme-gnome2'. Add the following to the end of your 61 ;; .emacs (removing the leading `;;'). 62 ;; 63 ;; (require 'color-theme) 64 ;; (color-theme-gnome2) 65 66 ;; Changing menu colors: 67 ;; 68 ;; In Emacs 21 on X, you can set the menu colors and font using the 69 ;; menu face. Example for your .emacs file: 70 ;; 71 ;; (set-face-font 'menu "7x14") 72 ;; (set-face-foreground 'menu "white"). 73 ;; 74 ;; If are using X, you can set the menu foreground and background using 75 ;; a resource file, usually .Xdefaults or .Xresources. Usually 76 ;; .Xdefaults is used when you start your session using a display 77 ;; manager such as xdm or gdm. .Xresources is usually used when you 78 ;; start X directly via a shell script such as startx. If you set 79 ;; Emacs*Background and Emacs*Foreground in such a resource file, the 80 ;; foreground and background of Emacs including the menu will be set. 81 ;; If your .emacs then loads a color theme, the foreground and 82 ;; background are changed -- with the exception of the menu. There is 83 ;; no way to manipulate the menu foreground and background color from 84 ;; elisp. You can also set more specific menu resources for Emacs in 85 ;; the resource file. Here is a sample entry for your resource file: 86 ;; 87 ;; Emacs*Background: DarkSlateGray 88 ;; Emacs*Foreground: wheat 89 90 ;; Creating your own color theme: 91 ;; 92 ;; Use M-x customize-face and customize the faces. Make sure to "Set 93 ;; for Current Session" -- you don't want to save these using custom! 94 ;; When you are done, call M-x color-theme-print to produce the elisp 95 ;; code required to recreate your theme. Better yet, use M-x 96 ;; color-theme-submit to mail it to the maintainer. That way it will be 97 ;; added to future versions of color-theme.el. 98 ;; 99 ;; For more information on the elisp format of a color theme, start with 100 ;; the documentation of `color-theme-install' using C-h f 101 ;; color-theme-install. 102 ;; 103 ;; When your color theme is just a variation of an existing color theme, 104 ;; take a look at `color-theme-robin-hood' in order to see an example of 105 ;; how to do it. Essentially you want to call all the parent color 106 ;; themes before installing your changes. For all but the first parent 107 ;; color theme, you need to make sure that `color-theme-is-cumulative' 108 ;; is bound to t. If you don't do that, users that set 109 ;; `color-theme-is-cumulative' to nil will only install your changes 110 ;; without the parent color themes. 111 112 ;; Making a color theme work for both Emacs and XEmacs: 113 ;; 114 ;; Once you have printed the color-theme, you can make sure it looks 115 ;; similar in both Emacs and XEmacs by running 116 ;; `color-theme-analyze-defun' on the printed theme. This function 117 ;; will check for missing faces for the other editor... 118 119 ;;; Thanks 120 121 ;; Deepak Goel <deego@glue.umd.edu> 122 ;; S. Pokrovsky <pok@nbsp.nsk.su> for ideas and discussion. 123 ;; Gordon Messmer <gordon@dragonsdawn.net> for ideas and discussion. 124 ;; Sriram Karra <karra@cs.utah.edu> for the color-theme-submit stuff. 125 ;; Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl> for the spec-filter idea. 126 ;; All the users that contributed their color themes. 127 128 ;;; Bugs: 129 130 ;; Emacs 20.7: Some faces are created using copy-face; these faces are 131 ;; not printed correctly using M-x color-theme-print. They will have 132 ;; (nil) in their spec. M-x customize-face has the same problem. 133 ;; Example: 134 ;; (copy-face 'bold 'new-bold) 135 ;; (color-theme-spec 'bold) 136 ;; => (bold ((t (:bold t)))) 137 ;; (color-theme-spec 'new-bold) 138 ;; => (new-bold ((t (nil)))) 139 ;; 140 ;; XEmacs 21.1: Some faces are defined using a certain font instead of 141 ;; of the correct attribute. They will have (nil) in their spec. 142 ;; M-x customize-face has the same problem. 143 ;; Example: 144 ;; (color-theme-spec 'bold) 145 ;; => (bold ((t (nil)))) 146 ;; 147 ;; XEmacs 21.2 and up, Emacs 21: Not compatible with the custom-theme 148 ;; mode. It should be easy to transform the color-theme source into 149 ;; custom-theme source, however. 150 ;; 151 ;; If you are running XEmacs, then only foreground and background color 152 ;; of the default face and only the background color of the text-cursor 153 ;; face will used. This is due to the fact that these three pieces of 154 ;; information are stored as frame parameters in Emacs. 155 ;; 156 ;; If you are running XEmacs, variables cannot have a frame-local 157 ;; binding. Therefore, if color-theme-is-global is set to nil, the 158 ;; variable settings in a color theme are ignored. 159 ;; 160 ;; Using Emacs and a non-nil value for color-theme-is-global will 161 ;; install a new color theme for all frames. Using XEmacs and a non-nil 162 ;; value for color-theme-is-global will install a new color theme only 163 ;; on those frames that are not using a local color theme. 164 ;; 165 ;; If your system does not define the color names used, you will get the 166 ;; error "undefined color". See the output of `list-colors-display' for 167 ;; a list of colors defined on your display. 168 ;; 169 ;; The :box, :height, and other new attributes will be honored in Emacs 170 ;; 21, but when you print such a color-theme on Emacs 20 or XEmacs 21, 171 ;; the information will get lost. So don't do that. Furthermore, 172 ;; customizing these faces may end up showing you a lisp expression 173 ;; instead of the real widgets on Emacs 20 or XEmacs 21 because these 174 ;; attributes are not understood. 175 ;; 176 ;; :inverse-video handling differs in Emacs and XEmacs. We therefore do 177 ;; away with it. When printing a color-theme, the inverse-video 178 ;; attribute should be handled correctly without ever appearing in color 179 ;; themes. For maintenance, the following might be usefull for 180 ;; query-replace-regexp. 181 ;; :background "\([^"]*\)"\(.*\):foreground "\([^"]*\)"\(.*\) :inverse-video t 182 ;; :background "\3"\2:foreground "\1"\4 183 ;; 184 ;; In XEmacs 21.1, some of the face tests don't work. Example: 185 ;; (custom-face-bold 'bold) returns nil on my system. A bug report was 186 ;; submitted. 187 ;; 188 ;; Emacs 20 users will loose with new color themes, because these will 189 ;; set the colors of the default face only, leaving frame background 190 ;; untouched. In Emacs 20, the colors of the default face and of the 191 ;; frame could be changed independently. In Emacs 21, this is no longer 192 ;; true. New color themes will not be made backwards compatible. 193 ;; 194 ;; This release was superficially tested with Emacs 21.2 and XEmacs 21.4. 195 196 197 198 ;;; Code: 199 200 (require 'cl); set-difference is a function... 201 202 ;; for custom-face-attributes-get or face-custom-attributes-get 203 (require 'cus-face) 204 (require 'wid-edit); for widget-apply stuff in cus-face.el 205 206 (defconst color-theme-maintainer-address "zedek@gnu-rox.org" 207 "Address used by `submit-color-theme'.") 208 209 ;; Emacs / XEmacs compatibility and workaround layer 210 211 (cond ((and (facep 'tool-bar) 212 (not (facep 'toolbar))) 213 (put 'toolbar 'face-alias 'tool-bar)) 214 ((and (facep 'toolbar) 215 (not (facep 'tool-bar))) 216 (put 'tool-bar 'face-alias 'toolbar))) 217 218 (defvar color-theme-xemacs-p (string-match "XEmacs" emacs-version) 219 "Non-nil if running XEmacs.") 220 221 ;; face-attr-construct has a problem in Emacs 20.7 and older when 222 ;; dealing with inverse-video faces. Here is a short test to check 223 ;; wether you are affected. 224 225 ;; (set-background-color "wheat") 226 ;; (set-foreground-color "black") 227 ;; (setq a (make-face 'a-face)) 228 ;; (face-spec-set a '((t (:background "white" :foreground "black" :inverse-video t)))) 229 ;; (face-attr-construct a) 230 ;; => (:background "black" :inverse-video t) 231 232 ;; The expected response is the original specification: 233 ;; => (:background "white" :foreground "black" :inverse-video t) 234 235 ;; That's why we depend on cus-face.el functionality. 236 237 (cond ((fboundp 'custom-face-attributes-get) 238 (defalias 'color-theme-face-attr-construct 239 'custom-face-attributes-get)) 240 ((fboundp 'face-custom-attributes-get) 241 (defalias 'color-theme-face-attr-construct 242 'face-custom-attributes-get)) 243 (t 244 (defun color-theme-face-attr-construct (&rest ignore) 245 (error "Unable to construct face attributes")))) 246 247 (defun color-theme-alist (plist) 248 "Transform PLIST into an alist if it is a plist and return it. 249 If the first element of PLIST is a cons cell, we just return PLIST, 250 assuming PLIST to be an alist. If the first element of plist is not a 251 symbol, this is an error: We cannot distinguish a plist from an ordinary 252 list, but a list that doesn't start with a symbol is certainly no plist 253 and no alist. 254 255 This is used to make sure `default-frame-alist' really is an alist and not 256 a plist. In XEmacs, the alist is deprecated; a plist is used instead." 257 (cond ((consp (car plist)) 258 plist) 259 ((not (symbolp (car plist))) 260 (error "Wrong type argument: plist, %S" plist)) 261 (t 262 (plist-to-alist plist)))); XEmacs only 263 264 ;; Customization 265 266 (defgroup color-theme nil 267 "Color Themes for Emacs. 268 A color theme consists of frame parameter settings, variable settings, 269 and face definitions." 270 :version "20.6" 271 :group 'faces) 272 273 (defcustom color-theme-legal-frame-parameters "\\(color\\|mode\\)$" 274 "Regexp that matches frame parameter names. 275 Only frame parameter names that match this regexp can be changed as part 276 of a color theme." 277 :type '(choice (const :tag "Colors only" "\\(color\\|mode\\)$") 278 (const :tag "Colors, fonts, and size" 279 "\\(color\\|mode\\|font\\|height\\|width\\)$") 280 (regexp :tag "Custom regexp")) 281 :group 'color-theme 282 :link '(info-link "(elisp)Window Frame Parameters")) 283 284 (defcustom color-theme-legal-variables "\\(color\\|face\\)$" 285 "Regexp that matches variable names. 286 Only variables that match this regexp can be changed as part of a color 287 theme. In addition to matching this name, the variables have to be user 288 variables (see function `user-variable-p')." 289 :type 'regexp 290 :group 'color-theme) 291 292 (defcustom color-theme-illegal-faces "^w3-" 293 "Regexp that matches face names forbidden in themes. 294 The default setting \"^w3-\" excludes w3 faces since these 295 are created dynamically." 296 :type 'regexp 297 :group 'color-theme 298 :link '(info-link "(elisp)Faces for Font Lock") 299 :link '(info-link "(elisp)Standard Faces")) 300 301 (defcustom color-theme-illegal-default-attributes '(:family :height :width) 302 "A list of face properties to be ignored when installing faces. 303 This prevents Emacs from doing terrible things to your display just because 304 a theme author likes weird fonts." 305 :type '(repeat symbol) 306 :group 'color-theme) 307 308 (defcustom color-theme-is-global t 309 "*Determines wether a color theme is installed on all frames or not. 310 If non-nil, color themes will be installed for all frames. 311 If nil, color themes will be installed for the selected frame only. 312 313 A possible use for this variable is dynamic binding. Here is a larger 314 example to put in your ~/.emacs; it will make the Blue Sea color theme 315 the default used for the first frame, and it will create two additional 316 frames with different color themes. 317 318 setup: 319 \(require 'color-theme) 320 ;; set default color theme 321 \(color-theme-blue-sea) 322 ;; create some frames with different color themes 323 \(let ((color-theme-is-global nil)) 324 \(select-frame (make-frame)) 325 \(color-theme-gnome2) 326 \(select-frame (make-frame)) 327 \(color-theme-standard)) 328 329 Please note that using XEmacs and and a nil value for 330 color-theme-is-global will ignore any variable settings for the color 331 theme, since XEmacs doesn't have frame-local variable bindings. 332 333 Also note that using Emacs and a non-nil value for color-theme-is-global 334 will install a new color theme for all frames. Using XEmacs and a 335 non-nil value for color-theme-is-global will install a new color theme 336 only on those frames that are not using a local color theme." 337 :type 'boolean 338 :group 'color-theme) 339 340 (defcustom color-theme-is-cumulative t 341 "*Determines wether new color themes are installed on top of each other. 342 If non-nil, installing a color theme will undo all settings made by 343 previous color themes." 344 :type 'boolean 345 :group 'color-theme) 346 347 (defcustom color-theme-mode-hook nil 348 "Hook for color-theme-mode." 349 :type 'hook 350 :group 'color-theme) 351 352 (defvar color-theme-mode-map 353 (let ((map (make-sparse-keymap))) 354 (define-key map (kbd "RET") 'color-theme-install-at-point) 355 (define-key map (kbd "c") 'list-colors-display) 356 (define-key map (kbd "d") 'color-theme-describe) 357 (define-key map (kbd "f") 'list-faces-display) 358 (define-key map (kbd "i") 'color-theme-install-at-point) 359 (define-key map (kbd "l") 'color-theme-install-at-point-for-current-frame) 360 (define-key map (kbd "p") 'color-theme-print) 361 (define-key map (kbd "q") 'bury-buffer) 362 (define-key map (kbd "?") 'color-theme-describe) 363 (if color-theme-xemacs-p 364 (define-key map (kbd "<button2>") 'color-theme-install-at-mouse) 365 (define-key map (kbd "<mouse-2>") 'color-theme-install-at-mouse)) 366 map) 367 "Mode map used for the buffer created by `color-theme-select'.") 368 369 (defvar color-theme-buffer-name "*Color Theme Selection*" 370 "Name of the color theme selection buffer.") 371 372 (defvar color-theme-original-frame-alist nil 373 "nil until one of the color themes has been installed.") 374 375 (defvar color-theme-history nil 376 "List of color-themes called, in reverse order") 377 378 (defcustom color-theme-history-max-length nil 379 "Max length of history to maintain. 380 Two other values are acceptable: t means no limit, and 381 nil means that no history is maintained." 382 :type '(choice (const :tag "No history" nil) 383 (const :tag "Unlimited length" t) 384 integer) 385 :group 'color-theme) 386 387 (defvar color-theme-counter 0 388 "Counter for every addition to `color-theme-history'. 389 This counts how many themes were installed, regardless 390 of `color-theme-history-max-length'.") 391 392 (defun color-theme-add-to-history (name) 393 "Add color-theme NAME to `color-theme-history'." 394 (setq color-theme-history 395 (cons (list name color-theme-is-cumulative) 396 color-theme-history) 397 color-theme-counter (+ 1 color-theme-counter)) 398 ;; Truncate the list if necessary. 399 (when (and (integerp color-theme-history-max-length) 400 (>= (length color-theme-history) 401 color-theme-history-max-length)) 402 (setcdr (nthcdr (1- color-theme-history-max-length) 403 color-theme-history) 404 nil))) 405 406 ;; (let ((l '(1 2 3 4 5))) 407 ;; (setcdr (nthcdr 2 l) nil) 408 ;; l) 409 410 411 412 ;; List of color themes used to create the *Color Theme Selection* 413 ;; buffer. 414 415 (defvar color-themes 416 '((color-theme-aalto-dark "Aalto Dark" "Jari Aalto <jari.aalto@poboxes.com>") 417 (color-theme-aalto-light "Aalto Light" "Jari Aalto <jari.aalto@poboxes.com>") 418 (color-theme-aliceblue "Alice Blue" "Girish Bharadwaj <girishb@gbvsoft.com>") 419 (color-theme-andreas "Andreas" "Andreas Busch <Andreas.Busch@politics.ox.ac.uk>") 420 (color-theme-arjen "Arjen" "Arjen Wiersma <arjen@wiersma.org>") 421 (color-theme-beige-diff "Beige Diff" "Alex Schroeder <alex@gnu.org>" t) 422 (color-theme-bharadwaj "Bharadwaj" "Girish Bharadwaj <girishb@gbvsoft.com>") 423 (color-theme-bharadwaj-slate "Bharadwaj Slate" "Girish Bharadwaj <girishb@gbvsoft.com>") 424 (color-theme-billw "Billw" "Bill White <billw@wolfram.com>") 425 (color-theme-black-on-gray "BlackOnGray" "Sudhir Bhojwani <sbhojwani@altoweb.com>") 426 (color-theme-blippblopp "Blipp Blopp" "Thomas Sicheritz-Ponten<thomas@biopython.org>") 427 (color-theme-simple-1 "Black" "Jonadab <jonadab@bright.net>") 428 (color-theme-blue-erc "Blue ERC" "Alex Schroeder <alex@gnu.org>" t) 429 (color-theme-blue-gnus "Blue Gnus" "Alex Schroeder <alex@gnu.org>" t) 430 (color-theme-blue-mood "Blue Mood" "Nelson Loyola <nloyola@yahoo.com>") 431 (color-theme-blue-sea "Blue Sea" "Alex Schroeder <alex@gnu.org>") 432 (color-theme-calm-forest "Calm Forest" "Artur Hefczyc <kobit@plusnet.pl>") 433 (color-theme-charcoal-black "Charcoal Black" "Lars Chr. Hausmann <jazz@zqz.dk>") 434 (color-theme-goldenrod "Cheap Goldenrod" "Alex Schroeder <alex@gnu.org>") 435 (color-theme-clarity "Clarity and Beauty" "Richard Wellum <rwellum@cisco.com>") 436 (color-theme-classic "Classic" "Frederic Giroud <postcard@worldonline.fr>") 437 (color-theme-comidia "Comidia" "Marcelo Dias de Toledo <mtole@ig.com.br>") 438 (color-theme-jsc-dark "Cooper Dark" "John S Cooper <John.Cooper@eu.citrix.com>") 439 (color-theme-jsc-light "Cooper Light" "John S Cooper <John.Cooper@eu.citrix.com>") 440 (color-theme-jsc-light2 "Cooper Light 2" "John S Cooper <John.Cooper@eu.citrix.com>") 441 (color-theme-dark-blue "Dark Blue" "Chris McMahan <cmcmahan@one.net>") 442 (color-theme-dark-blue2 "Dark Blue 2" "Chris McMahan <cmcmahan@one.net>") 443 (color-theme-dark-green "Dark Green" "eddy_woody@hotmail.com") 444 (color-theme-dark-laptop "Dark Laptop" "Laurent Michel <ldm@cs.brown.edu>") 445 (color-theme-deep-blue "Deep Blue" "Tomas Cerha <cerha@brailcom.org>") 446 (color-theme-digital-ofs1 "Digital OFS1" "Gareth Owen <gowen@gwowen.freeserve.co.uk>") 447 (color-theme-euphoria "Euphoria" "oGLOWo@oGLOWo.cjb.net") 448 (color-theme-feng-shui "Feng Shui" "Walter Higgins <walterh@rocketmail.com>") 449 (color-theme-fischmeister "Fischmeister" 450 "Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>") 451 (color-theme-gnome "Gnome" "Jonadab <jonadab@bright.net>") 452 (color-theme-gnome2 "Gnome 2" "Alex Schroeder <alex@gnu.org>") 453 (color-theme-gray1 "Gray1" "Paul Pulli <P.Pulli@motorola.com>") 454 (color-theme-gray30 "Gray30" "Girish Bharadwaj <girishb@gbvsoft.com>") 455 (color-theme-kingsajz "Green Kingsajz" "Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl>") 456 (color-theme-greiner "Greiner" "Kevin Greiner <kgreiner@mapquest.com>") 457 (color-theme-gtk-ide "GTK IDE" "Gordon Messmer <gordon@dragonsdawn.net>") 458 (color-theme-high-contrast "High Contrast" "Alex Schroeder <alex@gnu.org>") 459 (color-theme-hober "Hober" "Edward O'Connor <ted@oconnor.cx>") 460 (color-theme-infodoc "Infodoc" "Frederic Giroud <postcard@worldonline.fr>") 461 (color-theme-jb-simple "JB Simple" "jeff@dvns.com") 462 (color-theme-jedit-grey "Jedit Grey" "Gordon Messmer <gordon@dragonsdawn.net>") 463 (color-theme-jonadabian "Jonadab" "Jonadab <jonadab@bright.net>") 464 (color-theme-jonadabian-slate "Jonadabian Slate" "Jonadab <jonadab@bright.net>") 465 (color-theme-katester "Katester" "Higgins_Walter@emc.com") 466 (color-theme-late-night "Late Night" "Alex Schroeder <alex@gnu.org>") 467 (color-theme-lawrence "Lawrence" "lawrence mitchell <wence@gmx.li>") 468 (color-theme-lethe "Lethe" "Ivica Loncar <ivica.loncar@srk.fer.hr>") 469 (color-theme-ld-dark "Linh Dang Dark" "Linh Dang <linhd@nortelnetworks.com>") 470 (color-theme-marine "Marine" "Girish Bharadwaj <girishb@gbvsoft.com>") 471 (color-theme-matrix "Matrix" "Walter Higgins <walterh@rocketmail.com>") 472 (color-theme-marquardt "Marquardt" "Colin Marquardt <colin@marquardt-home.de>") 473 (color-theme-midnight "Midnight" "Gordon Messmer <gordon@dragonsdawn.net>") 474 (color-theme-mistyday "Misty Day" "Hari Kumar <Hari.Kumar@mtm.kuleuven.ac.be>") 475 (color-theme-montz "Montz" "Brady Montz <bradym@becomm.com>") 476 (color-theme-oswald "Oswald" "Tom Oswald <toswald@sharplabs.com>") 477 (color-theme-parus "Parus" "Jon K Hellan <hellan@acm.org>") 478 (color-theme-pierson "Pierson" "Dan L. Pierson <dan@sol.control.com>") 479 (color-theme-ramangalahy "Ramangalahy" "Solofo Ramangalahy <solofo@irisa.fr>") 480 (color-theme-raspopovic "Raspopovic" "Pedja Raspopovic <pedja@lsil.com>") 481 (color-theme-resolve "Resolve" "Damien Elmes <resolve@repose.cx>") 482 (color-theme-retro-green "Retro Green" "Alex Schroeder <alex@gnu.org>") 483 (color-theme-retro-orange "Retro Orange" "Alex Schroeder <alex@gnu.org>") 484 (color-theme-robin-hood "Robin Hood" "Alex Schroeder <alex@gnu.org>") 485 (color-theme-rotor "Rotor" "Jinwei Shen <shenjw@wam.umd.edu>") 486 (color-theme-ryerson "Ryerson" "Luis Fernandes <elf@ee.ryerson.ca>") 487 (color-theme-salmon-diff "Salmon Diff" "Alex Schroeder <alex@gnu.org>" t) 488 (color-theme-salmon-font-lock "Salmon Font-Lock" "Alex Schroeder <alex@gnu.org>" t) 489 (color-theme-scintilla "Scintilla" "Gordon Messmer <gordon@dragonsdawn.net>") 490 (color-theme-shaman "Shaman" "shaman@interdon.net") 491 (color-theme-sitaramv-nt "Sitaram NT" 492 "Sitaram Venkatraman <sitaramv@loc251.tandem.com>") 493 (color-theme-sitaramv-solaris "Sitaram Solaris" 494 "Sitaram Venkatraman <sitaramv@loc251.tandem.com>") 495 (color-theme-snow "Snow" "Nicolas Rist <Nicolas.Rist@alcatel.de>") 496 (color-theme-snowish "Snowish" "Girish Bharadwaj <girishb@gbvsoft.com>") 497 (color-theme-standard-ediff "Standard Ediff" "Emacs Team, added by Alex Schroeder <alex@gnu.org>" t) 498 (color-theme-standard "Standard Emacs 20" "Emacs Team, added by Alex Schroeder <alex@gnu.org>") 499 (color-theme-emacs-21 "Standard Emacs 21" "Emacs Team, added by Alex Schroeder <alex@gnu.org>") 500 (color-theme-emacs-nw "Standard Emacs 21 No Window" "Emacs Team, added by D. Goel <deego@gnufans.org>") 501 (color-theme-xemacs "Standard XEmacs" "XEmacs Team, added by Alex Schroeder <alex@gnu.org>") 502 (color-theme-subtle-blue "Subtle Blue" "Chris McMahan <cmcmahan@one.net>") 503 (color-theme-subtle-hacker "Subtle Hacker" "Colin Walters <levanti@verbum.org>") 504 (color-theme-taming-mr-arneson "Taming Mr Arneson" "Erik Arneson <erik@aarg.net>") 505 (color-theme-taylor "Taylor" "Art Taylor <reeses@hemisphere.org>") 506 (color-theme-tty-dark "TTY Dark" "O Polite <m2@plusseven.com>") 507 (color-theme-vim-colors "Vim Colors" "Michael Soulier <msoulier@biryani.nssg.mitel.com>") 508 (color-theme-whateveryouwant "Whateveryouwant" "Fabien Penso <penso@linuxfr.org>, color by Scott Jaderholm <scott@jaderholm.com>") 509 (color-theme-wheat "Wheat" "Alex Schroeder <alex@gnu.org>") 510 (color-theme-pok-wob "White On Black" "S. Pokrovsky <pok@nbsp.nsk.su>") 511 (color-theme-pok-wog "White On Grey" "S. Pokrovsky <pok@nbsp.nsk.su>") 512 (color-theme-word-perfect "WordPerfect" "Thomas Gehrlein <Thomas.Gehrlein@t-online.de>") 513 (color-theme-xp "XP" "Girish Bharadwaj <girishb@gbvsoft.com>")) 514 "List of color themes. 515 516 Each THEME is itself a three element list (FUNC NAME MAINTAINER &optional LIBRARY). 517 518 FUNC is a color theme function which does the setup. The function 519 FUNC may call `color-theme-install'. The color theme function may be 520 interactive. 521 522 NAME is the name of the theme and MAINTAINER is the name and/or email of 523 the maintainer of the theme. 524 525 If LIBRARY is non-nil, the color theme will be considered a library and 526 may not be shown in the default menu. 527 528 If you defined your own color theme and want to add it to this list, 529 use something like this: 530 531 (add-to-list 'color-themes '(color-theme-gnome2 \"Gnome2\" \"Alex\"))") 532 533 ;;; Functions 534 535 (defun color-theme-backup-original-values () 536 "Back up the original `default-frame-alist'. 537 The values are stored in `color-theme-original-frame-alist' on 538 startup." 539 (if (null color-theme-original-frame-alist) 540 (setq color-theme-original-frame-alist 541 (color-theme-filter (frame-parameters (selected-frame)) 542 color-theme-legal-frame-parameters)))) 543 (add-hook 'after-init-hook 'color-theme-backup-original-values) 544 545 (defun color-theme-select (&optional arg) 546 "Displays a special buffer for selecting and installing a color theme. 547 With optional prefix ARG, this buffer will include color theme libraries 548 as well. A color theme library is in itself not complete, it must be 549 used as part of another color theme to be useful. Thus, color theme 550 libraries are mainly useful for color theme authors." 551 (interactive "P") 552 (switch-to-buffer (get-buffer-create color-theme-buffer-name)) 553 (setq buffer-read-only nil) 554 (erase-buffer) 555 ;; recreate the snapshot if necessary 556 (when (or (not (assq 'color-theme-snapshot color-themes)) 557 (not (commandp 'color-theme-snapshot))) 558 (fset 'color-theme-snapshot (color-theme-make-snapshot)) 559 (setq color-themes (delq (assq 'color-theme-snapshot color-themes) 560 color-themes) 561 color-themes (delq (assq 'bury-buffer color-themes) 562 color-themes) 563 color-themes (append '((color-theme-snapshot 564 "[Reset]" "Undo changes, if possible.") 565 (bury-buffer 566 "[Quit]" "Bury this buffer.")) 567 color-themes))) 568 (dolist (theme color-themes) 569 (let ((func (nth 0 theme)) 570 (name (nth 1 theme)) 571 (author (nth 2 theme)) 572 (library (nth 3 theme)) 573 (desc)) 574 (when (or (not library) arg) 575 (setq desc (format "%-23s %s" 576 (if library (concat name " [lib]") name) 577 author)) 578 (put-text-property 0 (length desc) 'color-theme func desc) 579 (put-text-property 0 (length name) 'face 'bold desc) 580 (put-text-property 0 (length name) 'mouse-face 'highlight desc) 581 (insert desc) 582 (newline)))) 583 (beginning-of-buffer) 584 (setq buffer-read-only t) 585 (set-buffer-modified-p nil) 586 (color-theme-mode)) 587 588 (require 'easymenu) 589 (easy-menu-add-item nil '("Tools") "--") 590 (easy-menu-add-item nil '("Tools") 591 ["Color Themes" color-theme-select t]) 592 593 (defun color-theme-mode () 594 "Major mode to select and install color themes. 595 596 Use \\[color-theme-install-at-point] to install a color theme on all frames. 597 Use \\[color-theme-install-at-point-for-current-frame] to install a color theme for the current frame only. 598 599 The changes are applied on top of your current setup. This is a 600 feature. 601 602 Some of the themes should be considered extensions to the standard color 603 theme: they modify only a limited number of faces and variables. To 604 verify the final look of a color theme, install the standard color 605 theme, then install the other color theme. This is a feature. It allows 606 you to mix several color themes. 607 608 Use \\[color-theme-describe] to read more about the color theme function at point. 609 If you want to install the color theme permanently, put the call to the 610 color theme function into your ~/.emacs: 611 612 \(require 'color-theme) 613 \(color-theme-gnome2) 614 615 If you worry about the size of color-theme.el: You are right. Use 616 \\[color-theme-print] to print the current color theme and save the resulting buffer 617 as ~/.emacs-color-theme. Now you can install only this specific color 618 theme in your .emacs: 619 620 \(load-file \"~/.emacs-color-theme\") 621 \(my-color-theme) 622 623 The Emacs menu is not affected by color themes within Emacs. Depending 624 on the toolkit you used to compile Emacs, you might have to set specific 625 X ressources. See the info manual for more information. Here is an 626 example ~/.Xdefaults fragment: 627 628 emacs*Background: DarkSlateGray 629 emacs*Foreground: wheat 630 631 \\{color-theme-mode-map} 632 633 The color themes are listed in `color-themes', which see." 634 (kill-all-local-variables) 635 (setq major-mode 'color-theme-mode) 636 (setq mode-name "Color Themes") 637 (use-local-map color-theme-mode-map) 638 (when (functionp 'goto-address); Emacs 639 (goto-address)) 640 (run-hooks 'color-theme-mode-hook)) 641 642 ;;; Commands in Color Theme Selection mode 643 644 (defun color-theme-describe () 645 "Describe color theme listed at point. 646 This shows the documentation of the value of text-property color-theme 647 at point. The text-property color-theme should be a color theme 648 function. See `color-themes'." 649 (interactive) 650 (describe-function (get-text-property (point) 'color-theme))) 651 652 (defun color-theme-install-at-mouse (event) 653 "Install color theme clicked upon using the mouse. 654 First argument EVENT is used to set point. Then 655 `color-theme-install-at-point' is called." 656 (interactive "e") 657 (save-excursion 658 (mouse-set-point event) 659 (color-theme-install-at-point))) 660 661 (defun color-theme-install-at-point () 662 "Install color theme at point. 663 This calls the value of the text-property `color-theme' at point. 664 The text-property `color-theme' should be a color theme function. 665 See `color-themes'." 666 (interactive) 667 (let ((func (get-text-property (point) 'color-theme))) 668 ;; install theme 669 (if func 670 (funcall func)) 671 ;; If goto-address is being used, remove all overlays in the current 672 ;; buffer and run it again. The face used for the mail addresses in 673 ;; the the color theme selection buffer is based on the variable 674 ;; goto-address-mail-face. Changes in that variable will not affect 675 ;; existing overlays, however, thereby confusing users. 676 (when (functionp 'goto-address); Emacs 677 (dolist (o (overlays-in (point-min) (point-max))) 678 (delete-overlay o)) 679 (goto-address)))) 680 681 (defun color-theme-install-at-point-for-current-frame () 682 "Install color theme at point for current frame only. 683 Binds `color-theme-is-global' to nil and calls 684 `color-theme-install-at-point'." 685 (interactive) 686 (let ((color-theme-is-global nil)) 687 (color-theme-install-at-point))) 688 689 690 691 ;; Taking a snapshot of the current color theme and pretty printing it. 692 693 (defun color-theme-filter (old-list regexp &optional exclude) 694 "Filter OLD-LIST. 695 The resulting list will be newly allocated and contains only elements 696 with names matching REGEXP. OLD-LIST may be a list or an alist. If you 697 want to filter a plist, use `color-theme-alist' to convert your plist to 698 an alist, first. 699 700 If the optional argument EXCLUDE is non-nil, then the sense is 701 reversed: only non-matching elements will be retained." 702 (let (elem new-list) 703 (dolist (elem old-list) 704 (setq name (symbol-name (if (listp elem) (car elem) elem))) 705 (when (or (and (not exclude) 706 (string-match regexp name)) 707 (and exclude 708 (not (string-match regexp name)))) 709 ;; Now make sure that if elem is a cons cell, and the cdr of 710 ;; that cons cell is a string, then we need a *new* string in 711 ;; the new list. Having a new cons cell is of no use because 712 ;; modify-frame-parameters will modify this string, thus 713 ;; modifying our color theme functions! 714 (when (and (consp elem) 715 (stringp (cdr elem))) 716 (setq elem (cons (car elem) 717 (copy-sequence (cdr elem))))) 718 ;; Now store elem 719 (setq new-list (cons elem new-list)))) 720 new-list)) 721 722 (defun color-theme-spec-filter (spec) 723 "Filter the attributes in SPEC. 724 This makes sure that SPEC has the form ((t (PLIST ...))). 725 Only properties not in `color-theme-illegal-default-attributes' 726 are included in the SPEC returned." 727 (let ((props (cadar spec)) 728 result prop val) 729 (while props 730 (setq prop (nth 0 props) 731 val (nth 1 props) 732 props (nthcdr 2 props)) 733 (unless (memq prop color-theme-illegal-default-attributes) 734 (setq result (cons val (cons prop result))))) 735 `((t ,(nreverse result))))) 736 737 ;; (color-theme-spec-filter '((t (:background "blue3")))) 738 ;; (color-theme-spec-filter '((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed")))) 739 740 (defun color-theme-plist-delete (plist prop) 741 "Delete property PROP from property list PLIST by side effect. 742 This modifies PLIST." 743 ;; deal with prop at the start 744 (while (eq (car plist) prop) 745 (setq plist (cddr plist))) 746 ;; deal with empty plist 747 (when plist 748 (let ((lastcell (cdr plist)) 749 (l (cddr plist))) 750 (while l 751 (if (eq (car l) prop) 752 (progn 753 (setq l (cddr l)) 754 (setcdr lastcell l)) 755 (setq lastcell (cdr l) 756 l (cddr l)))))) 757 plist) 758 759 ;; (color-theme-plist-delete '(a b c d e f g h) 'a) 760 ;; (color-theme-plist-delete '(a b c d e f g h) 'b) 761 ;; (color-theme-plist-delete '(a b c d e f g h) 'c) 762 ;; (color-theme-plist-delete '(a b c d e f g h) 'g) 763 ;; (color-theme-plist-delete '(a b c d c d e f g h) 'c) 764 ;; (color-theme-plist-delete '(a b c d e f c d g h) 'c) 765 766 (if (or (featurep 'xemacs) 767 (< emacs-major-version 21)) 768 (defalias 'color-theme-spec-compat 'identity) 769 (defun color-theme-spec-compat (spec) 770 "Filter the attributes in SPEC such that is is never invalid. 771 Example: Eventhough :bold works in Emacs, it is not recognized by 772 `customize-face' -- and then the face is uncustomizable. This 773 function replaces a :bold attribute with the corresponding :weight 774 attribute, if there is no :weight, or deletes it. This undoes the 775 doings of `color-theme-spec-canonical-font', more or less." 776 (let ((props (cadar spec))) 777 (when (plist-member props :bold) 778 (setq props (color-theme-plist-delete props :bold)) 779 (unless (plist-member props :weight) 780 (setq props (plist-put props :weight 'bold)))) 781 (when (plist-member props :italic) 782 (setq props (color-theme-plist-delete props :italic)) 783 (unless (plist-member props :slant) 784 (setq props (plist-put props :slant 'italic)))) 785 `((t ,props))))) 786 787 ;; (color-theme-spec-compat '((t (:foreground "blue" :bold t)))) 788 ;; (color-theme-spec-compat '((t (:bold t :foreground "blue" :weight extra-bold)))) 789 ;; (color-theme-spec-compat '((t (:italic t :foreground "blue")))) 790 ;; (color-theme-spec-compat '((t (:slant oblique :italic t :foreground "blue")))) 791 792 (defun color-theme-spec-canonical-font (atts) 793 "Add :bold and :italic attributes if necessary." 794 ;; add these to the front of atts -- this will keept the old value for 795 ;; customize-face in Emacs 21. 796 (when (and (memq (plist-get atts :weight) 797 '(ultra-bold extra-bold bold semi-bold)) 798 (not (plist-get atts :bold))) 799 (setq atts (cons :bold (cons t atts)))) 800 (when (and (not (memq (plist-get atts :slant) 801 '(normal nil))) 802 (not (plist-get atts :italic))) 803 (setq atts (cons :italic (cons t atts)))) 804 atts) 805 ;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'bold (selected-frame))) 806 ;; (defface foo '((t (:weight extra-bold))) "foo") 807 ;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'foo (selected-frame))) 808 ;; (face-spec-set 'foo '((t (:weight extra-bold))) nil) 809 ;; (face-spec-set 'foo '((t (:bold t))) nil) 810 ;; (face-spec-set 'foo '((t (:bold t :weight extra-bold))) nil) 811 812 ;; Handle :height according to NEWS file for Emacs 21 813 (defun color-theme-spec-resolve-height (old new) 814 "Return the new height given OLD and NEW height. 815 OLD is the current setting, NEW is the setting inherited from." 816 (cond ((not old) 817 new) 818 ((integerp old) 819 old) 820 ((and (floatp old) 821 (integerp new)) 822 (round (* old new))) 823 ((and (floatp old) 824 (floatp new)) 825 (* old new)) 826 ((and (functionp old) 827 (integerp new)) 828 (round (funcall old new))) 829 ((and (functionp old) 830 (float new)) 831 `(lambda (f) (* (funcall ,old f) ,new))) 832 ((and (functionp old) 833 (functionp new)) 834 `(lambda (f) (* (funcall ,old (funcall ,new f))))) 835 (t 836 (error "Illegal :height attributes: %S or %S" old new)))) 837 ;; (color-theme-spec-resolve-height 12 1.2) 838 ;; (color-theme-spec-resolve-height 1.2 1.2) 839 ;; (color-theme-spec-resolve-height 1.2 12) 840 ;; (color-theme-spec-resolve-height 1.2 'foo) 841 ;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 5) 842 ;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 2.0) 843 ;; the following lambda is the result from the above calculation 844 ;; (color-theme-spec-resolve-height (lambda (f) (* (funcall (lambda (f) (* 2 f)) f) 2.0)) 5) 845 846 (defun color-theme-spec-resolve-inheritance (atts) 847 "Resolve all occurences of the :inherit attribute." 848 (let ((face (plist-get atts :inherit))) 849 ;; From the Emacs 21 NEWS file: "Attributes from inherited faces are 850 ;; merged into the face like an underlying face would be." -- 851 ;; therefore properties of the inherited face only add missing 852 ;; attributes. 853 (when face 854 ;; remove :inherit face from atts -- this assumes only one 855 ;; :inherit attribute. 856 (setq atts (delq ':inherit (delq face atts))) 857 (let ((more-atts (color-theme-spec-resolve-inheritance 858 (color-theme-face-attr-construct 859 face (selected-frame)))) 860 att val) 861 (while more-atts 862 (setq att (car more-atts) 863 val (cadr more-atts) 864 more-atts (cddr more-atts)) 865 ;; Color-theme assumes that no value is ever 'unspecified. 866 (cond ((eq att ':height); cumulative effect! 867 (setq atts (plist-put atts 868 ':height 869 (color-theme-spec-resolve-height 870 (plist-get atts att) 871 val)))) 872 ;; Default: Only put if it has not been specified before. 873 ((not (plist-get atts att)) 874 (setq atts (cons att (cons val atts)))) 875 876 )))) 877 atts)) 878 ;; (color-theme-spec-resolve-inheritance '(:bold t)) 879 ;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "blue")) 880 ;; (color-theme-face-attr-construct 'font-lock-comment-face (selected-frame)) 881 ;; (color-theme-spec-resolve-inheritance '(:bold t :inherit font-lock-comment-face)) 882 ;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "red" :inherit font-lock-comment-face)) 883 ;; (color-theme-face-attr-construct 'Info-title-2-face (selected-frame)) 884 ;; (color-theme-face-attr-construct 'Info-title-3-face (selected-frame)) 885 ;; (color-theme-face-attr-construct 'Info-title-4-face (selected-frame)) 886 ;; (color-theme-spec-resolve-inheritance '(:inherit Info-title-2-face)) 887 888 ;; The :inverse-video attribute causes Emacs to swap foreground and 889 ;; background colors, XEmacs does not. Therefore, if anybody chooses 890 ;; the inverse-video attribute, we 1. swap the colors ourselves in Emacs 891 ;; and 2. we remove the inverse-video attribute in Emacs and XEmacs. 892 ;; Inverse-video is only useful on a monochrome tty. 893 (defun color-theme-spec-maybe-invert (atts) 894 "Remove the :inverse-video attribute from ATTS. 895 If ATTS contains :inverse-video t, remove it and swap foreground and 896 background color. Return ATTS." 897 (let ((inv (plist-get atts ':inverse-video))) 898 (if inv 899 (let (result att) 900 (while atts 901 (setq att (car atts) 902 atts (cdr atts)) 903 (cond ((and (eq att :foreground) (not color-theme-xemacs-p)) 904 (setq result (cons :background result))) 905 ((and (eq att :background) (not color-theme-xemacs-p)) 906 (setq result (cons :foreground result))) 907 ((eq att :inverse-video) 908 (setq atts (cdr atts))); this prevents using dolist 909 (t 910 (setq result (cons att result))))) 911 (nreverse result)) 912 ;; else 913 atts))) 914 ;; (color-theme-spec-maybe-invert '(:bold t)) 915 ;; (color-theme-spec-maybe-invert '(:foreground "blue")) 916 ;; (color-theme-spec-maybe-invert '(:background "red")) 917 ;; (color-theme-spec-maybe-invert '(:inverse-video t)) 918 ;; (color-theme-spec-maybe-invert '(:inverse-video t :foreground "red")) 919 ;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red")) 920 ;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red" :foreground "blue" :bold t)) 921 ;; (color-theme-spec-maybe-invert '(:inverse-video nil :background "red" :foreground "blue" :bold t)) 922 923 (defun color-theme-spec (face) 924 "Return a list for FACE which has the form (FACE SPEC). 925 See `defface' for the format of SPEC. In this case we use only one 926 DISPLAY, t, and determine ATTS using `color-theme-face-attr-construct'. 927 If ATTS is nil, (nil) is used instead. 928 929 If ATTS contains :inverse-video t, we remove it and swap foreground and 930 background color using `color-theme-spec-maybe-invert'. We do this 931 because :inverse-video is handled differently in Emacs and XEmacs. We 932 will loose on a tty without colors, because in that situation, 933 :inverse-video means something." 934 (let ((atts 935 (color-theme-spec-canonical-font 936 (color-theme-spec-maybe-invert 937 (color-theme-spec-resolve-inheritance 938 (color-theme-face-attr-construct face (selected-frame))))))) 939 (if atts 940 `(,face ((t ,atts))) 941 `(,face ((t (nil))))))) 942 943 (defun color-theme-get-params () 944 "Return a list of frame parameter settings usable in a color theme. 945 Such an alist may be installed by `color-theme-install-frame-params'. The 946 frame parameters returned must match `color-theme-legal-frame-parameters'." 947 (let ((params (color-theme-filter (frame-parameters (selected-frame)) 948 color-theme-legal-frame-parameters))) 949 (sort params (lambda (a b) (string< (symbol-name (car a)) 950 (symbol-name (car b))))))) 951 952 (defun color-theme-get-vars () 953 "Return a list of variable settings usable in a color theme. 954 Such an alist may be installed by `color-theme-install-variables'. 955 The variable names must match `color-theme-legal-variables', and the 956 variable must be a user variable according to `user-variable-p'." 957 (let ((vars) 958 (val)) 959 (mapatoms (lambda (v) 960 (and (boundp v) 961 (user-variable-p v) 962 (string-match color-theme-legal-variables 963 (symbol-name v)) 964 (setq val (eval v)) 965 (add-to-list 'vars (cons v val))))) 966 (sort vars (lambda (a b) (string< (car a) (car b)))))) 967 968 (defun color-theme-print-alist (alist) 969 "Print ALIST." 970 (insert "\n " (if alist "(" "nil")) 971 (dolist (elem alist) 972 (when (= (preceding-char) ?\)) 973 (insert "\n ")) 974 (prin1 elem (current-buffer))) 975 (when (= (preceding-char) ?\)) (insert ")"))) 976 977 (defun color-theme-get-faces () 978 "Return a list of faces usable in a color theme. 979 Such an alist may be installed by `color-theme-install-faces'. The 980 faces returned must not match `color-theme-illegal-faces'." 981 (let ((faces (color-theme-filter (face-list) color-theme-illegal-faces t))) 982 ;; default face must come first according to comments in 983 ;; custom-save-faces, the rest is to be sorted by name 984 (cons 'default (sort (delq 'default faces) 'string-lessp)))) 985 986 (defun color-theme-get-face-definitions () 987 "Return face settings usable in a color-theme." 988 (let ((faces (color-theme-get-faces))) 989 (mapcar 'color-theme-spec faces))) 990 991 (defun color-theme-print-faces (faces) 992 "Print face settings for all faces returned by `color-theme-get-faces'." 993 (when faces 994 (insert "\n ")) 995 (dolist (face faces) 996 (when (= (preceding-char) ?\)) 997 (insert "\n ")) 998 (prin1 face (current-buffer)))) 999 1000 (defun color-theme-reset-faces () 1001 "Reset face settings for all faces returned by `color-theme-get-faces'." 1002 (let ((faces (color-theme-get-faces)) 1003 (face) (spec) (entry) 1004 (frame (if color-theme-is-global nil (selected-frame)))) 1005 (while faces 1006 (setq entry (color-theme-spec (car faces))) 1007 (setq face (nth 0 entry)) 1008 (setq spec '((t (nil)))) 1009 (setq faces (cdr faces)) 1010 (if (functionp 'face-spec-reset-face) 1011 (face-spec-reset-face face frame) 1012 (face-spec-set face spec frame) 1013 (if color-theme-is-global 1014 (put face 'face-defface-spec spec)))))) 1015 1016 (defun color-theme-print-theme (func doc params vars faces) 1017 "Print a theme into the current buffer. 1018 FUNC is the function name, DOC the doc string, PARAMS the 1019 frame parameters, VARS the variable bindings, and FACES 1020 the list of faces and their specs." 1021 (insert "(defun " (symbol-name func) " ()\n" 1022 " \"" doc "\"\n" 1023 " (interactive)\n" 1024 " (color-theme-install\n" 1025 " '(" (symbol-name func)) 1026 ;; alist of frame parameters 1027 (color-theme-print-alist params) 1028 ;; alist of variables 1029 (color-theme-print-alist vars) 1030 ;; remaining elements of snapshot: face specs 1031 (color-theme-print-faces faces) 1032 (insert ")))") 1033 (goto-char (point-min))) 1034 1035 (defun color-theme-print (&optional buf) 1036 "Print the current color theme function. 1037 1038 You can contribute this function to <URL:news:gnu.emacs.sources> or 1039 paste it into your .emacs file and call it. That should recreate all 1040 the settings necessary for your color theme. 1041 1042 Example: 1043 1044 \(require 'color-theme) 1045 \(defun my-color-theme () 1046 \"Color theme by Alex Schroeder, created 2000-05-17.\" 1047 \(interactive) 1048 \(color-theme-install 1049 '(... 1050 ... 1051 ...))) 1052 \(my-color-theme) 1053 1054 If you want to use a specific color theme function, you can call the 1055 color theme function in your .emacs directly. 1056 1057 Example: 1058 1059 \(require 'color-theme) 1060 \(color-theme-gnome2)" 1061 (interactive) 1062 (message "Pretty printing current color theme function...") 1063 (switch-to-buffer (if buf 1064 buf 1065 (get-buffer-create "*Color Theme*"))) 1066 (unless buf 1067 (setq buffer-read-only nil) 1068 (erase-buffer)) 1069 ;; insert defun 1070 (color-theme-print-theme 'my-color-theme 1071 (concat "Color theme by " 1072 (if (string= "" user-full-name) 1073 (user-login-name) 1074 user-full-name) 1075 ", created " (format-time-string "%Y-%m-%d") ".") 1076 (color-theme-get-params) 1077 (color-theme-get-vars) 1078 (mapcar 'color-theme-spec (color-theme-get-faces))) 1079 (unless buf 1080 (emacs-lisp-mode)) 1081 (goto-char (point-min)) 1082 (message "Pretty printing current color theme function... done")) 1083 1084 (defun color-theme-analyze-find-theme (code) 1085 "Find the sexpr that calls `color-theme-install'." 1086 (let (theme) 1087 (while (and (not theme) code) 1088 (when (eq (car code) 'color-theme-install) 1089 (setq theme code)) 1090 (when (listp (car code)) 1091 (setq theme (color-theme-analyze-find-theme (car code)))) 1092 (setq code (cdr code))) 1093 theme)) 1094 1095 ;; (equal (color-theme-analyze-find-theme 1096 ;; '(defun color-theme-blue-eshell () 1097 ;; "Color theme for eshell faces only." 1098 ;; (color-theme-install 1099 ;; '(color-theme-blue-eshell 1100 ;; nil 1101 ;; (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 1102 ;; (eshell-ls-backup-face ((t (:foreground "Grey")))))))) 1103 ;; '(color-theme-install 1104 ;; (quote 1105 ;; (color-theme-blue-eshell 1106 ;; nil 1107 ;; (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 1108 ;; (eshell-ls-backup-face ((t (:foreground "Grey"))))))))) 1109 1110 (defun color-theme-analyze-add-face (a b regexp faces) 1111 "If only one of A or B are in FACES, the other is added, and FACES is returned. 1112 If REGEXP is given, this is only done if faces contains a match for regexps." 1113 (when (or (not regexp) 1114 (catch 'found 1115 (dolist (face faces) 1116 (when (string-match regexp (symbol-name (car face))) 1117 (throw 'found t))))) 1118 (let ((face-a (assoc a faces)) 1119 (face-b (assoc b faces))) 1120 (if (and face-a (not face-b)) 1121 (setq faces (cons (list b (nth 1 face-a)) 1122 faces)) 1123 (if (and (not face-a) face-b) 1124 (setq faces (cons (list a (nth 1 face-b)) 1125 faces)))))) 1126 faces) 1127 1128 ;; (equal (color-theme-analyze-add-face 1129 ;; 'blue 'violet nil 1130 ;; '((blue ((t (:foreground "blue")))) 1131 ;; (bold ((t (:bold t)))))) 1132 ;; '((violet ((t (:foreground "blue")))) 1133 ;; (blue ((t (:foreground "blue")))) 1134 ;; (bold ((t (:bold t)))))) 1135 ;; (equal (color-theme-analyze-add-face 1136 ;; 'violet 'blue nil 1137 ;; '((blue ((t (:foreground "blue")))) 1138 ;; (bold ((t (:bold t)))))) 1139 ;; '((violet ((t (:foreground "blue")))) 1140 ;; (blue ((t (:foreground "blue")))) 1141 ;; (bold ((t (:bold t)))))) 1142 ;; (equal (color-theme-analyze-add-face 1143 ;; 'violet 'blue "foo" 1144 ;; '((blue ((t (:foreground "blue")))) 1145 ;; (bold ((t (:bold t)))))) 1146 ;; '((blue ((t (:foreground "blue")))) 1147 ;; (bold ((t (:bold t)))))) 1148 ;; (equal (color-theme-analyze-add-face 1149 ;; 'violet 'blue "blue" 1150 ;; '((blue ((t (:foreground "blue")))) 1151 ;; (bold ((t (:bold t)))))) 1152 ;; '((violet ((t (:foreground "blue")))) 1153 ;; (blue ((t (:foreground "blue")))) 1154 ;; (bold ((t (:bold t)))))) 1155 1156 (defun color-theme-analyze-add-faces (faces) 1157 "Add missing faces to FACES and return it." 1158 ;; The most important thing is to add missing faces for the other 1159 ;; editor. These are the most important faces to check. The 1160 ;; following rules list two faces, A and B. If either of the two is 1161 ;; part of the theme, the other must be, too. The optional third 1162 ;; argument specifies a regexp. Only if an existing face name 1163 ;; matches this regexp, is the rule applied. 1164 (let ((rules '((font-lock-builtin-face font-lock-reference-face) 1165 (font-lock-doc-face font-lock-doc-string-face) 1166 (font-lock-constant-face font-lock-preprocessor-face) 1167 ;; In Emacs 21 `modeline' is just an alias for 1168 ;; `mode-line'. I recommend the use of 1169 ;; `modeline' until further notice. 1170 (modeline mode-line) 1171 (modeline modeline-buffer-id) 1172 (modeline modeline-mousable) 1173 (modeline modeline-mousable-minor-mode) 1174 (region primary-selection) 1175 (region zmacs-region) 1176 (font-lock-string-face dired-face-boring "^dired") 1177 (font-lock-function-name-face dired-face-directory "^dired") 1178 (default dired-face-executable "^dired") 1179 (font-lock-warning-face dired-face-flagged "^dired") 1180 (font-lock-warning-face dired-face-marked "^dired") 1181 (default dired-face-permissions "^dired") 1182 (default dired-face-setuid "^dired") 1183 (default dired-face-socket "^dired") 1184 (font-lock-keyword-face dired-face-symlink "^dired") 1185 (tool-bar menu)))) 1186 (dolist (rule rules) 1187 (setq faces (color-theme-analyze-add-face 1188 (nth 0 rule) (nth 1 rule) (nth 2 rule) faces)))) 1189 ;; The `fringe' face defines what the left and right borders of the 1190 ;; frame look like in Emacs 21. To give them default fore- and 1191 ;; background colors, use (fringe ((t (nil)))) in your color theme. 1192 ;; Usually it makes more sense to choose a color slightly lighter or 1193 ;; darker from the default background. 1194 (unless (assoc 'fringe faces) 1195 (setq faces (cons '(fringe ((t (nil)))) faces))) 1196 ;; The tool-bar should not be part of the frame-parameters, since it 1197 ;; should not appear or disappear depending on the color theme. The 1198 ;; apppearance of the toolbar, however, can be changed by the color 1199 ;; theme. For Emacs 21, use the `tool-bar' face. The easiest way 1200 ;; to do this is to give it the default fore- and background colors. 1201 ;; This can be achieved using (tool-bar ((t (nil)))) in the theme. 1202 ;; Usually it makes more sense, however, to provide the same colors 1203 ;; as used in the `menu' face, and to specify a :box attribute. In 1204 ;; order to alleviate potential Emacs/XEmacs incompatibilities, 1205 ;; `toolbar' will be defined as an alias for `tool-bar' if it does 1206 ;; not exist, and vice-versa. This is done eventhough the face 1207 ;; `toolbar' seems to have no effect on XEmacs. If you look at 1208 ;; XEmacs lisp/faces.el, however, you will find that it is in fact 1209 ;; referenced for XPM stuff. 1210 (unless (assoc 'tool-bar faces) 1211 (setq faces (cons '(tool-bar ((t (nil)))) faces))) 1212 ;; Move the default face back to the front, and sort the rest. 1213 (unless (eq (caar faces) 'default) 1214 (let ((face (assoc 'default faces))) 1215 (setq faces (cons face 1216 (sort (delete face faces) 1217 (lambda (a b) 1218 (string-lessp (car a) (car b)))))))) 1219 faces) 1220 1221 (defun color-theme-analyze-remove-heights (faces) 1222 "Remove :height property where it is an integer and return FACES." 1223 ;; I don't recommend making font sizes part of a color theme. Most 1224 ;; users would be surprised to see their font sizes change when they 1225 ;; install a color-theme. Therefore, remove all :height attributes 1226 ;; if the value is an integer. If the value is a float, this is ok 1227 ;; -- the value is relative to the default height. One notable 1228 ;; exceptions is for a color-theme created for visually impaired 1229 ;; people. These *must* use a larger font in order to be usable. 1230 (let (result) 1231 (dolist (face faces) 1232 (let ((props (cadar (nth 1 face)))) 1233 (if (and (plist-member props :height) 1234 (integerp (plist-get props :height))) 1235 (setq props (color-theme-plist-delete props :height) 1236 result (cons (list (car face) `((t ,props))) 1237 result)) 1238 (setq result (cons face result))))) 1239 (nreverse result))) 1240 1241 ;; (equal (color-theme-analyze-remove-heights 1242 ;; '((blue ((t (:foreground "blue" :height 2)))) 1243 ;; (bold ((t (:bold t :height 1.0)))))) 1244 ;; '((blue ((t (:foreground "blue")))) 1245 ;; (bold ((t (:bold t :height 1.0)))))) 1246 1247 (defun color-theme-analyze-defun () 1248 "Once you have a color-theme printed, check for missing faces. 1249 This is used by maintainers who receive a color-theme submission 1250 and want to make sure it follows the guidelines by the color-theme 1251 author." 1252 ;; The support for :foreground and :background attributes works for 1253 ;; Emacs 20 and 21 as well as for XEmacs. :inverse-video is taken 1254 ;; care of while printing color themes. 1255 (interactive) 1256 ;; Parse the stuff and find the call to color-theme-install 1257 (save-excursion 1258 (save-restriction 1259 (narrow-to-defun) 1260 ;; define the function 1261 (eval-defun nil) 1262 (goto-char (point-min)) 1263 (let* ((code (read (current-buffer))) 1264 (theme (color-theme-canonic 1265 (eval 1266 (cadr 1267 (color-theme-analyze-find-theme 1268 code))))) 1269 (func (color-theme-function theme)) 1270 (doc (documentation func t)) 1271 (variables (color-theme-variables theme)) 1272 (faces (color-theme-faces theme)) 1273 (params (color-theme-frame-params theme))) 1274 (setq faces (color-theme-analyze-remove-heights 1275 (color-theme-analyze-add-faces faces))) 1276 ;; Remove any variable bindings of faces that point to their 1277 ;; symbol? Perhaps not, because another theme might want to 1278 ;; change this, so it is important to be able to reset them. 1279 ;; (let (result) 1280 ;; (dolist (var variables) 1281 ;; (unless (eq (car var) (cdr var)) 1282 ;; (setq result (cons var result)))) 1283 ;; (setq variables (nreverse result))) 1284 ;; Now modify the theme directly. 1285 (setq theme (color-theme-analyze-find-theme code)) 1286 (setcdr (cadadr theme) (list params variables faces)) 1287 (message "Pretty printing analysed color theme function...") 1288 (with-current-buffer (get-buffer-create "*Color Theme*") 1289 (setq buffer-read-only nil) 1290 (erase-buffer) 1291 ;; insert defun 1292 (color-theme-print-theme func doc params variables faces) 1293 (emacs-lisp-mode)) 1294 (message "Pretty printing analysed color theme function... done") 1295 (ediff-buffers (current-buffer) 1296 (get-buffer "*Color Theme*")))))) 1297 1298 ;;; Creating a snapshot of the current color theme 1299 1300 (defun color-theme-snapshot nil) 1301 1302 (defun color-theme-make-snapshot () 1303 "Return the definition of the current color-theme. 1304 The function returned will recreate the color-theme in use at the moment." 1305 (eval `(lambda () 1306 "The color theme in use when the selection buffer was created. 1307 \\[color-theme-select] creates the color theme selection buffer. At the 1308 same time, this snapshot is created as a very simple undo mechanism. 1309 The snapshot is created via `color-theme-snapshot'." 1310 (interactive) 1311 (color-theme-install 1312 '(color-theme-snapshot 1313 ;; alist of frame parameters 1314 ,(color-theme-get-params) 1315 ;; alist of variables 1316 ,(color-theme-get-vars) 1317 ;; remaining elements of snapshot: face specs 1318 ,@(color-theme-get-face-definitions)))))) 1319 1320 1321 1322 ;;; Handling the various parts of a color theme install 1323 1324 (defvar color-theme-frame-param-frobbing-rules 1325 '((foreground-color default foreground) 1326 (background-color default background)) 1327 "List of rules to use when frobbing faces based on frame parameters. 1328 This is only necessary for XEmacs, because in Emacs 21 changing the 1329 frame paramters automatically affects the relevant faces.") 1330 1331 (defun color-theme-frob-faces (params) 1332 "Change certain faces according to PARAMS. 1333 This uses `color-theme-frame-param-frobbing-rules'." 1334 (dolist (rule color-theme-frame-param-frobbing-rules) 1335 (let* ((param (nth 0 rule)) 1336 (face (nth 1 rule)) 1337 (prop (nth 2 rule)) 1338 (val (cdr (assq param params))) 1339 (frame (if color-theme-is-global nil (selected-frame)))) 1340 (when val 1341 (set-face-property face prop val frame))))) 1342 1343 (defun color-theme-alist-reduce (old-list) 1344 "Reduce OLD-LIST. 1345 The resulting list will be newly allocated and will not contain any elements 1346 with duplicate cars. This will speed the installation of new themes by 1347 only installing unique attributes." 1348 (let (new-list) 1349 (dolist (elem old-list) 1350 (when (not (assq (car elem) new-list)) 1351 (setq new-list (cons elem new-list)))) 1352 new-list)) 1353 1354 (defun color-theme-install-frame-params (params) 1355 "Change frame parameters using alist PARAMETERS. 1356 1357 If `color-theme-is-global' is non-nil, all frames are modified using 1358 `modify-frame-parameters' and the PARAMETERS are prepended to 1359 `default-frame-alist'. The value of `initial-frame-alist' is not 1360 modified. If `color-theme-is-global' is nil, only the selected frame is 1361 modified. If `color-theme-is-cumulative' is nil, the frame parameters 1362 are restored from `color-theme-original-frame-alist'. 1363 1364 If the current frame parameters have a parameter `minibuffer' with 1365 value `only', then the frame parameters are not installed, since this 1366 indicates a dedicated minibuffer frame. 1367 1368 Called from `color-theme-install'." 1369 (setq params (color-theme-filter 1370 params color-theme-legal-frame-parameters)) 1371 ;; We have a new list in params now, therefore we may use 1372 ;; destructive nconc. 1373 (if color-theme-is-global 1374 (let ((frames (frame-list))) 1375 (if (or color-theme-is-cumulative 1376 (null color-theme-original-frame-alist)) 1377 (setq default-frame-alist 1378 (append params (color-theme-alist default-frame-alist)) 1379 minibuffer-frame-alist 1380 (append params (color-theme-alist minibuffer-frame-alist))) 1381 (setq default-frame-alist 1382 (append params color-theme-original-frame-alist) 1383 minibuffer-frame-alist 1384 (append params (color-theme-alist minibuffer-frame-alist)))) 1385 (setq default-frame-alist 1386 (color-theme-alist-reduce default-frame-alist) 1387 minibuffer-frame-alist 1388 (color-theme-alist-reduce minibuffer-frame-alist)) 1389 (dolist (frame frames) 1390 (let ((params (if (eq 'only (cdr (assq 'minibuffer (frame-parameters frame)))) 1391 minibuffer-frame-alist 1392 default-frame-alist))) 1393 (condition-case var 1394 (modify-frame-parameters frame params) 1395 (error (message "Error using params %S: %S" params var)))))) 1396 (condition-case var 1397 (modify-frame-parameters (selected-frame) params) 1398 (error (message "Error using params %S: %S" params var)))) 1399 (when color-theme-xemacs-p 1400 (color-theme-frob-faces params))) 1401 1402 ;; (setq default-frame-alist (cons '(height . 30) default-frame-alist)) 1403 1404 (defun color-theme-install-variables (vars) 1405 "Change variables using alist VARS. 1406 All variables matching `color-theme-legal-variables' are set. 1407 1408 If `color-theme-is-global' and `color-theme-xemacs-p' are nil, variables 1409 are made frame-local before setting them. Variables are set using `set' 1410 in either case. This may lead to problems if changing the variable 1411 requires the usage of the function specified with the :set tag in 1412 defcustom declarations. 1413 1414 Called from `color-theme-install'." 1415 (let ((vars (color-theme-filter vars color-theme-legal-variables))) 1416 (dolist (var vars) 1417 (if (or color-theme-is-global color-theme-xemacs-p) 1418 (set (car var) (cdr var)) 1419 (make-variable-frame-local (car var)) 1420 (modify-frame-parameters (selected-frame) (list var)))))) 1421 1422 (defun color-theme-install-faces (faces) 1423 "Change faces using FACES. 1424 1425 Change faces for all frames and create any faces listed in FACES which 1426 don't exist. The modified faces will be marked as \"unchanged from 1427 its standard setting\". This is OK, since the changes made by 1428 installing a color theme should never by saved in .emacs by 1429 customization code. 1430 1431 FACES should be a list where each entry has the form: 1432 1433 (FACE SPEC) 1434 1435 See `defface' for the format of SPEC. 1436 1437 If `color-theme-is-global' is non-nil, faces are modified on all frames 1438 using `face-spec-set'. If `color-theme-is-global' is nil, faces are 1439 only modified on the selected frame. Non-existing faces are created 1440 using `make-empty-face' in either case. If `color-theme-is-cumulative' 1441 is nil, all faces are reset before installing the new faces. 1442 1443 Called from `color-theme-install'." 1444 ;; clear all previous faces 1445 (when (not color-theme-is-cumulative) 1446 (color-theme-reset-faces)) 1447 ;; install new faces 1448 (let ((faces (color-theme-filter faces color-theme-illegal-faces t)) 1449 (frame (if color-theme-is-global nil (selected-frame)))) 1450 (dolist (entry faces) 1451 (let ((face (nth 0 entry)) 1452 (spec (nth 1 entry))) 1453 (or (facep face) 1454 (make-empty-face face)) 1455 ;; remove weird properties from the default face only 1456 (when (eq face 'default) 1457 (setq spec (color-theme-spec-filter spec))) 1458 ;; Emacs/XEmacs customization issues: filter out :bold when 1459 ;; the spec contains :weight, etc, such that the spec remains 1460 ;; "valid" for custom. 1461 (setq spec (color-theme-spec-compat spec)) 1462 ;; using a spec of ((t (nil))) to reset a face doesn't work 1463 ;; in Emacs 21, we use the new function face-spec-reset-face 1464 ;; instead 1465 (if (and (functionp 'face-spec-reset-face) 1466 (equal spec '((t (nil))))) 1467 (face-spec-reset-face face frame) 1468 (condition-case var 1469 (progn 1470 (face-spec-set face spec frame) 1471 (if color-theme-is-global 1472 (put face 'face-defface-spec spec))) 1473 (error (message "Error using spec %S: %S" spec var)))))))) 1474 1475 ;; `custom-set-faces' is unusable here because it doesn't allow to set 1476 ;; the faces for one frame only. 1477 1478 ;; Emacs `face-spec-set': If FRAME is nil, the face is created and 1479 ;; marked as a customized face. This is achieved by setting the 1480 ;; `face-defface-spec' property. If we don't, new frames will not be 1481 ;; created using the face we installed because `face-spec-set' is 1482 ;; broken: If given a FRAME of nil, it will not set the default faces; 1483 ;; instead it will walk through all the frames and set modify the faces. 1484 ;; If we do set a property (`saved-face' or `face-defface-spec'), 1485 ;; `make-frame' will correctly use the faces we defined with our color 1486 ;; theme. If we used the property `saved-face', 1487 ;; `customize-save-customized' will save all the faces installed as part 1488 ;; of a color-theme in .emacs. That's why we use the 1489 ;; `face-defface-spec' property. 1490 1491 1492 1493 ;;; Theme accessor functions, canonicalization, merging, comparing 1494 1495 (defun color-theme-canonic (theme) 1496 "Return the canonic form of THEME. 1497 This deals with all the backwards compatibility stuff." 1498 (let (function frame-params variables faces) 1499 (when (functionp (car theme)) 1500 (setq function (car theme) 1501 theme (cdr theme))) 1502 (setq frame-params (car theme) 1503 theme (cdr theme)) 1504 ;; optional variable defintions (for backwards compatibility) 1505 (when (listp (caar theme)) 1506 (setq variables (car theme) 1507 theme (cdr theme))) 1508 ;; face definitions 1509 (setq faces theme) 1510 (list function frame-params variables faces))) 1511 1512 (defun color-theme-function (theme) 1513 "Return function used to create THEME." 1514 (nth 0 theme)) 1515 1516 (defun color-theme-frame-params (theme) 1517 "Return frame-parameters defined by THEME." 1518 (nth 1 theme)) 1519 1520 (defun color-theme-variables (theme) 1521 "Return variables set by THEME." 1522 (nth 2 theme)) 1523 1524 (defun color-theme-faces (theme) 1525 "Return faces defined by THEME." 1526 (nth 3 theme)) 1527 1528 (defun color-theme-merge-alists (&rest alists) 1529 "Merges all the alist arguments into one alist. 1530 Only the first instance of every key will be part of the resulting 1531 alist. Membership will be tested using `assq'." 1532 (let (result) 1533 (dolist (l alists) 1534 (dolist (entry l) 1535 (unless (assq (car entry) result) 1536 (setq result (cons entry result))))) 1537 (nreverse result))) 1538 ;; (color-theme-merge-alists '((a . 1) (b . 2))) 1539 ;; (color-theme-merge-alists '((a . 1) (b . 2) (a . 3))) 1540 ;; (color-theme-merge-alists '((a . 1) (b . 2)) '((a . 3))) 1541 ;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3))) 1542 ;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4))) 1543 ;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4) (b . 5))) 1544 1545 (defun color-theme-compare (theme-a theme-b) 1546 "Compare two color themes. 1547 This will print the differences between installing THEME-A and 1548 installing THEME-B. Note that the order is important: If a face is 1549 defined in THEME-A and not in THEME-B, then this will not show up as a 1550 difference, because there is no reset before installing THEME-B. If a 1551 face is defined in THEME-B and not in THEME-A, then this will show up as 1552 a difference." 1553 (interactive 1554 (list 1555 (intern 1556 (completing-read "Theme A: " 1557 (mapcar (lambda (i) (list (symbol-name (car i)))) 1558 color-themes) 1559 (lambda (i) (string-match "color-theme" (car i))))) 1560 (intern 1561 (completing-read "Theme B: " 1562 (mapcar (lambda (i) (list (symbol-name (car i)))) 1563 color-themes) 1564 (lambda (i) (string-match "color-theme" (car i))))))) 1565 ;; install the themes in a new frame and get the definitions 1566 (let ((color-theme-is-global nil)) 1567 (select-frame (make-frame)) 1568 (funcall theme-a) 1569 (setq theme-a (list theme-a 1570 (color-theme-get-params) 1571 (color-theme-get-vars) 1572 (color-theme-get-face-definitions))) 1573 (funcall theme-b) 1574 (setq theme-b (list theme-b 1575 (color-theme-get-params) 1576 (color-theme-get-vars) 1577 (color-theme-get-face-definitions))) 1578 (delete-frame)) 1579 (let ((params (set-difference 1580 (color-theme-frame-params theme-b) 1581 (color-theme-frame-params theme-a) 1582 :test 'equal)) 1583 (vars (set-difference 1584 (color-theme-variables theme-b) 1585 (color-theme-variables theme-a) 1586 :test 'equal)) 1587 (faces (set-difference 1588 (color-theme-faces theme-b) 1589 (color-theme-faces theme-a) 1590 :test 'equal))) 1591 (list 'diff 1592 params 1593 vars 1594 faces))) 1595 1596 1597 1598 ;;; Installing a color theme 1599 1600 (defun color-theme-install (theme) 1601 "Install a color theme defined by frame parameters, variables and faces. 1602 1603 The theme is installed for all present and future frames; any missing 1604 faces are created. See `color-theme-install-faces'. 1605 1606 THEME is a color theme definition. See below for more information. 1607 1608 If you want to install a color theme from your .emacs, use the output 1609 generated by `color-theme-print'. This produces color theme function 1610 which you can copy to your .emacs. 1611 1612 A color theme definition is a list: 1613 \([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS) 1614 1615 FUNCTION is the color theme function which called `color-theme-install'. 1616 This is no longer used. There was a time when this package supported 1617 automatic factoring of color themes. This has been abandoned. 1618 1619 FRAME-PARAMETERS is an alist of frame parameters. These are installed 1620 with `color-theme-install-frame-params'. These are installed last such 1621 that any changes to the default face can be changed by the frame 1622 parameters. 1623 1624 VARIABLE-DEFINITIONS is an alist of variable settings. These are 1625 installed with `color-theme-install-variables'. 1626 1627 FACE-DEFINITIONS is an alist of face definitions. These are installed 1628 with `color-theme-install-faces'. 1629 1630 If `color-theme-is-cumulative' is nil, a color theme will undo face and 1631 frame-parameter settings of previous color themes." 1632 (setq theme (color-theme-canonic theme)) 1633 (color-theme-install-variables (color-theme-variables theme)) 1634 (color-theme-install-faces (color-theme-faces theme)) 1635 ;; frame parameters override faces 1636 (color-theme-install-frame-params (color-theme-frame-params theme)) 1637 (when color-theme-history-max-length 1638 (color-theme-add-to-history 1639 (car theme)))) 1640 1641 1642 1643 ;; Sharing your stuff 1644 1645 (defun color-theme-submit () 1646 "Submit your color-theme to the maintainer." 1647 (interactive) 1648 (require 'reporter) 1649 (let ((reporter-eval-buffer (current-buffer)) 1650 final-resting-place 1651 after-sep-pos 1652 (reporter-status-message "Formatting buffer...") 1653 (reporter-status-count 0) 1654 (problem "Yet another color-theme") 1655 (agent (reporter-compose-outgoing)) 1656 (mailbuf (current-buffer)) 1657 hookvar) 1658 ;; do the work 1659 (require 'sendmail) 1660 ;; If mailbuf did not get made visible before, make it visible now. 1661 (let (same-window-buffer-names same-window-regexps) 1662 (pop-to-buffer mailbuf) 1663 ;; Just in case the original buffer is not visible now, bring it 1664 ;; back somewhere 1665 (and pop-up-windows (display-buffer reporter-eval-buffer))) 1666 (goto-char (point-min)) 1667 (mail-position-on-field "to") 1668 (insert color-theme-maintainer-address) 1669 (mail-position-on-field "subject") 1670 (insert problem) 1671 ;; move point to the body of the message 1672 (mail-text) 1673 (setq after-sep-pos (point)) 1674 (unwind-protect 1675 (progn 1676 (setq final-resting-place (point-marker)) 1677 (goto-char final-resting-place)) 1678 (color-theme-print (current-buffer)) 1679 (goto-char final-resting-place) 1680 (insert "\n\n") 1681 (goto-char final-resting-place) 1682 (insert "Hello there!\n\nHere's my color theme named: ") 1683 (set-marker final-resting-place nil)) 1684 ;; compose the minibuf message and display this. 1685 (let* ((sendkey-whereis (where-is-internal 1686 (get agent 'sendfunc) nil t)) 1687 (abortkey-whereis (where-is-internal 1688 (get agent 'abortfunc) nil t)) 1689 (sendkey (if sendkey-whereis 1690 (key-description sendkey-whereis) 1691 "C-c C-c")); TBD: BOGUS hardcode 1692 (abortkey (if abortkey-whereis 1693 (key-description abortkey-whereis) 1694 "M-x kill-buffer"))); TBD: BOGUS hardcode 1695 (message "Enter a message and type %s to send or %s to abort." 1696 sendkey abortkey)))) 1697 1698 1699 1700 ;;; The color theme functions 1701 1702 (defun color-theme-gnome () 1703 "Wheat on darkslategrey scheme. 1704 From one version of Emacs in RH6 and Gnome, modified by Jonadab." 1705 (interactive) 1706 (color-theme-install 1707 '(color-theme-gnome 1708 ((foreground-color . "wheat") 1709 (background-color . "darkslategrey") 1710 (background-mode . dark)) 1711 (default ((t (nil)))) 1712 (region ((t (:foreground "cyan" :background "dark cyan")))) 1713 (underline ((t (:foreground "yellow" :underline t)))) 1714 (modeline ((t (:foreground "dark cyan" :background "wheat")))) 1715 (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat")))) 1716 (modeline-mousable ((t (:foreground "dark cyan" :background "wheat")))) 1717 (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat")))) 1718 (italic ((t (:foreground "dark red" :italic t)))) 1719 (bold-italic ((t (:foreground "dark red" :bold t :italic t)))) 1720 (font-lock-comment-face ((t (:foreground "Firebrick")))) 1721 (bold ((t (:bold))))))) 1722 1723 (defun color-theme-blue-gnus () 1724 "Color theme for gnus and message faces only. 1725 This is intended for other color themes to use (eg. `color-theme-gnome2' 1726 and `color-theme-blue-sea')." 1727 (interactive) 1728 (color-theme-install 1729 '(color-theme-blue-gnus 1730 nil 1731 (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t)))) 1732 (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) 1733 (gnus-cite-face-2 ((t (:foreground "Khaki")))) 1734 (gnus-cite-face-3 ((t (:foreground "Coral")))) 1735 (gnus-cite-face-4 ((t (:foreground "yellow green")))) 1736 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 1737 (gnus-cite-face-6 ((t (:foreground "bisque")))) 1738 (gnus-cite-face-7 ((t (:foreground "peru")))) 1739 (gnus-cite-face-8 ((t (:foreground "light coral")))) 1740 (gnus-cite-face-9 ((t (:foreground "plum")))) 1741 (gnus-emphasis-bold ((t (:bold t)))) 1742 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 1743 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 1744 (gnus-emphasis-italic ((t (:italic t)))) 1745 (gnus-emphasis-underline ((t (:underline t)))) 1746 (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) 1747 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) 1748 (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) 1749 (gnus-group-mail-1-empty-face ((t (:foreground "White")))) 1750 (gnus-group-mail-1-face ((t (:bold t :foreground "White")))) 1751 (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) 1752 (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) 1753 (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) 1754 (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) 1755 (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) 1756 (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) 1757 (gnus-group-news-1-empty-face ((t (:foreground "White")))) 1758 (gnus-group-news-1-face ((t (:bold t :foreground "White")))) 1759 (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) 1760 (gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) 1761 (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) 1762 (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) 1763 (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) 1764 (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) 1765 (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) 1766 (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) 1767 (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) 1768 (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) 1769 (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) 1770 (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) 1771 (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) 1772 (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) 1773 (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) 1774 (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) 1775 (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) 1776 (gnus-signature-face ((t (:foreground "Grey")))) 1777 (gnus-splash-face ((t (:foreground "ForestGreen")))) 1778 (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) 1779 (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) 1780 (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) 1781 (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) 1782 (gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) 1783 (gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) 1784 (gnus-summary-low-read-face ((t (:foreground "slate gray")))) 1785 (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) 1786 (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) 1787 (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) 1788 (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) 1789 (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) 1790 (gnus-summary-normal-unread-face ((t (nil)))) 1791 (gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) 1792 (message-cited-text-face ((t (:foreground "LightSalmon")))) 1793 (message-header-cc-face ((t (:foreground "light cyan")))) 1794 (message-header-name-face ((t (:foreground "LightBlue")))) 1795 (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) 1796 (message-header-other-face ((t (:foreground "MediumAquamarine")))) 1797 (message-header-subject-face ((t (:bold t :foreground "light cyan")))) 1798 (message-header-to-face ((t (:bold t :foreground "light cyan")))) 1799 (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) 1800 (message-separator-face ((t (:foreground "chocolate"))))))) 1801 1802 (defun color-theme-dark-gnus () 1803 "Color theme for gnus and message faces only. 1804 This is intended for other color themes to use 1805 \(eg. `color-theme-late-night')." 1806 (interactive) 1807 (color-theme-install 1808 '(color-theme-blue-gnus 1809 nil 1810 (gnus-cite-attribution-face ((t (:foreground "#bbb")))) 1811 (gnus-cite-face-1 ((t (:foreground "#aaa")))) 1812 (gnus-cite-face-2 ((t (:foreground "#aaa")))) 1813 (gnus-cite-face-3 ((t (:foreground "#aaa")))) 1814 (gnus-cite-face-4 ((t (:foreground "#aaa")))) 1815 (gnus-cite-face-5 ((t (:foreground "#aaa")))) 1816 (gnus-cite-face-6 ((t (:foreground "#aaa")))) 1817 (gnus-cite-face-7 ((t (:foreground "#aaa")))) 1818 (gnus-cite-face-8 ((t (:foreground "#aaa")))) 1819 (gnus-cite-face-9 ((t (:foreground "#aaa")))) 1820 (gnus-emphasis-bold ((t (:bold t)))) 1821 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 1822 (gnus-emphasis-highlight-words ((t (:foreground "#ccc")))) 1823 (gnus-emphasis-italic ((t (:italic t)))) 1824 (gnus-emphasis-underline ((t (:underline t)))) 1825 (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) 1826 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) 1827 (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) 1828 (gnus-group-mail-1-empty-face ((t (:foreground "#999")))) 1829 (gnus-group-mail-1-face ((t (:bold t :foreground "#999")))) 1830 (gnus-group-mail-2-empty-face ((t (:foreground "#999")))) 1831 (gnus-group-mail-2-face ((t (:bold t :foreground "#999")))) 1832 (gnus-group-mail-3-empty-face ((t (:foreground "#888")))) 1833 (gnus-group-mail-3-face ((t (:bold t :foreground "#888")))) 1834 (gnus-group-mail-low-empty-face ((t (:foreground "#777")))) 1835 (gnus-group-mail-low-face ((t (:bold t :foreground "#777")))) 1836 (gnus-group-news-1-empty-face ((t (:foreground "#999")))) 1837 (gnus-group-news-1-face ((t (:bold t :foreground "#999")))) 1838 (gnus-group-news-2-empty-face ((t (:foreground "#888")))) 1839 (gnus-group-news-2-face ((t (:bold t :foreground "#888")))) 1840 (gnus-group-news-3-empty-face ((t (:foreground "#777")))) 1841 (gnus-group-news-3-face ((t (:bold t :foreground "#777")))) 1842 (gnus-group-news-4-empty-face ((t (:foreground "#666")))) 1843 (gnus-group-news-4-face ((t (:bold t :foreground "#666")))) 1844 (gnus-group-news-5-empty-face ((t (:foreground "#666")))) 1845 (gnus-group-news-5-face ((t (:bold t :foreground "#666")))) 1846 (gnus-group-news-6-empty-face ((t (:foreground "#666")))) 1847 (gnus-group-news-6-face ((t (:bold t :foreground "#666")))) 1848 (gnus-group-news-low-empty-face ((t (:foreground "#666")))) 1849 (gnus-group-news-low-face ((t (:bold t :foreground "#666")))) 1850 (gnus-header-content-face ((t (:foreground "#888")))) 1851 (gnus-header-from-face ((t (:bold t :foreground "#888")))) 1852 (gnus-header-name-face ((t (:bold t :foreground "#777")))) 1853 (gnus-header-newsgroups-face ((t (:bold t :foreground "#777")))) 1854 (gnus-header-subject-face ((t (:bold t :foreground "#999")))) 1855 (gnus-signature-face ((t (:foreground "#444")))) 1856 (gnus-splash-face ((t (:foreground "#ccc")))) 1857 (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000")))) 1858 (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555")))) 1859 (gnus-summary-high-read-face ((t (:bold t :foreground "#666")))) 1860 (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777")))) 1861 (gnus-summary-high-unread-face ((t (:bold t :foreground "#888")))) 1862 (gnus-summary-low-ancient-face ((t (:foreground "#444")))) 1863 (gnus-summary-low-read-face ((t (:foreground "#555")))) 1864 (gnus-summary-low-ticked-face ((t (:foreground "#666")))) 1865 (gnus-summary-low-unread-face ((t (:foreground "#777")))) 1866 (gnus-summary-normal-ancient-face ((t (:foreground "#555")))) 1867 (gnus-summary-normal-read-face ((t (:foreground "#666")))) 1868 (gnus-summary-normal-ticked-face ((t (:foreground "#777")))) 1869 (gnus-summary-normal-unread-face ((t (:foreground "#888")))) 1870 (gnus-summary-selected-face ((t (:background "#333")))) 1871 (message-cited-text-face ((t (:foreground "#aaa")))) 1872 (message-header-cc-face ((t (:foreground "#888")))) 1873 (message-header-name-face ((t (:bold t :foreground "#777")))) 1874 (message-header-newsgroups-face ((t (:bold t :foreground "#777")))) 1875 (message-header-other-face ((t (:foreground "#666")))) 1876 (message-header-subject-face ((t (:bold t :foreground "#999")))) 1877 (message-header-to-face ((t (:bold t :foreground "#777")))) 1878 (message-header-xheader-face ((t (:foreground "#666")))) 1879 (message-separator-face ((t (:foreground "#999"))))))) 1880 1881 (defun color-theme-blue-eshell () 1882 "Color theme for eshell faces only. 1883 This is intended for other color themes to use (eg. `color-theme-gnome2')." 1884 (interactive) 1885 (color-theme-install 1886 '(color-theme-blue-eshell 1887 nil 1888 (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 1889 (eshell-ls-backup-face ((t (:foreground "Grey")))) 1890 (eshell-ls-clutter-face ((t (:foreground "DimGray")))) 1891 (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) 1892 (eshell-ls-executable-face ((t (:foreground "Coral")))) 1893 (eshell-ls-missing-face ((t (:foreground "black")))) 1894 (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face 1895 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 1896 (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) 1897 (eshell-ls-special-face ((t (:foreground "Gold")))) 1898 (eshell-ls-symlink-face ((t (:foreground "White")))) 1899 (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face 1900 (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face 1901 (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) 1902 (eshell-prompt-face ((t (:foreground "powder blue"))))))) 1903 1904 (defun color-theme-salmon-font-lock () 1905 "Color theme for font-lock faces only. 1906 This is intended for other color themes to use (eg. `color-theme-gnome2')." 1907 (interactive) 1908 (color-theme-install 1909 '(color-theme-salmon-font-lock 1910 nil 1911 (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) 1912 (font-lock-comment-face ((t (:foreground "LightBlue")))) 1913 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 1914 (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) 1915 (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine")))) 1916 (font-lock-keyword-face ((t (:foreground "Salmon")))) 1917 (font-lock-preprocessor-face ((t (:foreground "Salmon")))) 1918 (font-lock-reference-face ((t (:foreground "pale green")))) 1919 (font-lock-string-face ((t (:foreground "LightSalmon")))) 1920 (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) 1921 (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine")))) 1922 (font-lock-warning-face ((t (:bold t :foreground "red"))))))) 1923 1924 (defun color-theme-dark-font-lock () 1925 "Color theme for font-lock faces only. 1926 This is intended for other color themes to use (eg. `color-theme-late-night')." 1927 (interactive) 1928 (color-theme-install 1929 '(color-theme-dark-font-lock 1930 nil 1931 (font-lock-builtin-face ((t (:bold t :foreground "#777")))) 1932 (font-lock-comment-face ((t (:foreground "#555")))) 1933 (font-lock-constant-face ((t (:foreground "#777")))) 1934 (font-lock-doc-string-face ((t (:foreground "#777")))) 1935 (font-lock-doc-face ((t (:foreground "#777")))) 1936 (font-lock-function-name-face ((t (:bold t :foreground "#777")))) 1937 (font-lock-keyword-face ((t (:foreground "#777")))) 1938 (font-lock-preprocessor-face ((t (:foreground "#777")))) 1939 (font-lock-reference-face ((t (:foreground "#777")))) 1940 (font-lock-string-face ((t (:foreground "#777")))) 1941 (font-lock-type-face ((t (:bold t)))) 1942 (font-lock-variable-name-face ((t (:bold t :foreground "#888")))) 1943 (font-lock-warning-face ((t (:bold t :foreground "#999"))))))) 1944 1945 (defun color-theme-dark-info () 1946 "Color theme for info, help and apropos faces. 1947 This is intended for other color themes to use (eg. `color-theme-late-night')." 1948 (interactive) 1949 (color-theme-install 1950 '(color-theme-dark-info 1951 nil 1952 (info-header-node ((t (:foreground "#666")))) 1953 (info-header-xref ((t (:foreground "#666")))) 1954 (info-menu-5 ((t (:underline t)))) 1955 (info-menu-header ((t (:bold t :foreground "#666")))) 1956 (info-node ((t (:bold t :foreground "#888")))) 1957 (info-xref ((t (:bold t :foreground "#777"))))))) 1958 1959 (defun color-theme-gnome2 () 1960 "Wheat on darkslategrey scheme. 1961 `color-theme-gnome' started it all. 1962 1963 This theme supports standard faces, font-lock, eshell, info, message, 1964 gnus, custom, widget, woman, diary, cperl, bbdb, and erc. This theme 1965 includes faces for Emacs and XEmacs. 1966 1967 The theme does not support w3 faces because w3 faces can be controlled 1968 by your default style sheet. 1969 1970 This is what you should put in your .Xdefaults file, if you want to 1971 change the colors of the menus in Emacs 20 as well: 1972 1973 emacs*Background: DarkSlateGray 1974 emacs*Foreground: Wheat" 1975 (interactive) 1976 (color-theme-blue-gnus) 1977 (let ((color-theme-is-cumulative t)) 1978 (color-theme-blue-erc) 1979 (color-theme-blue-eshell) 1980 (color-theme-salmon-font-lock) 1981 (color-theme-salmon-diff) 1982 (color-theme-install 1983 '(color-theme-gnome2 1984 ((foreground-color . "wheat") 1985 (background-color . "darkslategrey") 1986 (mouse-color . "Grey") 1987 (cursor-color . "LightGray") 1988 (border-color . "black") 1989 (background-mode . dark)) 1990 ((apropos-keybinding-face . underline) 1991 (apropos-label-face . italic) 1992 (apropos-match-face . secondary-selection) 1993 (apropos-property-face . bold-italic) 1994 (apropos-symbol-face . info-xref) 1995 (goto-address-mail-face . message-header-to-face) 1996 (goto-address-mail-mouse-face . secondary-selection) 1997 (goto-address-url-face . info-xref) 1998 (goto-address-url-mouse-face . highlight) 1999 (list-matching-lines-face . bold) 2000 (view-highlight-face . highlight)) 2001 (default ((t (nil)))) 2002 (bbdb-company ((t (:foreground "pale green")))) 2003 (bbdb-name ((t (:bold t :foreground "pale green")))) 2004 (bbdb-field-name ((t (:foreground "medium sea green")))) 2005 (bbdb-field-value ((t (:foreground "dark sea green")))) 2006 (bold ((t (:bold t)))) 2007 (bold-italic ((t (:italic t :bold t :foreground "beige")))) 2008 (calendar-today-face ((t (:underline t)))) 2009 (comint-highlight-prompt ((t (:foreground "medium aquamarine")))) 2010 (cperl-array-face ((t (:foreground "Yellow")))) 2011 (cperl-hash-face ((t (:foreground "White")))) 2012 (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) 2013 (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) 2014 (custom-documentation-face ((t (:foreground "Grey")))) 2015 (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) 2016 (custom-state-face ((t (:foreground "LightSalmon")))) 2017 (custom-variable-tag-face ((t (:foreground "Aquamarine")))) 2018 (diary-face ((t (:foreground "IndianRed")))) 2019 (dired-face-directory ((t (:bold t :foreground "sky blue")))) 2020 (dired-face-permissions ((t (:foreground "aquamarine")))) 2021 (dired-face-flagged ((t (:foreground "tomato")))) 2022 (dired-face-marked ((t (:foreground "light salmon")))) 2023 (dired-face-executable ((t (:foreground "green yellow")))) 2024 (fringe ((t (:background "darkslategrey")))) 2025 (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) 2026 (highline-face ((t (:background "SeaGreen")))) 2027 (holiday-face ((t (:background "DimGray")))) 2028 (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) 2029 (hyper-apropos-documentation ((t (:foreground "LightSalmon")))) 2030 (info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) 2031 (info-menu-5 ((t (:underline t)))) 2032 (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) 2033 (info-xref ((t (:bold t :foreground "DodgerBlue1")))) 2034 (isearch ((t (:background "sea green")))) 2035 (italic ((t (:italic t)))) 2036 (menu ((t (:foreground "wheat" :background "darkslategrey")))) 2037 (modeline ((t (:background "dark olive green" :foreground "wheat")))) 2038 (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) 2039 (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) 2040 (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) 2041 (region ((t (:background "dark cyan" :foreground "cyan")))) 2042 (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) 2043 (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) 2044 (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) 2045 (underline ((t (:underline t)))) 2046 (widget-field-face ((t (:foreground "LightBlue")))) 2047 (widget-inactive-face ((t (:foreground "DimGray")))) 2048 (widget-single-line-field-face ((t (:foreground "LightBlue")))) 2049 (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) 2050 (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) 2051 (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) 2052 (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) 2053 (woman-bold-face ((t (:bold t)))) 2054 (woman-italic-face ((t (:foreground "beige")))) 2055 (woman-unknown-face ((t (:foreground "LightSalmon")))) 2056 (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))) 2057 2058 (defun color-theme-simple-1 () 2059 "Black background. 2060 Doesn't mess with most faces, but does turn on dark background mode." 2061 (interactive) 2062 (color-theme-install 2063 '(color-theme-simple-1 2064 ((foreground-color . "white") 2065 (background-color . "black") 2066 (cursor-color . "indian red") 2067 (background-mode . dark)) 2068 (default ((t (nil)))) 2069 (modeline ((t (:foreground "black" :background "white")))) 2070 (modeline-buffer-id ((t (:foreground "black" :background "white")))) 2071 (modeline-mousable ((t (:foreground "black" :background "white")))) 2072 (modeline-mousable-minor-mode ((t (:foreground "black" :background "white")))) 2073 (underline ((t (:underline t)))) 2074 (region ((t (:background "grey"))))))) 2075 2076 (defun color-theme-jonadabian () 2077 "Dark blue background. 2078 Supports standard faces, font-lock, highlight-changes, widget and 2079 custom." 2080 (interactive) 2081 (color-theme-install 2082 '(color-theme-jonadabian 2083 ((foreground-color . "#CCBB77") 2084 (cursor-color . "medium turquoise") 2085 (background-color . "#000055") 2086 (background-mode . dark)) 2087 (default ((t (nil)))) 2088 (modeline ((t (:foreground "cyan" :background "#007080")))) 2089 (modeline-buffer-id ((t (:foreground "cyan" :background "#007080")))) 2090 (modeline-mousable ((t (:foreground "cyan" :background "#007080")))) 2091 (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080")))) 2092 (underline ((t (:underline t)))) 2093 (region ((t (:background "#004080")))) 2094 (font-lock-keyword-face ((t (:foreground "#00BBBB")))) 2095 (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t)))) 2096 (font-lock-string-face ((t (:foreground "#10D010")))) 2097 (font-lock-constant-face ((t (:foreground "indian red")))) 2098 (highlight-changes-face ((t (:background "navy")))) 2099 (highlight-changes-delete-face ((t (:foreground "red" :background "navy")))) 2100 (widget-field-face ((t (:foreground "black" :background "grey35")))) 2101 (widget-inactive-face ((t (:foreground "gray")))) 2102 (custom-button-face ((t (:foreground "yellow" :background "dark blue")))) 2103 (custom-state-face ((t (:foreground "mediumaquamarine")))) 2104 (custom-face-tag-face ((t (:foreground "goldenrod" :underline t)))) 2105 (custom-documentation-face ((t (:foreground "#10D010")))) 2106 (custom-set-face ((t (:foreground "#2020D0"))))))) 2107 2108 (defun color-theme-ryerson () 2109 "White on midnightblue scheme. 2110 Used at Ryerson Polytechnic University in the Electronic Engineering department." 2111 (interactive) 2112 (color-theme-install 2113 '(color-theme-ryerson 2114 ((foreground-color . "white") 2115 (background-color . "midnightblue") 2116 (cursor-color . "red") 2117 (background-mode . dark)) 2118 (default ((t (nil)))) 2119 (modeline ((t (:foreground "black" :background "slategray3")))) 2120 (modeline-buffer-id ((t (:foreground "black" :background "slategray3")))) 2121 (modeline-mousable ((t (:foreground "black" :background "slategray3")))) 2122 (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3")))) 2123 (underline ((t (:underline t)))) 2124 (region ((t (:foreground "black" :background "slategray3"))))))) 2125 2126 (defun color-theme-wheat () 2127 "Default colors on a wheat background. 2128 Calls the standard color theme function `color-theme-standard' in order 2129 to reset all faces." 2130 (interactive) 2131 (color-theme-standard) 2132 (let ((color-theme-is-cumulative t)) 2133 (color-theme-install 2134 '(color-theme-wheat 2135 ((background-color . "Wheat")))))) 2136 2137 (defun color-theme-standard () 2138 "Emacs default colors. 2139 If you are missing standard faces in this theme, please notify the maintainer." 2140 (interactive) 2141 ;; Note that some of the things that make up a color theme are 2142 ;; actually variable settings! 2143 (color-theme-install 2144 '(color-theme-standard 2145 ((foreground-color . "black") 2146 (background-color . "white") 2147 (mouse-color . "black") 2148 (cursor-color . "black") 2149 (border-color . "black") 2150 (background-mode . light)) 2151 ((Man-overstrike-face . bold) 2152 (Man-underline-face . underline) 2153 (apropos-keybinding-face . underline) 2154 (apropos-label-face . italic) 2155 (apropos-match-face . secondary-selection) 2156 (apropos-property-face . bold-italic) 2157 (apropos-symbol-face . bold) 2158 (goto-address-mail-face . italic) 2159 (goto-address-mail-mouse-face . secondary-selection) 2160 (goto-address-url-face . bold) 2161 (goto-address-url-mouse-face . highlight) 2162 (help-highlight-face . underline) 2163 (list-matching-lines-face . bold) 2164 (view-highlight-face . highlight)) 2165 (default ((t (nil)))) 2166 (bold ((t (:bold t)))) 2167 (bold-italic ((t (:bold t :italic t)))) 2168 (calendar-today-face ((t (:underline t)))) 2169 (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) 2170 (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) 2171 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 2172 (custom-button-face ((t (nil)))) 2173 (custom-changed-face ((t (:foreground "white" :background "blue")))) 2174 (custom-documentation-face ((t (nil)))) 2175 (custom-face-tag-face ((t (:underline t)))) 2176 (custom-group-tag-face ((t (:foreground "blue" :underline t)))) 2177 (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) 2178 (custom-invalid-face ((t (:foreground "yellow" :background "red")))) 2179 (custom-modified-face ((t (:foreground "white" :background "blue")))) 2180 (custom-rogue-face ((t (:foreground "pink" :background "black")))) 2181 (custom-saved-face ((t (:underline t)))) 2182 (custom-set-face ((t (:foreground "blue" :background "white")))) 2183 (custom-state-face ((t (:foreground "dark green")))) 2184 (custom-variable-button-face ((t (:bold t :underline t)))) 2185 (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) 2186 (diary-face ((t (:foreground "red")))) 2187 (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) 2188 (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) 2189 (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) 2190 (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) 2191 (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) 2192 (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) 2193 (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) 2194 (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) 2195 (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) 2196 (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) 2197 (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) 2198 (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) 2199 (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) 2200 (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) 2201 (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) 2202 (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) 2203 (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) 2204 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 2205 (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) 2206 (eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) 2207 (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) 2208 (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) 2209 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 2210 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 2211 (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) 2212 (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) 2213 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 2214 (eshell-prompt-face ((t (:foreground "Red" :bold t)))) 2215 (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) 2216 (eshell-test-ok-face ((t (:foreground "Green" :bold t)))) 2217 (excerpt ((t (:italic t)))) 2218 (fixed ((t (:bold t)))) 2219 (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) 2220 (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) 2221 (font-lock-builtin-face ((t (:foreground "Orchid")))) 2222 (font-lock-comment-face ((t (:foreground "Firebrick")))) 2223 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 2224 (font-lock-function-name-face ((t (:foreground "Blue")))) 2225 (font-lock-keyword-face ((t (:foreground "Purple")))) 2226 (font-lock-string-face ((t (:foreground "RosyBrown")))) 2227 (font-lock-type-face ((t (:foreground "ForestGreen")))) 2228 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 2229 (font-lock-warning-face ((t (:foreground "Red" :bold t)))) 2230 (fringe ((t (:background "grey95")))) 2231 (gnus-cite-attribution-face ((t (:italic t)))) 2232 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 2233 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 2234 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 2235 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 2236 (gnus-cite-face-3 ((t (:foreground "dark green")))) 2237 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 2238 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 2239 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 2240 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 2241 (gnus-cite-face-8 ((t (:foreground "magenta")))) 2242 (gnus-cite-face-9 ((t (:foreground "violet")))) 2243 (gnus-emphasis-bold ((t (:bold t)))) 2244 (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) 2245 (gnus-emphasis-italic ((t (:italic t)))) 2246 (gnus-emphasis-underline ((t (:underline t)))) 2247 (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) 2248 (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) 2249 (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) 2250 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 2251 (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) 2252 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 2253 (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) 2254 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 2255 (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) 2256 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 2257 (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) 2258 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 2259 (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) 2260 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 2261 (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) 2262 (gnus-group-news-3-empty-face ((t (nil)))) 2263 (gnus-group-news-3-face ((t (:bold t)))) 2264 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 2265 (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) 2266 (gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) 2267 (gnus-header-from-face ((t (:foreground "red3")))) 2268 (gnus-header-name-face ((t (:foreground "maroon")))) 2269 (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) 2270 (gnus-header-subject-face ((t (:foreground "red4")))) 2271 (gnus-signature-face ((t (:italic t)))) 2272 (gnus-splash-face ((t (:foreground "ForestGreen")))) 2273 (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) 2274 (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) 2275 (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) 2276 (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) 2277 (gnus-summary-high-unread-face ((t (:bold t)))) 2278 (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) 2279 (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) 2280 (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) 2281 (gnus-summary-low-unread-face ((t (:italic t)))) 2282 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 2283 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 2284 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 2285 (gnus-summary-normal-unread-face ((t (nil)))) 2286 (gnus-summary-selected-face ((t (:underline t)))) 2287 (highlight ((t (:background "darkseagreen2")))) 2288 (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) 2289 (highlight-changes-face ((t (:foreground "red")))) 2290 (highline-face ((t (:background "paleturquoise")))) 2291 (holiday-face ((t (:background "pink")))) 2292 (info-menu-5 ((t (:underline t)))) 2293 (info-node ((t (:bold t :italic t)))) 2294 (info-xref ((t (:bold t)))) 2295 (italic ((t (:italic t)))) 2296 (makefile-space-face ((t (:background "hotpink")))) 2297 (message-cited-text-face ((t (:foreground "red")))) 2298 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 2299 (message-header-name-face ((t (:foreground "cornflower blue")))) 2300 (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) 2301 (message-header-other-face ((t (:foreground "steel blue")))) 2302 (message-header-subject-face ((t (:foreground "navy blue" :bold t)))) 2303 (message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) 2304 (message-header-xheader-face ((t (:foreground "blue")))) 2305 (message-separator-face ((t (:foreground "brown")))) 2306 (modeline ((t (:foreground "white" :background "black")))) 2307 (modeline-buffer-id ((t (:foreground "white" :background "black")))) 2308 (modeline-mousable ((t (:foreground "white" :background "black")))) 2309 (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) 2310 (region ((t (:background "gray")))) 2311 (secondary-selection ((t (:background "paleturquoise")))) 2312 (show-paren-match-face ((t (:background "turquoise")))) 2313 (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) 2314 (speedbar-button-face ((t (:foreground "green4")))) 2315 (speedbar-directory-face ((t (:foreground "blue4")))) 2316 (speedbar-file-face ((t (:foreground "cyan4")))) 2317 (speedbar-highlight-face ((t (:background "green")))) 2318 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 2319 (speedbar-tag-face ((t (:foreground "brown")))) 2320 (term-black ((t (:foreground "black")))) 2321 (term-blackbg ((t (:background "black")))) 2322 (term-blue ((t (:foreground "blue")))) 2323 (term-bluebg ((t (:background "blue")))) 2324 (term-bold ((t (:bold t)))) 2325 (term-cyan ((t (:foreground "cyan")))) 2326 (term-cyanbg ((t (:background "cyan")))) 2327 (term-default-bg ((t (nil)))) 2328 (term-default-bg-inv ((t (nil)))) 2329 (term-default-fg ((t (nil)))) 2330 (term-default-fg-inv ((t (nil)))) 2331 (term-green ((t (:foreground "green")))) 2332 (term-greenbg ((t (:background "green")))) 2333 (term-invisible ((t (nil)))) 2334 (term-invisible-inv ((t (nil)))) 2335 (term-magenta ((t (:foreground "magenta")))) 2336 (term-magentabg ((t (:background "magenta")))) 2337 (term-red ((t (:foreground "red")))) 2338 (term-redbg ((t (:background "red")))) 2339 (term-underline ((t (:underline t)))) 2340 (term-white ((t (:foreground "white")))) 2341 (term-whitebg ((t (:background "white")))) 2342 (term-yellow ((t (:foreground "yellow")))) 2343 (term-yellowbg ((t (:background "yellow")))) 2344 (underline ((t (:underline t)))) 2345 (vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) 2346 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 2347 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 2348 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 2349 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 2350 (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) 2351 (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) 2352 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 2353 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 2354 (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) 2355 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 2356 (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) 2357 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 2358 (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) 2359 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 2360 (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) 2361 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 2362 (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) 2363 (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) 2364 (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) 2365 (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) 2366 (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) 2367 (viper-search-face ((t (:foreground "Black" :background "khaki")))) 2368 (widget-button-face ((t (:bold t)))) 2369 (widget-button-pressed-face ((t (:foreground "red")))) 2370 (widget-documentation-face ((t (:foreground "dark green")))) 2371 (widget-field-face ((t (:background "gray85")))) 2372 (widget-inactive-face ((t (:foreground "dim gray")))) 2373 (widget-single-line-field-face ((t (:background "gray85"))))))) 2374 2375 (defun color-theme-fischmeister () 2376 "The light colors on a grey blackground. 2377 Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>" 2378 (interactive) 2379 (color-theme-install 2380 '(color-theme-fischmeister 2381 ((foreground-color . "black") 2382 (background-color . "gray80") 2383 (mouse-color . "red") 2384 (cursor-color . "yellow") 2385 (border-color . "black") 2386 (background-mode . light)) 2387 (default ((t (nil)))) 2388 (modeline ((t (:foreground "gray80" :background "black")))) 2389 (modeline-buffer-id ((t (:foreground "gray80" :background "black")))) 2390 (modeline-mousable ((t (:foreground "gray80" :background "black")))) 2391 (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black")))) 2392 (highlight ((t (:background "darkseagreen2")))) 2393 (bold ((t (:bold t)))) 2394 (italic ((t (:italic t)))) 2395 (bold-italic ((t (:bold t :italic t)))) 2396 (region ((t (:background "gray")))) 2397 (secondary-selection ((t (:background "paleturquoise")))) 2398 (underline ((t (:underline t)))) 2399 (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen")))) 2400 (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) 2401 (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t)))) 2402 (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t)))) 2403 (font-lock-keyword-face ((t (:foreground "navy")))) 2404 (font-lock-builtin-face ((t (:foreground "white")))) 2405 (font-lock-function-name-face ((t (:foreground "Blue")))) 2406 (font-lock-variable-name-face ((t (:foreground "Darkblue")))) 2407 (font-lock-type-face ((t (:foreground "darkgreen")))) 2408 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 2409 (font-lock-warning-face ((t (:foreground "Orchid" :bold t)))) 2410 (font-lock-reference-face ((t (:foreground "SteelBlue"))))))) 2411 2412 (defun color-theme-sitaramv-solaris () 2413 "White on a midnight blue background. Lots of yellow and orange. 2414 Includes faces for font-lock, widget, custom, speedbar, message, gnus, 2415 eshell." 2416 (interactive) 2417 (color-theme-install 2418 '(color-theme-sitaramv-solaris 2419 ((foreground-color . "white") 2420 (background-color . "MidnightBlue") 2421 (mouse-color . "yellow") 2422 (cursor-color . "magenta2") 2423 (border-color . "black") 2424 (background-mode . dark)) 2425 (default ((t (nil)))) 2426 (modeline ((t (:foreground "black" :background "gold2")))) 2427 (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) 2428 (modeline-mousable ((t (:foreground "black" :background "gold2")))) 2429 (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) 2430 (highlight ((t (:foreground "black" :background "Aquamarine")))) 2431 (bold ((t (:bold t)))) 2432 (italic ((t (:italic t)))) 2433 (bold-italic ((t (:bold t :italic t)))) 2434 (region ((t (:foreground "black" :background "snow3")))) 2435 (secondary-selection ((t (:foreground "black" :background "aquamarine")))) 2436 (underline ((t (:underline t)))) 2437 (lazy-highlight-face ((t (:foreground "yellow")))) 2438 (font-lock-comment-face ((t (:foreground "orange" :italic t)))) 2439 (font-lock-string-face ((t (:foreground "orange")))) 2440 (font-lock-keyword-face ((t (:foreground "green")))) 2441 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 2442 (font-lock-function-name-face ((t (:foreground "cyan" :bold t)))) 2443 (font-lock-variable-name-face ((t (:foreground "white")))) 2444 (font-lock-type-face ((t (:foreground "cyan")))) 2445 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 2446 (font-lock-warning-face ((t (:foreground "Pink" :bold t)))) 2447 (widget-documentation-face ((t (:foreground "lime green")))) 2448 (widget-button-face ((t (:bold t)))) 2449 (widget-field-face ((t (:background "dim gray")))) 2450 (widget-single-line-field-face ((t (:background "dim gray")))) 2451 (widget-inactive-face ((t (:foreground "light gray")))) 2452 (widget-button-pressed-face ((t (:foreground "red")))) 2453 (custom-invalid-face ((t (:foreground "yellow" :background "red")))) 2454 (custom-rogue-face ((t (:foreground "pink" :background "black")))) 2455 (custom-modified-face ((t (:foreground "white" :background "blue")))) 2456 (custom-set-face ((t (:foreground "blue" :background "white")))) 2457 (custom-changed-face ((t (:foreground "white" :background "blue")))) 2458 (custom-saved-face ((t (:underline t)))) 2459 (custom-button-face ((t (nil)))) 2460 (custom-documentation-face ((t (nil)))) 2461 (custom-state-face ((t (:foreground "lime green")))) 2462 (custom-variable-tag-face ((t (:foreground "light blue" :underline t)))) 2463 (custom-variable-button-face ((t (:bold t :underline t)))) 2464 (custom-face-tag-face ((t (:underline t)))) 2465 (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) 2466 (custom-group-tag-face ((t (:foreground "light blue" :underline t)))) 2467 (speedbar-button-face ((t (:foreground "green3")))) 2468 (speedbar-file-face ((t (:foreground "cyan")))) 2469 (speedbar-directory-face ((t (:foreground "light blue")))) 2470 (speedbar-tag-face ((t (:foreground "yellow")))) 2471 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 2472 (speedbar-highlight-face ((t (:background "sea green")))) 2473 (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t)))) 2474 (font-lock-exit-face ((t (:foreground "green")))) 2475 (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) 2476 (show-paren-match-face ((t (:background "red")))) 2477 (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) 2478 (message-header-to-face ((t (:foreground "green2" :bold t)))) 2479 (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t)))) 2480 (message-header-subject-face ((t (:foreground "green3")))) 2481 (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t)))) 2482 (message-header-other-face ((t (:foreground "Salmon")))) 2483 (message-header-name-face ((t (:foreground "green3")))) 2484 (message-header-xheader-face ((t (:foreground "GreenYellow")))) 2485 (message-separator-face ((t (:foreground "Tan")))) 2486 (message-cited-text-face ((t (:foreground "Gold")))) 2487 (message-mml-face ((t (:foreground "ForestGreen")))) 2488 (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t)))) 2489 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 2490 (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t)))) 2491 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 2492 (gnus-group-news-3-face ((t (:bold t)))) 2493 (gnus-group-news-3-empty-face ((t (nil)))) 2494 (gnus-group-news-4-face ((t (:bold t)))) 2495 (gnus-group-news-4-empty-face ((t (nil)))) 2496 (gnus-group-news-5-face ((t (:bold t)))) 2497 (gnus-group-news-5-empty-face ((t (nil)))) 2498 (gnus-group-news-6-face ((t (:bold t)))) 2499 (gnus-group-news-6-empty-face ((t (nil)))) 2500 (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) 2501 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 2502 (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t)))) 2503 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 2504 (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t)))) 2505 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 2506 (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t)))) 2507 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 2508 (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) 2509 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 2510 (gnus-summary-selected-face ((t (:underline t)))) 2511 (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) 2512 (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t)))) 2513 (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t)))) 2514 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 2515 (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) 2516 (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) 2517 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 2518 (gnus-summary-high-unread-face ((t (:bold t)))) 2519 (gnus-summary-low-unread-face ((t (:italic t)))) 2520 (gnus-summary-normal-unread-face ((t (nil)))) 2521 (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) 2522 (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) 2523 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 2524 (gnus-splash-face ((t (:foreground "Brown")))) 2525 (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t)))) 2526 (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) 2527 (eshell-ls-executable-face ((t (:foreground "Green" :bold t)))) 2528 (eshell-ls-readonly-face ((t (:foreground "Pink")))) 2529 (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) 2530 (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) 2531 (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) 2532 (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) 2533 (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) 2534 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 2535 (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) 2536 (eshell-prompt-face ((t (:foreground "Pink" :bold t)))) 2537 (term-default-fg ((t (nil)))) 2538 (term-default-bg ((t (nil)))) 2539 (term-default-fg-inv ((t (nil)))) 2540 (term-default-bg-inv ((t (nil)))) 2541 (term-bold ((t (:bold t)))) 2542 (term-underline ((t (:underline t)))) 2543 (term-invisible ((t (nil)))) 2544 (term-invisible-inv ((t (nil)))) 2545 (term-black ((t (:foreground "black")))) 2546 (term-red ((t (:foreground "red")))) 2547 (term-green ((t (:foreground "green")))) 2548 (term-yellow ((t (:foreground "yellow")))) 2549 (term-blue ((t (:foreground "blue")))) 2550 (term-magenta ((t (:foreground "magenta")))) 2551 (term-cyan ((t (:foreground "cyan")))) 2552 (term-white ((t (:foreground "white")))) 2553 (term-blackbg ((t (:background "black")))) 2554 (term-redbg ((t (:background "red")))) 2555 (term-greenbg ((t (:background "green")))) 2556 (term-yellowbg ((t (:background "yellow")))) 2557 (term-bluebg ((t (:background "blue")))) 2558 (term-magentabg ((t (:background "magenta")))) 2559 (term-cyanbg ((t (:background "cyan")))) 2560 (term-whitebg ((t (:background "white")))) 2561 (gnus-emphasis-bold ((t (:bold t)))) 2562 (gnus-emphasis-italic ((t (:italic t)))) 2563 (gnus-emphasis-underline ((t (:underline t)))) 2564 (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) 2565 (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) 2566 (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) 2567 (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) 2568 (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) 2569 (gnus-signature-face ((t (:italic t)))) 2570 (gnus-header-from-face ((t (:foreground "spring green")))) 2571 (gnus-header-subject-face ((t (:foreground "yellow" :bold t)))) 2572 (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t)))) 2573 (gnus-header-name-face ((t (:foreground "pink")))) 2574 (gnus-header-content-face ((t (:foreground "lime green" :italic t)))) 2575 (gnus-cite-attribution-face ((t (:italic t)))) 2576 (gnus-cite-face-1 ((t (:foreground "light blue")))) 2577 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 2578 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 2579 (gnus-cite-face-4 ((t (:foreground "light pink")))) 2580 (gnus-cite-face-5 ((t (:foreground "pale green")))) 2581 (gnus-cite-face-6 ((t (:foreground "beige")))) 2582 (gnus-cite-face-7 ((t (:foreground "orange")))) 2583 (gnus-cite-face-8 ((t (:foreground "magenta")))) 2584 (gnus-cite-face-9 ((t (:foreground "violet")))) 2585 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 2586 (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) 2587 2588 (defun color-theme-sitaramv-nt () 2589 "Black foreground on white background. 2590 Includes faces for font-lock, widget, custom, speedbar." 2591 (interactive) 2592 (color-theme-install 2593 '(color-theme-sitaramv-nt 2594 ((foreground-color . "black") 2595 (background-color . "white") 2596 (mouse-color . "sienna3") 2597 (cursor-color . "HotPink") 2598 (border-color . "Blue") 2599 (background-mode . light)) 2600 (default ((t (nil)))) 2601 (modeline ((t (:foreground "black" :background "gold2")))) 2602 (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) 2603 (modeline-mousable ((t (:foreground "black" :background "gold2")))) 2604 (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) 2605 (highlight ((t (:foreground "black" :background "darkseagreen2")))) 2606 (bold ((t (:bold t)))) 2607 (italic ((t (:italic t)))) 2608 (bold-italic ((t (:bold t :italic t)))) 2609 (region ((t (:foreground "black" :background "snow3")))) 2610 (secondary-selection ((t (:background "paleturquoise")))) 2611 (underline ((t (:underline t)))) 2612 (lazy-highlight-face ((t (:foreground "dark magenta" :bold t)))) 2613 (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t)))) 2614 (font-lock-string-face ((t (:foreground "red")))) 2615 (font-lock-keyword-face ((t (:foreground "blue" :bold t)))) 2616 (font-lock-builtin-face ((t (:foreground "black")))) 2617 (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t)))) 2618 (font-lock-variable-name-face ((t (:foreground "black")))) 2619 (font-lock-type-face ((t (:foreground "blue")))) 2620 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 2621 (font-lock-warning-face ((t (:foreground "Red" :bold t)))) 2622 (widget-documentation-face ((t (:foreground "dark green")))) 2623 (widget-button-face ((t (:bold t)))) 2624 (widget-field-face ((t (:background "gray85")))) 2625 (widget-single-line-field-face ((t (:background "gray85")))) 2626 (widget-inactive-face ((t (:foreground "dim gray")))) 2627 (widget-button-pressed-face ((t (:foreground "red")))) 2628 (custom-invalid-face ((t (:foreground "yellow" :background "red")))) 2629 (custom-rogue-face ((t (:foreground "pink" :background "black")))) 2630 (custom-modified-face ((t (:foreground "white" :background "blue")))) 2631 (custom-set-face ((t (:foreground "blue" :background "white")))) 2632 (custom-changed-face ((t (:foreground "white" :background "blue")))) 2633 (custom-saved-face ((t (:underline t)))) 2634 (custom-button-face ((t (nil)))) 2635 (custom-documentation-face ((t (nil)))) 2636 (custom-state-face ((t (:foreground "dark green")))) 2637 (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) 2638 (custom-variable-button-face ((t (:bold t :underline t)))) 2639 (custom-face-tag-face ((t (:underline t)))) 2640 (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) 2641 (custom-group-tag-face ((t (:foreground "blue" :underline t)))) 2642 (speedbar-button-face ((t (:foreground "green4")))) 2643 (speedbar-file-face ((t (:foreground "cyan4")))) 2644 (speedbar-directory-face ((t (:foreground "blue4")))) 2645 (speedbar-tag-face ((t (:foreground "brown")))) 2646 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 2647 (speedbar-highlight-face ((t (:background "green")))) 2648 (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) 2649 (show-paren-match-face ((t (:background "light blue")))) 2650 (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))))) 2651 2652 (defun color-theme-billw () 2653 "Cornsilk on black. 2654 Includes info, diary, font-lock, eshell, sgml, message, gnus, 2655 widget, custom, latex, ediff." 2656 (interactive) 2657 (color-theme-install 2658 '(color-theme-billw 2659 ((foreground-color . "cornsilk") 2660 (background-color . "black") 2661 (mouse-color . "black") 2662 (cursor-color . "white") 2663 (border-color . "black") 2664 (background-mode . dark)) 2665 (default ((t (nil)))) 2666 (modeline ((t (:foreground "black" :background "wheat")))) 2667 (modeline-buffer-id ((t (:foreground "black" :background "wheat")))) 2668 (modeline-mousable ((t (:foreground "black" :background "wheat")))) 2669 (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat")))) 2670 (highlight ((t (:foreground "wheat" :background "darkslategray")))) 2671 (bold ((t (:bold t)))) 2672 (italic ((t (:italic t)))) 2673 (bold-italic ((t (:bold t :italic t)))) 2674 (region ((t (:background "dimgray")))) 2675 (secondary-selection ((t (:background "deepskyblue4")))) 2676 (underline ((t (:underline t)))) 2677 (info-node ((t (:foreground "yellow" :bold t :italic t)))) 2678 (info-menu-5 ((t (:underline t)))) 2679 (info-xref ((t (:foreground "yellow" :bold t)))) 2680 (diary-face ((t (:foreground "orange")))) 2681 (calendar-today-face ((t (:underline t)))) 2682 (holiday-face ((t (:background "red")))) 2683 (show-paren-match-face ((t (:background "deepskyblue4")))) 2684 (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) 2685 (font-lock-comment-face ((t (:foreground "gold")))) 2686 (font-lock-string-face ((t (:foreground "orange")))) 2687 (font-lock-keyword-face ((t (:foreground "cyan1")))) 2688 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 2689 (font-lock-function-name-face ((t (:foreground "mediumspringgreen")))) 2690 (font-lock-variable-name-face ((t (:foreground "light salmon")))) 2691 (font-lock-type-face ((t (:foreground "yellow1")))) 2692 (font-lock-constant-face ((t (:foreground "salmon")))) 2693 (font-lock-warning-face ((t (:foreground "gold" :bold t)))) 2694 (blank-space-face ((t (:background "LightGray")))) 2695 (blank-tab-face ((t (:foreground "black" :background "cornsilk")))) 2696 (highline-face ((t (:background "gray35")))) 2697 (eshell-ls-directory-face ((t (:foreground "green" :bold t)))) 2698 (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) 2699 (eshell-ls-executable-face ((t (:foreground "orange" :bold t)))) 2700 (eshell-ls-readonly-face ((t (:foreground "gray")))) 2701 (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) 2702 (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) 2703 (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) 2704 (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) 2705 (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) 2706 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 2707 (eshell-ls-clutter-face ((t (:foreground "blue" :bold t)))) 2708 (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) 2709 (custom-button-face ((t (:foreground "white")))) 2710 (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) 2711 (sgml-doctype-face ((t (:foreground "orange")))) 2712 (sgml-sgml-face ((t (:foreground "yellow")))) 2713 (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black")))) 2714 (custom-documentation-face ((t (:foreground "white")))) 2715 (sgml-end-tag-face ((t (:foreground "greenyellow")))) 2716 (linemenu-face ((t (:background "gray30")))) 2717 (sgml-entity-face ((t (:foreground "gold")))) 2718 (message-header-to-face ((t (:foreground "floral white" :bold t)))) 2719 (message-header-cc-face ((t (:foreground "ivory")))) 2720 (message-header-subject-face ((t (:foreground "papaya whip" :bold t)))) 2721 (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t)))) 2722 (message-header-other-face ((t (:foreground "pale turquoise")))) 2723 (message-header-name-face ((t (:foreground "light sky blue")))) 2724 (message-header-xheader-face ((t (:foreground "blue")))) 2725 (message-separator-face ((t (:foreground "sandy brown")))) 2726 (message-cited-text-face ((t (:foreground "plum1")))) 2727 (message-mml-face ((t (:foreground "ForestGreen")))) 2728 (gnus-group-news-1-face ((t (:foreground "white" :bold t)))) 2729 (gnus-group-news-1-empty-face ((t (:foreground "white")))) 2730 (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t)))) 2731 (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) 2732 (gnus-group-news-3-face ((t (:foreground "tan" :bold t)))) 2733 (gnus-group-news-3-empty-face ((t (:foreground "tan")))) 2734 (gnus-group-news-4-face ((t (:foreground "white" :bold t)))) 2735 (gnus-group-news-4-empty-face ((t (:foreground "white")))) 2736 (gnus-group-news-5-face ((t (:foreground "wheat" :bold t)))) 2737 (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) 2738 (gnus-group-news-6-face ((t (:foreground "tan" :bold t)))) 2739 (gnus-group-news-6-empty-face ((t (:foreground "tan")))) 2740 (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) 2741 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 2742 (gnus-group-mail-1-face ((t (:foreground "white" :bold t)))) 2743 (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) 2744 (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t)))) 2745 (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) 2746 (gnus-group-mail-3-face ((t (:foreground "tan" :bold t)))) 2747 (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) 2748 (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) 2749 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 2750 (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t)))) 2751 (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray")))) 2752 (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t)))) 2753 (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t)))) 2754 (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t)))) 2755 (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) 2756 (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) 2757 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 2758 (gnus-summary-high-unread-face ((t (:bold t)))) 2759 (gnus-summary-low-unread-face ((t (:italic t)))) 2760 (gnus-summary-normal-unread-face ((t (nil)))) 2761 (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) 2762 (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) 2763 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 2764 (gnus-splash-face ((t (:foreground "gold")))) 2765 (font-latex-bold-face ((t (nil)))) 2766 (font-latex-italic-face ((t (nil)))) 2767 (font-latex-math-face ((t (nil)))) 2768 (font-latex-sedate-face ((t (:foreground "Gray85")))) 2769 (font-latex-string-face ((t (:foreground "orange")))) 2770 (font-latex-warning-face ((t (:foreground "gold")))) 2771 (widget-documentation-face ((t (:foreground "lime green")))) 2772 (widget-button-face ((t (:bold t)))) 2773 (widget-field-face ((t (:background "gray20")))) 2774 (widget-single-line-field-face ((t (:background "gray20")))) 2775 (widget-inactive-face ((t (:foreground "wheat")))) 2776 (widget-button-pressed-face ((t (:foreground "red")))) 2777 (custom-invalid-face ((t (:foreground "yellow" :background "red")))) 2778 (custom-rogue-face ((t (:foreground "pink" :background "black")))) 2779 (custom-modified-face ((t (:foreground "white" :background "blue")))) 2780 (custom-set-face ((t (:foreground "blue")))) 2781 (custom-changed-face ((t (:foreground "wheat" :background "skyblue")))) 2782 (custom-saved-face ((t (:underline t)))) 2783 (custom-state-face ((t (:foreground "light green")))) 2784 (custom-variable-tag-face ((t (:foreground "skyblue" :underline t)))) 2785 (custom-variable-button-face ((t (:bold t :underline t)))) 2786 (custom-face-tag-face ((t (:foreground "white" :underline t)))) 2787 (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) 2788 (custom-group-tag-face ((t (:foreground "skyblue" :underline t)))) 2789 (swbuff-current-buffer-face ((t (:foreground "red" :bold t)))) 2790 (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) 2791 (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) 2792 (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred")))) 2793 (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) 2794 (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) 2795 (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) 2796 (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) 2797 (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) 2798 (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) 2799 (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) 2800 (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) 2801 (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) 2802 (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) 2803 (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) 2804 (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) 2805 (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) 2806 (gnus-emphasis-bold ((t (:bold t)))) 2807 (gnus-emphasis-italic ((t (:italic t)))) 2808 (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4")))) 2809 (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t)))) 2810 (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t)))) 2811 (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) 2812 (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t)))) 2813 (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) 2814 (gnus-signature-face ((t (:italic t)))) 2815 (gnus-header-from-face ((t (:foreground "wheat")))) 2816 (gnus-header-subject-face ((t (:foreground "wheat" :bold t)))) 2817 (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t)))) 2818 (gnus-header-name-face ((t (:foreground "white")))) 2819 (gnus-header-content-face ((t (:foreground "tan" :italic t)))) 2820 (gnus-filterhist-face-1 ((t (nil)))) 2821 (gnus-splash ((t (:foreground "Brown")))) 2822 (gnus-cite-attribution-face ((t (:italic t)))) 2823 (gnus-cite-face-1 ((t (:foreground "light blue")))) 2824 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 2825 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 2826 (gnus-cite-face-4 ((t (:foreground "light pink")))) 2827 (gnus-cite-face-5 ((t (:foreground "pale green")))) 2828 (gnus-cite-face-6 ((t (:foreground "beige")))) 2829 (gnus-cite-face-7 ((t (:foreground "orange")))) 2830 (gnus-cite-face-8 ((t (:foreground "magenta")))) 2831 (gnus-cite-face-9 ((t (:foreground "violet")))) 2832 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 2833 (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) 2834 2835 (defun color-theme-retro-green (&optional color func) 2836 "Plain green on black faces for those longing for the good old days." 2837 (interactive) 2838 ;; Build a list of faces without parameters 2839 (let ((old-faces (face-list)) 2840 (faces) 2841 (face) 2842 (foreground (or color "green"))) 2843 (dolist (face old-faces) 2844 (cond ((memq face '(bold bold-italic)) 2845 (add-to-list 'faces `(,face (( t (:bold t)))))) 2846 ((memq face '(italic underline show-paren-mismatch-face)) 2847 (add-to-list 'faces `(,face (( t (:underline t)))))) 2848 ((memq face '(modeline modeline-buffer-id modeline-mousable 2849 modeline-mousable-minor-mode highlight region 2850 secondary-selection show-paren-match-face)) 2851 (add-to-list 'faces `(,face (( t (:foreground "black" 2852 :background ,foreground 2853 :inverse t)))))) 2854 (t 2855 (add-to-list 'faces `(,face (( t (nil)))))))) 2856 (color-theme-install 2857 (append 2858 (list (or func 'color-theme-retro-green) 2859 (list (cons 'foreground-color foreground) 2860 (cons 'background-color "black") 2861 (cons 'mouse-color foreground) 2862 (cons 'cursor-color foreground) 2863 (cons 'border-color foreground) 2864 (cons 'background-mode 'dark))) 2865 faces)))) 2866 2867 (defun color-theme-retro-orange () 2868 "Plain orange on black faces for those longing for the good old days." 2869 (interactive) 2870 (color-theme-retro-green "orange" 'color-theme-retro-orange)) 2871 2872 (defun color-theme-subtle-hacker () 2873 "Subtle Hacker Color Theme. 2874 Based on gnome2, but uses white for important things like comments, 2875 and less of the unreadable tomato. By Colin Walters <levanti@verbum.org>" 2876 (interactive) 2877 (color-theme-gnome2) 2878 (let ((color-theme-is-cumulative t)) 2879 (color-theme-install 2880 '(color-theme-subtle-hacker 2881 nil 2882 nil 2883 (custom-state-face ((t (:foreground "Coral")))) 2884 (diary-face ((t (:bold t :foreground "IndianRed")))) 2885 (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray")))) 2886 (eshell-ls-executable-face ((t (:bold t :foreground "Coral")))) 2887 (eshell-ls-missing-face ((t (:bold t :foreground "black")))) 2888 (eshell-ls-special-face ((t (:bold t :foreground "Gold")))) 2889 (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) 2890 (font-lock-comment-face ((t (:foreground "White")))) 2891 (font-lock-constant-face ((t (:bold t :foreground "Aquamarine")))) 2892 (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue")))) 2893 (font-lock-string-face ((t (:italic t :foreground "LightSalmon")))) 2894 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine")))) 2895 (gnus-cite-face-1 ((t (:foreground "dark khaki")))) 2896 (gnus-cite-face-2 ((t (:foreground "chocolate")))) 2897 (gnus-cite-face-3 ((t (:foreground "tomato")))) 2898 (gnus-group-mail-1-empty-face ((t (:foreground "light cyan")))) 2899 (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) 2900 (gnus-group-mail-2-empty-face ((t (:foreground "turquoise")))) 2901 (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) 2902 (gnus-group-mail-3-empty-face ((t (:foreground "tomato")))) 2903 (gnus-group-mail-3-face ((t (:bold t :foreground "tomato")))) 2904 (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue")))) 2905 (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue")))) 2906 (gnus-group-news-1-empty-face ((t (:foreground "green yellow")))) 2907 (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) 2908 (gnus-group-news-2-empty-face ((t (:foreground "dark orange")))) 2909 (gnus-group-news-2-face ((t (:bold t :foreground "dark orange")))) 2910 (gnus-group-news-3-empty-face ((t (:foreground "tomato")))) 2911 (gnus-group-news-3-face ((t (:bold t :foreground "tomato")))) 2912 (gnus-group-news-low-empty-face ((t (:foreground "yellow green")))) 2913 (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) 2914 (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1")))) 2915 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) 2916 (gnus-signature-face ((t (:foreground "salmon")))) 2917 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 2918 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 2919 (gnus-summary-high-read-face ((t (:bold t :foreground "forest green")))) 2920 (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) 2921 (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan")))) 2922 (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate")))) 2923 (gnus-summary-low-read-face ((t (:foreground "light sea green")))) 2924 (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate")))) 2925 (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) 2926 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 2927 (gnus-summary-normal-read-face ((t (:foreground "khaki")))) 2928 (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown")))) 2929 (gnus-summary-normal-unread-face ((t (:foreground "aquamarine")))) 2930 (message-cited-text-face ((t (:foreground "White")))) 2931 (message-header-name-face ((t (:foreground "DodgerBlue1")))) 2932 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) 2933 (message-header-other-face ((t (:foreground "LightSkyBlue3")))) 2934 (message-header-xheader-face ((t (:foreground "DodgerBlue3")))))))) 2935 2936 (defun color-theme-pok-wog () 2937 "Low-contrast White-on-Gray by S.Pokrovsky. 2938 2939 The following might be a good addition to your .Xdefaults file: 2940 2941 Emacs.pane.menubar.background: darkGrey 2942 Emacs.pane.menubar.foreground: black" 2943 (interactive) 2944 (color-theme-install 2945 '(color-theme-pok-wog 2946 ((foreground-color . "White") 2947 (background-color . "DarkSlateGray") 2948 (mouse-color . "gold") 2949 (cursor-color . "Cyan") 2950 (border-color . "black") 2951 (background-mode . dark)) 2952 (default ((t (nil)))) 2953 (bold ((t (:bold t :foreground "Wheat")))) 2954 (bold-italic ((t (:italic t :bold t :foreground "wheat")))) 2955 (calendar-today-face ((t (:underline t :foreground "white")))) 2956 (diary-face ((t (:foreground "red")))) 2957 (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) 2958 (font-lock-comment-face ((t (:foreground "Gold")))) 2959 (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) 2960 (font-lock-function-name-face ((t (:bold t :foreground "Yellow")))) 2961 (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) 2962 (font-lock-string-face ((t (:foreground "Khaki")))) 2963 (font-lock-type-face ((t (:bold t :foreground "Cyan")))) 2964 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 2965 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 2966 (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat")))) 2967 (gnus-cite-face-1 ((t (:foreground "wheat")))) 2968 (gnus-cite-face-10 ((t (:foreground "wheat")))) 2969 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 2970 (gnus-cite-face-2 ((t (:foreground "cyan")))) 2971 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 2972 (gnus-cite-face-4 ((t (:foreground "light pink")))) 2973 (gnus-cite-face-5 ((t (:foreground "pale green")))) 2974 (gnus-cite-face-6 ((t (:foreground "beige")))) 2975 (gnus-cite-face-7 ((t (:foreground "orange")))) 2976 (gnus-cite-face-8 ((t (:foreground "magenta")))) 2977 (gnus-cite-face-9 ((t (:foreground "violet")))) 2978 (gnus-emphasis-bold ((t (:bold t :foreground "wheat")))) 2979 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 2980 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 2981 (gnus-emphasis-italic ((t (:italic t :foreground "white")))) 2982 (gnus-emphasis-underline ((t (:underline t :foreground "white")))) 2983 (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat")))) 2984 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 2985 (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) 2986 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 2987 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) 2988 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 2989 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 2990 (gnus-group-mail-3-empty-face ((t (:foreground "Salmon")))) 2991 (gnus-group-mail-3-face ((t (:bold t :foreground "gold")))) 2992 (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) 2993 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 2994 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 2995 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 2996 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 2997 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 2998 (gnus-group-news-3-empty-face ((t (nil)))) 2999 (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) 3000 (gnus-group-news-4-empty-face ((t (nil)))) 3001 (gnus-group-news-4-face ((t (:bold t)))) 3002 (gnus-group-news-5-empty-face ((t (nil)))) 3003 (gnus-group-news-5-face ((t (:bold t)))) 3004 (gnus-group-news-6-empty-face ((t (nil)))) 3005 (gnus-group-news-6-face ((t (:bold t)))) 3006 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 3007 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 3008 (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) 3009 (gnus-header-from-face ((t (:foreground "light yellow")))) 3010 (gnus-header-name-face ((t (:foreground "cyan")))) 3011 (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) 3012 (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) 3013 (gnus-signature-face ((t (:italic t :foreground "wheat")))) 3014 (gnus-splash-face ((t (:foreground "orange")))) 3015 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 3016 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 3017 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) 3018 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) 3019 (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) 3020 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 3021 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) 3022 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) 3023 (gnus-summary-low-unread-face ((t (:italic t)))) 3024 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 3025 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 3026 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 3027 (gnus-summary-normal-unread-face ((t (:foreground "wheat")))) 3028 (gnus-summary-selected-face ((t (:underline t :foreground "white")))) 3029 (highlight ((t (:background "Blue" :foreground "white")))) 3030 (highline-face ((t (:background "black" :foreground "white")))) 3031 (holiday-face ((t (:background "pink" :foreground "white")))) 3032 (info-menu-5 ((t (:underline t)))) 3033 (info-node ((t (:italic t :bold t :foreground "white")))) 3034 (info-xref ((t (:bold t :foreground "wheat")))) 3035 (italic ((t (:italic t :foreground "white")))) 3036 (makefile-space-face ((t (:background "hotpink")))) 3037 (message-cited-text-face ((t (:foreground "green")))) 3038 (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) 3039 (message-header-name-face ((t (:foreground "Gold")))) 3040 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) 3041 (message-header-other-face ((t (:foreground "lightGray")))) 3042 (message-header-subject-face ((t (:foreground "Yellow")))) 3043 (message-header-to-face ((t (:bold t :foreground "green2")))) 3044 (message-header-xheader-face ((t (:foreground "blue")))) 3045 (message-mml-face ((t (:bold t :foreground "khaki")))) 3046 (message-separator-face ((t (:background "aquamarine" :foreground "black")))) 3047 (modeline ((t (:background "DarkGray" :foreground "Black")))) 3048 (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black")))) 3049 (modeline-mousable ((t (:background "DarkGray" :foreground "Black")))) 3050 (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black")))) 3051 (paren-mismatch-face ((t (:background "DeepPink" :foreground "white")))) 3052 (paren-no-match-face ((t (:background "yellow" :foreground "white")))) 3053 (region ((t (:background "MediumSlateBlue" :foreground "white")))) 3054 (secondary-selection ((t (:background "Sienna" :foreground "white")))) 3055 (show-paren-match-face ((t (:background "turquoise" :foreground "white")))) 3056 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 3057 (speedbar-button-face ((t (:bold t :foreground "magenta")))) 3058 (speedbar-directory-face ((t (:bold t :foreground "orchid")))) 3059 (speedbar-file-face ((t (:foreground "pink")))) 3060 (speedbar-highlight-face ((t (:background "black")))) 3061 (speedbar-selected-face ((t (:underline t :foreground "cyan")))) 3062 (speedbar-tag-face ((t (:foreground "yellow")))) 3063 (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) 3064 (underline ((t (:underline t :foreground "white")))) 3065 (widget-button-face ((t (:bold t :foreground "wheat")))) 3066 (widget-button-pressed-face ((t (:foreground "red")))) 3067 (widget-documentation-face ((t (:foreground "lime green")))) 3068 (widget-field-face ((t (:background "dim gray" :foreground "white")))) 3069 (widget-inactive-face ((t (:foreground "light gray")))) 3070 (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) 3071 3072 (defun color-theme-pok-wob () 3073 "White-on-Black by S. Pokrovsky. 3074 3075 The following might be a good addition to your .Xdefaults file: 3076 3077 Emacs.pane.menubar.background: darkGrey 3078 Emacs.pane.menubar.foreground: black" 3079 (interactive) 3080 ; (setq term-default-fg-color "white" 3081 ; term-default-bg "black") 3082 (color-theme-install 3083 '(color-theme-pok-wob 3084 ((foreground-color . "white") 3085 (background-color . "black") 3086 (mouse-color . "gold") 3087 (cursor-color . "yellow") 3088 (border-color . "black") 3089 (background-mode . dark)) 3090 (default ((t (nil)))) 3091 (bold ((t (:bold t :foreground "light gray")))) 3092 (bold-italic ((t (:italic t :bold t :foreground "cyan")))) 3093 (calendar-today-face ((t (:underline t :foreground "white")))) 3094 (custom-button-face ((t (nil)))) 3095 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3096 (custom-documentation-face ((t (nil)))) 3097 (custom-face-tag-face ((t (:underline t)))) 3098 (custom-group-tag-face ((t (:underline t)))) 3099 (custom-group-tag-face-1 ((t (:underline t)))) 3100 (custom-invalid-face ((t (:background "red" :foreground "white")))) 3101 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3102 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3103 (custom-saved-face ((t (:underline t)))) 3104 (custom-set-face ((t (:background "white" :foreground "blue")))) 3105 (custom-state-face ((t (nil)))) 3106 (custom-variable-button-face ((t (:underline t :bold t)))) 3107 (custom-variable-tag-face ((t (:underline t)))) 3108 (diary-face ((t (:foreground "gold")))) 3109 (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) 3110 (font-lock-comment-face ((t (:foreground "Gold")))) 3111 (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) 3112 (font-lock-function-name-face ((t (:bold t :foreground "gold")))) 3113 (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) 3114 (font-lock-string-face ((t (:foreground "Khaki")))) 3115 (font-lock-type-face ((t (:bold t :foreground "Cyan")))) 3116 (font-lock-variable-name-face ((t (:italic t :foreground "gold")))) 3117 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 3118 (gnus-cite-attribution-face ((t (:underline t :foreground "beige")))) 3119 (gnus-cite-face-1 ((t (:foreground "gold")))) 3120 (gnus-cite-face-10 ((t (:foreground "coral")))) 3121 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 3122 (gnus-cite-face-2 ((t (:foreground "wheat")))) 3123 (gnus-cite-face-3 ((t (:foreground "light pink")))) 3124 (gnus-cite-face-4 ((t (:foreground "khaki")))) 3125 (gnus-cite-face-5 ((t (:foreground "pale green")))) 3126 (gnus-cite-face-6 ((t (:foreground "beige")))) 3127 (gnus-cite-face-7 ((t (:foreground "orange")))) 3128 (gnus-cite-face-8 ((t (:foreground "magenta")))) 3129 (gnus-cite-face-9 ((t (:foreground "violet")))) 3130 (gnus-emphasis-bold ((t (:bold t :foreground "light gray")))) 3131 (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan")))) 3132 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold")))) 3133 (gnus-emphasis-italic ((t (:italic t :foreground "cyan")))) 3134 (gnus-emphasis-underline ((t (:underline t :foreground "white")))) 3135 (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white")))) 3136 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white")))) 3137 (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) 3138 (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) 3139 (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta")))) 3140 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 3141 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 3142 (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) 3143 (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan")))) 3144 (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) 3145 (gnus-group-mail-low-face ((t (:foreground "aquamarine4")))) 3146 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 3147 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 3148 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 3149 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 3150 (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) 3151 (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) 3152 (gnus-group-news-4-empty-face ((t (nil)))) 3153 (gnus-group-news-4-face ((t (:bold t)))) 3154 (gnus-group-news-5-empty-face ((t (nil)))) 3155 (gnus-group-news-5-face ((t (:bold t)))) 3156 (gnus-group-news-6-empty-face ((t (nil)))) 3157 (gnus-group-news-6-face ((t (:bold t)))) 3158 (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) 3159 (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) 3160 (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) 3161 (gnus-header-from-face ((t (:foreground "light yellow")))) 3162 (gnus-header-name-face ((t (:foreground "Wheat")))) 3163 (gnus-header-newsgroups-face ((t (:italic t :foreground "gold")))) 3164 (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) 3165 (gnus-signature-face ((t (:italic t :foreground "white")))) 3166 (gnus-splash-face ((t (:foreground "orange")))) 3167 (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange")))) 3168 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 3169 (gnus-summary-high-read-face ((t (:bold t :foreground "red")))) 3170 (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral")))) 3171 (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) 3172 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 3173 (gnus-summary-low-read-face ((t (:italic t :foreground "red")))) 3174 (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral")))) 3175 (gnus-summary-low-unread-face ((t (:italic t :foreground "white")))) 3176 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 3177 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 3178 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 3179 (gnus-summary-normal-unread-face ((t (:foreground "white")))) 3180 (gnus-summary-selected-face ((t (:underline t :foreground "white")))) 3181 (highlight ((t (:background "Blue" :foreground "white")))) 3182 (highline-face ((t (:background "dark slate gray" :foreground "white")))) 3183 (holiday-face ((t (:background "red" :foreground "white")))) 3184 (info-menu-5 ((t (:underline t)))) 3185 (info-node ((t (:italic t :bold t :foreground "white")))) 3186 (info-xref ((t (:bold t :foreground "light gray")))) 3187 (italic ((t (:italic t :foreground "cyan")))) 3188 (makefile-space-face ((t (:background "hotpink" :foreground "white")))) 3189 (message-cited-text-face ((t (:foreground "green")))) 3190 (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) 3191 (message-header-name-face ((t (:foreground "Gold")))) 3192 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) 3193 (message-header-other-face ((t (:foreground "lightGray")))) 3194 (message-header-subject-face ((t (:foreground "Yellow")))) 3195 (message-header-to-face ((t (:bold t :foreground "green2")))) 3196 (message-header-xheader-face ((t (:foreground "sky blue")))) 3197 (message-mml-face ((t (:bold t :foreground "khaki")))) 3198 (message-separator-face ((t (:background "aquamarine" :foreground "black")))) 3199 (modeline ((t (:background "dark gray" :foreground "black")))) 3200 (modeline-buffer-id ((t (:background "dark gray" :foreground "black")))) 3201 (modeline-mousable ((t (:background "dark gray" :foreground "black")))) 3202 (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black")))) 3203 (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) 3204 (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) 3205 (region ((t (:background "MediumSlateBlue" :foreground "white")))) 3206 (secondary-selection ((t (:background "Sienna" :foreground "white")))) 3207 (show-paren-match-face ((t (:background "purple" :foreground "white")))) 3208 (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) 3209 (speedbar-button-face ((t (nil)))) 3210 (speedbar-directory-face ((t (nil)))) 3211 (speedbar-file-face ((t (:bold t)))) 3212 (speedbar-highlight-face ((t (nil)))) 3213 (speedbar-selected-face ((t (:underline t)))) 3214 (speedbar-tag-face ((t (nil)))) 3215 (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) 3216 (underline ((t (:underline t :foreground "white")))) 3217 (widget-button-face ((t (:bold t :foreground "coral")))) 3218 (widget-button-pressed-face ((t (:foreground "red")))) 3219 (widget-documentation-face ((t (:foreground "lime green")))) 3220 (widget-field-face ((t (:background "dim gray" :foreground "white")))) 3221 (widget-inactive-face ((t (:foreground "light gray")))) 3222 (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) 3223 3224 (defun color-theme-blue-sea () 3225 "The grey on midnight blue theme. 3226 3227 Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar, 3228 custom, widget, info, flyspell, gnus, message, man, woman, dired. 3229 3230 This is what you should put in your .Xdefaults file, if you want to 3231 change the colors of the menus: 3232 3233 emacs*Background: DarkSlateGray 3234 emacs*Foreground: Wheat" 3235 (interactive) 3236 (color-theme-blue-gnus) 3237 (let ((color-theme-is-cumulative t)) 3238 (color-theme-blue-erc) 3239 (color-theme-install 3240 '(color-theme-blue-sea 3241 ((background-color . "MidnightBlue") 3242 (background-mode . dark) 3243 (border-color . "Grey") 3244 (cursor-color . "Grey") 3245 (foreground-color . "Grey") 3246 (mouse-color . "Grey")) 3247 ((Man-overstrike-face . woman-bold-face) 3248 (Man-underline-face . woman-italic-face)) 3249 (default ((t (nil)))) 3250 (bold ((t (:bold t)))) 3251 (bold-italic ((t (:bold t :foreground "beige")))) 3252 (calendar-today-face ((t (:underline t)))) 3253 (cperl-array-face ((t (:foreground "light salmon" :bold t)))) 3254 (cperl-hash-face ((t (:foreground "beige" :bold t :italic t)))) 3255 (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) 3256 (custom-button-face ((t (:foreground "gainsboro")))) 3257 (custom-changed-face ((t (:foreground "white" :background "blue")))) 3258 (custom-documentation-face ((t (:foreground "light blue")))) 3259 (custom-face-tag-face ((t (:underline t)))) 3260 (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t)))) 3261 (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) 3262 (custom-invalid-face ((t (:foreground "yellow" :background "red")))) 3263 (custom-modified-face ((t (:foreground "white" :background "blue")))) 3264 (custom-rogue-face ((t (:foreground "pink" :background "black")))) 3265 (custom-saved-face ((t (:underline t)))) 3266 (custom-set-face ((t (:foreground "blue" :background "white")))) 3267 (custom-state-face ((t (:foreground "light salmon")))) 3268 (custom-variable-button-face ((t (:bold t :underline t)))) 3269 (custom-variable-tag-face ((t (:foreground "turquoise" :bold t)))) 3270 (diary-face ((t (:foreground "red")))) 3271 (dired-face-directory ((t (:bold t :foreground "sky blue")))) 3272 (dired-face-permissions ((t (:foreground "aquamarine")))) 3273 (dired-face-flagged ((t (:foreground "tomato")))) 3274 (dired-face-marked ((t (:foreground "light salmon")))) 3275 (dired-face-executable ((t (:foreground "green yellow")))) 3276 (eshell-ls-archive-face ((t (:bold t :foreground "medium purple")))) 3277 (eshell-ls-backup-face ((t (:foreground "dim gray")))) 3278 (eshell-ls-clutter-face ((t (:foreground "dim gray")))) 3279 (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue")))) 3280 (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine")))) 3281 (eshell-ls-missing-face ((t (:foreground "black")))) 3282 (eshell-ls-picture-face ((t (:foreground "violet")))) 3283 (eshell-ls-product-face ((t (:foreground "light steel blue")))) 3284 (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) 3285 (eshell-ls-special-face ((t (:foreground "gold")))) 3286 (eshell-ls-symlink-face ((t (:foreground "white")))) 3287 (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) 3288 (eshell-prompt-face ((t (:foreground "light sky blue" :bold t)))) 3289 (excerpt ((t (:italic t)))) 3290 (fixed ((t (:bold t)))) 3291 (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) 3292 (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) 3293 (font-lock-builtin-face ((t (:foreground "aquamarine")))) 3294 (font-lock-comment-face ((t (:foreground "light blue")))) 3295 (font-lock-constant-face ((t (:foreground "pale green")))) 3296 (font-lock-doc-string-face ((t (:foreground "sky blue")))) 3297 (font-lock-function-name-face ((t (:bold t :foreground "aquamarine")))) 3298 (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t)))) 3299 (font-lock-reference-face ((t (:foreground "pale green")))) 3300 (font-lock-string-face ((t (:foreground "light sky blue")))) 3301 (font-lock-type-face ((t (:foreground "sky blue" :bold t)))) 3302 (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t)))) 3303 (font-lock-warning-face ((t (:foreground "Red" :bold t)))) 3304 (fringe ((t (:background "MidnightBlue")))) 3305 (header-line ((t (:background "#002" :foreground "cornflower blue")))) 3306 (highlight ((t (:background "dark slate blue" :foreground "light blue")))) 3307 (highline-face ((t (:background "DeepSkyBlue4")))) 3308 (holiday-face ((t (:background "pink")))) 3309 (info-menu-5 ((t (:underline t)))) 3310 (info-node ((t (:bold t)))) 3311 (info-xref ((t (:bold t :foreground "sky blue")))) 3312 (isearch ((t (:background "slate blue")))) 3313 (italic ((t (:foreground "sky blue")))) 3314 (makefile-space-face ((t (:background "hotpink")))) 3315 (menu ((t (:background "MidnightBlue" :foreground "Grey")))) 3316 (modeline ((t (:foreground "wheat" :background "slate blue")))) 3317 (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat")))) 3318 (modeline-buffer-id ((t (:foreground "beige" :background "slate blue")))) 3319 (modeline-mousable ((t (:foreground "light cyan" :background "slate blue")))) 3320 (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue")))) 3321 (region ((t (:background "DarkSlateBlue")))) 3322 (secondary-selection ((t (:background "steel blue")))) 3323 (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) 3324 (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) 3325 (speedbar-button-face ((t (:foreground "seashell2")))) 3326 (speedbar-directory-face ((t (:foreground "seashell3")))) 3327 (speedbar-file-face ((t (:foreground "seashell4")))) 3328 (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) 3329 (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) 3330 (speedbar-tag-face ((t (:foreground "antique white")))) 3331 (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button))))) 3332 (underline ((t (:underline t)))) 3333 (widget-button-face ((t (:bold t)))) 3334 (widget-button-pressed-face ((t (:foreground "red")))) 3335 (widget-documentation-face ((t (:foreground "light blue")))) 3336 (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) 3337 (widget-inactive-face ((t (:foreground "dim gray")))) 3338 (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) 3339 (woman-bold-face ((t (:foreground "sky blue" :bold t)))) 3340 (woman-italic-face ((t (:foreground "deep sky blue")))) 3341 (woman-unknown-face ((t (:foreground "LightSalmon")))) 3342 (zmacs-region ((t (:background "DarkSlateBlue")))))))) 3343 3344 (defun color-theme-rotor () 3345 "Black on Beige color theme by Jinwei Shen, created 2000-06-08. 3346 Supports default faces, font-lock, custom, widget, message, man, 3347 show-paren, viper." 3348 (interactive) 3349 (color-theme-install 3350 '(color-theme-rotor 3351 ((background-color . "Beige") 3352 (background-mode . light) 3353 (border-color . "black") 3354 (cursor-color . "Maroon") 3355 (foreground-color . "Black") 3356 (mouse-color . "Black")) 3357 ((Man-overstrike-face . font-lock-function-name-face) 3358 (Man-underline-face . font-lock-type-face) 3359 (list-matching-lines-face . bold) 3360 (rmail-highlight-face . font-lock-function-name-face) 3361 (watson-attribution-face . italic) 3362 (watson-url-face . bold) 3363 (watson-url-mouse-face . highlight)) 3364 (default ((t (nil)))) 3365 (bold ((t (:bold t :background "grey40" :foreground "yellow")))) 3366 (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) 3367 (custom-button-face ((t (nil)))) 3368 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3369 (custom-documentation-face ((t (nil)))) 3370 (custom-face-tag-face ((t (:underline t)))) 3371 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 3372 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 3373 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3374 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3375 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3376 (custom-saved-face ((t (:underline t)))) 3377 (custom-set-face ((t (:background "white" :foreground "blue")))) 3378 (custom-state-face ((t (:foreground "dark green")))) 3379 (custom-variable-button-face ((t (:underline t :bold t)))) 3380 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 3381 (font-lock-builtin-face ((t (:foreground "Orchid")))) 3382 (font-lock-comment-face ((t (:foreground "MediumBlue")))) 3383 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 3384 (font-lock-function-name-face ((t (:foreground "MediumSlateBlue")))) 3385 (font-lock-keyword-face ((t (:foreground "#80a0ff")))) 3386 (font-lock-string-face ((t (:foreground "red")))) 3387 (font-lock-type-face ((t (:foreground "ForestGreen")))) 3388 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 3389 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 3390 (highlight ((t (:background "PaleGreen" :foreground "black")))) 3391 (italic ((t (:italic t :foreground "yellow3")))) 3392 (message-cited-text-face ((t (:foreground "red")))) 3393 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 3394 (message-header-name-face ((t (:foreground "cornflower blue")))) 3395 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 3396 (message-header-other-face ((t (:foreground "steel blue")))) 3397 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 3398 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 3399 (message-header-xheader-face ((t (:foreground "blue")))) 3400 (message-separator-face ((t (:foreground "brown")))) 3401 (modeline ((t (:background "wheat" :foreground "DarkOliveGreen")))) 3402 (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen")))) 3403 (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen")))) 3404 (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen")))) 3405 (nil ((t (nil)))) 3406 (region ((t (:background "dark cyan" :foreground "cyan")))) 3407 (secondary-selection ((t (:background "Turquoise" :foreground "black")))) 3408 (show-paren-match-face ((t (:background "turquoise")))) 3409 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 3410 (underline ((t (:underline t)))) 3411 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 3412 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 3413 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 3414 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 3415 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 3416 (widget-button-face ((t (:bold t)))) 3417 (widget-button-pressed-face ((t (:foreground "red")))) 3418 (widget-documentation-face ((t (:foreground "dark green")))) 3419 (widget-field-face ((t (:background "gray85")))) 3420 (widget-inactive-face ((t (:foreground "dim gray")))) 3421 (widget-single-line-field-face ((t (:background "gray85"))))))) 3422 3423 (defun color-theme-pierson () 3424 "Black on White color theme by Dan L. Pierson, created 2000-06-08. 3425 Supports default faces, font-lock, show-paren." 3426 (interactive) 3427 (color-theme-install 3428 '(color-theme-pierson 3429 ((background-color . "AntiqueWhite") 3430 (background-mode . light) 3431 (border-color . "black") 3432 (cursor-color . "Orchid") 3433 (foreground-color . "black") 3434 (mouse-color . "Orchid")) 3435 ((list-matching-lines-face . bold)) 3436 (default ((t (nil)))) 3437 (bold ((t (:bold t)))) 3438 (bold-italic ((t (:italic t :bold t)))) 3439 (font-lock-builtin-face ((t (:foreground "Orchid")))) 3440 (font-lock-comment-face ((t (:foreground "ForestGreen")))) 3441 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 3442 (font-lock-function-name-face ((t (:foreground "blue3")))) 3443 (font-lock-keyword-face ((t (:foreground "Blue")))) 3444 (font-lock-string-face ((t (:foreground "Firebrick")))) 3445 (font-lock-type-face ((t (:foreground "Purple")))) 3446 (font-lock-variable-name-face ((t (:foreground "blue3")))) 3447 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 3448 (highlight ((t (:background "darkseagreen2")))) 3449 (italic ((t (:italic t)))) 3450 (modeline ((t (:foreground "antiquewhite" :background "black")))) 3451 (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black")))) 3452 (modeline-mousable ((t (:foreground "antiquewhite" :background "black")))) 3453 (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black")))) 3454 (region ((t (:background "gray")))) 3455 (secondary-selection ((t (:background "paleturquoise")))) 3456 (show-paren-match-face ((t (:background "turquoise")))) 3457 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 3458 (underline ((t (:underline t))))))) 3459 3460 (defun color-theme-xemacs () 3461 "XEmacs standard colors. 3462 If you are missing standard faces in this theme, please notify the maintainer. 3463 Currently, this theme includes the standard faces and font-lock faces, including 3464 some faces used in Emacs only but which are needed to recreate the look of the 3465 XEmacs color theme." 3466 (interactive) 3467 (color-theme-install 3468 '(color-theme-xemacs 3469 ((background-color . "gray80") 3470 (background-mode . light) 3471 (background-toolbar-color . "#cf3ccf3ccf3c") 3472 (border-color . "#000000000000") 3473 (bottom-toolbar-shadow-color . "#79e77df779e7") 3474 (cursor-color . "Red3") 3475 (foreground-color . "black") 3476 (top-toolbar-shadow-color . "#fffffbeeffff")) 3477 (default ((t (nil)))) 3478 (blue ((t (:foreground "blue")))) 3479 (bold ((t (:bold t)))) 3480 (bold-italic ((t (:italic t :bold t)))) 3481 (border-glyph ((t (nil)))) 3482 (custom-button-face ((t (:bold t)))) 3483 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3484 (custom-documentation-face ((t (nil)))) 3485 (custom-face-tag-face ((t (:underline t)))) 3486 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 3487 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 3488 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3489 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3490 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3491 (custom-saved-face ((t (:underline t)))) 3492 (custom-set-face ((t (:background "white" :foreground "blue")))) 3493 (custom-state-face ((t (:foreground "dark green")))) 3494 (custom-variable-button-face ((t (:underline t :bold t)))) 3495 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 3496 (dired-face-boring ((t (:foreground "Gray65")))) 3497 (dired-face-directory ((t (:bold t)))) 3498 (dired-face-executable ((t (:foreground "SeaGreen")))) 3499 (dired-face-flagged ((t (:background "LightSlateGray")))) 3500 (dired-face-marked ((t (:background "PaleVioletRed")))) 3501 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 3502 (dired-face-setuid ((t (:foreground "Red")))) 3503 (dired-face-socket ((t (:foreground "magenta")))) 3504 (dired-face-symlink ((t (:foreground "cyan")))) 3505 (font-lock-builtin-face ((t (:foreground "red3")))) 3506 (font-lock-comment-face ((t (:foreground "blue4")))) 3507 (font-lock-constant-face ((t (:foreground "red3")))) 3508 (font-lock-doc-string-face ((t (:foreground "green4")))) 3509 (font-lock-function-name-face ((t (:foreground "brown4")))) 3510 (font-lock-keyword-face ((t (:foreground "red4")))) 3511 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 3512 (font-lock-reference-face ((t (:foreground "red3")))) 3513 (font-lock-string-face ((t (:foreground "green4")))) 3514 (font-lock-type-face ((t (:foreground "steelblue")))) 3515 (font-lock-variable-name-face ((t (:foreground "magenta4")))) 3516 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 3517 (green ((t (:foreground "green")))) 3518 (gui-button-face ((t (:background "grey75" :foreground "black")))) 3519 (gui-element ((t (:background "Gray80")))) 3520 (highlight ((t (:background "darkseagreen2")))) 3521 (info-node ((t (:italic t :bold t)))) 3522 (info-xref ((t (:bold t)))) 3523 (isearch ((t (:background "paleturquoise")))) 3524 (italic ((t (:italic t)))) 3525 (left-margin ((t (nil)))) 3526 (list-mode-item-selected ((t (:background "gray68")))) 3527 (modeline ((t (:background "Gray80")))) 3528 (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) 3529 (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) 3530 (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) 3531 (paren-blink-off ((t (:foreground "gray80")))) 3532 (paren-match ((t (:background "darkseagreen2")))) 3533 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 3534 (pointer ((t (nil)))) 3535 (primary-selection ((t (:background "gray65")))) 3536 (red ((t (:foreground "red")))) 3537 (region ((t (:background "gray65")))) 3538 (right-margin ((t (nil)))) 3539 (secondary-selection ((t (:background "paleturquoise")))) 3540 (text-cursor ((t (:background "Red3" :foreground "gray80")))) 3541 (toolbar ((t (:background "Gray80")))) 3542 (underline ((t (:underline t)))) 3543 (vertical-divider ((t (:background "Gray80")))) 3544 (widget-button-face ((t (:bold t)))) 3545 (widget-button-pressed-face ((t (:foreground "red")))) 3546 (widget-documentation-face ((t (:foreground "dark green")))) 3547 (widget-field-face ((t (:background "gray85")))) 3548 (widget-inactive-face ((t (:foreground "dim gray")))) 3549 (yellow ((t (:foreground "yellow")))) 3550 (zmacs-region ((t (:background "gray65"))))))) 3551 3552 (defun color-theme-jsc-light () 3553 "Color theme by John S Cooper, created 2000-06-08." 3554 (interactive) 3555 (color-theme-install 3556 '(color-theme-jsc-light 3557 ((background-color . "white") 3558 (background-mode . light) 3559 (border-color . "black") 3560 (cursor-color . "Red") 3561 (foreground-color . "black") 3562 (mouse-color . "black")) 3563 ((gnus-mouse-face . highlight) 3564 (list-matching-lines-face . bold) 3565 (view-highlight-face . highlight)) 3566 (default ((t (nil)))) 3567 (bold ((t (:bold t :foreground "red3")))) 3568 (bold-italic ((t (:italic t :bold t :foreground "red")))) 3569 (custom-button-face ((t (nil)))) 3570 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3571 (custom-documentation-face ((t (nil)))) 3572 (custom-face-tag-face ((t (:underline t)))) 3573 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 3574 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 3575 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3576 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3577 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3578 (custom-saved-face ((t (:underline t)))) 3579 (custom-set-face ((t (:background "white" :foreground "blue")))) 3580 (custom-state-face ((t (:foreground "dark green")))) 3581 (custom-variable-button-face ((t (:underline t :bold t)))) 3582 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 3583 (font-lock-builtin-face ((t (:foreground "Orchid")))) 3584 (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3")))) 3585 (font-lock-constant-face ((t (:foreground "navy")))) 3586 (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) 3587 (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) 3588 (font-lock-string-face ((t (:foreground "Green4")))) 3589 (font-lock-type-face ((t (:foreground "Navy")))) 3590 (font-lock-variable-name-face ((t (:foreground "Tan4")))) 3591 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 3592 (gnus-cite-attribution-face ((t (:italic t)))) 3593 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 3594 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 3595 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 3596 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 3597 (gnus-cite-face-3 ((t (:foreground "dark green")))) 3598 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 3599 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 3600 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 3601 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 3602 (gnus-cite-face-8 ((t (:foreground "magenta")))) 3603 (gnus-cite-face-9 ((t (:foreground "violet")))) 3604 (gnus-emphasis-bold ((t (:bold t)))) 3605 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 3606 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 3607 (gnus-emphasis-italic ((t (:italic t)))) 3608 (gnus-emphasis-underline ((t (:underline t)))) 3609 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 3610 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 3611 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 3612 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 3613 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 3614 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 3615 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 3616 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 3617 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 3618 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 3619 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 3620 (gnus-group-news-1-empty-face ((t (:foreground "blue2")))) 3621 (gnus-group-news-1-face ((t (:bold t :foreground "blue2")))) 3622 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 3623 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 3624 (gnus-group-news-3-empty-face ((t (nil)))) 3625 (gnus-group-news-3-face ((t (:bold t)))) 3626 (gnus-group-news-4-empty-face ((t (nil)))) 3627 (gnus-group-news-4-face ((t (:bold t)))) 3628 (gnus-group-news-5-empty-face ((t (nil)))) 3629 (gnus-group-news-5-face ((t (:bold t)))) 3630 (gnus-group-news-6-empty-face ((t (nil)))) 3631 (gnus-group-news-6-face ((t (:bold t)))) 3632 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 3633 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 3634 (gnus-header-content-face ((t (:italic t :foreground "blue")))) 3635 (gnus-header-from-face ((t (:foreground "red3")))) 3636 (gnus-header-name-face ((t (:foreground "red3")))) 3637 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) 3638 (gnus-header-subject-face ((t (:bold t :foreground "red")))) 3639 (gnus-signature-face ((t (:foreground "pink")))) 3640 (gnus-splash-face ((t (:foreground "Brown")))) 3641 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 3642 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 3643 (gnus-summary-high-read-face ((t (:bold t :foreground "navy")))) 3644 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 3645 (gnus-summary-high-unread-face ((t (:bold t :foreground "blue")))) 3646 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 3647 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 3648 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 3649 (gnus-summary-low-unread-face ((t (:italic t)))) 3650 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 3651 (gnus-summary-normal-read-face ((t (:foreground "red3")))) 3652 (gnus-summary-normal-ticked-face ((t (:foreground "black")))) 3653 (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3")))) 3654 (gnus-summary-selected-face ((t (:underline t)))) 3655 (highlight ((t (:background "antiquewhite" :foreground "blue")))) 3656 (italic ((t (:italic t)))) 3657 (makefile-space-face ((t (:background "hotpink")))) 3658 (message-cited-text-face ((t (:foreground "red")))) 3659 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 3660 (message-header-name-face ((t (:foreground "cornflower blue")))) 3661 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 3662 (message-header-other-face ((t (:foreground "steel blue")))) 3663 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 3664 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 3665 (message-header-xheader-face ((t (:foreground "blue")))) 3666 (message-mml-face ((t (:foreground "ForestGreen")))) 3667 (message-separator-face ((t (:foreground "brown")))) 3668 (modeline ((t (:background "plum" :foreground "black")))) 3669 (modeline-buffer-id ((t (:background "plum" :foreground "black")))) 3670 (modeline-mousable ((t (:background "plum" :foreground "black")))) 3671 (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black")))) 3672 (region ((t (:background "plum")))) 3673 (secondary-selection ((t (:background "palegreen")))) 3674 (show-paren-match-face ((t (:background "plum")))) 3675 (show-paren-mismatch-face ((t (:background "navy" :foreground "white")))) 3676 (speedbar-button-face ((t (:foreground "green4")))) 3677 (speedbar-directory-face ((t (:foreground "blue4")))) 3678 (speedbar-file-face ((t (:foreground "cyan4")))) 3679 (speedbar-highlight-face ((t (:background "green")))) 3680 (speedbar-selected-face ((t (:underline t :foreground "red")))) 3681 (speedbar-tag-face ((t (:foreground "brown")))) 3682 (underline ((t (:underline t)))) 3683 (widget-button-face ((t (:bold t)))) 3684 (widget-button-pressed-face ((t (:foreground "red")))) 3685 (widget-documentation-face ((t (:foreground "dark green")))) 3686 (widget-field-face ((t (:background "gray85")))) 3687 (widget-inactive-face ((t (:foreground "dim gray")))) 3688 (widget-single-line-field-face ((t (:background "gray85"))))))) 3689 3690 (defun color-theme-jsc-dark () 3691 "Color theme by John S Cooper, created 2000-06-11." 3692 (interactive) 3693 (color-theme-install 3694 '(color-theme-jsc-dark 3695 ((background-color . "black") 3696 (background-mode . dark) 3697 (border-color . "black") 3698 (cursor-color . "white") 3699 (foreground-color . "cornsilk") 3700 (mouse-color . "black")) 3701 ((gnus-mouse-face . highlight) 3702 (goto-address-mail-face . italic) 3703 (goto-address-mail-mouse-face . secondary-selection) 3704 (goto-address-url-face . bold) 3705 (goto-address-url-mouse-face . highlight) 3706 (list-matching-lines-face . bold) 3707 (view-highlight-face . highlight)) 3708 (blank-space-face ((t (:background "LightGray")))) 3709 (blank-tab-face ((t (:background "cornsilk" :foreground "black")))) 3710 (default ((t (nil)))) 3711 (bold ((t (:bold t :foreground "white")))) 3712 (bold-italic ((t (:italic t :bold t)))) 3713 (calendar-today-face ((t (:underline t)))) 3714 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) 3715 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) 3716 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 3717 (custom-button-face ((t (:foreground "white")))) 3718 (custom-changed-face ((t (:background "skyblue" :foreground "wheat")))) 3719 (custom-documentation-face ((t (:foreground "white")))) 3720 (custom-face-tag-face ((t (:underline t :foreground "white")))) 3721 (custom-group-tag-face ((t (:underline t :foreground "skyblue")))) 3722 (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) 3723 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3724 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3725 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3726 (custom-saved-face ((t (:underline t)))) 3727 (custom-set-face ((t (:foreground "blue")))) 3728 (custom-state-face ((t (:foreground "light green")))) 3729 (custom-variable-button-face ((t (:underline t :bold t)))) 3730 (custom-variable-tag-face ((t (:underline t :foreground "skyblue")))) 3731 (diary-face ((t (:bold t :foreground "orange")))) 3732 (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue")))) 3733 (font-lock-comment-face ((t (:italic t :foreground "red")))) 3734 (font-lock-constant-face ((t (:bold t :foreground "salmon")))) 3735 (font-lock-function-name-face ((t (:bold t :foreground "orange")))) 3736 (font-lock-keyword-face ((t (:bold t :foreground "gold")))) 3737 (font-lock-string-face ((t (:italic t :foreground "orange")))) 3738 (font-lock-type-face ((t (:bold t :foreground "gold")))) 3739 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon")))) 3740 (font-lock-warning-face ((t (:bold t :foreground "gold")))) 3741 (gnus-cite-attribution-face ((t (:italic t)))) 3742 (gnus-cite-face-1 ((t (:foreground "light cyan")))) 3743 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 3744 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 3745 (gnus-cite-face-2 ((t (:foreground "light blue")))) 3746 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 3747 (gnus-cite-face-4 ((t (:foreground "light pink")))) 3748 (gnus-cite-face-5 ((t (:foreground "pale green")))) 3749 (gnus-cite-face-6 ((t (:foreground "beige")))) 3750 (gnus-cite-face-7 ((t (:foreground "orange")))) 3751 (gnus-cite-face-8 ((t (:foreground "magenta")))) 3752 (gnus-cite-face-9 ((t (:foreground "violet")))) 3753 (gnus-emphasis-bold ((t (:bold t)))) 3754 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 3755 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 3756 (gnus-emphasis-italic ((t (:italic t)))) 3757 (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white")))) 3758 (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black")))) 3759 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black")))) 3760 (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black")))) 3761 (gnus-filterhist-face-1 ((t (nil)))) 3762 (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) 3763 (gnus-group-mail-1-face ((t (:bold t :foreground "white")))) 3764 (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) 3765 (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan")))) 3766 (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) 3767 (gnus-group-mail-3-face ((t (:bold t :foreground "tan")))) 3768 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 3769 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 3770 (gnus-group-news-1-empty-face ((t (:foreground "white")))) 3771 (gnus-group-news-1-face ((t (:bold t :foreground "white")))) 3772 (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) 3773 (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan")))) 3774 (gnus-group-news-3-empty-face ((t (:foreground "tan")))) 3775 (gnus-group-news-3-face ((t (:bold t :foreground "tan")))) 3776 (gnus-group-news-4-empty-face ((t (:foreground "white")))) 3777 (gnus-group-news-4-face ((t (:bold t :foreground "white")))) 3778 (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) 3779 (gnus-group-news-5-face ((t (:bold t :foreground "wheat")))) 3780 (gnus-group-news-6-empty-face ((t (:foreground "tan")))) 3781 (gnus-group-news-6-face ((t (:bold t :foreground "tan")))) 3782 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 3783 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 3784 (gnus-header-content-face ((t (:italic t :foreground "plum1")))) 3785 (gnus-header-from-face ((t (:bold t :foreground "wheat")))) 3786 (gnus-header-name-face ((t (:bold t :foreground "gold")))) 3787 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat")))) 3788 (gnus-header-subject-face ((t (:bold t :foreground "red")))) 3789 (gnus-signature-face ((t (:italic t :foreground "maroon")))) 3790 (gnus-splash ((t (:foreground "Brown")))) 3791 (gnus-splash-face ((t (:foreground "gold")))) 3792 (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black")))) 3793 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 3794 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) 3795 (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70")))) 3796 (gnus-summary-high-unread-face ((t (:italic t :bold t)))) 3797 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 3798 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) 3799 (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70")))) 3800 (gnus-summary-low-unread-face ((t (:italic t)))) 3801 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 3802 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 3803 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70")))) 3804 (gnus-summary-normal-unread-face ((t (:bold t)))) 3805 (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4")))) 3806 (highlight ((t (:background "darkslategray" :foreground "wheat")))) 3807 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 3808 (highlight-changes-face ((t (:foreground "red")))) 3809 (highline-face ((t (:background "gray35")))) 3810 (holiday-face ((t (:background "red")))) 3811 (info-menu-5 ((t (:underline t)))) 3812 (info-node ((t (:italic t :bold t :foreground "yellow")))) 3813 (info-xref ((t (:bold t :foreground "plum")))) 3814 (italic ((t (:italic t)))) 3815 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 3816 (linemenu-face ((t (:background "gray30")))) 3817 (makefile-space-face ((t (:background "hotpink")))) 3818 (message-cited-text-face ((t (:foreground "plum1")))) 3819 (message-header-cc-face ((t (:bold t :foreground "ivory")))) 3820 (message-header-name-face ((t (:foreground "light sky blue")))) 3821 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush")))) 3822 (message-header-other-face ((t (:foreground "pale turquoise")))) 3823 (message-header-subject-face ((t (:bold t :foreground "papaya whip")))) 3824 (message-header-to-face ((t (:bold t :foreground "floral white")))) 3825 (message-header-xheader-face ((t (:foreground "blue")))) 3826 (message-mml-face ((t (:bold t :foreground "ForestGreen")))) 3827 (message-separator-face ((t (:foreground "sandy brown")))) 3828 (modeline ((t (:background "tan" :foreground "black")))) 3829 (modeline-buffer-id ((t (:background "tan" :foreground "black")))) 3830 (modeline-mousable ((t (:background "tan" :foreground "black")))) 3831 (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black")))) 3832 (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) 3833 (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) 3834 (region ((t (:background "slategrey")))) 3835 (secondary-selection ((t (:background "deepskyblue4")))) 3836 (sgml-doctype-face ((t (:foreground "orange")))) 3837 (sgml-end-tag-face ((t (:foreground "greenyellow")))) 3838 (sgml-entity-face ((t (:foreground "gold")))) 3839 (sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) 3840 (sgml-sgml-face ((t (:foreground "yellow")))) 3841 (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) 3842 (show-paren-match-face ((t (:background "deepskyblue4")))) 3843 (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white")))) 3844 (speedbar-button-face ((t (:foreground "green4")))) 3845 (speedbar-directory-face ((t (:foreground "blue4")))) 3846 (speedbar-file-face ((t (:bold t :foreground "cyan4")))) 3847 (speedbar-highlight-face ((t (:background "green")))) 3848 (speedbar-selected-face ((t (:underline t :foreground "red")))) 3849 (speedbar-tag-face ((t (:foreground "brown")))) 3850 (underline ((t (:underline t)))) 3851 (widget-button-face ((t (:bold t)))) 3852 (widget-button-pressed-face ((t (:foreground "red")))) 3853 (widget-documentation-face ((t (:foreground "lime green")))) 3854 (widget-field-face ((t (:background "gray20")))) 3855 (widget-inactive-face ((t (:foreground "wheat")))) 3856 (widget-single-line-field-face ((t (:background "gray20")))) 3857 (woman-bold-face ((t (:bold t)))) 3858 (woman-italic-face ((t (:foreground "beige")))) 3859 (woman-unknown-face ((t (:foreground "LightSalmon"))))))) 3860 3861 (defun color-theme-greiner () 3862 "Color theme by Kevin Greiner, created 2000-06-13. 3863 Black on Beige, supports default, font-lock, speedbar, custom, widget 3864 faces. Designed to be easy on the eyes, particularly on Win32 3865 computers which commonly have white window backgrounds." 3866 (interactive) 3867 (color-theme-install 3868 '(color-theme-greiner 3869 ((background-color . "beige") 3870 (background-mode . light) 3871 (border-color . "black") 3872 (cursor-color . "black") 3873 (foreground-color . "black") 3874 (mouse-color . "black")) 3875 ((list-matching-lines-face . bold)) 3876 (default ((t (nil)))) 3877 (bold ((t (:bold t)))) 3878 (bold-italic ((t (:italic t :bold t)))) 3879 (custom-button-face ((t (nil)))) 3880 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3881 (custom-documentation-face ((t (nil)))) 3882 (custom-face-tag-face ((t (:underline t)))) 3883 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 3884 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 3885 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3886 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3887 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3888 (custom-saved-face ((t (:underline t)))) 3889 (custom-set-face ((t (:background "white" :foreground "blue")))) 3890 (custom-state-face ((t (:foreground "dark green")))) 3891 (custom-variable-button-face ((t (:underline t :bold t)))) 3892 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 3893 (font-lock-builtin-face ((t (:foreground "blue4")))) 3894 (font-lock-comment-face ((t (:foreground "Firebrick")))) 3895 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 3896 (font-lock-function-name-face ((t (:foreground "Blue")))) 3897 (font-lock-keyword-face ((t (:foreground "royal blue")))) 3898 (font-lock-string-face ((t (:foreground "RosyBrown")))) 3899 (font-lock-type-face ((t (:foreground "ForestGreen")))) 3900 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 3901 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 3902 (highlight ((t (:background "darkseagreen2")))) 3903 (info-menu-5 ((t (:underline t)))) 3904 (info-node ((t (:italic t :bold t)))) 3905 (info-xref ((t (:bold t)))) 3906 (italic ((t (:italic t)))) 3907 (modeline ((t (:background "black" :foreground "white")))) 3908 (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) 3909 (modeline-mousable ((t (:background "black" :foreground "white")))) 3910 (modeline-buffer-id ((t (:background "black" :foreground "white")))) 3911 (region ((t (:background "gray")))) 3912 (secondary-selection ((t (:background "paleturquoise")))) 3913 (show-paren-match-face ((t (:background "turquoise")))) 3914 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 3915 (speedbar-button-face ((t (:foreground "green4")))) 3916 (speedbar-directory-face ((t (:foreground "blue4")))) 3917 (speedbar-file-face ((t (:foreground "cyan4")))) 3918 (speedbar-highlight-face ((t (:background "green")))) 3919 (speedbar-selected-face ((t (:underline t :foreground "red")))) 3920 (speedbar-tag-face ((t (:foreground "brown")))) 3921 (underline ((t (:underline t)))) 3922 (widget-button-face ((t (:bold t)))) 3923 (widget-button-pressed-face ((t (:foreground "red")))) 3924 (widget-documentation-face ((t (:foreground "dark green")))) 3925 (widget-field-face ((t (:background "gray85")))) 3926 (widget-inactive-face ((t (:foreground "dim gray")))) 3927 (widget-single-line-field-face ((t (:background "gray85"))))))) 3928 3929 (defun color-theme-jb-simple () 3930 "Color theme by jeff, created 2000-06-14. 3931 Uses white background and bold for many things" 3932 (interactive) 3933 (color-theme-install 3934 '(color-theme-jb-simple 3935 ((background-color . "white") 3936 (background-mode . light) 3937 (background-toolbar-color . "#cf3ccf3ccf3c") 3938 (border-color . "black") 3939 (bottom-toolbar-shadow-color . "#79e77df779e7") 3940 (cursor-color . "black") 3941 (foreground-color . "black") 3942 (mouse-color . "black") 3943 (top-toolbar-shadow-color . "#fffffbeeffff")) 3944 ((gnus-mouse-face . highlight) 3945 (list-matching-lines-face . bold) 3946 (rmail-highlight-face . font-lock-function-name-face) 3947 (view-highlight-face . highlight)) 3948 (default ((t (nil)))) 3949 (blank-space-face ((t (nil)))) 3950 (blank-tab-face ((t (nil)))) 3951 (blue ((t (nil)))) 3952 (bold ((t (:bold t)))) 3953 (bold-italic ((t (:italic t :bold t)))) 3954 (border-glyph ((t (nil)))) 3955 (calendar-today-face ((t (:underline t)))) 3956 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) 3957 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) 3958 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 3959 (custom-button-face ((t (:bold t)))) 3960 (custom-changed-face ((t (:background "blue" :foreground "white")))) 3961 (custom-documentation-face ((t (nil)))) 3962 (custom-face-tag-face ((t (:underline t)))) 3963 (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) 3964 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 3965 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 3966 (custom-modified-face ((t (:background "blue" :foreground "white")))) 3967 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 3968 (custom-saved-face ((t (:underline t)))) 3969 (custom-set-face ((t (:background "white" :foreground "blue")))) 3970 (custom-state-face ((t (:foreground "dark green")))) 3971 (custom-variable-button-face ((t (:underline t :bold t)))) 3972 (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) 3973 (diary-face ((t (:bold t :foreground "red")))) 3974 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 3975 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 3976 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 3977 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 3978 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 3979 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 3980 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 3981 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 3982 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 3983 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 3984 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 3985 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 3986 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 3987 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 3988 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 3989 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 3990 (erc-action-face ((t (:bold t)))) 3991 (erc-bold-face ((t (:bold t)))) 3992 (erc-default-face ((t (nil)))) 3993 (erc-direct-msg-face ((t (nil)))) 3994 (erc-error-face ((t (:bold t)))) 3995 (erc-input-face ((t (nil)))) 3996 (erc-inverse-face ((t (nil)))) 3997 (erc-notice-face ((t (nil)))) 3998 (erc-pal-face ((t (nil)))) 3999 (erc-prompt-face ((t (nil)))) 4000 (erc-underline-face ((t (nil)))) 4001 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) 4002 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 4003 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 4004 (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) 4005 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) 4006 (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) 4007 (eshell-ls-picture-face ((t (nil)))) 4008 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 4009 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 4010 (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) 4011 (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) 4012 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 4013 (eshell-prompt-face ((t (:bold t :foreground "Red")))) 4014 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 4015 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 4016 (excerpt ((t (:italic t)))) 4017 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 4018 (fixed ((t (:bold t)))) 4019 (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) 4020 (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) 4021 (font-latex-bold-face ((t (nil)))) 4022 (font-latex-italic-face ((t (nil)))) 4023 (font-latex-math-face ((t (nil)))) 4024 (font-latex-sedate-face ((t (nil)))) 4025 (font-latex-string-face ((t (nil)))) 4026 (font-latex-warning-face ((t (nil)))) 4027 (font-lock-builtin-face ((t (:bold t :foreground "Orchid")))) 4028 (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4")))) 4029 (font-lock-constant-face ((t (:bold t :foreground "CadetBlue")))) 4030 (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4")))) 4031 (font-lock-exit-face ((t (nil)))) 4032 (font-lock-function-name-face ((t (:bold t :foreground "brown4")))) 4033 (font-lock-keyword-face ((t (:bold t :foreground "black")))) 4034 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 4035 (font-lock-reference-face ((t (:foreground "red3")))) 4036 (font-lock-string-face ((t (:italic t :bold t :foreground "green4")))) 4037 (font-lock-type-face ((t (:bold t :foreground "steelblue")))) 4038 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4")))) 4039 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 4040 (gnus-cite-attribution-face ((t (:italic t :bold t)))) 4041 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 4042 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 4043 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 4044 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 4045 (gnus-cite-face-3 ((t (:foreground "dark green")))) 4046 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 4047 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 4048 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 4049 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 4050 (gnus-cite-face-8 ((t (:foreground "magenta")))) 4051 (gnus-cite-face-9 ((t (:foreground "violet")))) 4052 (gnus-emphasis-bold ((t (:bold t)))) 4053 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 4054 (gnus-emphasis-highlight-words ((t (nil)))) 4055 (gnus-emphasis-italic ((t (:italic t)))) 4056 (gnus-emphasis-underline ((t (:underline t)))) 4057 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 4058 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 4059 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 4060 (gnus-filterhist-face-1 ((t (nil)))) 4061 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 4062 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 4063 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 4064 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 4065 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 4066 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 4067 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 4068 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 4069 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 4070 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 4071 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 4072 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 4073 (gnus-group-news-3-empty-face ((t (nil)))) 4074 (gnus-group-news-3-face ((t (:bold t)))) 4075 (gnus-group-news-4-empty-face ((t (nil)))) 4076 (gnus-group-news-4-face ((t (:bold t)))) 4077 (gnus-group-news-5-empty-face ((t (nil)))) 4078 (gnus-group-news-5-face ((t (:bold t)))) 4079 (gnus-group-news-6-empty-face ((t (nil)))) 4080 (gnus-group-news-6-face ((t (:bold t)))) 4081 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 4082 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 4083 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 4084 (gnus-header-from-face ((t (:bold t :foreground "red3")))) 4085 (gnus-header-name-face ((t (:bold t :foreground "maroon")))) 4086 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) 4087 (gnus-header-subject-face ((t (:bold t :foreground "red4")))) 4088 (gnus-signature-face ((t (:italic t)))) 4089 (gnus-splash ((t (nil)))) 4090 (gnus-splash-face ((t (:foreground "ForestGreen")))) 4091 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 4092 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 4093 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 4094 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 4095 (gnus-summary-high-unread-face ((t (:italic t :bold t)))) 4096 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 4097 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 4098 (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) 4099 (gnus-summary-low-unread-face ((t (:italic t)))) 4100 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 4101 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 4102 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) 4103 (gnus-summary-normal-unread-face ((t (:bold t)))) 4104 (gnus-summary-selected-face ((t (:underline t)))) 4105 (green ((t (nil)))) 4106 (gui-button-face ((t (:background "grey75")))) 4107 (gui-element ((t (:background "Gray80")))) 4108 (highlight ((t (:background "darkseagreen2")))) 4109 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 4110 (highlight-changes-face ((t (:foreground "red")))) 4111 (highline-face ((t (:background "paleturquoise")))) 4112 (holiday-face ((t (:background "pink")))) 4113 (html-helper-italic-face ((t (:italic t)))) 4114 (info-menu-5 ((t (:underline t)))) 4115 (info-node ((t (:italic t :bold t)))) 4116 (info-xref ((t (:bold t)))) 4117 (isearch ((t (nil)))) 4118 (italic ((t (:italic t)))) 4119 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 4120 (left-margin ((t (nil)))) 4121 (linemenu-face ((t (nil)))) 4122 (list-mode-item-selected ((t (nil)))) 4123 (makefile-space-face ((t (:background "hotpink")))) 4124 (message-cited-text-face ((t (:foreground "red")))) 4125 (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) 4126 (message-header-name-face ((t (:foreground "cornflower blue")))) 4127 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 4128 (message-header-other-face ((t (:foreground "steel blue")))) 4129 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 4130 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 4131 (message-header-xheader-face ((t (:foreground "blue")))) 4132 (message-mml-face ((t (:bold t)))) 4133 (message-separator-face ((t (:foreground "brown")))) 4134 (modeline ((t (:background "darkblue" :foreground "yellow")))) 4135 (modeline-buffer-id ((t (:background "black" :foreground "white")))) 4136 (modeline-mousable ((t (:background "black" :foreground "white")))) 4137 (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) 4138 (nil ((t (nil)))) 4139 (paren-mismatch-face ((t (:bold t)))) 4140 (paren-no-match-face ((t (:bold t)))) 4141 (pointer ((t (nil)))) 4142 (primary-selection ((t (nil)))) 4143 (red ((t (nil)))) 4144 (region ((t (:background "gray")))) 4145 (right-margin ((t (nil)))) 4146 (secondary-selection ((t (:background "paleturquoise")))) 4147 (sgml-doctype-face ((t (nil)))) 4148 (sgml-end-tag-face ((t (nil)))) 4149 (sgml-entity-face ((t (nil)))) 4150 (sgml-ignored-face ((t (nil)))) 4151 (sgml-sgml-face ((t (nil)))) 4152 (sgml-start-tag-face ((t (nil)))) 4153 (show-paren-match-face ((t (:background "turquoise")))) 4154 (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) 4155 (speedbar-button-face ((t (:bold t :foreground "green4")))) 4156 (speedbar-directory-face ((t (:bold t :foreground "blue4")))) 4157 (speedbar-file-face ((t (:bold t :foreground "cyan4")))) 4158 (speedbar-highlight-face ((t (:background "green")))) 4159 (speedbar-selected-face ((t (:underline t :foreground "red")))) 4160 (speedbar-tag-face ((t (:foreground "brown")))) 4161 (swbuff-current-buffer-face ((t (:bold t)))) 4162 (term-black ((t (:foreground "black")))) 4163 (term-blackbg ((t (:background "black")))) 4164 (term-blue ((t (:foreground "blue")))) 4165 (term-bluebg ((t (:background "blue")))) 4166 (term-bold ((t (:bold t)))) 4167 (term-cyan ((t (:foreground "cyan")))) 4168 (term-cyanbg ((t (:background "cyan")))) 4169 (term-default-bg ((t (nil)))) 4170 (term-default-bg-inv ((t (nil)))) 4171 (term-default-fg ((t (nil)))) 4172 (term-default-fg-inv ((t (nil)))) 4173 (term-green ((t (:foreground "green")))) 4174 (term-greenbg ((t (:background "green")))) 4175 (term-invisible ((t (nil)))) 4176 (term-invisible-inv ((t (nil)))) 4177 (term-magenta ((t (:foreground "magenta")))) 4178 (term-magentabg ((t (:background "magenta")))) 4179 (term-red ((t (:foreground "red")))) 4180 (term-redbg ((t (:background "red")))) 4181 (term-underline ((t (:underline t)))) 4182 (term-white ((t (:foreground "white")))) 4183 (term-whitebg ((t (:background "white")))) 4184 (term-yellow ((t (:foreground "yellow")))) 4185 (term-yellowbg ((t (:background "yellow")))) 4186 (text-cursor ((t (nil)))) 4187 (toolbar ((t (nil)))) 4188 (underline ((t (:underline t)))) 4189 (vc-annotate-face-0046FF ((t (nil)))) 4190 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 4191 (vertical-divider ((t (nil)))) 4192 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 4193 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 4194 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 4195 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 4196 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 4197 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 4198 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 4199 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 4200 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 4201 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 4202 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 4203 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 4204 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 4205 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 4206 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 4207 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 4208 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) 4209 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 4210 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 4211 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 4212 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 4213 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 4214 (widget-button-face ((t (:bold t)))) 4215 (widget-button-pressed-face ((t (:foreground "red")))) 4216 (widget-documentation-face ((t (:foreground "dark green")))) 4217 (widget-field-face ((t (:background "gray85")))) 4218 (widget-inactive-face ((t (:foreground "dim gray")))) 4219 (widget-single-line-field-face ((t (:background "gray85")))) 4220 (woman-bold-face ((t (:bold t)))) 4221 (woman-italic-face ((t (nil)))) 4222 (woman-unknown-face ((t (nil)))) 4223 (yellow ((t (nil)))) 4224 (zmacs-region ((t (nil))))))) 4225 4226 (defun color-theme-beige-diff () 4227 "Brownish faces for diff and change-log modes. 4228 This is intended for other color themes to use (eg. `color-theme-gnome2' 4229 and `color-theme-blue-sea')." 4230 (color-theme-install 4231 '(color-theme-beige-diff 4232 nil 4233 (change-log-acknowledgement-face ((t (:foreground "firebrick")))) 4234 (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna")))) 4235 (change-log-date-face ((t (:foreground "gold")))) 4236 (change-log-email-face ((t (:foreground "khaki" :underline t)))) 4237 (change-log-file-face ((t (:bold t :foreground "lemon chiffon")))) 4238 (change-log-function-face ((t (:foreground "khaki" :background "sienna")))) 4239 (change-log-list-face ((t (:foreground "wheat")))) 4240 (change-log-name-face ((t (:bold t :foreground "light goldenrod")))) 4241 (diff-added-face ((t (nil)))) 4242 (diff-changed-face ((t (nil)))) 4243 (diff-context-face ((t (:foreground "grey50")))) 4244 (diff-file-header-face ((t (:bold t :foreground "lemon chiffon")))) 4245 (diff-function-face ((t (:foreground "grey50")))) 4246 (diff-header-face ((t (:foreground "lemon chiffon")))) 4247 (diff-hunk-header-face ((t (:foreground "light goldenrod")))) 4248 (diff-index-face ((t (:bold t :underline t)))) 4249 (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) 4250 (diff-removed-face ((t (nil)))) 4251 (log-view-message-face ((t (:foreground "lemon chiffon"))))))) 4252 4253 (defun color-theme-standard-ediff () 4254 "Standard colors for ediff faces. 4255 This is intended for other color themes to use 4256 \(eg. `color-theme-goldenrod')." 4257 (color-theme-install 4258 '(color-theme-beige-diff 4259 nil 4260 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 4261 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 4262 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 4263 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 4264 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 4265 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 4266 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 4267 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 4268 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 4269 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 4270 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 4271 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 4272 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 4273 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 4274 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 4275 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))))) 4276 4277 (defun color-theme-beige-eshell () 4278 "Brownish colors for eshell faces only. 4279 This is intended for other color themes to use (eg. `color-theme-goldenrod')." 4280 (color-theme-install 4281 '(color-theme-beige-eshell 4282 nil 4283 (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 4284 (eshell-ls-backup-face ((t (:foreground "Grey")))) 4285 (eshell-ls-clutter-face ((t (:foreground "DimGray")))) 4286 (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki")))) 4287 (eshell-ls-executable-face ((t (:foreground "Coral")))) 4288 (eshell-ls-missing-face ((t (:foreground "black")))) 4289 (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face 4290 (eshell-ls-product-face ((t (:foreground "dark sea green")))) 4291 (eshell-ls-readonly-face ((t (:foreground "light steel blue")))) 4292 (eshell-ls-special-face ((t (:foreground "gold")))) 4293 (eshell-ls-symlink-face ((t (:foreground "peach puff")))) 4294 (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face 4295 (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face 4296 (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) 4297 (eshell-prompt-face ((t (:foreground "lemon chiffon"))))))) 4298 4299 (defun color-theme-goldenrod () 4300 "Brown color theme. Very different from the others. 4301 Supports standard, font-lock and info faces, and it uses 4302 `color-theme-blue-gnus', `color-theme-blue-erc' , and 4303 `color-theme-beige-diff'." 4304 (interactive) 4305 (color-theme-blue-gnus) 4306 (let ((color-theme-is-cumulative t)) 4307 (color-theme-blue-erc) 4308 (color-theme-beige-diff) 4309 (color-theme-beige-eshell) 4310 (color-theme-install 4311 '(color-theme-goldenrod 4312 ((background-color . "black") 4313 (background-mode . dark) 4314 (border-color . "black") 4315 (cursor-color . "light goldenrod") 4316 (foreground-color . "goldenrod") 4317 (mouse-color . "goldenrod")) 4318 ((goto-address-mail-face . info-xref) 4319 (list-matching-lines-face . bold) 4320 (view-highlight-face . highlight)) 4321 (default ((t (nil)))) 4322 (bold ((t (:bold t)))) 4323 (bold-italic ((t (:italic t :bold t :foreground "lavender")))) 4324 (font-lock-builtin-face ((t (:foreground "pale goldenrod")))) 4325 (font-lock-comment-face ((t (:foreground "indian red")))) 4326 (font-lock-constant-face ((t (:foreground "pale green")))) 4327 (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon")))) 4328 (font-lock-keyword-face ((t (:foreground "wheat")))) 4329 (font-lock-string-face ((t (:foreground "gold")))) 4330 (font-lock-type-face ((t (:foreground "dark khaki" :bold t)))) 4331 (font-lock-variable-name-face ((t (:bold t :foreground "khaki")))) 4332 (font-lock-warning-face ((t (:bold t :foreground "orange red")))) 4333 (fringe ((t (:background "gray25")))) 4334 (header-line ((t (:background "gray20" :foreground "gray70")))) 4335 (highlight ((t (:background "dark slate blue")))) 4336 (info-menu-5 ((t (:underline t)))) 4337 (info-node ((t (:bold t)))) 4338 (info-xref ((t (:bold t :foreground "pale goldenrod")))) 4339 (isearch ((t (:background "SeaGreen4")))) 4340 (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4")))) 4341 (italic ((t (:italic t :foreground "lavender")))) 4342 (menu ((t (:background "gray25" :foreground "lemon chiffon")))) 4343 (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) 4344 (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) 4345 (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) 4346 (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon")))) 4347 (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) 4348 (region ((t (:background "dark olive green")))) 4349 (secondary-selection ((t (:background "dark green")))) 4350 (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) 4351 (underline ((t (:underline t)))))))) 4352 4353 (defun color-theme-ramangalahy () 4354 "Color theme by Solofo Ramangalahy, created 2000-10-18. 4355 Black on light grey, includes faces for vm, ispell, gnus, 4356 dired, display-time, cperl, font-lock, widget, x-symbol." 4357 (interactive) 4358 (color-theme-install 4359 '(color-theme-ramangalahy 4360 ((background-color . "lightgrey") 4361 (background-mode . light) 4362 (background-toolbar-color . "#bfbfbfbfbfbf") 4363 (border-color . "#000000000000") 4364 (bottom-toolbar-shadow-color . "#737373737373") 4365 (cursor-color . "blue") 4366 (foreground-color . "black") 4367 (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) 4368 ((gnus-mouse-face . highlight) 4369 (goto-address-mail-face . info-xref) 4370 (ispell-highlight-face . highlight) 4371 (notes-bold-face . notes-bold-face) 4372 (setnu-line-number-face . bold) 4373 (tinyreplace-:face . highlight) 4374 (vm-highlight-url-face . bold-italic) 4375 (vm-highlighted-header-face . bold) 4376 (vm-mime-button-face . gui-button-face) 4377 (vm-summary-highlight-face . bold)) 4378 (default ((t (nil)))) 4379 (bbdb-company ((t (nil)))) 4380 (blue ((t (:foreground "blue")))) 4381 (bold ((t (:bold t)))) 4382 (bold-italic ((t (:italic t :bold t)))) 4383 (border-glyph ((t (nil)))) 4384 (cperl-here-face ((t (:foreground "green4")))) 4385 (cperl-pod-face ((t (:foreground "brown4")))) 4386 (cperl-pod-head-face ((t (:foreground "steelblue")))) 4387 (custom-button-face ((t (:bold t)))) 4388 (custom-changed-face ((t (:background "blue" :foreground "white")))) 4389 (custom-documentation-face ((t (nil)))) 4390 (custom-face-tag-face ((t (:underline t)))) 4391 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 4392 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 4393 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 4394 (custom-modified-face ((t (:background "blue" :foreground "white")))) 4395 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 4396 (custom-saved-face ((t (:underline t)))) 4397 (custom-set-face ((t (:background "white" :foreground "blue")))) 4398 (custom-state-face ((t (:foreground "dark green")))) 4399 (custom-variable-button-face ((t (:underline t :bold t)))) 4400 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 4401 (dired-face-boring ((t (:foreground "Gray65")))) 4402 (dired-face-directory ((t (:bold t)))) 4403 (dired-face-executable ((t (:foreground "SeaGreen")))) 4404 (dired-face-flagged ((t (:background "LightSlateGray")))) 4405 (dired-face-marked ((t (:background "PaleVioletRed")))) 4406 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 4407 (dired-face-setuid ((t (:foreground "Red")))) 4408 (dired-face-socket ((t (:foreground "magenta")))) 4409 (dired-face-symlink ((t (:foreground "blue")))) 4410 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 4411 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 4412 (display-time-time-balloon-face ((t (:foreground "red")))) 4413 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 4414 (font-lock-comment-face ((t (:bold t :foreground "purple")))) 4415 (font-lock-doc-string-face ((t (:bold t :foreground "slateblue")))) 4416 (font-lock-emphasized-face ((t (:bold t :background "lightyellow2")))) 4417 (font-lock-function-name-face ((t (:bold t :foreground "blue")))) 4418 (font-lock-keyword-face ((t (:bold t :foreground "violetred")))) 4419 (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2")))) 4420 (font-lock-other-type-face ((t (:bold t :foreground "orange3")))) 4421 (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue")))) 4422 (font-lock-reference-face ((t (:foreground "red3")))) 4423 (font-lock-string-face ((t (:foreground "green4")))) 4424 (font-lock-type-face ((t (:bold t :foreground "steelblue")))) 4425 (font-lock-variable-name-face ((t (:foreground "magenta4")))) 4426 (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red")))) 4427 (gnus-emphasis-bold ((t (:bold t)))) 4428 (gnus-emphasis-bold-italic ((t (nil)))) 4429 (gnus-emphasis-italic ((t (nil)))) 4430 (gnus-emphasis-underline ((t (:underline t)))) 4431 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 4432 (gnus-emphasis-underline-bold-italic ((t (:underline t)))) 4433 (gnus-emphasis-underline-italic ((t (:underline t)))) 4434 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 4435 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 4436 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 4437 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 4438 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 4439 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 4440 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 4441 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 4442 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 4443 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 4444 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 4445 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 4446 (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4")))) 4447 (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4")))) 4448 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 4449 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 4450 (gnus-header-content-face ((t (:foreground "indianred4")))) 4451 (gnus-header-from-face ((t (:foreground "red3")))) 4452 (gnus-header-name-face ((t (:foreground "maroon")))) 4453 (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) 4454 (gnus-header-subject-face ((t (:foreground "red4")))) 4455 (gnus-signature-face ((t (:bold t)))) 4456 (gnus-splash-face ((t (:foreground "ForestGreen")))) 4457 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 4458 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 4459 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 4460 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 4461 (gnus-summary-high-unread-face ((t (:bold t)))) 4462 (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) 4463 (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) 4464 (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) 4465 (gnus-summary-low-unread-face ((t (nil)))) 4466 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 4467 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 4468 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 4469 (gnus-summary-normal-unread-face ((t (nil)))) 4470 (gnus-summary-selected-face ((t (:underline t)))) 4471 (gnus-x-face ((t (:background "lightgrey" :foreground "black")))) 4472 (green ((t (:foreground "green")))) 4473 (gui-button-face ((t (:background "grey75" :foreground "black")))) 4474 (gui-element ((t (:background "lightgrey")))) 4475 (highlight ((t (:background "darkseagreen2")))) 4476 (info-node ((t (:underline t :bold t :foreground "mediumpurple")))) 4477 (info-xref ((t (:underline t :bold t :foreground "#0000ee")))) 4478 (isearch ((t (:background "paleturquoise")))) 4479 (italic ((t (:italic t)))) 4480 (left-margin ((t (nil)))) 4481 (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) 4482 (message-cited-text ((t (:foreground "slategrey")))) 4483 (message-cited-text-face ((t (:foreground "red")))) 4484 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 4485 (message-header-contents ((t (:italic t)))) 4486 (message-header-name-face ((t (:foreground "cornflower blue")))) 4487 (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) 4488 (message-header-other-face ((t (:foreground "steel blue")))) 4489 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 4490 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 4491 (message-header-xheader-face ((t (:foreground "blue")))) 4492 (message-headers ((t (:bold t)))) 4493 (message-highlighted-header-contents ((t (:bold t)))) 4494 (message-separator-face ((t (:foreground "brown")))) 4495 (message-url ((t (:bold t)))) 4496 (modeline ((t (:bold t :background "Gray75" :foreground "Black")))) 4497 (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4")))) 4498 (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick")))) 4499 (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4")))) 4500 (paren-blink-off ((t (:foreground "lightgrey")))) 4501 (paren-match ((t (:background "darkseagreen2")))) 4502 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 4503 (pointer ((t (:foreground "blue")))) 4504 (primary-selection ((t (:background "gray65")))) 4505 (red ((t (:foreground "red")))) 4506 (region ((t (:background "black" :foreground "white")))) 4507 (right-margin ((t (nil)))) 4508 (searchm-buffer ((t (:bold t :background "white" :foreground "red")))) 4509 (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white")))) 4510 (searchm-field ((t (:background "grey89")))) 4511 (searchm-field-label ((t (:bold t)))) 4512 (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black")))) 4513 (secondary-selection ((t (:background "paleturquoise")))) 4514 (template-message-face ((t (:bold t)))) 4515 (text-cursor ((t (:background "blue" :foreground "lightgrey")))) 4516 (toolbar ((t (nil)))) 4517 (underline ((t (:underline t)))) 4518 (vertical-divider ((t (nil)))) 4519 (widget-button-face ((t (:bold t)))) 4520 (widget-button-pressed-face ((t (:foreground "red")))) 4521 (widget-documentation-face ((t (:foreground "dark green")))) 4522 (widget-field-face ((t (:background "gray85")))) 4523 (widget-inactive-face ((t (:foreground "dim gray")))) 4524 (x-face ((t (:background "white" :foreground "black")))) 4525 (x-symbol-adobe-fontspecific-face ((t (nil)))) 4526 (x-symbol-face ((t (nil)))) 4527 (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4")))) 4528 (x-symbol-info-face ((t (:foreground "green4")))) 4529 (x-symbol-invisible-face ((t (nil)))) 4530 (x-symbol-revealed-face ((t (:background "pink")))) 4531 (yellow ((t (:foreground "yellow")))) 4532 (zmacs-region ((t (:background "yellow"))))))) 4533 4534 (defun color-theme-raspopovic () 4535 "Color theme by Pedja Raspopovic, created 2000-10-19. 4536 Includes faces for dired, font-lock, info, paren." 4537 (interactive) 4538 (color-theme-install 4539 '(color-theme-raspopovic 4540 ((background-color . "darkblue") 4541 (background-mode . light) 4542 (background-toolbar-color . "#bfbfbfbfbfbf") 4543 (border-color . "#000000000000") 4544 (bottom-toolbar-shadow-color . "#737373737373") 4545 (cursor-color . "Red3") 4546 (foreground-color . "yellow") 4547 (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) 4548 ((setnu-line-number-face . bold) 4549 (goto-address-mail-face . info-xref)) 4550 (default ((t (nil)))) 4551 (blue ((t (:background "darkblue" :foreground "blue")))) 4552 (bold ((t (:bold t :background "darkblue" :foreground "yellow")))) 4553 (bold-italic ((t (:bold t :background "darkblue" :foreground "red3")))) 4554 (comint-input-face ((t (:foreground "deepskyblue")))) 4555 (dired-face-boring ((t (:foreground "Gray65")))) 4556 (dired-face-directory ((t (:foreground "lightgreen")))) 4557 (dired-face-executable ((t (:foreground "indianred")))) 4558 (dired-face-flagged ((t (:background "LightSlateGray")))) 4559 (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) 4560 (dired-face-permissions ((t (:background "darkblue" :foreground "white")))) 4561 (dired-face-setuid ((t (:foreground "Red")))) 4562 (dired-face-socket ((t (:foreground "magenta")))) 4563 (dired-face-symlink ((t (:foreground "grey95")))) 4564 (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen")))) 4565 (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen")))) 4566 (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred")))) 4567 (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue")))) 4568 (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange")))) 4569 (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue")))) 4570 (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey")))) 4571 (font-lock-type-face ((t (:background "darkblue" :foreground "orange")))) 4572 (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white")))) 4573 (green ((t (:background "darkblue" :foreground "green")))) 4574 (gui-button-face ((t (:background "grey75" :foreground "black")))) 4575 (highlight ((t (:background "yellow" :foreground "darkblue")))) 4576 (info-node ((t (:bold t :background "darkblue" :foreground "red3")))) 4577 (info-xref ((t (:bold t :background "darkblue" :foreground "yellow")))) 4578 (isearch ((t (:background "yellow" :foreground "darkblue")))) 4579 (isearch-secondary ((t (:foreground "red3")))) 4580 (italic ((t (:background "darkblue" :foreground "red3")))) 4581 (left-margin ((t (:background "darkblue" :foreground "yellow")))) 4582 (list-mode-item-selected ((t (:background "gray68" :foreground "yellow")))) 4583 (makefile-space-face ((t (:background "hotpink")))) 4584 (modeline ((t (:background "Gray75" :foreground "Black")))) 4585 (modeline-buffer-id ((t (:background "Gray75" :foreground "blue")))) 4586 (modeline-mousable ((t (:background "Gray75" :foreground "red")))) 4587 (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) 4588 (paren-blink-off ((t (:foreground "darkblue")))) 4589 (paren-match ((t (:background "yellow" :foreground "darkblue")))) 4590 (paren-mismatch ((t (:background "DeepPink" :foreground "yellow")))) 4591 (pointer ((t (:background "darkblue" :foreground "red3")))) 4592 (primary-selection ((t (:background "yellow" :foreground "darkblue")))) 4593 (red ((t (:background "darkblue" :foreground "red")))) 4594 (right-margin ((t (:background "darkblue" :foreground "yellow")))) 4595 (secondary-selection ((t (:background "darkblue" :foreground "yellow")))) 4596 (shell-option-face ((t (:background "darkblue" :foreground "cyan2")))) 4597 (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen")))) 4598 (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey")))) 4599 (shell-output-face ((t (:background "darkblue" :foreground "white")))) 4600 (shell-prompt-face ((t (:background "darkblue" :foreground "red")))) 4601 (text-cursor ((t (:background "Red3" :foreground "white")))) 4602 (underline ((t (:underline t :background "darkblue" :foreground "yellow")))) 4603 (vvb-face ((t (:background "pink" :foreground "black")))) 4604 (yellow ((t (:background "darkblue" :foreground "yellow")))) 4605 (zmacs-region ((t (:background "gray" :foreground "black"))))))) 4606 4607 (defun color-theme-taylor () 4608 "Color theme by Art Taylor, created 2000-10-20. 4609 Wheat on black. Includes faces for font-lock, gnus, paren." 4610 (interactive) 4611 (color-theme-install 4612 '(color-theme-taylor 4613 ((background-color . "#191919") 4614 (background-mode . dark) 4615 (border-color . "black") 4616 (cursor-color . "red") 4617 (foreground-color . "wheat") 4618 (mouse-color . "black")) 4619 ((gnus-mouse-face . highlight) 4620 (list-matching-lines-face . bold) 4621 (view-highlight-face . highlight)) 4622 (default ((t (nil)))) 4623 (bold ((t (:bold t :background "grey40" :foreground "yellow")))) 4624 (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) 4625 (fl-comment-face ((t (:foreground "medium purple")))) 4626 (fl-function-name-face ((t (:foreground "green")))) 4627 (fl-keyword-face ((t (:foreground "LightGreen")))) 4628 (fl-string-face ((t (:foreground "light coral")))) 4629 (fl-type-face ((t (:foreground "cyan")))) 4630 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 4631 (font-lock-comment-face ((t (:foreground "OrangeRed")))) 4632 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 4633 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 4634 (font-lock-keyword-face ((t (:foreground "Cyan")))) 4635 (font-lock-string-face ((t (:foreground "LightSalmon")))) 4636 (font-lock-type-face ((t (:foreground "PaleGreen")))) 4637 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 4638 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 4639 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 4640 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) 4641 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 4642 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 4643 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 4644 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) 4645 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 4646 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 4647 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 4648 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 4649 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 4650 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 4651 (gnus-group-news-3-empty-face ((t (nil)))) 4652 (gnus-group-news-3-face ((t (:bold t)))) 4653 (gnus-group-news-4-empty-face ((t (nil)))) 4654 (gnus-group-news-4-face ((t (:bold t)))) 4655 (gnus-group-news-5-empty-face ((t (nil)))) 4656 (gnus-group-news-5-face ((t (:bold t)))) 4657 (gnus-group-news-6-empty-face ((t (nil)))) 4658 (gnus-group-news-6-face ((t (:bold t)))) 4659 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 4660 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 4661 (gnus-splash-face ((t (:foreground "Brown")))) 4662 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 4663 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 4664 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) 4665 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) 4666 (gnus-summary-high-unread-face ((t (:bold t)))) 4667 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 4668 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) 4669 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) 4670 (gnus-summary-low-unread-face ((t (:italic t)))) 4671 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 4672 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 4673 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 4674 (gnus-summary-normal-unread-face ((t (nil)))) 4675 (gnus-summary-selected-face ((t (:underline t)))) 4676 (highlight ((t (:background "black" :foreground "black")))) 4677 (italic ((t (:italic t :foreground "yellow3")))) 4678 (message-cited-text-face ((t (:foreground "red")))) 4679 (message-header-cc-face ((t (:bold t :foreground "green4")))) 4680 (message-header-name-face ((t (:foreground "DarkGreen")))) 4681 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) 4682 (message-header-other-face ((t (:foreground "#b00000")))) 4683 (message-header-subject-face ((t (:foreground "green3")))) 4684 (message-header-to-face ((t (:bold t :foreground "green2")))) 4685 (message-header-xheader-face ((t (:foreground "blue")))) 4686 (message-mml-face ((t (:foreground "ForestGreen")))) 4687 (message-separator-face ((t (:foreground "blue3")))) 4688 (modeline ((t (:background "wheat" :foreground "black")))) 4689 (modeline-buffer-id ((t (:background "wheat" :foreground "black")))) 4690 (modeline-mousable ((t (:background "wheat" :foreground "black")))) 4691 (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black")))) 4692 (region ((t (:background "blue")))) 4693 (secondary-selection ((t (:background "darkslateblue" :foreground "black")))) 4694 (show-paren-match-face ((t (:background "turquoise")))) 4695 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 4696 (underline ((t (:underline t)))) 4697 (xref-keyword-face ((t (:foreground "blue")))) 4698 (xref-list-default-face ((t (nil)))) 4699 (xref-list-pilot-face ((t (:foreground "navy")))) 4700 (xref-list-symbol-face ((t (:foreground "navy"))))))) 4701 4702 (defun color-theme-marquardt () 4703 "Color theme by Colin Marquardt, created 2000-10-25. 4704 Black on bisque, a light color. Based on some settings from Robin S. Socha. 4705 Features some color changes to programming languages, especially vhdl-mode. 4706 You might also want to put something like 4707 Emacs*Foreground: Black 4708 Emacs*Background: bisque2 4709 in your ~/.Xdefaults." 4710 (interactive) 4711 (color-theme-install 4712 '(color-theme-marquardt 4713 ((background-color . "bisque") 4714 (background-mode . light) 4715 (background-toolbar-color . "bisque") 4716 (border-color . "#000000000000") 4717 (bottom-toolbar-shadow-color . "#909099999999") 4718 (cursor-color . "Red3") 4719 (foreground-color . "black") 4720 (top-toolbar-shadow-color . "#ffffffffffff")) 4721 (default ((t (nil)))) 4722 (blue ((t (:foreground "blue")))) 4723 (bold ((t (:bold t)))) 4724 (bold-italic ((t (:bold t)))) 4725 (border-glyph ((t (nil)))) 4726 (calendar-today-face ((t (:underline t)))) 4727 (diary-face ((t (:foreground "red")))) 4728 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 4729 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 4730 (display-time-time-balloon-face ((t (:foreground "red")))) 4731 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 4732 (font-lock-comment-face ((t (:foreground "gray50")))) 4733 (font-lock-doc-string-face ((t (:foreground "green4")))) 4734 (font-lock-function-name-face ((t (:foreground "darkorange")))) 4735 (font-lock-keyword-face ((t (:foreground "blue3")))) 4736 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 4737 (font-lock-reference-face ((t (:foreground "red3")))) 4738 (font-lock-special-comment-face ((t (:foreground "blue4")))) 4739 (font-lock-special-keyword-face ((t (:foreground "red4")))) 4740 (font-lock-string-face ((t (:foreground "green4")))) 4741 (font-lock-type-face ((t (:foreground "steelblue")))) 4742 (font-lock-variable-name-face ((t (:foreground "black")))) 4743 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 4744 (green ((t (:foreground "green")))) 4745 (gui-button-face ((t (:background "grey75" :foreground "black")))) 4746 (gui-element ((t (:background "azure1" :foreground "Black")))) 4747 (highlight ((t (:background "darkseagreen2" :foreground "blue")))) 4748 (holiday-face ((t (:background "pink" :foreground "black")))) 4749 (info-node ((t (:bold t)))) 4750 (info-xref ((t (:bold t)))) 4751 (isearch ((t (:background "yellow" :foreground "red")))) 4752 (italic ((t (:bold t)))) 4753 (left-margin ((t (nil)))) 4754 (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) 4755 (message-cited-text-face ((t (:foreground "red")))) 4756 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 4757 (message-header-name-face ((t (:foreground "cornflower blue")))) 4758 (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) 4759 (message-header-other-face ((t (:foreground "steel blue")))) 4760 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 4761 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 4762 (message-header-xheader-face ((t (:foreground "blue")))) 4763 (message-mml-face ((t (:foreground "ForestGreen")))) 4764 (message-separator-face ((t (:foreground "brown")))) 4765 (modeline ((t (:background "bisque2" :foreground "steelblue4")))) 4766 (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4")))) 4767 (modeline-mousable ((t (:background "bisque2" :foreground "firebrick")))) 4768 (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4")))) 4769 (paren-blink-off ((t (:foreground "azure1")))) 4770 (paren-face ((t (:background "lightgoldenrod")))) 4771 (paren-match ((t (:background "bisque2")))) 4772 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 4773 (paren-mismatch-face ((t (:background "DeepPink")))) 4774 (paren-no-match-face ((t (:background "yellow")))) 4775 (pointer ((t (:background "white" :foreground "blue")))) 4776 (primary-selection ((t (:background "gray65")))) 4777 (red ((t (:foreground "red")))) 4778 (right-margin ((t (nil)))) 4779 (secondary-selection ((t (:background "paleturquoise")))) 4780 (shell-option-face ((t (:foreground "gray50")))) 4781 (shell-output-2-face ((t (:foreground "green4")))) 4782 (shell-output-3-face ((t (:foreground "green4")))) 4783 (shell-output-face ((t (:bold t)))) 4784 (shell-prompt-face ((t (:foreground "blue3")))) 4785 (speedbar-button-face ((t (:foreground "green4")))) 4786 (speedbar-directory-face ((t (:foreground "blue4")))) 4787 (speedbar-file-face ((t (:foreground "cyan4")))) 4788 (speedbar-highlight-face ((t (:background "green")))) 4789 (speedbar-selected-face ((t (:underline t :foreground "red")))) 4790 (speedbar-tag-face ((t (:foreground "brown")))) 4791 (text-cursor ((t (:background "Red3" :foreground "bisque")))) 4792 (toolbar ((t (:background "Gray80")))) 4793 (underline ((t (:underline t)))) 4794 (vertical-divider ((t (nil)))) 4795 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 4796 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 4797 (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown")))) 4798 (vhdl-font-lock-function-face ((t (:foreground "DarkCyan")))) 4799 (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3")))) 4800 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 4801 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 4802 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 4803 (vhdl-font-lock-type-face ((t (:foreground "ForestGreen")))) 4804 (vhdl-font-lock-variable-face ((t (:foreground "Grey50")))) 4805 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 4806 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 4807 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 4808 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 4809 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 4810 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 4811 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 4812 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 4813 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 4814 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) 4815 (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4")))) 4816 (widget-button-face ((t (:bold t)))) 4817 (widget-button-pressed-face ((t (:foreground "red")))) 4818 (widget-documentation-face ((t (:foreground "dark green")))) 4819 (widget-field-face ((t (:background "gray85")))) 4820 (widget-inactive-face ((t (:foreground "dim gray")))) 4821 (yellow ((t (:foreground "yellow")))) 4822 (zmacs-region ((t (:background "steelblue" :foreground "yellow"))))))) 4823 4824 (defun color-theme-parus () 4825 "Color theme by Jon K Hellan, created 2000-11-01. 4826 White on dark blue color theme. 4827 4828 There is some redundancy in the X resources, but I do not have time to 4829 find out which should go or which should stay: 4830 4831 Emacs*dialog*Background: midnightblue 4832 Emacs*dialog*Foreground: white 4833 Emacs*popup*Background: midnightblue 4834 Emacs*popup*Foreground: white 4835 emacs*background: #00005a 4836 emacs*cursorColor: gray90 4837 emacs*foreground: White 4838 emacs.dialog*.background: midnightblue 4839 emacs.menu*.background: midnightblue 4840 emacs.pane.menubar.background: midnightblue" 4841 (interactive) 4842 (color-theme-install 4843 '(color-theme-parus 4844 ((background-color . "#00005a") 4845 (background-mode . dark) 4846 (border-color . "black") 4847 (cursor-color . "yellow") 4848 (foreground-color . "White") 4849 (mouse-color . "yellow")) 4850 ((gnus-mouse-face . highlight) 4851 (list-matching-lines-face . bold) 4852 (paren-face . bold) 4853 (paren-mismatch-face . paren-mismatch-face) 4854 (paren-no-match-face . paren-no-match-face) 4855 (view-highlight-face . highlight)) 4856 (default ((t (nil)))) 4857 (bold ((t (:bold t)))) 4858 (bold-italic ((t (:italic t :bold t)))) 4859 (font-latex-bold-face ((t (:bold t :foreground "OliveDrab")))) 4860 (font-latex-italic-face ((t (:italic t :foreground "OliveDrab")))) 4861 (font-latex-math-face ((t (:foreground "burlywood")))) 4862 (font-latex-sedate-face ((t (:foreground "LightGray")))) 4863 (font-latex-string-face ((t (:foreground "LightSalmon")))) 4864 (font-latex-warning-face ((t (:foreground "Pink")))) 4865 (font-lock-builtin-face ((t (:foreground "#e0e0ff")))) 4866 (font-lock-reference-face ((t (:foreground "#e0e0ff")))) 4867 (font-lock-comment-face ((t (:foreground "#FFd1d1")))) 4868 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 4869 (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) 4870 (font-lock-function-name-face ((t (:foreground "#b2e4ff")))) 4871 (font-lock-keyword-face ((t (:foreground "#a0ffff")))) 4872 (font-lock-string-face ((t (:foreground "#efca10")))) 4873 (font-lock-doc-string-face ((t (:foreground "#efca10")))) 4874 (font-lock-type-face ((t (:foreground "PaleGreen")))) 4875 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 4876 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 4877 (gnus-cite-attribution-face ((t (:italic t)))) 4878 (gnus-cite-face-1 ((t (:foreground "#dfdfff")))) 4879 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 4880 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 4881 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 4882 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 4883 (gnus-cite-face-4 ((t (:foreground "light pink")))) 4884 (gnus-cite-face-5 ((t (:foreground "pale green")))) 4885 (gnus-cite-face-6 ((t (:foreground "beige")))) 4886 (gnus-cite-face-7 ((t (:foreground "orange")))) 4887 (gnus-cite-face-8 ((t (:foreground "magenta")))) 4888 (gnus-cite-face-9 ((t (:foreground "violet")))) 4889 (gnus-emphasis-bold ((t (:bold t)))) 4890 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 4891 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 4892 (gnus-emphasis-italic ((t (:italic t)))) 4893 (gnus-emphasis-underline ((t (:underline t)))) 4894 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 4895 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 4896 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 4897 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 4898 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) 4899 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 4900 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 4901 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 4902 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) 4903 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 4904 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 4905 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 4906 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 4907 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 4908 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 4909 (gnus-group-news-3-empty-face ((t (nil)))) 4910 (gnus-group-news-3-face ((t (:bold t)))) 4911 (gnus-group-news-4-empty-face ((t (nil)))) 4912 (gnus-group-news-4-face ((t (:bold t)))) 4913 (gnus-group-news-5-empty-face ((t (nil)))) 4914 (gnus-group-news-5-face ((t (:bold t)))) 4915 (gnus-group-news-6-empty-face ((t (nil)))) 4916 (gnus-group-news-6-face ((t (:bold t)))) 4917 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 4918 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 4919 (gnus-header-content-face ((t (:italic t :foreground "#90f490")))) 4920 (gnus-header-from-face ((t (:foreground "#aaffaa")))) 4921 (gnus-header-name-face ((t (:foreground "#c7e3c7")))) 4922 (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) 4923 (gnus-header-subject-face ((t (:foreground "#a0f0a0")))) 4924 (gnus-signature-face ((t (:italic t)))) 4925 (gnus-splash-face ((t (:foreground "Brown")))) 4926 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 4927 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 4928 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) 4929 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) 4930 (gnus-summary-high-unread-face ((t (:bold t)))) 4931 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 4932 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) 4933 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) 4934 (gnus-summary-low-unread-face ((t (:italic t)))) 4935 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 4936 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 4937 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 4938 (gnus-summary-normal-unread-face ((t (nil)))) 4939 (gnus-summary-selected-face ((t (:underline t)))) 4940 (highlight ((t (:background "darkolivegreen")))) 4941 (italic ((t (:italic t)))) 4942 (message-cited-text-face ((t (:foreground "#dfdfff")))) 4943 (message-header-cc-face ((t (:bold t :foreground "#a0f0a0")))) 4944 (message-header-name-face ((t (:foreground "#c7e3c7")))) 4945 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) 4946 (message-header-other-face ((t (:foreground "#db9b9b")))) 4947 (message-header-subject-face ((t (:foreground "#a0f0a0")))) 4948 (message-header-to-face ((t (:bold t :foreground "#aaffaa")))) 4949 (message-header-xheader-face ((t (:foreground "#e2e2ff")))) 4950 (message-mml-face ((t (:foreground "#abdbab")))) 4951 (message-separator-face ((t (:foreground "#dfdfff")))) 4952 (modeline ((t (:background "White" :foreground "#00005a")))) 4953 (modeline-buffer-id ((t (:background "White" :foreground "#00005a")))) 4954 (modeline-mousable ((t (:background "White" :foreground "#00005a")))) 4955 (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a")))) 4956 (paren-mismatch-face ((t (:background "DeepPink")))) 4957 (paren-no-match-face ((t (:background "yellow")))) 4958 (region ((t (:background "blue")))) 4959 (primary-selection ((t (:background "blue")))) 4960 (isearch ((t (:background "blue")))) 4961 (secondary-selection ((t (:background "darkslateblue")))) 4962 (underline ((t (:underline t)))) 4963 (widget-button-face ((t (:bold t)))) 4964 (widget-button-pressed-face ((t (:foreground "red")))) 4965 (widget-documentation-face ((t (:foreground "lime green")))) 4966 (widget-field-face ((t (:background "dim gray")))) 4967 (widget-inactive-face ((t (:foreground "light gray")))) 4968 (widget-single-line-field-face ((t (:background "dim gray"))))))) 4969 4970 (defun color-theme-high-contrast () 4971 "High contrast color theme, maybe for the visually impaired. 4972 Watch out! This will set a very large font-size! 4973 4974 If you want to modify the font as well, you should customize variable 4975 `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". 4976 The default setting will prevent color themes from installing specific 4977 fonts." 4978 (interactive) 4979 (color-theme-standard) 4980 (let ((color-theme-is-cumulative t)) 4981 (color-theme-install 4982 '(color-theme-high-contrast 4983 ((cursor-color . "red") 4984 (width . 60) 4985 (height . 25) 4986 (background . dark)) 4987 (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 240 :width normal :family "adobe-courier")))) 4988 4989 (bold ((t (:bold t :underline t)))) 4990 (bold-italic ((t (:bold t :underline t)))) 4991 (font-lock-builtin-face ((t (:bold t :foreground "Red")))) 4992 (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) 4993 (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue")))) 4994 (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) 4995 (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) 4996 (font-lock-string-face ((t (:bold t :foreground "DarkGreen")))) 4997 (font-lock-type-face ((t (:bold t :foreground "ForestGreen")))) 4998 (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod")))) 4999 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 5000 (highlight ((t (:background "black" :foreground "white" :bold 1)))) 5001 (info-menu-5 ((t (:underline t :bold t)))) 5002 (info-node ((t (:bold t)))) 5003 (info-xref ((t (:bold t )))) 5004 (italic ((t (:bold t :underline t)))) 5005 (modeline ((t (:background "black" :foreground "white" :bold 1)))) 5006 (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1)))) 5007 (modeline-mousable ((t (:background "black" :foreground "white" :bold 1)))) 5008 (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1)))) 5009 (region ((t (:background "black" :foreground "white" :bold 1)))) 5010 (secondary-selection ((t (:background "black" :foreground "white" :bold 1)))) 5011 (underline ((t (:bold t :underline t)))))))) 5012 5013 (defun color-theme-infodoc () 5014 "Color theme by Frederic Giroud, created 2001-01-18. 5015 Black on wheat scheme. Based on infodoc (xemacs variant distribution), 5016 with my favorit fontlock color." 5017 (interactive) 5018 (color-theme-install 5019 '(color-theme-infodoc 5020 ((background-color . "wheat") 5021 (background-mode . light) 5022 (background-toolbar-color . "#000000000000") 5023 (border-color . "#000000000000") 5024 (bottom-toolbar-shadow-color . "#000000000000") 5025 (cursor-color . "red") 5026 (foreground-color . "black") 5027 (top-toolbar-shadow-color . "#ffffffffffff")) 5028 nil 5029 (default ((t (:bold t)))) 5030 (blue ((t (:bold t :foreground "blue")))) 5031 (bold ((t (:background "wheat" :foreground "black")))) 5032 (bold-italic ((t (:bold t :background "wheat" :foreground "black")))) 5033 (border-glyph ((t (:bold t)))) 5034 (calendar-today-face ((t (:underline t :bold t)))) 5035 (custom-button-face ((t (nil)))) 5036 (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) 5037 (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4")))) 5038 (custom-face-tag-face ((t (:underline t :bold t)))) 5039 (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) 5040 (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red")))) 5041 (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) 5042 (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) 5043 (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) 5044 (custom-saved-face ((t (:underline t :bold t)))) 5045 (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) 5046 (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green")))) 5047 (custom-variable-button-face ((t (:underline t)))) 5048 (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) 5049 (diary-face ((t (:bold t :foreground "red")))) 5050 (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black")))) 5051 (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue")))) 5052 (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green")))) 5053 (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) 5054 (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4")))) 5055 (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4")))) 5056 (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) 5057 (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4")))) 5058 (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3")))) 5059 (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) 5060 (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown")))) 5061 (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate")))) 5062 (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black")))) 5063 (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black")))) 5064 (green ((t (:bold t :foreground "green")))) 5065 (gui-button-face ((t (:bold t :background "wheat" :foreground "red")))) 5066 (gui-element ((t (:bold t :background "wheat" :foreground "black")))) 5067 (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green")))) 5068 (holiday-face ((t (:bold t :background "pink" :foreground "black")))) 5069 (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red")))) 5070 (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80")))) 5071 (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red")))) 5072 (hproperty:item-face ((t (:bold t)))) 5073 (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) 5074 (italic ((t (:bold t :background "wheat" :foreground "black")))) 5075 (left-margin ((t (:bold t :background "wheat" :foreground "black")))) 5076 (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black")))) 5077 (message-cited-text ((t (:bold t :background "wheat" :foreground "brown")))) 5078 (message-header-contents ((t (:bold t :background "wheat" :foreground "black")))) 5079 (message-headers ((t (:bold t :background "wheat" :foreground "black")))) 5080 (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue")))) 5081 (message-url ((t (nil)))) 5082 (modeline ((t (:bold t :background "light salmon" :foreground "dark green")))) 5083 (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4")))) 5084 (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick")))) 5085 (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4")))) 5086 (pointer ((t (:bold t :background "wheat" :foreground "red")))) 5087 (primary-selection ((t (:bold t :background "medium sea green")))) 5088 (red ((t (:bold t :foreground "red")))) 5089 (right-margin ((t (:bold t :background "wheat" :foreground "black")))) 5090 (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black")))) 5091 (shell-input-face ((t (:bold t :background "wheat" :foreground "blue")))) 5092 (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) 5093 (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) 5094 (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) 5095 (shell-output-face ((t (:bold t :background "wheat" :foreground "black")))) 5096 (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) 5097 (text-cursor ((t (:bold t :background "red" :foreground "wheat")))) 5098 (toolbar ((t (:bold t :background "wheat" :foreground "black")))) 5099 (underline ((t (:underline t :bold t :background "wheat" :foreground "black")))) 5100 (vertical-divider ((t (:bold t)))) 5101 (widget-button-face ((t (nil)))) 5102 (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red")))) 5103 (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green")))) 5104 (widget-field-face ((t (:bold t :background "gray85")))) 5105 (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray")))) 5106 (x-face ((t (:bold t :background "wheat" :foreground "black")))) 5107 (yellow ((t (:bold t :foreground "yellow")))) 5108 (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen"))))))) 5109 5110 (defun color-theme-classic () 5111 "Color theme by Frederic Giroud, created 2001-01-18. 5112 AntiqueWhite on darkslategrey scheme. Based on Gnome 2, with my favorit 5113 color foreground-color and fontlock color." 5114 (interactive) 5115 (color-theme-blue-gnus) 5116 (let ((color-theme-is-cumulative t)) 5117 (color-theme-install 5118 '(color-theme-classic 5119 ((foreground-color . "AntiqueWhite") 5120 (background-color . "darkslategrey") 5121 (mouse-color . "Grey") 5122 (cursor-color . "Red") 5123 (border-color . "black") 5124 (background-mode . dark)) 5125 ((apropos-keybinding-face . underline) 5126 (apropos-label-face . italic) 5127 (apropos-match-face . secondary-selection) 5128 (apropos-property-face . bold-italic) 5129 (apropos-symbol-face . info-xref) 5130 (goto-address-mail-face . message-header-to-face) 5131 (goto-address-mail-mouse-face . secondary-selection) 5132 (goto-address-url-face . info-xref) 5133 (goto-address-url-mouse-face . highlight) 5134 (list-matching-lines-face . bold) 5135 (view-highlight-face . highlight)) 5136 (default ((t (nil)))) 5137 (bold ((t (:bold t)))) 5138 (bold-italic ((t (:italic t :bold t :foreground "beige")))) 5139 (calendar-today-face ((t (:underline t)))) 5140 (cperl-array-face ((t (:foreground "Yellow")))) 5141 (cperl-hash-face ((t (:foreground "White")))) 5142 (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) 5143 (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) 5144 (custom-documentation-face ((t (:foreground "Grey")))) 5145 (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) 5146 (custom-state-face ((t (:foreground "LightSalmon")))) 5147 (custom-variable-tag-face ((t (:foreground "Aquamarine")))) 5148 (diary-face ((t (:foreground "IndianRed")))) 5149 (erc-action-face ((t (:bold t)))) 5150 (erc-bold-face ((t (:bold t)))) 5151 (erc-default-face ((t (nil)))) 5152 (erc-direct-msg-face ((t (:foreground "LightSalmon")))) 5153 (erc-error-face ((t (:bold t :foreground "IndianRed")))) 5154 (erc-input-face ((t (:foreground "Beige")))) 5155 (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) 5156 (erc-notice-face ((t (:foreground "MediumAquamarine")))) 5157 (erc-pal-face ((t (:foreground "pale green")))) 5158 (erc-prompt-face ((t (:foreground "MediumAquamarine")))) 5159 (erc-underline-face ((t (:underline t)))) 5160 (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 5161 (eshell-ls-backup-face ((t (:foreground "Grey")))) 5162 (eshell-ls-clutter-face ((t (:foreground "DimGray")))) 5163 (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) 5164 (eshell-ls-executable-face ((t (:foreground "Coral")))) 5165 (eshell-ls-missing-face ((t (:foreground "black")))) 5166 (eshell-ls-picture-face ((t (:foreground "Violet")))) 5167 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 5168 (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) 5169 (eshell-ls-special-face ((t (:foreground "Gold")))) 5170 (eshell-ls-symlink-face ((t (:foreground "White")))) 5171 (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) 5172 (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) 5173 (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) 5174 (font-lock-comment-face ((t (:foreground "tomato3")))) 5175 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 5176 (font-lock-doc-string-face ((t (:foreground "LightSalmon3")))) 5177 (font-lock-function-name-face ((t (:foreground "SteelBlue1")))) 5178 (font-lock-keyword-face ((t (:foreground "cyan1")))) 5179 (font-lock-reference-face ((t (:foreground "LightSalmon2")))) 5180 (font-lock-string-face ((t (:foreground "LightSalmon3")))) 5181 (font-lock-type-face ((t (:foreground "PaleGreen3")))) 5182 (font-lock-variable-name-face ((t (:foreground "khaki1")))) 5183 (font-lock-warning-face ((t (:bold t :foreground "IndianRed")))) 5184 (font-lock-preprocessor-face ((t (:foreground "SkyBlue3")))) 5185 (widget-field-face ((t (:background "DarkCyan")))) 5186 (custom-group-tag-face ((t(:foreground "brown" :underline t)))) 5187 (custom-state-face ((t (:foreground "khaki")))) 5188 (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) 5189 (highline-face ((t (:background "SeaGreen")))) 5190 (holiday-face ((t (:background "DimGray")))) 5191 (info-menu-5 ((t (:underline t)))) 5192 (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) 5193 (info-xref ((t (:underline t :foreground "DodgerBlue1")))) 5194 (isearch ((t (:foreground "red" :background "CornflowerBlue")))) 5195 (italic ((t (:italic t)))) 5196 (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite")))) 5197 (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue")))) 5198 (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) 5199 (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat")))) 5200 (region ((t (:background "dark cyan" :foreground "cyan")))) 5201 (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) 5202 (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) 5203 (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) 5204 (underline ((t (:underline t)))) 5205 (widget-field-face ((t (:foreground "LightBlue")))) 5206 (widget-inactive-face ((t (:foreground "DimGray")))) 5207 (widget-single-line-field-face ((t (:foreground "LightBlue")))) 5208 (woman-bold-face ((t (:bold t)))) 5209 (woman-italic-face ((t (:foreground "beige")))) 5210 (woman-unknown-face ((t (:foreground "LightSalmon")))))))) 5211 5212 (defun color-theme-scintilla () 5213 "Color theme by Gordon Messmer, created 2001-02-07. 5214 Based on the Scintilla editor. 5215 5216 If you want to modify the font as well, you should customize variable 5217 `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". 5218 The default setting will prevent color themes from installing specific 5219 fonts." 5220 (interactive) 5221 (color-theme-install 5222 ;; The light editor style doesn't seem to look right with 5223 ;; the same font that works in the dark editor style. 5224 ;; Dark letters on light background just isn't as visible. 5225 '(color-theme-scintilla 5226 ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1") 5227 (width . 95) 5228 (height . 40) 5229 (background-color . "white") 5230 (foreground-color . "black") 5231 (background-mode . light) 5232 (mouse-color . "grey15") 5233 (cursor-color . "grey15")) 5234 (default ((t nil))) 5235 (font-lock-comment-face ((t (:italic t :foreground "ForestGreen")))) 5236 (font-lock-string-face ((t (:foreground "DarkMagenta")))) 5237 (font-lock-keyword-face ((t (:foreground "NavyBlue")))) 5238 (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) 5239 (font-lock-constant-face ((t (:foreground "Blue")))) 5240 (font-lock-type-face ((t (:foreground "NavyBlue")))) 5241 (font-lock-variable-name-face ((t (:foreground "DarkCyan")))) 5242 (font-lock-function-name-face ((t (:foreground "DarkCyan")))) 5243 (font-lock-builtin-face ((t (:foreground "NavyBlue")))) 5244 (highline-face ((t (:background "Grey95")))) 5245 (show-paren-match-face ((t (:background "Grey80")))) 5246 (region ((t (:background "Grey80")))) 5247 (highlight ((t (:foreground "ForestGreen")))) 5248 (secondary-selection ((t (:background "NavyBlue" :foreground "white")))) 5249 (widget-field-face ((t (:background "NavyBlue")))) 5250 (widget-single-line-field-face ((t (:background "RoyalBlue")))))) ) 5251 5252 (defun color-theme-gtk-ide () 5253 "Color theme by Gordon Messmer, created 2001-02-07. 5254 Inspired by a GTK IDE whose name I've forgotten. 5255 5256 If you want to modify the font as well, you should customize variable 5257 `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". 5258 The default setting will prevent color themes from installing specific 5259 fonts." 5260 ;; The light editor style doesn't seem to look right with 5261 ;; the same font that works in the dark editor style. 5262 ;; Dark letters on light background just isn't as visible. 5263 (interactive) 5264 (color-theme-install 5265 '(color-theme-gtk-ide 5266 ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15") 5267 (width . 95) 5268 (height . 45) 5269 (background-color . "white") 5270 (foreground-color . "black") 5271 (background-mode . light) 5272 (mouse-color . "grey15") 5273 (cursor-color . "grey15")) 5274 (default ((t nil))) 5275 (font-lock-comment-face ((t (:italic t :foreground "grey55")))) 5276 (font-lock-string-face ((t (:foreground "DarkRed")))) 5277 (font-lock-keyword-face ((t (:foreground "DarkBlue")))) 5278 (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) 5279 (font-lock-constant-face ((t (:foreground "OliveDrab")))) 5280 (font-lock-type-face ((t (:foreground "SteelBlue4")))) 5281 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 5282 (font-lock-function-name-face ((t (:foreground "SlateBlue")))) 5283 (font-lock-builtin-face ((t (:foreground "ForestGreen")))) 5284 (highline-face ((t (:background "grey95")))) 5285 (show-paren-match-face ((t (:background "grey80")))) 5286 (region ((t (:background "grey80")))) 5287 (highlight ((t (:background "LightSkyBlue")))) 5288 (secondary-selection ((t (:background "grey55")))) 5289 (widget-field-face ((t (:background "navy")))) 5290 (widget-single-line-field-face ((t (:background "royalblue")))))) ) 5291 5292 (defun color-theme-midnight () 5293 "Color theme by Gordon Messmer, created 2001-02-07. 5294 A color theme inspired by a certain IDE for Windows. It's all from memory, 5295 since I only used that software in college. 5296 5297 If you want to modify the font as well, you should customize variable 5298 `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". 5299 The default setting will prevent color themes from installing specific 5300 fonts." 5301 (interactive) 5302 (color-theme-install 5303 '(color-theme-midnight 5304 ((font . "fixed") 5305 (width . 130) 5306 (height . 50) 5307 (background-color . "black") 5308 (foreground-color . "grey85") 5309 (background-mode . dark) 5310 (mouse-color . "grey85") 5311 (cursor-color . "grey85")) 5312 (default ((t (nil)))) 5313 (font-lock-comment-face ((t (:italic t :foreground "grey60")))) 5314 (font-lock-string-face ((t (:foreground "Magenta")))) 5315 (font-lock-keyword-face ((t (:foreground "Cyan")))) 5316 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 5317 (font-lock-constant-face ((t (:foreground "OliveDrab")))) 5318 (font-lock-type-face ((t (:foreground "DarkCyan")))) 5319 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 5320 (font-lock-function-name-face ((t (:foreground "SlateBlue")))) 5321 (font-lock-builtin-face ((t (:foreground "SkyBlue")))) 5322 (highline-face ((t (:background "grey12")))) 5323 (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t)))) 5324 (show-paren-match-face ((t (:background "grey30")))) 5325 (region ((t (:background "grey15")))) 5326 (highlight ((t (:background "blue")))) 5327 (secondary-selection ((t (:background "navy")))) 5328 (widget-field-face ((t (:background "navy")))) 5329 (widget-single-line-field-face ((t (:background "royalblue")))))) ) 5330 5331 (defun color-theme-jedit-grey () 5332 "Color theme by Gordon Messmer, created 2001-02-07. 5333 Based on a screenshot of jedit. 5334 5335 If you want to modify the font as well, you should customize variable 5336 `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". 5337 The default setting will prevent color themes from installing specific 5338 fonts." 5339 (interactive) 5340 (color-theme-install 5341 '(color-theme-jedit-grey 5342 ((font . "fixed") 5343 (width . 130) 5344 (height . 50) 5345 (background-color . "grey77") 5346 (foreground-color . "black") 5347 (background-mode . light) 5348 (mouse-color . "black") 5349 (cursor-color . "black")) 5350 (default ((t (nil)))) 5351 (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4")))) 5352 (font-lock-string-face ((t (:foreground "Gold4")))) 5353 (font-lock-keyword-face ((t (:bold t :foreground "DarkRed")))) 5354 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 5355 (font-lock-constant-face ((t (:foreground "DarkCyan")))) 5356 (font-lock-type-face ((t (:foreground "DarkRed")))) 5357 (font-lock-function-name-face ((t (:foreground "Green4")))) 5358 (font-lock-builtin-face ((t (:bold t :foreground "DarkRed")))) 5359 (highline-face ((t (:background "grey84")))) 5360 (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t)))) 5361 (show-paren-match-face ((t (:background "grey60")))) 5362 (region ((t (:background "grey70")))) 5363 (highlight ((t (:background "grey90")))) 5364 (secondary-selection ((t (:background "white")))) 5365 (widget-field-face ((t (:background "royalblue")))) 5366 (widget-single-line-field-face ((t (:background "royalblue")))))) ) 5367 5368 (defun color-theme-snow () 5369 "Color theme by Nicolas Rist, created 2001-03-08. 5370 Black on gainsboro. In Emacs, the text background is a shade darker 5371 than the frame background: Gainsboro instead of snow. This makes the 5372 structure of the text clearer without being too agressive on the eyes. 5373 On XEmacs, this doesn't really work as the frame and the default face 5374 allways use the same foreground and background colors. 5375 The color theme includes gnus, message, font-lock, sgml, and speedbar." 5376 (interactive) 5377 (color-theme-install 5378 '(color-theme-snow 5379 ((background-color . "snow2") 5380 (background-mode . light) 5381 (border-color . "black") 5382 (cursor-color . "RoyalBlue2") 5383 (foreground-color . "black") 5384 (mouse-color . "black")) 5385 ((gnus-mouse-face . highlight) 5386 (list-matching-lines-face . bold) 5387 (view-highlight-face . highlight)) 5388 (default ((t (:background "gainsboro" :foreground "dark slate gray")))) 5389 (bold ((t (:bold t)))) 5390 (bold-italic ((t (:italic t :bold t)))) 5391 (calendar-today-face ((t (:underline t)))) 5392 (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan")))) 5393 (custom-documentation-face ((t (:background "gainsboro")))) 5394 (diary-face ((t (:foreground "red")))) 5395 (fg:black ((t (:foreground "black")))) 5396 (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid")))) 5397 (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3")))) 5398 (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3")))) 5399 (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3")))) 5400 (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3")))) 5401 (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3")))) 5402 (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan")))) 5403 (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2")))) 5404 (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red")))) 5405 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 5406 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 5407 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 5408 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 5409 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 5410 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 5411 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 5412 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 5413 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 5414 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 5415 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 5416 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 5417 (gnus-group-news-3-empty-face ((t (nil)))) 5418 (gnus-group-news-3-face ((t (:bold t)))) 5419 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 5420 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 5421 (gnus-splash-face ((t (:foreground "ForestGreen")))) 5422 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 5423 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 5424 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 5425 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 5426 (gnus-summary-high-unread-face ((t (:bold t)))) 5427 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 5428 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 5429 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 5430 (gnus-summary-low-unread-face ((t (:italic t)))) 5431 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 5432 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 5433 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 5434 (gnus-summary-normal-unread-face ((t (nil)))) 5435 (gnus-summary-selected-face ((t (:underline t)))) 5436 (gui-button-face ((t (:foreground "light grey")))) 5437 (highlight ((t (:background "LightSteelBlue1")))) 5438 (holiday-face ((t (:background "pink")))) 5439 (ibuffer-marked-face ((t (:foreground "red")))) 5440 (italic ((t (:italic t)))) 5441 (message-cited-text-face ((t (:foreground "red")))) 5442 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 5443 (message-header-name-face ((t (:foreground "cornflower blue")))) 5444 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 5445 (message-header-other-face ((t (:foreground "steel blue")))) 5446 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 5447 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 5448 (message-header-xheader-face ((t (:foreground "blue")))) 5449 (message-separator-face ((t (:foreground "brown")))) 5450 (modeline ((t (:background "dark slate gray" :foreground "gainsboro")))) 5451 (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro")))) 5452 (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro")))) 5453 (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro")))) 5454 (region ((t (:background "lavender")))) 5455 (secondary-selection ((t (:background "paleturquoise")))) 5456 (sgml-comment-face ((t (:foreground "dark green")))) 5457 (sgml-doctype-face ((t (:foreground "maroon")))) 5458 (sgml-end-tag-face ((t (:foreground "blue2")))) 5459 (sgml-entity-face ((t (:foreground "red2")))) 5460 (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) 5461 (sgml-ms-end-face ((t (:foreground "maroon")))) 5462 (sgml-ms-start-face ((t (:foreground "maroon")))) 5463 (sgml-pi-face ((t (:foreground "maroon")))) 5464 (sgml-sgml-face ((t (:foreground "maroon")))) 5465 (sgml-short-ref-face ((t (:foreground "goldenrod")))) 5466 (sgml-start-tag-face ((t (:foreground "blue2")))) 5467 (show-paren-match-face ((t (:background "SlateGray1")))) 5468 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 5469 (speedbar-button-face ((t (:foreground "green4")))) 5470 (speedbar-directory-face ((t (:foreground "blue4")))) 5471 (speedbar-file-face ((t (:foreground "cyan4")))) 5472 (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white")))) 5473 (speedbar-selected-face ((t (:underline t :foreground "red")))) 5474 (speedbar-tag-face ((t (:foreground "brown")))) 5475 (underline ((t (:underline t))))))) 5476 5477 (defun color-theme-montz () 5478 "Color theme by Brady Montz, created 2001-03-08. 5479 Black on Gray. 5480 Includes dired, bbdb, font-lock, gnus, message, viper, and widget." 5481 (interactive) 5482 (color-theme-install 5483 '(color-theme-montz 5484 ((background-color . "gray80") 5485 (background-mode . light) 5486 (background-toolbar-color . "#cccccccccccc") 5487 (border-color . "#000000000000") 5488 (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") 5489 (cursor-color . "Red3") 5490 (foreground-color . "black") 5491 (top-toolbar-shadow-color . "#f5f5f5f5f5f5") 5492 (viper-saved-cursor-color-in-replace-mode . "Red3")) 5493 ((gnus-mouse-face . highlight) 5494 (paren-match-face . paren-face-match) 5495 (paren-mismatch-face . paren-face-mismatch) 5496 (paren-no-match-face . paren-face-no-match) 5497 (smiley-mouse-face . highlight)) 5498 (default ((t (nil)))) 5499 (bbdb-company ((t (:italic t)))) 5500 (bbdb-field-name ((t (:bold t)))) 5501 (bbdb-field-value ((t (nil)))) 5502 (bbdb-name ((t (:underline t)))) 5503 (blue ((t (:foreground "blue")))) 5504 (bold ((t (:bold t)))) 5505 (bold-italic ((t (:italic t :bold t)))) 5506 (border-glyph ((t (nil)))) 5507 (dired-face-boring ((t (:foreground "Gray65")))) 5508 (dired-face-directory ((t (:bold t)))) 5509 (dired-face-executable ((t (:foreground "SeaGreen")))) 5510 (dired-face-flagged ((t (:background "LightSlateGray")))) 5511 (dired-face-marked ((t (:background "PaleVioletRed")))) 5512 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 5513 (dired-face-setuid ((t (:foreground "Red")))) 5514 (dired-face-socket ((t (:foreground "magenta")))) 5515 (dired-face-symlink ((t (:foreground "cyan")))) 5516 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 5517 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 5518 (display-time-time-balloon-face ((t (:foreground "red")))) 5519 (font-lock-builtin-face ((t (:foreground "red3")))) 5520 (font-lock-comment-face ((t (:foreground "blue")))) 5521 (font-lock-constant-face ((t (:foreground "red3")))) 5522 (font-lock-doc-string-face ((t (:foreground "mediumvioletred")))) 5523 (font-lock-function-name-face ((t (:foreground "firebrick")))) 5524 (font-lock-keyword-face ((t (:bold t :foreground "black")))) 5525 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 5526 (font-lock-reference-face ((t (:foreground "red3")))) 5527 (font-lock-string-face ((t (:foreground "mediumvioletred")))) 5528 (font-lock-type-face ((t (:foreground "darkgreen")))) 5529 (font-lock-variable-name-face ((t (:foreground "black")))) 5530 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 5531 (gnus-cite-attribution-face ((t (:italic t)))) 5532 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 5533 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 5534 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 5535 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 5536 (gnus-cite-face-3 ((t (:foreground "dark green")))) 5537 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 5538 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 5539 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 5540 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 5541 (gnus-cite-face-8 ((t (:foreground "magenta")))) 5542 (gnus-cite-face-9 ((t (:foreground "violet")))) 5543 (gnus-emphasis-bold ((t (:bold t)))) 5544 (gnus-emphasis-bold-italic ((t (:bold t)))) 5545 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 5546 (gnus-emphasis-italic ((t (:italic t)))) 5547 (gnus-emphasis-underline ((t (:underline t)))) 5548 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 5549 (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) 5550 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 5551 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 5552 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 5553 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 5554 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 5555 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 5556 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 5557 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 5558 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 5559 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 5560 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 5561 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 5562 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 5563 (gnus-group-news-3-empty-face ((t (nil)))) 5564 (gnus-group-news-3-face ((t (:bold t)))) 5565 (gnus-group-news-4-empty-face ((t (nil)))) 5566 (gnus-group-news-4-face ((t (:bold t)))) 5567 (gnus-group-news-5-empty-face ((t (nil)))) 5568 (gnus-group-news-5-face ((t (:bold t)))) 5569 (gnus-group-news-6-empty-face ((t (nil)))) 5570 (gnus-group-news-6-face ((t (:bold t)))) 5571 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 5572 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 5573 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 5574 (gnus-header-from-face ((t (:foreground "red3")))) 5575 (gnus-header-name-face ((t (:foreground "maroon")))) 5576 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) 5577 (gnus-header-subject-face ((t (:foreground "red4")))) 5578 (gnus-picons-face ((t (:background "white" :foreground "black")))) 5579 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 5580 (gnus-signature-face ((t (:italic t)))) 5581 (gnus-splash-face ((t (:foreground "Brown")))) 5582 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 5583 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 5584 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 5585 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 5586 (gnus-summary-high-unread-face ((t (:bold t)))) 5587 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 5588 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 5589 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 5590 (gnus-summary-low-unread-face ((t (:italic t)))) 5591 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 5592 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 5593 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 5594 (gnus-summary-normal-unread-face ((t (nil)))) 5595 (gnus-summary-selected-face ((t (:underline t)))) 5596 (gnus-x-face ((t (:background "white" :foreground "black")))) 5597 (green ((t (:foreground "green")))) 5598 (gui-button-face ((t (:background "grey75" :foreground "black")))) 5599 (gui-element ((t (nil)))) 5600 (highlight ((t (:background "darkseagreen2")))) 5601 (info-node ((t (:bold t)))) 5602 (info-xref ((t (:bold t)))) 5603 (isearch ((t (:background "paleturquoise")))) 5604 (italic ((t (:italic t)))) 5605 (left-margin ((t (nil)))) 5606 (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) 5607 (message-cited-text-face ((t (:foreground "red")))) 5608 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 5609 (message-header-name-face ((t (:foreground "cornflower blue")))) 5610 (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) 5611 (message-header-other-face ((t (:foreground "steel blue")))) 5612 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 5613 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 5614 (message-header-xheader-face ((t (:foreground "blue")))) 5615 (message-mml-face ((t (:foreground "ForestGreen")))) 5616 (message-separator-face ((t (:foreground "brown")))) 5617 (modeline ((t (nil)))) 5618 (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) 5619 (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) 5620 (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) 5621 (paren-face-match ((t (:background "turquoise")))) 5622 (paren-face-mismatch ((t (:background "purple" :foreground "white")))) 5623 (paren-face-no-match ((t (:background "yellow" :foreground "black")))) 5624 (pointer ((t (nil)))) 5625 (primary-selection ((t (:background "gray65")))) 5626 (red ((t (:foreground "red")))) 5627 (right-margin ((t (nil)))) 5628 (secondary-selection ((t (:background "paleturquoise")))) 5629 (text-cursor ((t (:background "Red3" :foreground "gray80")))) 5630 (toolbar ((t (nil)))) 5631 (underline ((t (:underline t)))) 5632 (vertical-divider ((t (nil)))) 5633 (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black")))) 5634 (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black")))) 5635 (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black")))) 5636 (viper-replace-overlay-face ((t (:background "black" :foreground "white")))) 5637 (viper-search-face ((t (:background "black" :foreground "white")))) 5638 (widget-button-face ((t (:bold t)))) 5639 (widget-button-pressed-face ((t (:foreground "red")))) 5640 (widget-documentation-face ((t (:foreground "dark green")))) 5641 (widget-field-face ((t (:background "gray85")))) 5642 (widget-inactive-face ((t (:foreground "dim gray")))) 5643 (yellow ((t (:foreground "yellow")))) 5644 (zmacs-region ((t (:background "black" :foreground "white"))))))) 5645 5646 (defun color-theme-aalto-light () 5647 "Color theme by Jari Aalto, created 2001-03-08. 5648 Black on light yellow. 5649 Used for Win32 on a Nokia446Xpro monitor. 5650 Includes cvs, font-lock, gnus, message, sgml, widget" 5651 (interactive) 5652 (color-theme-install 5653 '(color-theme-aalto-light 5654 ((background-color . "#FFFFE0") 5655 (background-mode . light) 5656 (border-color . "black") 5657 (cursor-color . "black") 5658 (foreground-color . "black") 5659 (mouse-color . "LawnGreen")) 5660 ((gnus-mouse-face . highlight) 5661 (list-matching-lines-face . bold) 5662 (tinyreplace-:face . highlight) 5663 (view-highlight-face . highlight)) 5664 (default ((t (nil)))) 5665 (bold ((t (:bold t)))) 5666 (bold-italic ((t (:italic t :bold t)))) 5667 (calendar-today-face ((t (:underline t)))) 5668 (cvs-filename-face ((t (:foreground "blue4")))) 5669 (cvs-handled-face ((t (:foreground "pink")))) 5670 (cvs-header-face ((t (:bold t :foreground "blue4")))) 5671 (cvs-marked-face ((t (:bold t :foreground "green3")))) 5672 (cvs-msg-face ((t (:italic t)))) 5673 (cvs-need-action-face ((t (:foreground "orange")))) 5674 (cvs-unknown-face ((t (:foreground "red")))) 5675 (diary-face ((t (:foreground "red")))) 5676 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 5677 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 5678 (font-lock-builtin-face ((t (:foreground "Orchid")))) 5679 (font-lock-comment-face ((t (:foreground "Firebrick")))) 5680 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 5681 (font-lock-function-name-face ((t (:foreground "Blue")))) 5682 (font-lock-keyword-face ((t (:foreground "Purple")))) 5683 (font-lock-string-face ((t (:foreground "RosyBrown")))) 5684 (font-lock-type-face ((t (:foreground "ForestGreen")))) 5685 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 5686 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 5687 (gnus-emphasis-bold ((t (:bold t)))) 5688 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 5689 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 5690 (gnus-emphasis-italic ((t (:italic t)))) 5691 (gnus-emphasis-underline ((t (:underline t)))) 5692 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 5693 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 5694 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 5695 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 5696 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 5697 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 5698 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 5699 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 5700 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 5701 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 5702 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 5703 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 5704 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 5705 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 5706 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 5707 (gnus-group-news-3-empty-face ((t (nil)))) 5708 (gnus-group-news-3-face ((t (:bold t)))) 5709 (gnus-group-news-4-empty-face ((t (nil)))) 5710 (gnus-group-news-4-face ((t (:bold t)))) 5711 (gnus-group-news-5-empty-face ((t (nil)))) 5712 (gnus-group-news-5-face ((t (:bold t)))) 5713 (gnus-group-news-6-empty-face ((t (nil)))) 5714 (gnus-group-news-6-face ((t (:bold t)))) 5715 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 5716 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 5717 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 5718 (gnus-header-from-face ((t (:foreground "red3")))) 5719 (gnus-header-name-face ((t (:foreground "maroon")))) 5720 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) 5721 (gnus-header-subject-face ((t (:foreground "red4")))) 5722 (gnus-signature-face ((t (:italic t)))) 5723 (gnus-splash-face ((t (:foreground "Brown")))) 5724 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 5725 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 5726 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 5727 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 5728 (gnus-summary-high-unread-face ((t (:bold t)))) 5729 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 5730 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 5731 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 5732 (gnus-summary-low-unread-face ((t (:italic t)))) 5733 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 5734 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 5735 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 5736 (gnus-summary-normal-unread-face ((t (nil)))) 5737 (gnus-summary-selected-face ((t (:underline t)))) 5738 (highlight ((t (:background "darkseagreen2")))) 5739 (holiday-face ((t (:background "pink")))) 5740 (info-menu-5 ((t (:underline t)))) 5741 (info-node ((t (:italic t :bold t)))) 5742 (info-xref ((t (:bold t)))) 5743 (italic ((t (:italic t)))) 5744 (message-cited-text-face ((t (:foreground "red")))) 5745 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 5746 (message-header-name-face ((t (:foreground "cornflower blue")))) 5747 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 5748 (message-header-other-face ((t (:foreground "steel blue")))) 5749 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 5750 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 5751 (message-header-xheader-face ((t (:foreground "blue")))) 5752 (message-mml-face ((t (:foreground "ForestGreen")))) 5753 (message-separator-face ((t (:foreground "brown")))) 5754 (modeline ((t (:background "black" :foreground "white")))) 5755 (modeline-buffer-id ((t (:background "black" :foreground "white")))) 5756 (modeline-mousable ((t (:background "black" :foreground "white")))) 5757 (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) 5758 (region ((t (:background "gray")))) 5759 (secondary-selection ((t (:background "paleturquoise")))) 5760 (sgml-comment-face ((t (:foreground "dark turquoise")))) 5761 (sgml-doctype-face ((t (:foreground "red")))) 5762 (sgml-end-tag-face ((t (:foreground "blue")))) 5763 (sgml-entity-face ((t (:foreground "magenta")))) 5764 (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) 5765 (sgml-ms-end-face ((t (:foreground "green")))) 5766 (sgml-ms-start-face ((t (:foreground "green")))) 5767 (sgml-pi-face ((t (:foreground "lime green")))) 5768 (sgml-sgml-face ((t (:foreground "brown")))) 5769 (sgml-short-ref-face ((t (:foreground "deep sky blue")))) 5770 (sgml-start-tag-face ((t (:foreground "blue")))) 5771 (show-paren-match-face ((t (:background "turquoise")))) 5772 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 5773 (underline ((t (:underline t)))) 5774 (widget-button-face ((t (:bold t)))) 5775 (widget-button-pressed-face ((t (:foreground "red")))) 5776 (widget-documentation-face ((t (:foreground "dark green")))) 5777 (widget-field-face ((t (:background "gray85")))) 5778 (widget-inactive-face ((t (:foreground "dim gray")))) 5779 (widget-single-line-field-face ((t (:background "gray85"))))))) 5780 5781 (defun color-theme-aalto-dark () 5782 "Color theme by Jari Aalto, created 2001-03-08. 5783 White on Deep Sky Blue 3. 5784 Used for Unix Exceed on a Nokia446Xpro monitor. 5785 Includes font-lock, info, and message." 5786 (interactive) 5787 (color-theme-install 5788 '(color-theme-aalto-dark 5789 ((background-color . "DeepSkyBlue3") 5790 (background-mode . dark) 5791 (border-color . "black") 5792 (cursor-color . "yellow") 5793 (foreground-color . "white") 5794 (mouse-color . "black")) 5795 ((ispell-highlight-face . highlight) 5796 (list-matching-lines-face . bold) 5797 (tinyreplace-:face . highlight) 5798 (view-highlight-face . highlight)) 5799 (default ((t (nil)))) 5800 (bold ((t (:bold t :background "blue3" :foreground "white")))) 5801 (bold-italic ((t (:italic t :bold t :foreground "blue3")))) 5802 (calendar-today-face ((t (:underline t)))) 5803 (diary-face ((t (:foreground "red")))) 5804 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 5805 (font-lock-comment-face ((t (:foreground "OrangeRed")))) 5806 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 5807 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 5808 (font-lock-keyword-face ((t (:foreground "Cyan")))) 5809 (font-lock-string-face ((t (:foreground "LightSalmon")))) 5810 (font-lock-type-face ((t (:foreground "PaleGreen")))) 5811 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 5812 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 5813 (highlight ((t (:background "blue3" :foreground "white")))) 5814 (holiday-face ((t (:background "pink")))) 5815 (info-menu-5 ((t (:underline t)))) 5816 (info-node ((t (:italic t :bold t)))) 5817 (info-xref ((t (:bold t)))) 5818 (italic ((t (:italic t :background "gray")))) 5819 (message-cited-text-face ((t (:foreground "red")))) 5820 (message-header-cc-face ((t (:bold t :foreground "green4")))) 5821 (message-header-name-face ((t (:foreground "DarkGreen")))) 5822 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) 5823 (message-header-other-face ((t (:foreground "#b00000")))) 5824 (message-header-subject-face ((t (:foreground "green3")))) 5825 (message-header-to-face ((t (:bold t :foreground "green2")))) 5826 (message-header-xheader-face ((t (:foreground "blue")))) 5827 (message-mml-face ((t (:foreground "ForestGreen")))) 5828 (message-separator-face ((t (:foreground "blue3")))) 5829 (modeline ((t (:background "white" :foreground "DeepSkyBlue3")))) 5830 (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3")))) 5831 (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) 5832 (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) 5833 (region ((t (:background "gray")))) 5834 (secondary-selection ((t (:background "darkslateblue")))) 5835 (show-paren-match-face ((t (:background "turquoise")))) 5836 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 5837 (underline ((t (:underline t))))))) 5838 5839 (defun color-theme-blippblopp () 5840 "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12. 5841 Used by researchers at Uppsala University and the Center for Biological 5842 Sequence Analysis at the Technical University of Denmark. (As some of my 5843 swedish friends couldn't pronounce Sicheritz - they choose to transform 5844 it to something more \"swedish\": Blippblopp :-) 5845 Includes font-lock and message." 5846 (interactive) 5847 (color-theme-install 5848 '(color-theme-blippblopp 5849 ((background-color . "white") 5850 (background-mode . light) 5851 (background-toolbar-color . "#cf3ccf3ccf3c") 5852 (border-color . "#000000000000") 5853 (bottom-toolbar-shadow-color . "#79e77df779e7") 5854 (cursor-color . "Red3") 5855 (foreground-color . "black") 5856 (mouse-color . "black") 5857 (top-toolbar-shadow-color . "#fffffbeeffff") 5858 (viper-saved-cursor-color-in-replace-mode . "Red3")) 5859 ((ispell-highlight-face . highlight)) 5860 (default ((t (nil)))) 5861 (blue ((t (:foreground "blue")))) 5862 (bold ((t (:bold t)))) 5863 (bold-italic ((t (:italic t :bold t)))) 5864 (excerpt ((t (:italic t)))) 5865 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 5866 (fg:black ((t (:foreground "black")))) 5867 (fixed ((t (:bold t)))) 5868 (font-lock-builtin-face ((t (:foreground "red3")))) 5869 (font-lock-comment-face ((t (:foreground "orange")))) 5870 (font-lock-constant-face ((t (:foreground "red3")))) 5871 (font-lock-doc-string-face ((t (:foreground "darkgreen")))) 5872 (font-lock-exit-face ((t (:foreground "green")))) 5873 (font-lock-function-name-face ((t (:bold t :foreground "red")))) 5874 (font-lock-keyword-face ((t (:bold t :foreground "steelblue")))) 5875 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 5876 (font-lock-reference-face ((t (:foreground "red3")))) 5877 (font-lock-string-face ((t (:foreground "green4")))) 5878 (font-lock-type-face ((t (:bold t :foreground "blue")))) 5879 (font-lock-variable-name-face ((t (:foreground "black")))) 5880 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 5881 (green ((t (:foreground "green")))) 5882 (message-cited-text-face ((t (:foreground "red")))) 5883 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 5884 (message-header-name-face ((t (:foreground "cornflower blue")))) 5885 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 5886 (message-header-other-face ((t (:foreground "steel blue")))) 5887 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 5888 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 5889 (message-header-xheader-face ((t (:foreground "blue")))) 5890 (message-mml-face ((t (:foreground "ForestGreen")))) 5891 (message-separator-face ((t (:foreground "brown")))) 5892 (modeline ((t (:background "dimgray" :foreground "lemonchiffon")))) 5893 (modeline-buffer-id ((t (:background "dimgray" :foreground "green3")))) 5894 (modeline-mousable ((t (:background "dimgray" :foreground "orange")))) 5895 (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4")))) 5896 (primary-selection ((t (:background "gray65")))) 5897 (red ((t (:foreground "red")))) 5898 (region ((t (:background "gray65")))) 5899 (secondary-selection ((t (:background "paleturquoise")))) 5900 (show-paren-match-face ((t (:background "turquoise")))) 5901 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 5902 (text-cursor ((t (:background "Red3" :foreground "white")))) 5903 (toolbar ((t (:background "Gray80")))) 5904 (underline ((t (:underline t)))) 5905 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 5906 (vertical-divider ((t (:background "Gray80")))) 5907 (xref-keyword-face ((t (:foreground "blue")))) 5908 (xref-list-pilot-face ((t (:foreground "navy")))) 5909 (xref-list-symbol-face ((t (:foreground "navy")))) 5910 (yellow ((t (:foreground "yellow")))) 5911 (zmacs-region ((t (:background "gray65"))))))) 5912 5913 (defun color-theme-hober (&optional preview) 5914 "Does all sorts of crazy stuff. 5915 Originally based on color-theme-standard, so I probably still have some 5916 setting that I haven't changed. I also liberally copied settings from 5917 the other themes in this package. The end result isn't much like the 5918 other ones; I hope you like it." 5919 (interactive) 5920 (color-theme-install 5921 '(color-theme-hober 5922 ((foreground-color . "#c0c0c0") 5923 (background-color . "black") 5924 (mouse-color . "black") 5925 (cursor-color . "medium turquoise") 5926 (border-color . "black") 5927 (background-mode . dark)) 5928 (default ((t (nil)))) 5929 (modeline ((t (:foreground "white" :background "darkslateblue")))) 5930 (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue")))) 5931 (modeline-mousable ((t (:foreground "white" :background "darkslateblue")))) 5932 (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue")))) 5933 (highlight ((t (:foreground "black" :background "#c0c0c0")))) 5934 (bold ((t (:bold t)))) 5935 (italic ((t (:italic t)))) 5936 (bold-italic ((t (:bold t :italic t)))) 5937 (region ((t (:foreground "white" :background "darkslateblue")))) 5938 (zmacs-region ((t (:foreground "white" :background "darkslateblue")))) 5939 (secondary-selection ((t (:background "paleturquoise")))) 5940 (underline ((t (:underline t)))) 5941 (diary-face ((t (:foreground "red")))) 5942 (calendar-today-face ((t (:underline t)))) 5943 (holiday-face ((t (:background "pink")))) 5944 (widget-documentation-face ((t (:foreground "dark green" :background "white")))) 5945 (widget-button-face ((t (:bold t)))) 5946 (widget-button-pressed-face ((t (:foreground "red" :background "black")))) 5947 (widget-field-face ((t (:background "gray85" :foreground "black")))) 5948 (widget-single-line-field-face ((t (:background "gray85" :foreground "black")))) 5949 (widget-inactive-face ((t (:foreground "dim gray" :background "red")))) 5950 (fixed ((t (:bold t)))) 5951 (excerpt ((t (:italic t)))) 5952 (term-default-fg ((t (nil)))) 5953 (term-default-bg ((t (nil)))) 5954 (term-default-fg-inv ((t (nil)))) 5955 (term-default-bg-inv ((t (nil)))) 5956 (term-bold ((t (:bold t)))) 5957 (term-underline ((t (:underline t)))) 5958 (term-invisible ((t (nil)))) 5959 (term-invisible-inv ((t (nil)))) 5960 (term-white ((t (:foreground "#c0c0c0")))) 5961 (term-whitebg ((t (:background "#c0c0c0")))) 5962 (term-black ((t (:foreground "black")))) 5963 (term-blackbg ((t (:background "black")))) 5964 (term-red ((t (:foreground "#ef8171")))) 5965 (term-redbg ((t (:background "#ef8171")))) 5966 (term-green ((t (:foreground "#e5f779")))) 5967 (term-greenbg ((t (:background "#e5f779")))) 5968 (term-yellow ((t (:foreground "#fff796")))) 5969 (term-yellowbg ((t (:background "#fff796")))) 5970 (term-blue ((t (:foreground "#4186be")))) 5971 (term-bluebg ((t (:background "#4186be")))) 5972 (term-magenta ((t (:foreground "#ef9ebe")))) 5973 (term-magentabg ((t (:background "#ef9ebe")))) 5974 (term-cyan ((t (:foreground "#71bebe")))) 5975 (term-cyanbg ((t (:background "#71bebe")))) 5976 (font-lock-keyword-face ((t (:foreground "#00ffff")))) 5977 (font-lock-comment-face ((t (:foreground "Red")))) 5978 (font-lock-string-face ((t (:foreground "#ffff00")))) 5979 (font-lock-constant-face ((t (:foreground "#00ff00")))) 5980 (font-lock-builtin-face ((t (:foreground "#ffaa00")))) 5981 (font-lock-type-face ((t (:foreground "Coral")))) 5982 (font-lock-warning-face ((t (:foreground "Red" :bold t)))) 5983 (font-lock-function-name-face ((t (:foreground "#4186be")))) 5984 (font-lock-variable-name-face ((t (:foreground "white" :bold t)))) 5985 (message-header-to-face ((t (:foreground "#4186be" :bold t)))) 5986 (message-header-cc-face ((t (:foreground "#4186be")))) 5987 (message-header-subject-face ((t (:foreground "#4186be" :bold t)))) 5988 (message-header-newsgroups-face ((t (:foreground "Coral" :bold t)))) 5989 (message-header-other-face ((t (:foreground "steel blue")))) 5990 (message-header-name-face ((t (:foreground "white")))) 5991 (message-header-xheader-face ((t (:foreground "blue")))) 5992 (message-separator-face ((t (:foreground "brown")))) 5993 (message-cited-text-face ((t (:foreground "white")))) 5994 (gnus-header-from-face ((t (:foreground "Coral")))) 5995 (gnus-header-subject-face ((t (:foreground "#4186be")))) 5996 (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t)))) 5997 (gnus-header-name-face ((t (:foreground "white")))) 5998 (gnus-header-content-face ((t (:foreground "#4186be" :italic t)))) 5999 (gnus-cite-attribution-face ((t (:italic t)))) 6000 (gnus-cite-face-list ((t (:bold nil :foreground "red")))) 6001 (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) 6002 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 6003 (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) 6004 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 6005 (gnus-group-news-3-face ((t (:bold t)))) 6006 (gnus-group-news-3-empty-face ((t (nil)))) 6007 (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) 6008 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 6009 (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) 6010 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 6011 (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) 6012 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 6013 (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) 6014 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 6015 (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) 6016 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 6017 (gnus-summary-selected-face ((t (:underline t)))) 6018 (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) 6019 (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) 6020 (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) 6021 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 6022 (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) 6023 (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) 6024 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 6025 (gnus-summary-high-unread-face ((t (:bold t)))) 6026 (gnus-summary-low-unread-face ((t (:italic t)))) 6027 (gnus-summary-normal-unread-face ((t (nil)))) 6028 (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) 6029 (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) 6030 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 6031 (gnus-splash-face ((t (:foreground "ForestGreen")))) 6032 (gnus-emphasis-bold ((t (:bold t)))) 6033 (gnus-emphasis-italic ((t (:italic t)))) 6034 (gnus-emphasis-underline ((t (:underline t)))) 6035 (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) 6036 (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) 6037 (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) 6038 (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) 6039 (gnus-signature-face ((t (:foreground "white")))) 6040 (gnus-cite-face-1 ((t (:foreground "Khaki")))) 6041 (gnus-cite-face-2 ((t (:foreground "Coral")))) 6042 (gnus-cite-face-3 ((t (:foreground "#4186be")))) 6043 (gnus-cite-face-4 ((t (:foreground "yellow green")))) 6044 (gnus-cite-face-5 ((t (:foreground "IndianRed")))) 6045 (highlight-changes-face ((t (:foreground "red")))) 6046 (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) 6047 (show-paren-match-face ((t (:foreground "white" :background "purple")))) 6048 (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) 6049 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 6050 (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2")))) 6051 (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2")))) 6052 (makefile-space-face ((t (:background "hotpink")))) 6053 (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) 6054 (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) 6055 (sgml-doctype-face ((t (:foreground "orange")))) 6056 (sgml-sgml-face ((t (:foreground "yellow")))) 6057 (sgml-end-tag-face ((t (:foreground "greenyellow")))) 6058 (sgml-entity-face ((t (:foreground "gold")))) 6059 (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) 6060 (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))))) 6061 6062 (defun color-theme-bharadwaj () 6063 "Color theme by Girish Bharadwaj, created 2001-03-28. 6064 Black on gainsboro. Includes BBDB, custom, cperl, cvs, dired, ediff, 6065 erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml, 6066 shell, speedbar, term, vhdl, viper, widget, woman, xref. Wow!" 6067 (interactive) 6068 (color-theme-install 6069 '(color-theme-bharadwaj 6070 ((background-color . "gainsboro") 6071 (background-mode . light) 6072 (background-toolbar-color . "#cf3ccf3ccf3c") 6073 (border-color . "black") 6074 (bottom-toolbar-shadow-color . "#79e77df779e7") 6075 (cursor-color . "grey15") 6076 (foreground-color . "black") 6077 (mouse-color . "grey15") 6078 (top-toolbar-shadow-color . "#fffffbeeffff") 6079 (viper-saved-cursor-color-in-replace-mode . "Red3")) 6080 ((gnus-mouse-face . highlight) 6081 (smiley-mouse-face . highlight)) 6082 (default ((t (nil)))) 6083 (bbdb-company ((t (nil)))) 6084 (bbdb-field-name ((t (:bold t)))) 6085 (bbdb-field-value ((t (nil)))) 6086 (bbdb-name ((t (:underline t)))) 6087 (blank-space-face ((t (nil)))) 6088 (blank-tab-face ((t (nil)))) 6089 (blue ((t (nil)))) 6090 (bold ((t (:bold t)))) 6091 (bold-italic ((t (:bold t)))) 6092 (border-glyph ((t (nil)))) 6093 (calendar-today-face ((t (:underline t)))) 6094 (comint-input-face ((t (:foreground "deepskyblue")))) 6095 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) 6096 (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red")))) 6097 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 6098 (custom-button-face ((t (:bold t)))) 6099 (custom-changed-face ((t (:background "blue" :foreground "white")))) 6100 (custom-documentation-face ((t (nil)))) 6101 (custom-face-tag-face ((t (:underline t)))) 6102 (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) 6103 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 6104 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 6105 (custom-modified-face ((t (:background "blue" :foreground "white")))) 6106 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 6107 (custom-saved-face ((t (:underline t)))) 6108 (custom-set-face ((t (:background "white" :foreground "blue")))) 6109 (custom-state-face ((t (:foreground "dark green")))) 6110 (custom-variable-button-face ((t (:underline t :bold t)))) 6111 (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) 6112 (cvs-filename-face ((t (:foreground "blue4")))) 6113 (cvs-handled-face ((t (:foreground "pink")))) 6114 (cvs-header-face ((t (:bold t :foreground "blue4")))) 6115 (cvs-marked-face ((t (:bold t :foreground "green3")))) 6116 (cvs-msg-face ((t (nil)))) 6117 (cvs-need-action-face ((t (:foreground "orange")))) 6118 (cvs-unknown-face ((t (:foreground "red")))) 6119 (diary-face ((t (:bold t :foreground "red")))) 6120 (dired-face-boring ((t (:foreground "Gray65")))) 6121 (dired-face-directory ((t (:bold t :foreground "forestgreen")))) 6122 (dired-face-executable ((t (:foreground "indianred")))) 6123 (dired-face-flagged ((t (:background "SlateGray")))) 6124 (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) 6125 (dired-face-permissions ((t (nil)))) 6126 (dired-face-setuid ((t (:foreground "Red")))) 6127 (dired-face-socket ((t (:foreground "magenta")))) 6128 (dired-face-symlink ((t (:foreground "grey95")))) 6129 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 6130 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 6131 (display-time-time-balloon-face ((t (:foreground "red")))) 6132 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 6133 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 6134 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 6135 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 6136 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 6137 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 6138 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 6139 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 6140 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 6141 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 6142 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 6143 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 6144 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 6145 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 6146 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 6147 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 6148 (erc-action-face ((t (:bold t)))) 6149 (erc-bold-face ((t (:bold t)))) 6150 (erc-default-face ((t (nil)))) 6151 (erc-direct-msg-face ((t (nil)))) 6152 (erc-error-face ((t (:bold t)))) 6153 (erc-input-face ((t (nil)))) 6154 (erc-inverse-face ((t (nil)))) 6155 (erc-notice-face ((t (nil)))) 6156 (erc-pal-face ((t (nil)))) 6157 (erc-prompt-face ((t (nil)))) 6158 (erc-underline-face ((t (nil)))) 6159 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) 6160 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 6161 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 6162 (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) 6163 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) 6164 (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) 6165 (eshell-ls-picture-face ((t (nil)))) 6166 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 6167 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 6168 (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) 6169 (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) 6170 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 6171 (eshell-prompt-face ((t (:bold t :foreground "Red")))) 6172 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 6173 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 6174 (excerpt ((t (nil)))) 6175 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 6176 (fg:black ((t (:foreground "black")))) 6177 (fixed ((t (:bold t)))) 6178 (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) 6179 (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) 6180 (font-latex-bold-face ((t (nil)))) 6181 (font-latex-italic-face ((t (nil)))) 6182 (font-latex-math-face ((t (nil)))) 6183 (font-latex-sedate-face ((t (nil)))) 6184 (font-latex-string-face ((t (nil)))) 6185 (font-latex-warning-face ((t (nil)))) 6186 (font-lock-builtin-face ((t (:foreground "ForestGreen")))) 6187 (font-lock-comment-face ((t (:foreground "grey55")))) 6188 (font-lock-constant-face ((t (:foreground "OliveDrab")))) 6189 (font-lock-doc-string-face ((t (:bold t :foreground "blue4")))) 6190 (font-lock-exit-face ((t (nil)))) 6191 (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue")))) 6192 (font-lock-keyword-face ((t (:foreground "DarkBlue")))) 6193 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 6194 (font-lock-reference-face ((t (:foreground "red3")))) 6195 (font-lock-string-face ((t (:foreground "DarkRed")))) 6196 (font-lock-type-face ((t (:foreground "SteelBlue4")))) 6197 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 6198 (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) 6199 (fringe ((t (:background "grey95")))) 6200 (gnus-cite-attribution-face ((t (:bold t)))) 6201 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 6202 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 6203 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 6204 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 6205 (gnus-cite-face-3 ((t (:foreground "dark green")))) 6206 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 6207 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 6208 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 6209 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 6210 (gnus-cite-face-8 ((t (:foreground "magenta")))) 6211 (gnus-cite-face-9 ((t (:foreground "violet")))) 6212 (gnus-emphasis-bold ((t (:bold t)))) 6213 (gnus-emphasis-bold-italic ((t (:bold t)))) 6214 (gnus-emphasis-highlight-words ((t (nil)))) 6215 (gnus-emphasis-italic ((t (nil)))) 6216 (gnus-emphasis-underline ((t (:underline t)))) 6217 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 6218 (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) 6219 (gnus-emphasis-underline-italic ((t (:underline t)))) 6220 (gnus-filterhist-face-1 ((t (nil)))) 6221 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 6222 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 6223 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 6224 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 6225 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 6226 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 6227 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 6228 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 6229 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 6230 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 6231 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 6232 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 6233 (gnus-group-news-3-empty-face ((t (nil)))) 6234 (gnus-group-news-3-face ((t (:bold t)))) 6235 (gnus-group-news-4-empty-face ((t (nil)))) 6236 (gnus-group-news-4-face ((t (:bold t)))) 6237 (gnus-group-news-5-empty-face ((t (nil)))) 6238 (gnus-group-news-5-face ((t (:bold t)))) 6239 (gnus-group-news-6-empty-face ((t (nil)))) 6240 (gnus-group-news-6-face ((t (:bold t)))) 6241 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 6242 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 6243 (gnus-header-content-face ((t (:foreground "indianred4")))) 6244 (gnus-header-from-face ((t (:bold t :foreground "red3")))) 6245 (gnus-header-name-face ((t (:bold t :foreground "maroon")))) 6246 (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue")))) 6247 (gnus-header-subject-face ((t (:bold t :foreground "red4")))) 6248 (gnus-picons-face ((t (:background "white" :foreground "black")))) 6249 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 6250 (gnus-signature-face ((t (nil)))) 6251 (gnus-splash ((t (nil)))) 6252 (gnus-splash-face ((t (:foreground "ForestGreen")))) 6253 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 6254 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 6255 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 6256 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 6257 (gnus-summary-high-unread-face ((t (:bold t)))) 6258 (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) 6259 (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) 6260 (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick")))) 6261 (gnus-summary-low-unread-face ((t (nil)))) 6262 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 6263 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 6264 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) 6265 (gnus-summary-normal-unread-face ((t (:bold t)))) 6266 (gnus-summary-selected-face ((t (:underline t)))) 6267 (gnus-x-face ((t (:background "white" :foreground "black")))) 6268 (green ((t (nil)))) 6269 (gui-button-face ((t (:background "grey75")))) 6270 (gui-element ((t (:background "Gray80")))) 6271 (highlight ((t (:background "LightSkyBlue")))) 6272 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 6273 (highlight-changes-face ((t (:foreground "red")))) 6274 (highline-face ((t (:background "grey95")))) 6275 (holiday-face ((t (:background "pink")))) 6276 (html-helper-italic-face ((t (nil)))) 6277 (info-menu-5 ((t (:underline t)))) 6278 (info-node ((t (:bold t)))) 6279 (info-xref ((t (:bold t)))) 6280 (isearch ((t (:background "yellow")))) 6281 (isearch-secondary ((t (:foreground "red3")))) 6282 (italic ((t (nil)))) 6283 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 6284 (left-margin ((t (nil)))) 6285 (linemenu-face ((t (nil)))) 6286 (list-mode-item-selected ((t (nil)))) 6287 (makefile-space-face ((t (:background "hotpink")))) 6288 (message-cited-text-face ((t (:foreground "red")))) 6289 (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) 6290 (message-header-name-face ((t (:foreground "cornflower blue")))) 6291 (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) 6292 (message-header-other-face ((t (:foreground "steel blue")))) 6293 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 6294 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 6295 (message-header-xheader-face ((t (:foreground "blue")))) 6296 (message-mml-face ((t (:bold t)))) 6297 (message-separator-face ((t (:foreground "brown")))) 6298 (modeline ((t (:background "white" :foreground "black")))) 6299 (modeline-buffer-id ((t (:background "white" :foreground "black")))) 6300 (modeline-mousable ((t (:background "white" :foreground "black")))) 6301 (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) 6302 (paren-blink-off ((t (:foreground "gray80")))) 6303 (paren-face-match ((t (:background "turquoise")))) 6304 (paren-face-mismatch ((t (:background "purple" :foreground "white")))) 6305 (paren-face-no-match ((t (:background "yellow" :foreground "black")))) 6306 (paren-match ((t (:background "darkseagreen2")))) 6307 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 6308 (paren-mismatch-face ((t (:bold t)))) 6309 (paren-no-match-face ((t (:bold t)))) 6310 (pointer ((t (nil)))) 6311 (primary-selection ((t (nil)))) 6312 (red ((t (nil)))) 6313 (region ((t (:background "grey80")))) 6314 (right-margin ((t (nil)))) 6315 (secondary-selection ((t (:background "grey55")))) 6316 (sgml-comment-face ((t (:foreground "dark turquoise")))) 6317 (sgml-doctype-face ((t (nil)))) 6318 (sgml-end-tag-face ((t (nil)))) 6319 (sgml-entity-face ((t (nil)))) 6320 (sgml-ignored-face ((t (nil)))) 6321 (sgml-ms-end-face ((t (:foreground "green")))) 6322 (sgml-ms-start-face ((t (:foreground "green")))) 6323 (sgml-pi-face ((t (:foreground "lime green")))) 6324 (sgml-sgml-face ((t (nil)))) 6325 (sgml-short-ref-face ((t (:foreground "deep sky blue")))) 6326 (sgml-start-tag-face ((t (nil)))) 6327 (shell-option-face ((t (:foreground "blue")))) 6328 (shell-output-2-face ((t (:foreground "darkseagreen")))) 6329 (shell-output-3-face ((t (:foreground "slategrey")))) 6330 (shell-output-face ((t (:foreground "palegreen")))) 6331 (shell-prompt-face ((t (:foreground "red")))) 6332 (show-paren-match-face ((t (:background "grey80")))) 6333 (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) 6334 (speedbar-button-face ((t (:bold t :foreground "green4")))) 6335 (speedbar-directory-face ((t (:bold t :foreground "blue4")))) 6336 (speedbar-file-face ((t (:bold t :foreground "cyan4")))) 6337 (speedbar-highlight-face ((t (:background "green")))) 6338 (speedbar-selected-face ((t (:underline t :foreground "red")))) 6339 (speedbar-tag-face ((t (:foreground "brown")))) 6340 (swbuff-current-buffer-face ((t (:bold t)))) 6341 (template-message-face ((t (:bold t)))) 6342 (term-black ((t (:foreground "black")))) 6343 (term-blackbg ((t (:background "black")))) 6344 (term-blue ((t (:foreground "blue")))) 6345 (term-bluebg ((t (:background "blue")))) 6346 (term-bold ((t (:bold t)))) 6347 (term-cyan ((t (:foreground "cyan")))) 6348 (term-cyanbg ((t (:background "cyan")))) 6349 (term-default-bg ((t (nil)))) 6350 (term-default-bg-inv ((t (nil)))) 6351 (term-default-fg ((t (nil)))) 6352 (term-default-fg-inv ((t (nil)))) 6353 (term-green ((t (:foreground "green")))) 6354 (term-greenbg ((t (:background "green")))) 6355 (term-invisible ((t (nil)))) 6356 (term-invisible-inv ((t (nil)))) 6357 (term-magenta ((t (:foreground "magenta")))) 6358 (term-magentabg ((t (:background "magenta")))) 6359 (term-red ((t (:foreground "red")))) 6360 (term-redbg ((t (:background "red")))) 6361 (term-underline ((t (:underline t)))) 6362 (term-white ((t (:foreground "white")))) 6363 (term-whitebg ((t (:background "white")))) 6364 (term-yellow ((t (:foreground "yellow")))) 6365 (term-yellowbg ((t (:background "yellow")))) 6366 (text-cursor ((t (:background "grey15" :foreground "gainsboro")))) 6367 (toolbar ((t (nil)))) 6368 (underline ((t (:underline t)))) 6369 (vc-annotate-face-0046FF ((t (nil)))) 6370 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 6371 (vertical-divider ((t (nil)))) 6372 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 6373 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 6374 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 6375 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 6376 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 6377 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 6378 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 6379 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 6380 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 6381 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 6382 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 6383 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 6384 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 6385 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 6386 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 6387 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 6388 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) 6389 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 6390 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 6391 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 6392 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 6393 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 6394 (vvb-face ((t (:background "pink" :foreground "black")))) 6395 (widget-button-face ((t (:bold t)))) 6396 (widget-button-pressed-face ((t (:foreground "red")))) 6397 (widget-documentation-face ((t (:foreground "dark green")))) 6398 (widget-field-face ((t (:background "navy" :foreground "white")))) 6399 (widget-inactive-face ((t (:foreground "dim gray")))) 6400 (widget-single-line-field-face ((t (:background "royalblue" :foreground "white")))) 6401 (woman-bold-face ((t (:bold t)))) 6402 (woman-italic-face ((t (nil)))) 6403 (woman-unknown-face ((t (nil)))) 6404 (xref-keyword-face ((t (:foreground "blue")))) 6405 (xref-list-pilot-face ((t (:foreground "navy")))) 6406 (xref-list-symbol-face ((t (:foreground "navy")))) 6407 (yellow ((t (nil)))) 6408 (zmacs-region ((t (:background "royalblue"))))))) 6409 6410 (defun color-theme-oswald () 6411 "Color theme by Tom Oswald, created 2001-04-18. 6412 Green on black, includes font-lock, show-paren, and ediff." 6413 (interactive) 6414 (color-theme-install 6415 '(color-theme-oswald 6416 ((background-color . "black") 6417 (background-mode . dark) 6418 (border-color . "black") 6419 (cursor-color . "black") 6420 (foreground-color . "green") 6421 (mouse-color . "black")) 6422 ((blank-space-face . blank-space-face) 6423 (blank-tab-face . blank-tab-face) 6424 (list-matching-lines-face . bold) 6425 (view-highlight-face . highlight)) 6426 (default ((t (nil)))) 6427 (blank-space-face ((t (:background "LightGray")))) 6428 (blank-tab-face ((t (:background "green" :foreground "black")))) 6429 (bold ((t (:bold t)))) 6430 (bold-italic ((t (:italic t :bold t)))) 6431 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 6432 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 6433 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 6434 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 6435 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 6436 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 6437 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 6438 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 6439 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 6440 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 6441 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 6442 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 6443 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 6444 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 6445 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 6446 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 6447 (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) 6448 (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4")))) 6449 (font-lock-constant-face ((t (:italic t :foreground "HotPink")))) 6450 (font-lock-doc-string-face ((t (:italic t :foreground "orange")))) 6451 (font-lock-function-name-face ((t (:italic t :bold t :foreground "red")))) 6452 (font-lock-keyword-face ((t (:foreground "red")))) 6453 (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink")))) 6454 (font-lock-string-face ((t (:italic t :foreground "orange")))) 6455 (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) 6456 (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue")))) 6457 (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod")))) 6458 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 6459 (highlight ((t (:background "yellow" :foreground "red")))) 6460 (isearch ((t (:background "dim gray" :foreground "aquamarine")))) 6461 (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow")))) 6462 (italic ((t (:italic t)))) 6463 (modeline ((t (:background "green" :foreground "black")))) 6464 (modeline-buffer-id ((t (:background "green" :foreground "black")))) 6465 (modeline-mousable ((t (:background "green" :foreground "black")))) 6466 (modeline-mousable-minor-mode ((t (:background "green" :foreground "black")))) 6467 (region ((t (:background "dim gray" :foreground "aquamarine")))) 6468 (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod")))) 6469 (show-paren-match-face ((t (:background "turquoise" :foreground "black")))) 6470 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 6471 (underline ((t (:underline t)))) 6472 (zmacs-region ((t (:background "dim gray" :foreground "aquamarine"))))))) 6473 6474 (defun color-theme-salmon-diff () 6475 "Salmon and aquamarine faces for diff and change-log modes. 6476 This is intended for other color themes to use (eg. `color-theme-gnome2')." 6477 (color-theme-install 6478 '(color-theme-salmon-diff 6479 nil 6480 (change-log-acknowledgement-face ((t (:foreground "LightBlue")))) 6481 (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine")))) 6482 (change-log-date-face ((t (:foreground "LightSalmon")))) 6483 (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine")))) 6484 (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine")))) 6485 (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine")))) 6486 (change-log-list-face ((t (:foreground "Salmon")))) 6487 (change-log-name-face ((t (:foreground "Aquamarine")))) 6488 (diff-added-face ((t (nil)))) 6489 (diff-changed-face ((t (nil)))) 6490 (diff-context-face ((t (:foreground "grey70")))) 6491 (diff-file-header-face ((t (:bold t)))) 6492 (diff-function-face ((t (:foreground "grey70")))) 6493 (diff-header-face ((t (:foreground "light salmon")))) 6494 (diff-hunk-header-face ((t (:foreground "light salmon")))) 6495 (diff-index-face ((t (:bold t)))) 6496 (diff-nonexistent-face ((t (:bold t)))) 6497 (diff-removed-face ((t (nil)))) 6498 (log-view-message-face ((t (:foreground "light salmon"))))))) 6499 6500 (defun color-theme-robin-hood () 6501 "`color-theme-gnome2' with navajo white on green. 6502 This theme tries to avoid underlined and italic faces, because 6503 the fonts either look ugly, or do not exist. The author himself 6504 uses neep, for example." 6505 (interactive) 6506 (color-theme-gnome2) 6507 (let ((color-theme-is-cumulative t)) 6508 (color-theme-install 6509 '(color-theme-robin-hood 6510 ((foreground-color . "navajo white") 6511 (background-color . "#304020")) 6512 ((CUA-mode-read-only-cursor-color . "white") 6513 (help-highlight-face . info-xref) 6514 (list-matching-lines-buffer-name-face . bold)) 6515 (default ((t (nil)))) 6516 (button ((t (:bold t)))) 6517 (calendar-today-face ((t (:foreground "lemon chiffon")))) 6518 (custom-button-face ((t (:bold t :foreground "DodgerBlue1")))) 6519 (diary-face ((t (:bold t :foreground "yellow")))) 6520 (fringe ((t (:background "#003700")))) 6521 (header-line ((t (:background "#030" :foreground "#AA7")))) 6522 (holiday-face ((t (:bold t :foreground "peru")))) 6523 (ido-subdir-face ((t (:foreground "MediumSlateBlue")))) 6524 (isearch ((t (:foreground "pink" :background "red")))) 6525 (isearch-lazy-highlight-face ((t (:foreground "red")))) 6526 (menu ((t (:background "#304020" :foreground "navajo white")))) 6527 (minibuffer-prompt ((t (:foreground "pale green")))) 6528 (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button))))) 6529 (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button))))) 6530 (semantic-dirty-token-face ((t (:background "grey22")))) 6531 (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button))))) 6532 (tooltip ((t (:background "lemon chiffon" :foreground "black")))))))) 6533 6534 (defun color-theme-snowish () 6535 "Color theme by Girish Bharadwaj, created 2001-05-17. 6536 Dark slate gray on snow2, lots of blue colors. 6537 Includes custom, eshell, font-lock, gnus, html-helper, 6538 hyper-apropos, jde, message, paren, semantic, speedbar, 6539 term, widget." 6540 (interactive) 6541 (color-theme-install 6542 '(color-theme-snowish 6543 ((background-color . "snow2") 6544 (background-mode . light) 6545 (cursor-color . "Red3") 6546 (foreground-color . "darkslategray")) 6547 ((buffers-tab-face . buffers-tab) 6548 (gnus-mouse-face . highlight) 6549 (sgml-set-face . t) 6550 (smiley-mouse-face . highlight)) 6551 (default ((t (nil)))) 6552 (blue ((t (:foreground "blue")))) 6553 (bold ((t (:bold t :foreground "peru")))) 6554 (bold-italic ((t (:italic t :bold t)))) 6555 (border-glyph ((t (nil)))) 6556 (buffers-tab ((t (:background "snow2" :foreground "darkslategray")))) 6557 (custom-button-face ((t (:bold t)))) 6558 (custom-changed-face ((t (:background "blue" :foreground "white")))) 6559 (custom-comment-face ((t (:background "gray85")))) 6560 (custom-comment-tag-face ((t (:foreground "blue4")))) 6561 (custom-documentation-face ((t (nil)))) 6562 (custom-face-tag-face ((t (:underline t)))) 6563 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 6564 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 6565 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 6566 (custom-modified-face ((t (:background "blue" :foreground "white")))) 6567 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 6568 (custom-saved-face ((t (:underline t)))) 6569 (custom-set-face ((t (:background "white" :foreground "blue")))) 6570 (custom-state-face ((t (:foreground "dark green")))) 6571 (custom-variable-button-face ((t (:underline t :bold t)))) 6572 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 6573 (cyan ((t (:foreground "cyan")))) 6574 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 6575 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 6576 (display-time-time-balloon-face ((t (:foreground "red")))) 6577 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) 6578 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 6579 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 6580 (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) 6581 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) 6582 (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) 6583 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 6584 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 6585 (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) 6586 (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan")))) 6587 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 6588 (eshell-prompt-face ((t (:bold t :foreground "Red")))) 6589 (font-lock-builtin-face ((t (:underline t :foreground "blue")))) 6590 (font-lock-comment-face ((t (:foreground "snow4")))) 6591 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 6592 (font-lock-doc-string-face ((t (:foreground "mediumblue")))) 6593 (font-lock-function-name-face ((t (:bold t :foreground "darkblue")))) 6594 (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue")))) 6595 (font-lock-preprocessor-face ((t (:underline t :foreground "blue3")))) 6596 (font-lock-reference-face ((t (:foreground "red3")))) 6597 (font-lock-string-face ((t (:foreground "darkviolet")))) 6598 (font-lock-type-face ((t (:foreground "goldenrod")))) 6599 (font-lock-variable-name-face ((t (:foreground "tomato")))) 6600 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 6601 (gnus-cite-attribution-face ((t (nil)))) 6602 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 6603 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 6604 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 6605 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 6606 (gnus-cite-face-3 ((t (:foreground "dark green")))) 6607 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 6608 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 6609 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 6610 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 6611 (gnus-cite-face-8 ((t (:foreground "magenta")))) 6612 (gnus-cite-face-9 ((t (:foreground "violet")))) 6613 (gnus-emphasis-bold ((t (:bold t)))) 6614 (gnus-emphasis-bold-italic ((t (nil)))) 6615 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 6616 (gnus-emphasis-italic ((t (nil)))) 6617 (gnus-emphasis-underline ((t (:underline t)))) 6618 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 6619 (gnus-emphasis-underline-bold-italic ((t (:underline t)))) 6620 (gnus-emphasis-underline-italic ((t (:underline t)))) 6621 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 6622 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 6623 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 6624 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 6625 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 6626 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 6627 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 6628 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 6629 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 6630 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 6631 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 6632 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 6633 (gnus-group-news-3-empty-face ((t (nil)))) 6634 (gnus-group-news-3-face ((t (:bold t)))) 6635 (gnus-group-news-4-empty-face ((t (nil)))) 6636 (gnus-group-news-4-face ((t (:bold t)))) 6637 (gnus-group-news-5-empty-face ((t (nil)))) 6638 (gnus-group-news-5-face ((t (:bold t)))) 6639 (gnus-group-news-6-empty-face ((t (nil)))) 6640 (gnus-group-news-6-face ((t (:bold t)))) 6641 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 6642 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 6643 (gnus-header-content-face ((t (:foreground "indianred4")))) 6644 (gnus-header-from-face ((t (:foreground "red3")))) 6645 (gnus-header-name-face ((t (:foreground "maroon")))) 6646 (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) 6647 (gnus-header-subject-face ((t (:foreground "red4")))) 6648 (gnus-picons-face ((t (:background "white" :foreground "black")))) 6649 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 6650 (gnus-signature-face ((t (nil)))) 6651 (gnus-splash-face ((t (:foreground "Brown")))) 6652 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 6653 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 6654 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 6655 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 6656 (gnus-summary-high-unread-face ((t (:bold t)))) 6657 (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) 6658 (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) 6659 (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) 6660 (gnus-summary-low-unread-face ((t (nil)))) 6661 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 6662 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 6663 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 6664 (gnus-summary-normal-unread-face ((t (nil)))) 6665 (gnus-summary-selected-face ((t (:underline t)))) 6666 (gnus-x-face ((t (:background "white" :foreground "black")))) 6667 (green ((t (:foreground "green")))) 6668 (gui-button-face ((t (:background "grey75" :foreground "black")))) 6669 (gui-element ((t (:background "#D4D0C8" :foreground "black")))) 6670 (highlight ((t (:background "darkseagreen2")))) 6671 (html-helper-bold-face ((t (:bold t)))) 6672 (html-helper-bold-italic-face ((t (nil)))) 6673 (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) 6674 (html-helper-italic-face ((t (:foreground "medium sea green")))) 6675 (html-helper-underline-face ((t (:underline t)))) 6676 (html-tag-face ((t (:bold t)))) 6677 (hyper-apropos-documentation ((t (:foreground "darkred")))) 6678 (hyper-apropos-heading ((t (:bold t)))) 6679 (hyper-apropos-hyperlink ((t (:foreground "blue4")))) 6680 (hyper-apropos-major-heading ((t (:bold t)))) 6681 (hyper-apropos-section-heading ((t (nil)))) 6682 (hyper-apropos-warning ((t (:bold t :foreground "red")))) 6683 (info-menu-6 ((t (nil)))) 6684 (isearch ((t (:background "paleturquoise")))) 6685 (isearch-secondary ((t (:foreground "red3")))) 6686 (italic ((t (nil)))) 6687 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 6688 (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) 6689 (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) 6690 (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) 6691 (left-margin ((t (nil)))) 6692 (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) 6693 (magenta ((t (:foreground "magenta")))) 6694 (message-cited-text-face ((t (:foreground "red")))) 6695 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 6696 (message-header-name-face ((t (:foreground "cornflower blue")))) 6697 (message-header-newsgroups-face ((t (:foreground "blue4")))) 6698 (message-header-other-face ((t (:foreground "steel blue")))) 6699 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 6700 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 6701 (message-header-xheader-face ((t (:foreground "blue")))) 6702 (message-mml-face ((t (:foreground "ForestGreen")))) 6703 (message-separator-face ((t (:foreground "brown")))) 6704 (modeline ((t (nil)))) 6705 (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4")))) 6706 (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick")))) 6707 (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4")))) 6708 (paren-blink-off ((t (:foreground "snow2")))) 6709 (paren-match ((t (:background "darkseagreen2")))) 6710 (paren-mismatch ((t (:background "snow2" :foreground "darkslategray")))) 6711 (pointer ((t (nil)))) 6712 (primary-selection ((t (:background "gray65")))) 6713 (red ((t (:foreground "red")))) 6714 (right-margin ((t (nil)))) 6715 (secondary-selection ((t (:background "paleturquoise")))) 6716 (semantic-intangible-face ((t (:foreground "gray25")))) 6717 (semantic-read-only-face ((t (:background "gray25")))) 6718 (senator-momentary-highlight-face ((t (:background "gray70")))) 6719 (speedbar-button-face ((t (:foreground "green4")))) 6720 (speedbar-directory-face ((t (:foreground "blue4")))) 6721 (speedbar-file-face ((t (:foreground "cyan4")))) 6722 (speedbar-highlight-face ((t (:background "green")))) 6723 (speedbar-selected-face ((t (:underline t :foreground "red")))) 6724 (speedbar-tag-face ((t (:foreground "brown")))) 6725 (template-message-face ((t (:bold t)))) 6726 (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) 6727 (term-blue-face ((t (:foreground "blue")))) 6728 (term-blue-inv-face ((t (:background "blue")))) 6729 (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) 6730 (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) 6731 (term-cyan-face ((t (:foreground "cyan")))) 6732 (term-cyan-inv-face ((t (:background "cyan")))) 6733 (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) 6734 (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) 6735 (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) 6736 (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) 6737 (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) 6738 (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) 6739 (term-green-face ((t (:foreground "green")))) 6740 (term-green-inv-face ((t (:background "green")))) 6741 (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) 6742 (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) 6743 (term-magenta-face ((t (:foreground "magenta")))) 6744 (term-magenta-inv-face ((t (:background "magenta")))) 6745 (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) 6746 (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) 6747 (term-red-face ((t (:foreground "red")))) 6748 (term-red-inv-face ((t (:background "red")))) 6749 (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) 6750 (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) 6751 (term-white-face ((t (:foreground "white")))) 6752 (term-white-inv-face ((t (:background "snow2")))) 6753 (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) 6754 (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) 6755 (term-yellow-face ((t (:foreground "yellow")))) 6756 (term-yellow-inv-face ((t (:background "yellow")))) 6757 (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) 6758 (text-cursor ((t (:background "Red3" :foreground "snow2")))) 6759 (toolbar ((t (nil)))) 6760 (underline ((t (:underline t)))) 6761 (vertical-divider ((t (nil)))) 6762 (white ((t (:foreground "white")))) 6763 (widget ((t (nil)))) 6764 (widget-button-face ((t (:bold t)))) 6765 (widget-button-pressed-face ((t (:foreground "red")))) 6766 (widget-documentation-face ((t (:foreground "dark green")))) 6767 (widget-field-face ((t (:background "gray85")))) 6768 (widget-inactive-face ((t (:foreground "dim gray")))) 6769 (yellow ((t (:foreground "yellow")))) 6770 (zmacs-region ((t (:background "gray65"))))))) 6771 6772 (defun color-theme-dark-laptop () 6773 "Color theme by Laurent Michel, created 2001-05-24. 6774 Includes custom, fl, font-lock, gnus, message, widget." 6775 (interactive) 6776 (color-theme-install 6777 '(color-theme-dark-laptop 6778 ((background-color . "black") 6779 (background-mode . dark) 6780 (border-color . "black") 6781 (cursor-color . "yellow") 6782 (foreground-color . "white") 6783 (mouse-color . "sienna1")) 6784 ((gnus-mouse-face . highlight) 6785 (list-matching-lines-face . bold) 6786 (view-highlight-face . highlight)) 6787 (default ((t (nil)))) 6788 (bold ((t (:bold t)))) 6789 (bold-italic ((t (:italic t :bold t)))) 6790 (custom-button-face ((t (nil)))) 6791 (custom-changed-face ((t (:background "blue" :foreground "white")))) 6792 (custom-documentation-face ((t (nil)))) 6793 (custom-face-tag-face ((t (:underline t)))) 6794 (custom-group-tag-face ((t (:underline t :foreground "light blue")))) 6795 (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) 6796 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 6797 (custom-modified-face ((t (:background "blue" :foreground "white")))) 6798 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 6799 (custom-saved-face ((t (:underline t)))) 6800 (custom-set-face ((t (:background "white" :foreground "blue")))) 6801 (custom-state-face ((t (:foreground "lime green")))) 6802 (custom-variable-button-face ((t (:underline t :bold t)))) 6803 (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) 6804 (fl-comment-face ((t (:foreground "pink")))) 6805 (fl-doc-string-face ((t (:foreground "purple")))) 6806 (fl-function-name-face ((t (:foreground "red")))) 6807 (fl-keyword-face ((t (:foreground "cyan")))) 6808 (fl-string-face ((t (:foreground "green")))) 6809 (fl-type-face ((t (:foreground "yellow")))) 6810 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 6811 (font-lock-comment-face ((t (:foreground "OrangeRed")))) 6812 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 6813 (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) 6814 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 6815 (font-lock-keyword-face ((t (:foreground "Cyan")))) 6816 (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) 6817 (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) 6818 (font-lock-string-face ((t (:foreground "LightSalmon")))) 6819 (font-lock-type-face ((t (:foreground "PaleGreen")))) 6820 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 6821 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 6822 (gnus-cite-attribution-face ((t (:italic t)))) 6823 (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue")))) 6824 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 6825 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 6826 (gnus-cite-face-2 ((t (:bold t :foreground "cyan")))) 6827 (gnus-cite-face-3 ((t (:bold t :foreground "gold")))) 6828 (gnus-cite-face-4 ((t (:foreground "light pink")))) 6829 (gnus-cite-face-5 ((t (:foreground "pale green")))) 6830 (gnus-cite-face-6 ((t (:bold t :foreground "chocolate")))) 6831 (gnus-cite-face-7 ((t (:foreground "orange")))) 6832 (gnus-cite-face-8 ((t (:foreground "magenta")))) 6833 (gnus-cite-face-9 ((t (:foreground "violet")))) 6834 (gnus-emphasis-bold ((t (:bold t)))) 6835 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 6836 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 6837 (gnus-emphasis-italic ((t (:italic t)))) 6838 (gnus-emphasis-underline ((t (:underline t)))) 6839 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 6840 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 6841 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 6842 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 6843 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) 6844 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 6845 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 6846 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 6847 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) 6848 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 6849 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 6850 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 6851 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 6852 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 6853 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 6854 (gnus-group-news-3-empty-face ((t (nil)))) 6855 (gnus-group-news-3-face ((t (:bold t)))) 6856 (gnus-group-news-4-empty-face ((t (nil)))) 6857 (gnus-group-news-4-face ((t (:bold t)))) 6858 (gnus-group-news-5-empty-face ((t (nil)))) 6859 (gnus-group-news-5-face ((t (:bold t)))) 6860 (gnus-group-news-6-empty-face ((t (nil)))) 6861 (gnus-group-news-6-face ((t (:bold t)))) 6862 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 6863 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 6864 (gnus-header-content-face ((t (:italic t :foreground "forest green")))) 6865 (gnus-header-from-face ((t (:bold t :foreground "spring green")))) 6866 (gnus-header-name-face ((t (:foreground "deep sky blue")))) 6867 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple")))) 6868 (gnus-header-subject-face ((t (:bold t :foreground "orange")))) 6869 (gnus-signature-face ((t (:bold t :foreground "khaki")))) 6870 (gnus-splash-face ((t (:foreground "Brown")))) 6871 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 6872 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) 6873 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) 6874 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) 6875 (gnus-summary-high-unread-face ((t (:bold t)))) 6876 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) 6877 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) 6878 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) 6879 (gnus-summary-low-unread-face ((t (:italic t)))) 6880 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 6881 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 6882 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 6883 (gnus-summary-normal-unread-face ((t (nil)))) 6884 (gnus-summary-selected-face ((t (:underline t)))) 6885 (highlight ((t (:background "darkolivegreen")))) 6886 (italic ((t (:italic t)))) 6887 (message-cited-text-face ((t (:bold t :foreground "red")))) 6888 (message-header-cc-face ((t (:bold t :foreground "green4")))) 6889 (message-header-name-face ((t (:bold t :foreground "orange")))) 6890 (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) 6891 (message-header-other-face ((t (:bold t :foreground "chocolate")))) 6892 (message-header-subject-face ((t (:bold t :foreground "yellow")))) 6893 (message-header-to-face ((t (:bold t :foreground "cyan")))) 6894 (message-header-xheader-face ((t (:bold t :foreground "light blue")))) 6895 (message-mml-face ((t (:bold t :background "Green3")))) 6896 (message-separator-face ((t (:foreground "blue3")))) 6897 (modeline ((t (:background "white" :foreground "black")))) 6898 (modeline-buffer-id ((t (:background "white" :foreground "black")))) 6899 (modeline-mousable ((t (:background "white" :foreground "black")))) 6900 (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) 6901 (region ((t (:background "blue")))) 6902 (primary-selection ((t (:background "blue")))) 6903 (isearch ((t (:background "blue")))) 6904 (zmacs-region ((t (:background "blue")))) 6905 (secondary-selection ((t (:background "darkslateblue")))) 6906 (underline ((t (:underline t)))) 6907 (widget-button-face ((t (:bold t)))) 6908 (widget-button-pressed-face ((t (:foreground "red")))) 6909 (widget-documentation-face ((t (:foreground "lime green")))) 6910 (widget-field-face ((t (:background "dim gray")))) 6911 (widget-inactive-face ((t (:foreground "light gray")))) 6912 (widget-single-line-field-face ((t (:background "dim gray"))))))) 6913 6914 (defun color-theme-taming-mr-arneson () 6915 "Color theme by Erik Arneson, created 2001-06-12. 6916 Light sky blue on black. Includes bbdb, cperl, custom, cvs, diff, 6917 dired, font-lock, html-helper, hyper-apropos, info, isearch, man, 6918 message, paren, shell, and widget." 6919 (interactive) 6920 (color-theme-install 6921 '(color-theme-taming-mr-arneson 6922 ((background-color . "black") 6923 (background-mode . light) 6924 (background-toolbar-color . "#cf3ccf3ccf3c") 6925 (border-color . "#000000000000") 6926 (bottom-toolbar-shadow-color . "#79e77df779e7") 6927 (cursor-color . "Red3") 6928 (foreground-color . "LightSkyBlue") 6929 (top-toolbar-shadow-color . "#fffffbeeffff")) 6930 ((buffers-tab-face . buffers-tab) 6931 (cperl-here-face . font-lock-string-face) 6932 (cperl-invalid-face quote default) 6933 (cperl-pod-face . font-lock-comment-face) 6934 (cperl-pod-head-face . font-lock-variable-name-face) 6935 (ispell-highlight-face . highlight) 6936 (vc-mode-face . highlight) 6937 (vm-highlight-url-face . bold-italic) 6938 (vm-highlighted-header-face . bold) 6939 (vm-mime-button-face . gui-button-face) 6940 (vm-summary-highlight-face . bold)) 6941 (default ((t (nil)))) 6942 (bbdb-company ((t (nil)))) 6943 (bbdb-field-name ((t (:bold t)))) 6944 (bbdb-field-value ((t (nil)))) 6945 (bbdb-name ((t (:underline t)))) 6946 (blue ((t (:foreground "blue")))) 6947 (bold ((t (:bold t)))) 6948 (bold-italic ((t (:bold t :foreground "yellow")))) 6949 (border-glyph ((t (nil)))) 6950 (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) 6951 (cperl-array-face ((t (:bold t :foreground "SkyBlue2")))) 6952 (cperl-hash-face ((t (:foreground "LightBlue2")))) 6953 (cperl-invalid-face ((t (:foreground "white")))) 6954 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 6955 (custom-button-face ((t (:bold t)))) 6956 (custom-changed-face ((t (:background "blue" :foreground "white")))) 6957 (custom-comment-face ((t (:foreground "white")))) 6958 (custom-comment-tag-face ((t (:foreground "white")))) 6959 (custom-documentation-face ((t (nil)))) 6960 (custom-face-tag-face ((t (:underline t)))) 6961 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 6962 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 6963 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 6964 (custom-modified-face ((t (:background "blue" :foreground "white")))) 6965 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 6966 (custom-saved-face ((t (:underline t)))) 6967 (custom-set-face ((t (:background "white" :foreground "blue")))) 6968 (custom-state-face ((t (:foreground "white")))) 6969 (custom-variable-button-face ((t (:underline t :bold t)))) 6970 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 6971 (cvs-filename-face ((t (:foreground "white")))) 6972 (cvs-handled-face ((t (:foreground "pink")))) 6973 (cvs-header-face ((t (:foreground "green")))) 6974 (cvs-marked-face ((t (:bold t :foreground "green3")))) 6975 (cvs-msg-face ((t (:foreground "red")))) 6976 (cvs-need-action-face ((t (:foreground "yellow")))) 6977 (cvs-unknown-face ((t (:foreground "grey")))) 6978 (diff-added-face ((t (nil)))) 6979 (diff-changed-face ((t (nil)))) 6980 (diff-file-header-face ((t (:bold t :background "grey70")))) 6981 (diff-hunk-header-face ((t (:background "grey85")))) 6982 (diff-index-face ((t (:bold t :background "grey70")))) 6983 (diff-removed-face ((t (nil)))) 6984 (dired-face-boring ((t (:foreground "Gray65")))) 6985 (dired-face-directory ((t (:bold t :foreground "SkyBlue2")))) 6986 (dired-face-executable ((t (:foreground "Green")))) 6987 (dired-face-flagged ((t (:background "LightSlateGray")))) 6988 (dired-face-header ((t (:background "grey75" :foreground "black")))) 6989 (dired-face-marked ((t (:background "PaleVioletRed")))) 6990 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 6991 (dired-face-setuid ((t (:foreground "Red")))) 6992 (dired-face-socket ((t (:foreground "magenta")))) 6993 (dired-face-symlink ((t (:foreground "cyan")))) 6994 (excerpt ((t (nil)))) 6995 (fixed ((t (:bold t)))) 6996 (font-lock-builtin-face ((t (:foreground "red3")))) 6997 (font-lock-comment-face ((t (:foreground "red")))) 6998 (font-lock-constant-face ((t (nil)))) 6999 (font-lock-doc-string-face ((t (:foreground "turquoise")))) 7000 (font-lock-function-name-face ((t (:foreground "white")))) 7001 (font-lock-keyword-face ((t (:foreground "green")))) 7002 (font-lock-preprocessor-face ((t (:foreground "green3")))) 7003 (font-lock-reference-face ((t (:foreground "red3")))) 7004 (font-lock-string-face ((t (:foreground "turquoise")))) 7005 (font-lock-type-face ((t (:foreground "steelblue")))) 7006 (font-lock-variable-name-face ((t (:foreground "magenta2")))) 7007 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 7008 (green ((t (:foreground "green")))) 7009 (gui-button-face ((t (:background "grey75" :foreground "black")))) 7010 (gui-element ((t (nil)))) 7011 (highlight ((t (:background "darkseagreen2" :foreground "blue")))) 7012 (html-helper-bold-face ((t (:bold t)))) 7013 (html-helper-italic-face ((t (:bold t :foreground "yellow")))) 7014 (html-helper-underline-face ((t (:underline t)))) 7015 (hyper-apropos-documentation ((t (:foreground "white")))) 7016 (hyper-apropos-heading ((t (:bold t)))) 7017 (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) 7018 (hyper-apropos-major-heading ((t (:bold t)))) 7019 (hyper-apropos-section-heading ((t (:bold t)))) 7020 (hyper-apropos-warning ((t (:bold t :foreground "red")))) 7021 (info-node ((t (:bold t :foreground "yellow")))) 7022 (info-xref ((t (:bold t)))) 7023 (isearch ((t (:background "paleturquoise" :foreground "dark red")))) 7024 (isearch-secondary ((t (:foreground "red3")))) 7025 (italic ((t (:bold t :foreground "yellow")))) 7026 (left-margin ((t (nil)))) 7027 (list-mode-item-selected ((t (:background "gray68" :foreground "dark green")))) 7028 (man-bold ((t (:bold t)))) 7029 (man-heading ((t (:bold t)))) 7030 (man-italic ((t (:foreground "yellow")))) 7031 (man-xref ((t (:underline t)))) 7032 (message-cited-text ((t (:foreground "orange")))) 7033 (message-header-contents ((t (:foreground "white")))) 7034 (message-headers ((t (:bold t :foreground "orange")))) 7035 (message-highlighted-header-contents ((t (:bold t)))) 7036 (message-url ((t (:bold t :foreground "pink")))) 7037 (mmm-face ((t (:background "black" :foreground "green")))) 7038 (modeline ((t (nil)))) 7039 (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) 7040 (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) 7041 (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) 7042 (paren-blink-off ((t (:foreground "gray80")))) 7043 (paren-match ((t (:background "dark blue")))) 7044 (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue")))) 7045 (pointer ((t (nil)))) 7046 (primary-selection ((t (:background "gray65" :foreground "DarkBlue")))) 7047 (red ((t (:foreground "red")))) 7048 (region ((t (:background "gray65" :foreground "DarkBlue")))) 7049 (right-margin ((t (nil)))) 7050 (secondary-selection ((t (:background "paleturquoise" :foreground "black")))) 7051 (shell-option-face ((t (:foreground "blue4")))) 7052 (shell-output-2-face ((t (:foreground "green4")))) 7053 (shell-output-3-face ((t (:foreground "green4")))) 7054 (shell-output-face ((t (:bold t)))) 7055 (shell-prompt-face ((t (:foreground "red4")))) 7056 (text-cursor ((t (:background "Red3" :foreground "black")))) 7057 (toolbar ((t (:background "Gray80" :foreground "black")))) 7058 (underline ((t (:underline t)))) 7059 (vertical-divider ((t (nil)))) 7060 (vm-xface ((t (:background "white" :foreground "black")))) 7061 (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) 7062 (vmpc-sig-face ((t (:foreground "steelblue")))) 7063 (widget ((t (nil)))) 7064 (widget-button-face ((t (:bold t)))) 7065 (widget-button-pressed-face ((t (:foreground "red")))) 7066 (widget-documentation-face ((t (:foreground "dark green")))) 7067 (widget-field-face ((t (:background "gray85" :foreground "black")))) 7068 (widget-inactive-face ((t (:foreground "dim gray")))) 7069 (x-face ((t (:background "white" :foreground "black")))) 7070 (xrdb-option-name-face ((t (:foreground "red")))) 7071 (yellow ((t (:foreground "yellow")))) 7072 (zmacs-region ((t (:background "gray65"))))))) 7073 7074 (defun color-theme-digital-ofs1 () 7075 "Color theme by Gareth Owen, created 2001-06-13. 7076 This works well on an old, beat-up Digital Unix box with its 256 colour 7077 display, on which other color themes hog too much of the palette. 7078 Black on some shade of dark peach. Includes bbdb, cperl, custom, 7079 cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus, 7080 highlight, hproperty, html-helper, hyper-apropos, info, jde, man, 7081 message, paren, searchm, semantic, sgml, shell, speedbar, term, 7082 vhdl, viper, w3m, widget, woman, x-symbol, xref." 7083 (interactive) 7084 (color-theme-install 7085 '(color-theme-digital-ofs1 7086 ((background-color . "#CA94AA469193") 7087 (background-mode . light) 7088 (background-toolbar-color . "#cf3ccf3ccf3c") 7089 (border-color . "black") 7090 (bottom-toolbar-shadow-color . "#79e77df779e7") 7091 (cursor-color . "Black") 7092 (foreground-color . "Black") 7093 (mouse-color . "Black") 7094 (top-toolbar-shadow-color . "#fffffbeeffff") 7095 (viper-saved-cursor-color-in-replace-mode . "Red3")) 7096 ((Man-overstrike-face . bold) 7097 (Man-underline-face . underline) 7098 (gnus-mouse-face . highlight) 7099 (goto-address-mail-face . italic) 7100 (goto-address-mail-mouse-face . secondary-selection) 7101 (goto-address-url-face . bold) 7102 (goto-address-url-mouse-face . highlight) 7103 (ispell-highlight-face . highlight) 7104 (list-matching-lines-face . bold) 7105 (rmail-highlight-face . font-lock-function-name-face) 7106 (view-highlight-face . highlight)) 7107 (default ((t (:bold t)))) 7108 (bbdb-company ((t (:italic t)))) 7109 (bbdb-field-name ((t (:bold t)))) 7110 (bbdb-field-value ((t (nil)))) 7111 (bbdb-name ((t (:underline t)))) 7112 (blank-space-face ((t (nil)))) 7113 (blank-tab-face ((t (nil)))) 7114 (blue ((t (:bold t :foreground "blue")))) 7115 (bold ((t (:bold t)))) 7116 (bold-italic ((t (:italic t :bold t)))) 7117 (border-glyph ((t (:bold t)))) 7118 (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) 7119 (calendar-today-face ((t (:underline t :bold t :foreground "white")))) 7120 (comint-input-face ((t (nil)))) 7121 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) 7122 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) 7123 (cperl-here-face ((t (nil)))) 7124 (cperl-invalid-face ((t (:foreground "white")))) 7125 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 7126 (cperl-pod-face ((t (nil)))) 7127 (cperl-pod-head-face ((t (nil)))) 7128 (custom-button-face ((t (:bold t)))) 7129 (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) 7130 (custom-comment-face ((t (:foreground "white")))) 7131 (custom-comment-tag-face ((t (:foreground "white")))) 7132 (custom-documentation-face ((t (:bold t)))) 7133 (custom-face-tag-face ((t (:underline t :bold t)))) 7134 (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue")))) 7135 (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red")))) 7136 (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) 7137 (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) 7138 (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) 7139 (custom-saved-face ((t (:underline t :bold t)))) 7140 (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) 7141 (custom-state-face ((t (:bold t :foreground "dark green")))) 7142 (custom-variable-button-face ((t (:underline t :bold t)))) 7143 (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) 7144 (cvs-filename-face ((t (:foreground "white")))) 7145 (cvs-handled-face ((t (:foreground "pink")))) 7146 (cvs-header-face ((t (:bold t :foreground "green")))) 7147 (cvs-marked-face ((t (:bold t :foreground "green3")))) 7148 (cvs-msg-face ((t (:italic t :foreground "red")))) 7149 (cvs-need-action-face ((t (:foreground "yellow")))) 7150 (cvs-unknown-face ((t (:foreground "grey")))) 7151 (cyan ((t (:foreground "cyan")))) 7152 (diary-face ((t (:bold t :foreground "red")))) 7153 (diff-added-face ((t (nil)))) 7154 (diff-changed-face ((t (nil)))) 7155 (diff-file-header-face ((t (:bold t :background "grey70")))) 7156 (diff-hunk-header-face ((t (:background "grey85")))) 7157 (diff-index-face ((t (:bold t :background "grey70")))) 7158 (diff-removed-face ((t (nil)))) 7159 (dired-face-boring ((t (:foreground "Gray65")))) 7160 (dired-face-directory ((t (:bold t)))) 7161 (dired-face-executable ((t (:foreground "SeaGreen")))) 7162 (dired-face-flagged ((t (:background "LightSlateGray")))) 7163 (dired-face-header ((t (:background "grey75" :foreground "black")))) 7164 (dired-face-marked ((t (:background "PaleVioletRed")))) 7165 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 7166 (dired-face-setuid ((t (:foreground "Red")))) 7167 (dired-face-socket ((t (:foreground "magenta")))) 7168 (dired-face-symlink ((t (:foreground "cyan")))) 7169 (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange")))) 7170 (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue")))) 7171 (display-time-time-balloon-face ((t (:bold t :foreground "red")))) 7172 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 7173 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 7174 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 7175 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 7176 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 7177 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 7178 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 7179 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 7180 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 7181 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 7182 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 7183 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 7184 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 7185 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 7186 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 7187 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 7188 (erc-action-face ((t (:bold t)))) 7189 (erc-bold-face ((t (:bold t)))) 7190 (erc-default-face ((t (nil)))) 7191 (erc-direct-msg-face ((t (nil)))) 7192 (erc-error-face ((t (:bold t)))) 7193 (erc-input-face ((t (nil)))) 7194 (erc-inverse-face ((t (nil)))) 7195 (erc-notice-face ((t (nil)))) 7196 (erc-pal-face ((t (nil)))) 7197 (erc-prompt-face ((t (nil)))) 7198 (erc-underline-face ((t (nil)))) 7199 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) 7200 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 7201 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 7202 (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) 7203 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) 7204 (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) 7205 (eshell-ls-picture-face ((t (:foreground "Violet")))) 7206 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 7207 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 7208 (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) 7209 (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) 7210 (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) 7211 (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) 7212 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 7213 (eshell-prompt-face ((t (:bold t :foreground "Red")))) 7214 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 7215 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 7216 (excerpt ((t (:italic t)))) 7217 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 7218 (fg:black ((t (:foreground "black")))) 7219 (fixed ((t (:bold t)))) 7220 (fl-comment-face ((t (:foreground "medium purple")))) 7221 (fl-doc-string-face ((t (nil)))) 7222 (fl-function-name-face ((t (:foreground "green")))) 7223 (fl-keyword-face ((t (:foreground "LightGreen")))) 7224 (fl-string-face ((t (:foreground "light coral")))) 7225 (fl-type-face ((t (:foreground "cyan")))) 7226 (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) 7227 (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) 7228 (font-latex-bold-face ((t (:bold t)))) 7229 (font-latex-italic-face ((t (:italic t)))) 7230 (font-latex-math-face ((t (nil)))) 7231 (font-latex-sedate-face ((t (nil)))) 7232 (font-latex-string-face ((t (nil)))) 7233 (font-latex-warning-face ((t (nil)))) 7234 (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid")))) 7235 (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) 7236 (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue")))) 7237 (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4")))) 7238 (font-lock-emphasized-face ((t (:bold t)))) 7239 (font-lock-exit-face ((t (:foreground "green")))) 7240 (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue")))) 7241 (font-lock-keyword-face ((t (:bold t :foreground "dark olive green")))) 7242 (font-lock-other-emphasized-face ((t (:italic t :bold t)))) 7243 (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue")))) 7244 (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3")))) 7245 (font-lock-reference-face ((t (:italic t :bold t :foreground "red3")))) 7246 (font-lock-special-comment-face ((t (nil)))) 7247 (font-lock-special-keyword-face ((t (nil)))) 7248 (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue")))) 7249 (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen")))) 7250 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen")))) 7251 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 7252 (fringe ((t (:background "grey95")))) 7253 (gdb-arrow-face ((t (:bold t)))) 7254 (gnus-cite-attribution-face ((t (:italic t :bold t)))) 7255 (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue")))) 7256 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 7257 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 7258 (gnus-cite-face-2 ((t (:bold t :foreground "firebrick")))) 7259 (gnus-cite-face-3 ((t (:bold t :foreground "dark green")))) 7260 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 7261 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 7262 (gnus-cite-face-6 ((t (:bold t :foreground "dark violet")))) 7263 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 7264 (gnus-cite-face-8 ((t (:foreground "magenta")))) 7265 (gnus-cite-face-9 ((t (:foreground "violet")))) 7266 (gnus-cite-face-list ((t (nil)))) 7267 (gnus-emphasis-bold ((t (:bold t)))) 7268 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 7269 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 7270 (gnus-emphasis-italic ((t (:italic t)))) 7271 (gnus-emphasis-underline ((t (:underline t)))) 7272 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 7273 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 7274 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 7275 (gnus-filterhist-face-1 ((t (nil)))) 7276 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 7277 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 7278 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 7279 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 7280 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 7281 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 7282 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 7283 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 7284 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 7285 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 7286 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 7287 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 7288 (gnus-group-news-3-empty-face ((t (nil)))) 7289 (gnus-group-news-3-face ((t (:bold t)))) 7290 (gnus-group-news-4-empty-face ((t (nil)))) 7291 (gnus-group-news-4-face ((t (:bold t)))) 7292 (gnus-group-news-5-empty-face ((t (nil)))) 7293 (gnus-group-news-5-face ((t (:bold t)))) 7294 (gnus-group-news-6-empty-face ((t (nil)))) 7295 (gnus-group-news-6-face ((t (:bold t)))) 7296 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 7297 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 7298 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 7299 (gnus-header-from-face ((t (:bold t :foreground "red3")))) 7300 (gnus-header-name-face ((t (:bold t :foreground "maroon")))) 7301 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) 7302 (gnus-header-subject-face ((t (:bold t :foreground "red4")))) 7303 (gnus-picons-face ((t (:background "white" :foreground "black")))) 7304 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 7305 (gnus-signature-face ((t (:italic t :bold t)))) 7306 (gnus-splash ((t (nil)))) 7307 (gnus-splash-face ((t (:foreground "Brown")))) 7308 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 7309 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 7310 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 7311 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 7312 (gnus-summary-high-unread-face ((t (:italic t :bold t)))) 7313 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 7314 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 7315 (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) 7316 (gnus-summary-low-unread-face ((t (:italic t)))) 7317 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 7318 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 7319 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) 7320 (gnus-summary-normal-unread-face ((t (:bold t)))) 7321 (gnus-summary-selected-face ((t (:underline t)))) 7322 (gnus-x-face ((t (:background "white" :foreground "black")))) 7323 (green ((t (:bold t :foreground "green")))) 7324 (gui-button-face ((t (:bold t :background "grey75" :foreground "black")))) 7325 (gui-element ((t (:bold t :background "Gray80")))) 7326 (highlight ((t (:bold t :background "darkseagreen2")))) 7327 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 7328 (highlight-changes-face ((t (:foreground "red")))) 7329 (highline-face ((t (:background "black" :foreground "white")))) 7330 (holiday-face ((t (:bold t :background "pink" :foreground "white")))) 7331 (hproperty:but-face ((t (:bold t)))) 7332 (hproperty:flash-face ((t (:bold t)))) 7333 (hproperty:highlight-face ((t (:bold t)))) 7334 (hproperty:item-face ((t (:bold t)))) 7335 (html-helper-bold-face ((t (:bold t)))) 7336 (html-helper-bold-italic-face ((t (nil)))) 7337 (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) 7338 (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow")))) 7339 (html-helper-underline-face ((t (:underline t)))) 7340 (html-tag-face ((t (:bold t)))) 7341 (hyper-apropos-documentation ((t (:foreground "white")))) 7342 (hyper-apropos-heading ((t (:bold t)))) 7343 (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) 7344 (hyper-apropos-major-heading ((t (:bold t)))) 7345 (hyper-apropos-section-heading ((t (:bold t)))) 7346 (hyper-apropos-warning ((t (:bold t :foreground "red")))) 7347 (ibuffer-marked-face ((t (:foreground "red")))) 7348 (info-menu-5 ((t (:underline t :bold t)))) 7349 (info-menu-6 ((t (nil)))) 7350 (info-node ((t (:italic t :bold t)))) 7351 (info-xref ((t (:bold t)))) 7352 (isearch ((t (:bold t :background "paleturquoise")))) 7353 (isearch-secondary ((t (:foreground "red3")))) 7354 (ispell-face ((t (:bold t)))) 7355 (italic ((t (:italic t :bold t)))) 7356 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 7357 (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) 7358 (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) 7359 (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) 7360 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 7361 (left-margin ((t (:bold t)))) 7362 (linemenu-face ((t (nil)))) 7363 (list-mode-item-selected ((t (:bold t :background "gray68")))) 7364 (magenta ((t (:foreground "magenta")))) 7365 (makefile-space-face ((t (:background "hotpink")))) 7366 (man-bold ((t (:bold t)))) 7367 (man-heading ((t (:bold t)))) 7368 (man-italic ((t (:foreground "yellow")))) 7369 (man-xref ((t (:underline t)))) 7370 (message-cited-text ((t (:bold t :foreground "orange")))) 7371 (message-cited-text-face ((t (:bold t :foreground "red")))) 7372 (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) 7373 (message-header-contents ((t (:italic t :bold t :foreground "white")))) 7374 (message-header-name-face ((t (:bold t :foreground "cornflower blue")))) 7375 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 7376 (message-header-other-face ((t (:bold t :foreground "steel blue")))) 7377 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 7378 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 7379 (message-header-xheader-face ((t (:bold t :foreground "blue")))) 7380 (message-headers ((t (:bold t :foreground "orange")))) 7381 (message-highlighted-header-contents ((t (:bold t)))) 7382 (message-mml-face ((t (:bold t :foreground "ForestGreen")))) 7383 (message-separator-face ((t (:foreground "brown")))) 7384 (message-url ((t (:bold t :foreground "pink")))) 7385 (mmm-face ((t (:background "black" :foreground "green")))) 7386 (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193")))) 7387 (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4")))) 7388 (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick")))) 7389 (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4")))) 7390 (my-tab-face ((t (nil)))) 7391 (nil ((t (nil)))) 7392 (p4-diff-del-face ((t (:bold t)))) 7393 (paren-blink-off ((t (:foreground "gray80")))) 7394 (paren-face ((t (nil)))) 7395 (paren-face-match ((t (nil)))) 7396 (paren-face-mismatch ((t (nil)))) 7397 (paren-face-no-match ((t (nil)))) 7398 (paren-match ((t (:background "darkseagreen2")))) 7399 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 7400 (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white")))) 7401 (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white")))) 7402 (pointer ((t (:bold t)))) 7403 (primary-selection ((t (:bold t :background "gray65")))) 7404 (red ((t (:bold t :foreground "red")))) 7405 (region ((t (:bold t :background "gray")))) 7406 (right-margin ((t (:bold t)))) 7407 (searchm-buffer ((t (:bold t)))) 7408 (searchm-button ((t (:bold t)))) 7409 (searchm-field ((t (nil)))) 7410 (searchm-field-label ((t (:bold t)))) 7411 (searchm-highlight ((t (:bold t)))) 7412 (secondary-selection ((t (:bold t :background "paleturquoise")))) 7413 (semantic-intangible-face ((t (:foreground "gray25")))) 7414 (semantic-read-only-face ((t (:background "gray25")))) 7415 (senator-momentary-highlight-face ((t (:background "gray70")))) 7416 (setnu-line-number-face ((t (:italic t :bold t)))) 7417 (sgml-comment-face ((t (:foreground "dark green")))) 7418 (sgml-doctype-face ((t (:foreground "maroon")))) 7419 (sgml-end-tag-face ((t (:foreground "blue2")))) 7420 (sgml-entity-face ((t (:foreground "red2")))) 7421 (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) 7422 (sgml-ms-end-face ((t (:foreground "maroon")))) 7423 (sgml-ms-start-face ((t (:foreground "maroon")))) 7424 (sgml-pi-face ((t (:foreground "maroon")))) 7425 (sgml-sgml-face ((t (:foreground "maroon")))) 7426 (sgml-short-ref-face ((t (:foreground "goldenrod")))) 7427 (sgml-start-tag-face ((t (:foreground "blue2")))) 7428 (shell-input-face ((t (:bold t)))) 7429 (shell-option-face ((t (:bold t :foreground "blue4")))) 7430 (shell-output-2-face ((t (:bold t :foreground "green4")))) 7431 (shell-output-3-face ((t (:bold t :foreground "green4")))) 7432 (shell-output-face ((t (:bold t)))) 7433 (shell-prompt-face ((t (:bold t :foreground "red4")))) 7434 (show-paren-match-face ((t (:bold t :background "turquoise")))) 7435 (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) 7436 (speedbar-button-face ((t (:bold t :foreground "magenta")))) 7437 (speedbar-directory-face ((t (:bold t :foreground "orchid")))) 7438 (speedbar-file-face ((t (:bold t :foreground "pink")))) 7439 (speedbar-highlight-face ((t (:background "black")))) 7440 (speedbar-selected-face ((t (:underline t :foreground "cyan")))) 7441 (speedbar-tag-face ((t (:foreground "yellow")))) 7442 (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) 7443 (template-message-face ((t (:bold t)))) 7444 (term-black ((t (:foreground "black")))) 7445 (term-blackbg ((t (:background "black")))) 7446 (term-blue ((t (:foreground "blue")))) 7447 (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) 7448 (term-blue-face ((t (:foreground "blue")))) 7449 (term-blue-inv-face ((t (:background "blue")))) 7450 (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) 7451 (term-bluebg ((t (:background "blue")))) 7452 (term-bold ((t (:bold t)))) 7453 (term-cyan ((t (:foreground "cyan")))) 7454 (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) 7455 (term-cyan-face ((t (:foreground "cyan")))) 7456 (term-cyan-inv-face ((t (:background "cyan")))) 7457 (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) 7458 (term-cyanbg ((t (:background "cyan")))) 7459 (term-default-bg ((t (nil)))) 7460 (term-default-bg-inv ((t (nil)))) 7461 (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) 7462 (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) 7463 (term-default-fg ((t (nil)))) 7464 (term-default-fg-inv ((t (nil)))) 7465 (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) 7466 (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) 7467 (term-green ((t (:foreground "green")))) 7468 (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) 7469 (term-green-face ((t (:foreground "green")))) 7470 (term-green-inv-face ((t (:background "green")))) 7471 (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) 7472 (term-greenbg ((t (:background "green")))) 7473 (term-invisible ((t (nil)))) 7474 (term-invisible-inv ((t (nil)))) 7475 (term-magenta ((t (:foreground "magenta")))) 7476 (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) 7477 (term-magenta-face ((t (:foreground "magenta")))) 7478 (term-magenta-inv-face ((t (:background "magenta")))) 7479 (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) 7480 (term-magentabg ((t (:background "magenta")))) 7481 (term-red ((t (:foreground "red")))) 7482 (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) 7483 (term-red-face ((t (:foreground "red")))) 7484 (term-red-inv-face ((t (:background "red")))) 7485 (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) 7486 (term-redbg ((t (:background "red")))) 7487 (term-underline ((t (:underline t)))) 7488 (term-white ((t (:foreground "white")))) 7489 (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) 7490 (term-white-face ((t (:foreground "white")))) 7491 (term-white-inv-face ((t (:background "snow2")))) 7492 (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) 7493 (term-whitebg ((t (:background "white")))) 7494 (term-yellow ((t (:foreground "yellow")))) 7495 (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) 7496 (term-yellow-face ((t (:foreground "yellow")))) 7497 (term-yellow-inv-face ((t (:background "yellow")))) 7498 (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) 7499 (term-yellowbg ((t (:background "yellow")))) 7500 (text-cursor ((t (:bold t :background "Red3" :foreground "gray80")))) 7501 (toolbar ((t (:bold t :background "Gray80")))) 7502 (underline ((t (:underline t :bold t)))) 7503 (vc-annotate-face-0046FF ((t (nil)))) 7504 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 7505 (vertical-divider ((t (:bold t :background "Gray80")))) 7506 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 7507 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 7508 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 7509 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 7510 (vhdl-font-lock-generic-/constant-face ((t (nil)))) 7511 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 7512 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 7513 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 7514 (vhdl-font-lock-type-face ((t (nil)))) 7515 (vhdl-font-lock-variable-face ((t (nil)))) 7516 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 7517 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 7518 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 7519 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 7520 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 7521 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 7522 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 7523 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 7524 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 7525 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) 7526 (vhdl-speedbar-subprogram-face ((t (nil)))) 7527 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 7528 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 7529 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 7530 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 7531 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 7532 (vm-xface ((t (:background "white" :foreground "black")))) 7533 (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) 7534 (vmpc-sig-face ((t (:foreground "steelblue")))) 7535 (vvb-face ((t (nil)))) 7536 (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) 7537 (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) 7538 (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) 7539 (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) 7540 (white ((t (:foreground "white")))) 7541 (widget ((t (nil)))) 7542 (widget-button-face ((t (:bold t)))) 7543 (widget-button-pressed-face ((t (:bold t :foreground "red")))) 7544 (widget-documentation-face ((t (:bold t :foreground "dark green")))) 7545 (widget-field-face ((t (:bold t :background "gray85")))) 7546 (widget-inactive-face ((t (:bold t :foreground "dim gray")))) 7547 (widget-single-line-field-face ((t (:background "gray85")))) 7548 (woman-bold-face ((t (:bold t)))) 7549 (woman-italic-face ((t (:foreground "beige")))) 7550 (woman-unknown-face ((t (:foreground "LightSalmon")))) 7551 (x-face ((t (:bold t :background "white" :foreground "black")))) 7552 (x-symbol-adobe-fontspecific-face ((t (nil)))) 7553 (x-symbol-face ((t (nil)))) 7554 (x-symbol-heading-face ((t (:bold t)))) 7555 (x-symbol-info-face ((t (nil)))) 7556 (x-symbol-invisible-face ((t (nil)))) 7557 (x-symbol-revealed-face ((t (nil)))) 7558 (xrdb-option-name-face ((t (:foreground "red")))) 7559 (xref-keyword-face ((t (:foreground "blue")))) 7560 (xref-list-default-face ((t (nil)))) 7561 (xref-list-pilot-face ((t (:foreground "navy")))) 7562 (xref-list-symbol-face ((t (:foreground "navy")))) 7563 (yellow ((t (:bold t :foreground "yellow")))) 7564 (zmacs-region ((t (:bold t :background "gray65"))))))) 7565 7566 (defun color-theme-mistyday () 7567 "Color theme by K.C. Hari Kumar, created 2001-06-13. 7568 Black on mistyrose. Includes CUA, calendar, diary, font-latex and 7569 font-lock. Uses backgrounds on some font-lock faces." 7570 (interactive) 7571 (color-theme-install 7572 '(color-theme-mistyday 7573 ((background-color . "mistyrose") 7574 (background-mode . light) 7575 (border-color . "black") 7576 (cursor-color . "deep pink") 7577 (foreground-color . "Black") 7578 (mouse-color . "black")) 7579 ((goto-address-mail-face . italic) 7580 (goto-address-mail-mouse-face . secondary-selection) 7581 (goto-address-url-face . bold) 7582 (goto-address-url-mouse-face . highlight) 7583 (list-matching-lines-face . bold) 7584 (paren-match-face . paren-face-match) 7585 (paren-mismatch-face . paren-face-mismatch) 7586 (paren-no-match-face . paren-face-no-match)) 7587 (default ((t (nil)))) 7588 (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) 7589 (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) 7590 (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) 7591 (bold ((t (:bold t)))) 7592 (bold-italic ((t (:italic t :bold t)))) 7593 (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown")))) 7594 (custom-button-face ((t (:background "dark slate grey" :foreground "azure")))) 7595 (custom-documentation-face ((t (:background "white" :foreground "blue")))) 7596 (diary-face ((t (:background "navy" :foreground "yellow")))) 7597 (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen")))) 7598 (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen")))) 7599 (font-latex-math-face ((t (:foreground "navy")))) 7600 (font-latex-sedate-face ((t (:foreground "DimGray")))) 7601 (font-latex-string-face ((t (nil)))) 7602 (font-latex-warning-face ((t (nil)))) 7603 (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy")))) 7604 (font-lock-comment-face ((t (:italic t :foreground "royal blue")))) 7605 (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue")))) 7606 (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) 7607 (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue")))) 7608 (font-lock-keyword-face ((t (:foreground "dark magenta")))) 7609 (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue")))) 7610 (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy")))) 7611 (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) 7612 (font-lock-type-face ((t (:background "steel blue" :foreground "khaki")))) 7613 (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red")))) 7614 (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red")))) 7615 (highlight ((t (:background "dark slate grey" :foreground "light cyan")))) 7616 (holiday-face ((t (:background "orangered" :foreground "lightyellow")))) 7617 (ido-first-match-face ((t (:bold t)))) 7618 (ido-only-match-face ((t (:foreground "ForestGreen")))) 7619 (ido-subdir-face ((t (:foreground "red")))) 7620 (italic ((t (:italic t)))) 7621 (isearch ((t (:background "sienna" :foreground "light cyan")))) 7622 (modeline ((t (:background "Royalblue4" :foreground "lawn green")))) 7623 (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green")))) 7624 (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green")))) 7625 (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green")))) 7626 (paren-face-match ((t (:background "turquoise")))) 7627 (paren-face-mismatch ((t (:background "purple" :foreground "white")))) 7628 (paren-face-no-match ((t (:background "yellow" :foreground "black")))) 7629 (primary-selection ((t (:background "sienna" :foreground "light cyan")))) 7630 (region ((t (:background "sienna" :foreground "light cyan")))) 7631 (secondary-selection ((t (:background "forest green" :foreground "white smoke")))) 7632 (underline ((t (:underline t)))) 7633 (zmacs-region ((t (:background "sienna" :foreground "light cyan"))))))) 7634 7635 (defun color-theme-marine () 7636 "Color theme by Girish Bharadwaj, created 2001-06-22. 7637 Matches the MS Windows Marine color theme. 7638 Includes custom, font-lock, paren, widget." 7639 (interactive) 7640 (color-theme-install 7641 '(color-theme-marine 7642 ((background-color . "#9dcec9") 7643 (background-mode . light) 7644 (border-color . "black") 7645 (cursor-color . "yellow") 7646 (foreground-color . "darkslategray") 7647 (mouse-color . "sienna1")) 7648 ((buffers-tab-face . buffers-tab) 7649 (gnus-mouse-face . highlight) 7650 (smiley-mouse-face . highlight)) 7651 (default ((t (nil)))) 7652 (blue ((t (:foreground "blue")))) 7653 (bold ((t (:bold t)))) 7654 (bold-italic ((t (nil)))) 7655 (border-glyph ((t (nil)))) 7656 (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray")))) 7657 (custom-button-face ((t (nil)))) 7658 (custom-changed-face ((t (:background "blue" :foreground "white")))) 7659 (custom-comment-face ((t (:background "gray85")))) 7660 (custom-comment-tag-face ((t (:foreground "blue4")))) 7661 (custom-documentation-face ((t (nil)))) 7662 (custom-face-tag-face ((t (:underline t)))) 7663 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 7664 (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink")))) 7665 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 7666 (custom-modified-face ((t (:background "blue" :foreground "white")))) 7667 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 7668 (custom-saved-face ((t (:underline t)))) 7669 (custom-set-face ((t (:background "white" :foreground "blue")))) 7670 (custom-state-face ((t (:foreground "darkgreen")))) 7671 (custom-variable-button-face ((t (:underline t :bold t)))) 7672 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 7673 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 7674 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 7675 (display-time-time-balloon-face ((t (:foreground "red")))) 7676 (font-lock-builtin-face ((t (:foreground "SteelBlue")))) 7677 (font-lock-comment-face ((t (:foreground "cadetblue")))) 7678 (font-lock-constant-face ((t (:foreground "OrangeRed")))) 7679 (font-lock-doc-string-face ((t (:foreground "Salmon")))) 7680 (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue")))) 7681 (font-lock-keyword-face ((t (:bold t :foreground "purple")))) 7682 (font-lock-preprocessor-face ((t (:foreground "SteelBlue")))) 7683 (font-lock-reference-face ((t (:foreground "SteelBlue")))) 7684 (font-lock-string-face ((t (:foreground "royalblue")))) 7685 (font-lock-type-face ((t (:foreground "darkmagenta")))) 7686 (font-lock-variable-name-face ((t (:foreground "violetred")))) 7687 (font-lock-warning-face ((t (:bold t :foreground "red")))) 7688 (green ((t (:foreground "green")))) 7689 (gui-button-face ((t (:background "grey75" :foreground "black")))) 7690 (gui-element ((t (:background "#489088" :foreground "black")))) 7691 (highlight ((t (:background "darkolivegreen" :foreground "white")))) 7692 (isearch ((t (:background "blue")))) 7693 (isearch-secondary ((t (:foreground "red3")))) 7694 (italic ((t (nil)))) 7695 (left-margin ((t (nil)))) 7696 (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) 7697 (modeline ((t (:background "black" :foreground "white")))) 7698 (modeline-buffer-id ((t (:background "black" :foreground "white")))) 7699 (modeline-mousable ((t (:background "black" :foreground "white")))) 7700 (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) 7701 (paren-blink-off ((t (:foreground "black")))) 7702 (paren-match ((t (:background "darkolivegreen" :foreground "white")))) 7703 (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray")))) 7704 (pointer ((t (nil)))) 7705 (primary-selection ((t (:background "blue")))) 7706 (red ((t (:foreground "red")))) 7707 (region ((t (:background "blue")))) 7708 (right-margin ((t (nil)))) 7709 (secondary-selection ((t (:background "darkslateblue" :foreground "white")))) 7710 (template-message-face ((t (:bold t)))) 7711 (text-cursor ((t (:background "yellow" :foreground "#9dcec9")))) 7712 (toolbar ((t (nil)))) 7713 (underline ((t (:underline t)))) 7714 (vertical-divider ((t (nil)))) 7715 (widget ((t (nil)))) 7716 (widget-button-face ((t (:bold t)))) 7717 (widget-button-pressed-face ((t (:foreground "red")))) 7718 (widget-documentation-face ((t (:foreground "forestgreen")))) 7719 (widget-field-face ((t (:background "gray")))) 7720 (widget-inactive-face ((t (:foreground "dimgray")))) 7721 (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) 7722 (yellow ((t (:foreground "yellow")))) 7723 (zmacs-region ((t (:background "blue"))))))) 7724 7725 (defun color-theme-blue-erc () 7726 "Color theme for erc faces only. 7727 This is intended for other color themes to use (eg. `color-theme-gnome2')." 7728 (color-theme-install 7729 '(color-theme-blue-erc 7730 nil 7731 (erc-action-face ((t (nil)))) 7732 (erc-bold-face ((t (:bold t)))) 7733 (erc-current-nick-face ((t (:bold t :foreground "yellow")))) 7734 (erc-default-face ((t (nil)))) 7735 (erc-direct-msg-face ((t (:foreground "pale green")))) 7736 (erc-error-face ((t (:bold t :foreground "IndianRed")))) 7737 (erc-highlight-face ((t (:bold t :foreground "pale green")))) 7738 (erc-input-face ((t (:foreground "light blue")))) 7739 (erc-inverse-face ((t (:background "steel blue")))) 7740 (erc-keyword-face ((t (:foreground "orange" :bold t)))) 7741 (erc-notice-face ((t (:foreground "light salmon")))) 7742 (erc-notice-face ((t (:foreground "MediumAquamarine")))) 7743 (erc-pal-face ((t (:foreground "pale green")))) 7744 (erc-prompt-face ((t (:foreground "light blue" :bold t)))) 7745 (fg:erc-color-face0 ((t (:foreground "white")))) 7746 (fg:erc-color-face1 ((t (:foreground "beige")))) 7747 (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) 7748 (fg:erc-color-face3 ((t (:foreground "light cyan")))) 7749 (fg:erc-color-face4 ((t (:foreground "powder blue")))) 7750 (fg:erc-color-face5 ((t (:foreground "sky blue")))) 7751 (fg:erc-color-face6 ((t (:foreground "dark sea green")))) 7752 (fg:erc-color-face7 ((t (:foreground "pale green")))) 7753 (fg:erc-color-face8 ((t (:foreground "medium spring green")))) 7754 (fg:erc-color-face9 ((t (:foreground "khaki")))) 7755 (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) 7756 (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) 7757 (fg:erc-color-face12 ((t (:foreground "light yellow")))) 7758 (fg:erc-color-face13 ((t (:foreground "yellow")))) 7759 (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) 7760 (fg:erc-color-face15 ((t (:foreground "lime green")))) 7761 (bg:erc-color-face0 ((t (nil)))) 7762 (bg:erc-color-face1 ((t (nil)))) 7763 (bg:erc-color-face2 ((t (nil)))) 7764 (bg:erc-color-face3 ((t (nil)))) 7765 (bg:erc-color-face4 ((t (nil)))) 7766 (bg:erc-color-face5 ((t (nil)))) 7767 (bg:erc-color-face6 ((t (nil)))) 7768 (bg:erc-color-face7 ((t (nil)))) 7769 (bg:erc-color-face8 ((t (nil)))) 7770 (bg:erc-color-face9 ((t (nil)))) 7771 (bg:erc-color-face10 ((t (nil)))) 7772 (bg:erc-color-face11 ((t (nil)))) 7773 (bg:erc-color-face12 ((t (nil)))) 7774 (bg:erc-color-face13 ((t (nil)))) 7775 (bg:erc-color-face14 ((t (nil)))) 7776 (bg:erc-color-face15 ((t (nil))))))) 7777 7778 (defun color-theme-dark-erc () 7779 "Color theme for erc faces only. 7780 This is intended for other color themes to use (eg. `color-theme-late-night')." 7781 (interactive) 7782 (color-theme-install 7783 '(color-theme-dark-erc 7784 nil 7785 (erc-action-face ((t (nil)))) 7786 (erc-bold-face ((t (:bold t)))) 7787 (erc-current-nick-face ((t (:bold t)))) 7788 (erc-default-face ((t (nil)))) 7789 (erc-direct-msg-face ((t (nil)))) 7790 (erc-error-face ((t (:bold t :foreground "IndianRed")))) 7791 (erc-highlight-face ((t (:bold t :foreground "pale green")))) 7792 (erc-input-face ((t (:foreground "#555")))) 7793 (erc-inverse-face ((t (:background "steel blue")))) 7794 (erc-keyword-face ((t (:foreground "#999" :bold t)))) 7795 (erc-nick-msg-face ((t (:foreground "#888")))) 7796 (erc-notice-face ((t (:foreground "#444")))) 7797 (erc-pal-face ((t (:foreground "#888")))) 7798 (erc-prompt-face ((t (:foreground "#777" :bold t)))) 7799 (erc-timestamp-face ((t (:foreground "#777" :bold t)))) 7800 (fg:erc-color-face0 ((t (:foreground "white")))) 7801 (fg:erc-color-face1 ((t (:foreground "beige")))) 7802 (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) 7803 (fg:erc-color-face3 ((t (:foreground "light cyan")))) 7804 (fg:erc-color-face4 ((t (:foreground "powder blue")))) 7805 (fg:erc-color-face5 ((t (:foreground "sky blue")))) 7806 (fg:erc-color-face6 ((t (:foreground "dark sea green")))) 7807 (fg:erc-color-face7 ((t (:foreground "pale green")))) 7808 (fg:erc-color-face8 ((t (:foreground "medium spring green")))) 7809 (fg:erc-color-face9 ((t (:foreground "khaki")))) 7810 (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) 7811 (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) 7812 (fg:erc-color-face12 ((t (:foreground "light yellow")))) 7813 (fg:erc-color-face13 ((t (:foreground "yellow")))) 7814 (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) 7815 (fg:erc-color-face15 ((t (:foreground "lime green")))) 7816 (bg:erc-color-face0 ((t (nil)))) 7817 (bg:erc-color-face1 ((t (nil)))) 7818 (bg:erc-color-face2 ((t (nil)))) 7819 (bg:erc-color-face3 ((t (nil)))) 7820 (bg:erc-color-face4 ((t (nil)))) 7821 (bg:erc-color-face5 ((t (nil)))) 7822 (bg:erc-color-face6 ((t (nil)))) 7823 (bg:erc-color-face7 ((t (nil)))) 7824 (bg:erc-color-face8 ((t (nil)))) 7825 (bg:erc-color-face9 ((t (nil)))) 7826 (bg:erc-color-face10 ((t (nil)))) 7827 (bg:erc-color-face11 ((t (nil)))) 7828 (bg:erc-color-face12 ((t (nil)))) 7829 (bg:erc-color-face13 ((t (nil)))) 7830 (bg:erc-color-face14 ((t (nil)))) 7831 (bg:erc-color-face15 ((t (nil))))))) 7832 7833 (defun color-theme-subtle-blue () 7834 "Color theme by Chris McMahan, created 2001-09-06. 7835 Light blue background. Includes bbdb, comint, cperl, custom, cvs, 7836 diary, dired, display-time, ecb, ediff, erc, eshell, font-lock, 7837 gnus, html-helper, info, isearch, jde, message, paren, semantic, 7838 sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml." 7839 (interactive) 7840 (color-theme-install 7841 '(color-theme-subtle-blue 7842 ((background-color . "#65889C") 7843 (background-mode . dark) 7844 (background-toolbar-color . "#cf3ccf3ccf3c") 7845 (border-color . "black") 7846 (bottom-toolbar-shadow-color . "#79e77df779e7") 7847 (cursor-color . "white") 7848 (foreground-color . "#eedfcc") 7849 (mouse-color . "Grey") 7850 (top-toolbar-shadow-color . "#fffffbeeffff") 7851 (viper-saved-cursor-color-in-replace-mode . "Red3")) 7852 ((blank-space-face . blank-space-face) 7853 (blank-tab-face . blank-tab-face) 7854 (ecb-source-in-directories-buffer-face . ecb-sources-face) 7855 (gnus-mouse-face . highlight) 7856 (list-matching-lines-face . bold) 7857 (view-highlight-face . highlight) 7858 (vm-highlight-url-face . my-url-face) 7859 (vm-highlighted-header-face . my-url-face) 7860 (vm-mime-button-face . gui-button-face) 7861 (vm-summary-highlight-face . my-summary-highlight-face)) 7862 (default ((t (nil)))) 7863 (bbdb-company ((t (:italic t)))) 7864 (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine")))) 7865 (bbdb-field-value ((t (nil)))) 7866 (bbdb-name ((t (:underline t)))) 7867 (blank-space-face ((t (:background "gray80")))) 7868 (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray")))) 7869 (blue ((t (:foreground "blue")))) 7870 (bold ((t (:bold t :foreground "MediumAquamarine")))) 7871 (bold-italic ((t (:italic t :bold t :foreground "SkyBlue")))) 7872 (border ((t (:background "black")))) 7873 (border-glyph ((t (nil)))) 7874 (calendar-today-face ((t (:underline t)))) 7875 (comint-highlight-input ((t (:bold t)))) 7876 (comint-highlight-prompt ((t (:foreground "cyan")))) 7877 (comint-input-face ((t (:foreground "deepskyblue")))) 7878 (cperl-array-face ((t (:bold t :foreground "Yellow")))) 7879 (cperl-hash-face ((t (:italic t :bold t :foreground "White")))) 7880 (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) 7881 (cursor ((t (:background "white")))) 7882 (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine")))) 7883 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) 7884 (custom-changed-face ((t (:background "blue" :foreground "white")))) 7885 (custom-comment-face ((t (:background "dim gray")))) 7886 (custom-comment-tag-face ((t (:foreground "gray80")))) 7887 (custom-documentation-face ((t (:foreground "Grey")))) 7888 (custom-face-tag-face ((t (:underline t)))) 7889 (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine")))) 7890 (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine")))) 7891 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 7892 (custom-modified-face ((t (:background "blue" :foreground "white")))) 7893 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 7894 (custom-saved-face ((t (:underline t)))) 7895 (custom-set-face ((t (:background "white" :foreground "blue")))) 7896 (custom-state-face ((t (:foreground "yellow")))) 7897 (custom-variable-button-face ((t (:underline t :bold t)))) 7898 (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine")))) 7899 (cvs-filename-face ((t (:foreground "blue4")))) 7900 (cvs-handled-face ((t (:foreground "pink")))) 7901 (cvs-header-face ((t (:bold t :foreground "blue4")))) 7902 (cvs-marked-face ((t (:bold t :foreground "green3")))) 7903 (cvs-msg-face ((t (:italic t)))) 7904 (cvs-need-action-face ((t (:foreground "orange")))) 7905 (cvs-unknown-face ((t (:foreground "red")))) 7906 (diary-face ((t (:bold t :foreground "cyan")))) 7907 (dired-face-boring ((t (:foreground "Gray65")))) 7908 (dired-face-directory ((t (:bold t :foreground "sky blue")))) 7909 (dired-face-executable ((t (:foreground "MediumAquaMarine")))) 7910 (dired-face-flagged ((t (:foreground "Cyan")))) 7911 (dired-face-marked ((t (:foreground "cyan")))) 7912 (dired-face-permissions ((t (:foreground "aquamarine")))) 7913 (dired-face-setuid ((t (:foreground "LightSalmon")))) 7914 (dired-face-socket ((t (:foreground "LightBlue")))) 7915 (dired-face-symlink ((t (:foreground "gray95")))) 7916 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 7917 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 7918 (display-time-time-balloon-face ((t (:foreground "red")))) 7919 (ecb-sources-face ((t (:foreground "LightBlue1")))) 7920 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 7921 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 7922 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 7923 (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white")))) 7924 (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black")))) 7925 (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White")))) 7926 (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White")))) 7927 (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black")))) 7928 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 7929 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 7930 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 7931 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 7932 (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White")))) 7933 (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black")))) 7934 (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black")))) 7935 (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White")))) 7936 (erc-action-face ((t (:bold t)))) 7937 (erc-bold-face ((t (:bold t)))) 7938 (erc-default-face ((t (nil)))) 7939 (erc-direct-msg-face ((t (:foreground "LightSalmon")))) 7940 (erc-error-face ((t (:bold t :foreground "yellow")))) 7941 (erc-input-face ((t (:foreground "Beige")))) 7942 (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) 7943 (erc-notice-face ((t (:foreground "MediumAquamarine")))) 7944 (erc-pal-face ((t (:foreground "PaleGreen")))) 7945 (erc-prompt-face ((t (:foreground "MediumAquamarine")))) 7946 (erc-underline-face ((t (:underline t)))) 7947 (eshell-ls-archive-face ((t (:bold t :foreground "wheat")))) 7948 (eshell-ls-backup-face ((t (:foreground "Grey")))) 7949 (eshell-ls-clutter-face ((t (:bold t :foreground "wheat")))) 7950 (eshell-ls-directory-face ((t (:bold t :foreground "Yellow")))) 7951 (eshell-ls-executable-face ((t (:bold t :foreground "wheat")))) 7952 (eshell-ls-missing-face ((t (:bold t :foreground "wheat")))) 7953 (eshell-ls-picture-face ((t (:foreground "wheat")))) 7954 (eshell-ls-product-face ((t (:foreground "wheat")))) 7955 (eshell-ls-readonly-face ((t (:foreground "wheat")))) 7956 (eshell-ls-special-face ((t (:bold t :foreground "wheat")))) 7957 (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) 7958 (eshell-ls-text-face ((t (:foreground "wheat")))) 7959 (eshell-ls-todo-face ((t (:foreground "wheat")))) 7960 (eshell-ls-unreadable-face ((t (:foreground "wheat3")))) 7961 (eshell-prompt-face ((t (:bold t :foreground "PaleGreen")))) 7962 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 7963 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 7964 (excerpt ((t (:italic t)))) 7965 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 7966 (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) 7967 (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) 7968 (font-latex-italic-face ((t (nil)))) 7969 (font-latex-math-face ((t (nil)))) 7970 (font-latex-sedate-face ((t (:foreground "Gray85")))) 7971 (font-latex-string-face ((t (:foreground "orange")))) 7972 (font-latex-warning-face ((t (:foreground "gold")))) 7973 (font-lock-builtin-face ((t (:foreground "PaleGreen")))) 7974 (font-lock-comment-face ((t (:italic t :foreground "Wheat3")))) 7975 (font-lock-constant-face ((t (:foreground "LightBlue")))) 7976 (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen")))) 7977 (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen")))) 7978 (font-lock-exit-face ((t (:foreground "green")))) 7979 (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan")))) 7980 (font-lock-keyword-face ((t (:bold t :foreground "LightBlue")))) 7981 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 7982 (font-lock-reference-face ((t (:foreground "PaleGreen")))) 7983 (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine")))) 7984 (font-lock-type-face ((t (:bold t :foreground "LightBlue")))) 7985 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue")))) 7986 (font-lock-warning-face ((t (:bold t :foreground "LightSalmon")))) 7987 (fringe ((t (:background "darkslategrey")))) 7988 (gnus-cite-attribution-face ((t (:italic t :bold t)))) 7989 (gnus-cite-face-1 ((t (:foreground "LightBlue")))) 7990 (gnus-cite-face-10 ((t (:foreground "LightBlue")))) 7991 (gnus-cite-face-11 ((t (:foreground "LightBlue")))) 7992 (gnus-cite-face-2 ((t (:foreground "LightBlue")))) 7993 (gnus-cite-face-3 ((t (:foreground "LightBlue")))) 7994 (gnus-cite-face-4 ((t (:foreground "LightBlue")))) 7995 (gnus-cite-face-5 ((t (:foreground "LightBlue")))) 7996 (gnus-cite-face-6 ((t (:foreground "LightBlue")))) 7997 (gnus-cite-face-7 ((t (:foreground "LightBlue")))) 7998 (gnus-cite-face-8 ((t (:foreground "LightBlue")))) 7999 (gnus-cite-face-9 ((t (:foreground "LightBlue")))) 8000 (gnus-emphasis-bold ((t (:bold t)))) 8001 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 8002 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 8003 (gnus-emphasis-italic ((t (:italic t)))) 8004 (gnus-emphasis-underline ((t (:underline t)))) 8005 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 8006 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 8007 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 8008 (gnus-filterhist-face-1 ((t (nil)))) 8009 (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) 8010 (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) 8011 (gnus-group-mail-2-empty-face ((t (:foreground "gray80")))) 8012 (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) 8013 (gnus-group-mail-3-empty-face ((t (:foreground "gray80")))) 8014 (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) 8015 (gnus-group-mail-low-empty-face ((t (:foreground "gray80")))) 8016 (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue")))) 8017 (gnus-group-news-1-empty-face ((t (:foreground "gray80")))) 8018 (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) 8019 (gnus-group-news-2-empty-face ((t (:foreground "gray80")))) 8020 (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine")))) 8021 (gnus-group-news-3-empty-face ((t (:foreground "gray80")))) 8022 (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) 8023 (gnus-group-news-4-empty-face ((t (:foreground "gray80")))) 8024 (gnus-group-news-4-face ((t (:bold t :foreground "Wheat")))) 8025 (gnus-group-news-5-empty-face ((t (:foreground "gray80")))) 8026 (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) 8027 (gnus-group-news-6-empty-face ((t (:foreground "gray80")))) 8028 (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) 8029 (gnus-group-news-low-empty-face ((t (:foreground "gray80")))) 8030 (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) 8031 (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3")))) 8032 (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) 8033 (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) 8034 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) 8035 (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) 8036 (gnus-picons-face ((t (:background "white" :foreground "black")))) 8037 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 8038 (gnus-signature-face ((t (:italic t :foreground "LightBlue")))) 8039 (gnus-splash ((t (:foreground "Brown")))) 8040 (gnus-splash-face ((t (:foreground "LightBlue")))) 8041 (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80")))) 8042 (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue")))) 8043 (gnus-summary-high-read-face ((t (:bold t :foreground "gray80")))) 8044 (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) 8045 (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat")))) 8046 (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue")))) 8047 (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green")))) 8048 (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue")))) 8049 (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) 8050 (gnus-summary-normal-ancient-face ((t (:foreground "gray80")))) 8051 (gnus-summary-normal-read-face ((t (:foreground "gray80")))) 8052 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown")))) 8053 (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat")))) 8054 (gnus-summary-selected-face ((t (:underline t)))) 8055 (gnus-x-face ((t (:background "white" :foreground "black")))) 8056 (green ((t (:foreground "green")))) 8057 (gui-button-face ((t (:background "cyan" :foreground "#65889C")))) 8058 (gui-element ((t (:background "Gray")))) 8059 (header-line ((t (:background "grey20" :foreground "grey90")))) 8060 (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) 8061 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 8062 (highlight-changes-face ((t (:foreground "red")))) 8063 (highline-face ((t (:background "SeaGreen")))) 8064 (holiday-face ((t (:background "DimGray")))) 8065 (html-helper-bold-face ((t (:foreground "DarkRed")))) 8066 (html-helper-italic-face ((t (:foreground "DarkBlue")))) 8067 (html-helper-underline-face ((t (:underline t :foreground "Black")))) 8068 (html-tag-face ((t (:foreground "Blue")))) 8069 (info-menu-5 ((t (:underline t)))) 8070 (info-node ((t (:underline t :italic t :bold t :foreground "light blue")))) 8071 (info-xref ((t (:bold t :foreground "light blue")))) 8072 (isearch ((t (:background "Aquamarine" :foreground "SteelBlue")))) 8073 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 8074 (isearch-secondary ((t (:foreground "red3")))) 8075 (italic ((t (:italic t)))) 8076 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 8077 (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) 8078 (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) 8079 (jde-java-font-lock-bold-face ((t (:bold t)))) 8080 (jde-java-font-lock-code-face ((t (nil)))) 8081 (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) 8082 (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) 8083 (jde-java-font-lock-italic-face ((t (:italic t)))) 8084 (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue")))) 8085 (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) 8086 (jde-java-font-lock-number-face ((t (:foreground "LightBlue")))) 8087 (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) 8088 (jde-java-font-lock-pre-face ((t (nil)))) 8089 (jde-java-font-lock-underline-face ((t (:underline t)))) 8090 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 8091 (left-margin ((t (nil)))) 8092 (linemenu-face ((t (:background "gray30")))) 8093 (list-mode-item-selected ((t (nil)))) 8094 (makefile-space-face ((t (:background "hotpink")))) 8095 (menu ((t (:background "wheat" :foreground "gray30")))) 8096 (message-cited-text-face ((t (:foreground "White")))) 8097 (message-header-cc-face ((t (:bold t :foreground "light cyan")))) 8098 (message-header-name-face ((t (:foreground "LightBlue")))) 8099 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) 8100 (message-header-other-face ((t (:foreground "LightSkyBlue3")))) 8101 (message-header-subject-face ((t (:bold t :foreground "light cyan")))) 8102 (message-header-to-face ((t (:bold t :foreground "light cyan")))) 8103 (message-header-xheader-face ((t (:foreground "LightBlue")))) 8104 (message-mml-face ((t (:bold t :foreground "LightBlue")))) 8105 (message-separator-face ((t (:foreground "LightBlue")))) 8106 (mmm-default-submode-face ((t (:background "#c0c0c5")))) 8107 (modeline ((t (:background "#4f657d" :foreground "gray80")))) 8108 (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80")))) 8109 (modeline-mousable ((t (:background "#4f657d" :foreground "gray80")))) 8110 (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80")))) 8111 (mouse ((t (:background "Grey")))) 8112 (my-summary-highlight-face ((t (:foreground "White")))) 8113 (my-url-face ((t (:foreground "PaleTurquoise")))) 8114 (nil ((t (nil)))) 8115 (paren-blink-off ((t (:foreground "gray")))) 8116 (paren-face-match ((t (:background "turquoise")))) 8117 (paren-face-mismatch ((t (:background "purple" :foreground "white")))) 8118 (paren-face-no-match ((t (:background "yellow" :foreground "black")))) 8119 (paren-match ((t (:background "darkseagreen2")))) 8120 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 8121 (paren-mismatch-face ((t (:bold t)))) 8122 (paren-no-match-face ((t (:bold t)))) 8123 (pointer ((t (nil)))) 8124 (primary-selection ((t (:background "gray65")))) 8125 (red ((t (:foreground "red")))) 8126 (region ((t (:background "CadetBlue" :foreground "gray80")))) 8127 (right-margin ((t (nil)))) 8128 (scroll-bar ((t (nil)))) 8129 (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d")))) 8130 (semantic-dirty-token-face ((t (:background "gray10")))) 8131 (semantic-intangible-face ((t (:foreground "gray25")))) 8132 (semantic-read-only-face ((t (:background "gray25")))) 8133 (senator-intangible-face ((t (:foreground "gray75")))) 8134 (senator-momentary-highlight-face ((t (:background "gray80")))) 8135 (senator-read-only-face ((t (:background "#664444")))) 8136 (sgml-comment-face ((t (:foreground "dark turquoise")))) 8137 (sgml-doctype-face ((t (:foreground "red")))) 8138 (sgml-end-tag-face ((t (:foreground "blue")))) 8139 (sgml-entity-face ((t (:foreground "magenta")))) 8140 (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) 8141 (sgml-ms-end-face ((t (:foreground "green")))) 8142 (sgml-ms-start-face ((t (:foreground "yellow")))) 8143 (sgml-pi-face ((t (:foreground "lime green")))) 8144 (sgml-sgml-face ((t (:foreground "brown")))) 8145 (sgml-short-ref-face ((t (:foreground "deep sky blue")))) 8146 (sgml-start-tag-face ((t (:foreground "dark green")))) 8147 (shell-option-face ((t (:foreground "blue")))) 8148 (shell-output-2-face ((t (:foreground "darkseagreen")))) 8149 (shell-output-3-face ((t (:foreground "slategray")))) 8150 (shell-output-face ((t (:foreground "palegreen")))) 8151 (shell-prompt-face ((t (:foreground "red")))) 8152 (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue")))) 8153 (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White")))) 8154 (speedbar-button-face ((t (:bold t :foreground "LightBlue")))) 8155 (speedbar-directory-face ((t (:bold t :foreground "yellow")))) 8156 (speedbar-file-face ((t (:bold t :foreground "wheat")))) 8157 (speedbar-highlight-face ((t (:background "sea green")))) 8158 (speedbar-selected-face ((t (:underline t)))) 8159 (speedbar-tag-face ((t (:foreground "LightBlue")))) 8160 (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) 8161 (template-message-face ((t (:bold t)))) 8162 (term-black ((t (:foreground "black")))) 8163 (term-blackbg ((t (:background "black")))) 8164 (term-blue ((t (:foreground "blue")))) 8165 (term-bluebg ((t (:background "blue")))) 8166 (term-bold ((t (:bold t)))) 8167 (term-cyan ((t (:foreground "cyan")))) 8168 (term-cyanbg ((t (:background "cyan")))) 8169 (term-default-bg ((t (nil)))) 8170 (term-default-bg-inv ((t (nil)))) 8171 (term-default-fg ((t (nil)))) 8172 (term-default-fg-inv ((t (nil)))) 8173 (term-green ((t (:foreground "green")))) 8174 (term-greenbg ((t (:background "green")))) 8175 (term-invisible ((t (nil)))) 8176 (term-invisible-inv ((t (nil)))) 8177 (term-magenta ((t (:foreground "magenta")))) 8178 (term-magentabg ((t (:background "magenta")))) 8179 (term-red ((t (:foreground "red")))) 8180 (term-redbg ((t (:background "red")))) 8181 (term-underline ((t (:underline t)))) 8182 (term-white ((t (:foreground "white")))) 8183 (term-whitebg ((t (:background "white")))) 8184 (term-yellow ((t (:foreground "yellow")))) 8185 (term-yellowbg ((t (:background "yellow")))) 8186 (text-cursor ((t (:background "Red3" :foreground "white")))) 8187 (tool-bar ((t (:background "grey75" :foreground "black")))) 8188 (toolbar ((t (:background "Gray")))) 8189 (trailing-whitespace ((t (:background "red")))) 8190 (underline ((t (:underline t)))) 8191 (variable-pitch ((t (nil)))) 8192 (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) 8193 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 8194 (vertical-divider ((t (:background "Gray")))) 8195 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 8196 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 8197 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 8198 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 8199 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 8200 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 8201 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 8202 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 8203 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 8204 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 8205 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 8206 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 8207 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 8208 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 8209 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 8210 (vhdl-speedbar-package-face ((t (:foreground "Gray50")))) 8211 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50")))) 8212 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 8213 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 8214 (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen")))) 8215 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 8216 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 8217 (vm-header-content-face ((t (:italic t :foreground "gray80")))) 8218 (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan")))) 8219 (vm-header-name-face ((t (:foreground "cyan")))) 8220 (vm-header-subject-face ((t (:foreground "cyan")))) 8221 (vm-header-to-face ((t (:italic t :foreground "cyan")))) 8222 (vm-message-cited-face ((t (:foreground "Gray80")))) 8223 (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) 8224 (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) 8225 (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) 8226 (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) 8227 (vm-summary-highlight-face ((t (:foreground "White")))) 8228 (vmpc-pre-sig-face ((t (:foreground "Aquamarine")))) 8229 (vmpc-sig-face ((t (:foreground "LightBlue")))) 8230 (vvb-face ((t (:background "pink" :foreground "black")))) 8231 (widget-button-face ((t (:bold t)))) 8232 (widget-button-pressed-face ((t (:foreground "cyan")))) 8233 (widget-documentation-face ((t (:foreground "LightBlue")))) 8234 (widget-field-face ((t (:foreground "LightBlue")))) 8235 (widget-inactive-face ((t (:foreground "Wheat3")))) 8236 (widget-single-line-field-face ((t (:foreground "LightBlue")))) 8237 (woman-bold-face ((t (:bold t)))) 8238 (woman-italic-face ((t (:foreground "beige")))) 8239 (woman-unknown-face ((t (:foreground "LightSalmon")))) 8240 (xref-keyword-face ((t (:foreground "Cyan")))) 8241 (xref-list-pilot-face ((t (:foreground "navy")))) 8242 (xref-list-symbol-face ((t (:foreground "navy")))) 8243 (xxml-emph-1-face ((t (:background "lightyellow")))) 8244 (xxml-emph-2-face ((t (:background "lightyellow")))) 8245 (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) 8246 (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) 8247 (xxml-header-3-face ((t (:background "seashell1")))) 8248 (xxml-header-4-face ((t (:background "seashell1")))) 8249 (xxml-interaction-face ((t (:background "lightcyan")))) 8250 (xxml-rug-face ((t (:background "cyan")))) 8251 (xxml-sparkle-face ((t (:background "yellow")))) 8252 (xxml-unbreakable-space-face ((t (:underline t :foreground "grey")))) 8253 (yellow ((t (:foreground "yellow")))) 8254 (zmacs-region ((t (:background "#4f657d"))))))) 8255 8256 (defun color-theme-dark-blue () 8257 "Color theme by Chris McMahan, created 2001-09-09. 8258 Based on `color-theme-subtle-blue' with a slightly darker background." 8259 (interactive) 8260 (color-theme-subtle-blue) 8261 (let ((color-theme-is-cumulative t)) 8262 (color-theme-install 8263 '(color-theme-dark-blue 8264 ((background-color . "#537182") 8265 (foreground-color . "AntiqueWhite2")) 8266 nil 8267 (default ((t (nil)))) 8268 (blank-space-face ((t (:background "LightGray")))) 8269 (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray")))) 8270 (cursor ((t (:background "LightGray")))) 8271 (dired-face-executable ((t (:foreground "green yellow")))) 8272 (dired-face-flagged ((t (:foreground "tomato")))) 8273 (dired-face-marked ((t (:foreground "light salmon")))) 8274 (dired-face-setuid ((t (:foreground "Red")))) 8275 (dired-face-socket ((t (:foreground "magenta")))) 8276 (fixed ((t (:bold t)))) 8277 (font-lock-comment-face ((t (:italic t :foreground "Gray80")))) 8278 (font-lock-doc-face ((t (:bold t)))) 8279 (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow")))) 8280 (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen")))) 8281 (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) 8282 (gui-button-face ((t (:background "DarkSalmon" :foreground "white")))) 8283 (modeline ((t (:background "#c1ccd9" :foreground "#4f657d")))) 8284 (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d")))) 8285 (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d")))) 8286 (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d")))) 8287 (my-url-face ((t (:foreground "LightBlue")))) 8288 (region ((t (:background "PaleTurquoise4" :foreground "gray80")))) 8289 (secondary-selection ((t (:background "sea green" :foreground "yellow")))) 8290 (vm-header-content-face ((t (:italic t :foreground "wheat")))) 8291 (vm-header-from-face ((t (:italic t :foreground "wheat")))) 8292 (widget-button-pressed-face ((t (:foreground "red")))) 8293 (xref-keyword-face ((t (:foreground "blue")))) 8294 (zmacs-region ((t (:background "SlateGray")))))))) 8295 8296 (defun color-theme-jonadabian-slate () 8297 "Another slate-and-wheat color theme by Jonadab the Unsightly One. 8298 Updated 2001-10-12." 8299 (interactive) 8300 (color-theme-install 8301 '(color-theme-jonadabian-slate 8302 ((background-color . "#305050") 8303 (background-mode . dark) 8304 (border-color . "black") 8305 (cursor-color . "medium turquoise") 8306 (foreground-color . "#CCBB77") 8307 (mouse-color . "black")) 8308 ((list-matching-lines-face . bold) 8309 (ued-mode-keyname-face . modeline) 8310 (view-highlight-face . highlight)) 8311 (default ((t (nil)))) 8312 (fringe ((t (:background "#007080")))) 8313 (bold ((t (:bold t :foreground "#EEDDAA")))) 8314 (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA")))) 8315 (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA")))) 8316 (bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) 8317 (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) 8318 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) 8319 (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) 8320 (calendar-today-face ((t (:underline t :background "darkslategrey")))) 8321 (cperl-array-face ((t (:background "#004060")))) 8322 (cperl-hash-face ((t (:background "#004400")))) 8323 (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00")))) 8324 (custom-documentation-face ((t (:foreground "#10D010")))) 8325 (custom-face-tag-face ((t (:underline t :foreground "goldenrod")))) 8326 (custom-group-tag-face ((t (:underline t :foreground "light blue")))) 8327 (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) 8328 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 8329 (custom-modified-face ((t (:background "blue" :foreground "white")))) 8330 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 8331 (custom-saved-face ((t (:underline t)))) 8332 (custom-set-face ((t (:foreground "#6666dd")))) 8333 (custom-state-face ((t (:foreground "mediumaquamarine")))) 8334 (custom-variable-button-face ((t (:underline t :bold t)))) 8335 (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) 8336 (diary-face ((t (:foreground "red")))) 8337 (eshell-ls-archive-face ((t (:foreground "green")))) 8338 (eshell-ls-backup-face ((t (:foreground "grey60")))) 8339 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 8340 (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue")))) 8341 (eshell-ls-executable-face ((t (:foreground "white")))) 8342 (eshell-ls-missing-face ((t (:foreground "red")))) 8343 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 8344 (eshell-ls-readonly-face ((t (:foreground "indian red")))) 8345 (eshell-ls-special-face ((t (:foreground "yellow")))) 8346 (eshell-ls-symlink-face ((t (:foreground "#6666dd")))) 8347 (eshell-ls-unreadable-face ((t (:foreground "red")))) 8348 (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99")))) 8349 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 8350 (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66")))) 8351 (font-lock-constant-face ((t (:foreground "indian red")))) 8352 (font-lock-function-name-face ((t (:foreground "#D0D000")))) 8353 (font-lock-keyword-face ((t (:foreground "#00BBBB")))) 8354 (font-lock-string-face ((t (:foreground "#10D010")))) 8355 (font-lock-type-face ((t (:bold t :foreground "#ff7788")))) 8356 (font-lock-variable-name-face ((t (:foreground "#eeddaa")))) 8357 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 8358 (header-line ((t (:box (:line-width 1 :style released-button))))) 8359 (highlight ((t (:background "#226644")))) 8360 (highlight-changes-delete-face ((t (:background "navy" :foreground "red")))) 8361 (highlight-changes-face ((t (:background "navy")))) 8362 (holiday-face ((t (:foreground "#ff7744")))) 8363 (italic ((t (:italic t :foreground "#AA0000")))) 8364 (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000")))) 8365 (modeline ((t (:background "#007080" :foreground "cyan")))) 8366 (modeline-buffer-id ((t (:background "#007080" :foreground "cyan")))) 8367 (modeline-mousable ((t (:background "#007080" :foreground "cyan")))) 8368 (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan")))) 8369 (region ((t (:background "#226644")))) 8370 (secondary-selection ((t (:background "darkslategrey")))) 8371 (sgml-comment-face ((t (:foreground "grey60")))) 8372 (sgml-doctype-face ((t (:foreground "red")))) 8373 (sgml-end-tag-face ((t (:foreground "#00D0D0")))) 8374 (sgml-entity-face ((t (:foreground "indian red")))) 8375 (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) 8376 (sgml-ms-end-face ((t (:foreground "green")))) 8377 (sgml-ms-start-face ((t (:foreground "green")))) 8378 (sgml-pi-face ((t (:foreground "lime green")))) 8379 (sgml-sgml-face ((t (:foreground "brown")))) 8380 (sgml-short-ref-face ((t (:foreground "deep sky blue")))) 8381 (sgml-start-tag-face ((t (:foreground "#D0D000")))) 8382 (show-paren-match-face ((t (:background "#400055" :foreground "cyan")))) 8383 (show-paren-mismatch-face ((t (:background "red")))) 8384 (special-string-face ((t (:foreground "light green")))) 8385 (term-black ((t (:background "#000055" :foreground "black")))) 8386 (term-blackbg ((t (:background "black" :foreground "#CCBB77")))) 8387 (term-blue ((t (:background "#000055" :foreground "blue")))) 8388 (term-bluebg ((t (:background "blue" :foreground "#CCBB77")))) 8389 (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77")))) 8390 (term-cyan ((t (:background "#000055" :foreground "cyan")))) 8391 (term-cyanbg ((t (:background "darkcyan")))) 8392 (term-default-bg ((t (:foreground "#CCBB77")))) 8393 (term-default-bg-inv ((t (:foreground "#CCBB77")))) 8394 (term-default-fg ((t (:background "#000055")))) 8395 (term-default-fg-inv ((t (:background "#000055")))) 8396 (term-green ((t (:background "#000055" :foreground "green")))) 8397 (term-greenbg ((t (:background "darkgreen")))) 8398 (term-invisible ((t (:foreground "#CCBB77")))) 8399 (term-invisible-inv ((t (:foreground "#CCBB77")))) 8400 (term-magenta ((t (:background "#000055" :foreground "magenta")))) 8401 (term-magentabg ((t (:background "darkmagenta")))) 8402 (term-red ((t (:background "#000055" :foreground "red")))) 8403 (term-redbg ((t (:background "darkred")))) 8404 (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77")))) 8405 (term-white ((t (:background "#000055" :foreground "white")))) 8406 (term-whitebg ((t (:background "grey50")))) 8407 (term-yellow ((t (:background "#000055" :foreground "yellow")))) 8408 (term-yellowbg ((t (:background "#997700")))) 8409 (trailing-whitespace ((t (:background "#23415A")))) 8410 (underline ((t (:underline t)))) 8411 (gnus-emphasis-underline ((t (:underline t)))) 8412 (widget-button-face ((t (:bold t)))) 8413 (widget-button-pressed-face ((t (:foreground "red")))) 8414 (widget-documentation-face ((t (:foreground "green")))) 8415 (widget-field-face ((t (:background "grey35" :foreground "black")))) 8416 (widget-inactive-face ((t (:foreground "gray")))) 8417 (widget-single-line-field-face ((t (:background "dim gray"))))))) 8418 8419 (defun color-theme-gray1 () 8420 "Color theme by Paul Pulli, created 2001-10-19." 8421 (interactive) 8422 (color-theme-install 8423 '(color-theme-gray1 8424 ((background-color . "darkgray") 8425 (background-mode . light) 8426 (background-toolbar-color . "#949494949494") 8427 (border-color . "#000000000000") 8428 (bottom-toolbar-shadow-color . "#595959595959") 8429 (cursor-color . "Yellow") 8430 (foreground-color . "black") 8431 (top-toolbar-shadow-color . "#b2b2b2b2b2b2")) 8432 nil 8433 (default ((t (nil)))) 8434 (blue ((t (:foreground "blue")))) 8435 (bold ((t (:bold t)))) 8436 (bold-italic ((t (:italic t :bold t)))) 8437 (border-glyph ((t (nil)))) 8438 (cperl-here-face ((t (:background "gray68" :foreground "DeepPink")))) 8439 (font-lock-builtin-face ((t (:bold t :foreground "red3")))) 8440 (font-lock-comment-face ((t (:foreground "gray50")))) 8441 (font-lock-constant-face ((t (:bold t :foreground "blue3")))) 8442 (font-lock-doc-string-face ((t (:foreground "black")))) 8443 (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3")))) 8444 (font-lock-keyword-face ((t (:bold t :foreground "red")))) 8445 (font-lock-other-type-face ((t (:bold t :foreground "green4")))) 8446 (font-lock-preprocessor-face ((t (:bold t :foreground "blue3")))) 8447 (font-lock-reference-face ((t (:bold t :foreground "red3")))) 8448 (font-lock-string-face ((t (:foreground "red")))) 8449 (font-lock-type-face ((t (:bold t :foreground "white")))) 8450 (font-lock-variable-name-face ((t (:bold t :foreground "blue3")))) 8451 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 8452 (green ((t (:foreground "green4")))) 8453 (gui-button-face ((t (:background "black" :foreground "red")))) 8454 (gui-element ((t (:background "gray58")))) 8455 (highlight ((t (:background "magenta" :foreground "yellow")))) 8456 (isearch ((t (:background "red" :foreground "yellow")))) 8457 (italic ((t (:italic t)))) 8458 (left-margin ((t (nil)))) 8459 (list-mode-item-selected ((t (:background "gray90" :foreground "purple")))) 8460 (m4-face ((t (:background "gray90" :foreground "orange3")))) 8461 (message-cited-text ((t (nil)))) 8462 (message-header-contents ((t (nil)))) 8463 (message-headers ((t (nil)))) 8464 (message-highlighted-header-contents ((t (nil)))) 8465 (modeline ((t (:background "#aa80aa" :foreground "White")))) 8466 (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen")))) 8467 (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan")))) 8468 (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow")))) 8469 (paren-blink-off ((t (:foreground "gray58")))) 8470 (paren-blink-on ((t (:foreground "purple")))) 8471 (paren-match ((t (:background "gray68" :foreground "white")))) 8472 (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) 8473 (pointer ((t (nil)))) 8474 (primary-selection ((t (:background "gray")))) 8475 (red ((t (:foreground "red")))) 8476 (right-margin ((t (nil)))) 8477 (secondary-selection ((t (:background "paleturquoise")))) 8478 (text-cursor ((t (:background "Yellow" :foreground "darkgray")))) 8479 (toolbar ((t (:background "#aa80aa" :foreground "linen")))) 8480 (underline ((t (:underline t)))) 8481 (vertical-divider ((t (nil)))) 8482 (x-face ((t (:background "black" :foreground "lavenderblush")))) 8483 (yellow ((t (:foreground "yellow3")))) 8484 (zmacs-region ((t (:background "paleturquoise" :foreground "black"))))))) 8485 8486 (defun color-theme-word-perfect () 8487 "White on blue background, based on WordPerfect 5.1. 8488 Color theme by Thomas Gehrlein, created 2001-10-21." 8489 (interactive) 8490 (color-theme-install 8491 '(color-theme-word-perfect 8492 ((background-color . "blue4") 8493 (background-mode . dark) 8494 (border-color . "black") 8495 (cursor-color . "gold") 8496 (foreground-color . "white") 8497 (mouse-color . "black")) 8498 ((ecb-source-in-directories-buffer-face . ecb-sources-face) 8499 (gnus-mouse-face . highlight) 8500 (goto-address-mail-face . italic) 8501 (goto-address-mail-mouse-face . secondary-selection) 8502 (goto-address-url-face . bold) 8503 (goto-address-url-mouse-face . highlight) 8504 (list-matching-lines-face . bold) 8505 (view-highlight-face . highlight)) 8506 (default ((t (nil)))) 8507 (bbdb-field-name ((t (:foreground "lime green")))) 8508 (bbdb-field-value ((t (:foreground "white")))) 8509 (bbdb-name ((t (:underline t :foreground "lime green")))) 8510 (bold ((t (:bold t :foreground "white")))) 8511 (bold-italic ((t (:italic t :bold t :foreground "yellow")))) 8512 (calendar-today-face ((t (:underline t :foreground "deep sky blue")))) 8513 (diary-face ((t (:foreground "gold")))) 8514 (ecb-sources-face ((t (:foreground "LightBlue1")))) 8515 (edb-inter-field-face ((t (:foreground "deep sky blue")))) 8516 (edb-normal-summary-face ((t (:foreground "gold")))) 8517 (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral")))) 8518 (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan")))) 8519 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 8520 (font-lock-comment-face ((t (:foreground "deep sky blue")))) 8521 (font-lock-constant-face ((t (:foreground "lime green")))) 8522 (font-lock-doc-face ((t (:foreground "gold")))) 8523 (font-lock-doc-string-face ((t (:foreground "gold")))) 8524 (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed")))) 8525 (font-lock-keyword-face ((t (:foreground "lime green")))) 8526 (font-lock-preprocessor-face ((t (:foreground "lime green")))) 8527 (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) 8528 (font-lock-string-face ((t (:foreground "gold")))) 8529 (font-lock-type-face ((t (:foreground "lime green")))) 8530 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 8531 (font-lock-warning-face ((t (:bold t :foreground "firebrick")))) 8532 (gnus-emphasis-bold ((t (:foreground "yellow2")))) 8533 (gnus-emphasis-bold-italic ((t (:foreground "yellow2")))) 8534 (gnus-emphasis-italic ((t (:foreground "yellow2")))) 8535 (gnus-emphasis-underline ((t (:foreground "yellow2")))) 8536 (gnus-emphasis-underline-bold ((t (:foreground "yellow2")))) 8537 (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2")))) 8538 (gnus-emphasis-underline-italic ((t (:foreground "yellow2")))) 8539 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 8540 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) 8541 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 8542 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) 8543 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 8544 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) 8545 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 8546 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) 8547 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 8548 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) 8549 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 8550 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) 8551 (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue")))) 8552 (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue")))) 8553 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 8554 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) 8555 (gnus-header-content-face ((t (:foreground "gold")))) 8556 (gnus-header-from-face ((t (:foreground "gold")))) 8557 (gnus-header-name-face ((t (:foreground "deep sky blue")))) 8558 (gnus-header-newsgroups-face ((t (:foreground "gold")))) 8559 (gnus-header-subject-face ((t (:foreground "gold")))) 8560 (gnus-signature-face ((t (:foreground "gold")))) 8561 (gnus-splash-face ((t (:foreground "firebrick")))) 8562 (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue")))) 8563 (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue")))) 8564 (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue")))) 8565 (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue")))) 8566 (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green")))) 8567 (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue")))) 8568 (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue")))) 8569 (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue")))) 8570 (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green")))) 8571 (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue")))) 8572 (gnus-summary-normal-read-face ((t (:foreground "deep sky blue")))) 8573 (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue")))) 8574 (gnus-summary-normal-unread-face ((t (:foreground "lime green")))) 8575 (gnus-summary-selected-face ((t (:underline t :foreground "gold")))) 8576 (highlight ((t (:background "steel blue" :foreground "black")))) 8577 (holiday-face ((t (:background "blue4" :foreground "IndianRed1")))) 8578 (info-menu-5 ((t (:underline t :foreground "gold")))) 8579 (info-node ((t (:italic t :bold t :foreground "gold")))) 8580 (info-xref ((t (:bold t :foreground "gold")))) 8581 (isearch ((t (:background "firebrick" :foreground "white")))) 8582 (italic ((t (:italic t :foreground "yellow2")))) 8583 (message-cited-text-face ((t (:foreground "gold")))) 8584 (message-header-cc-face ((t (:bold t :foreground "green4")))) 8585 (message-header-name-face ((t (:foreground "deep sky blue")))) 8586 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) 8587 (message-header-other-face ((t (:foreground "gold")))) 8588 (message-header-subject-face ((t (:foreground "gold")))) 8589 (message-header-to-face ((t (:bold t :foreground "gold")))) 8590 (message-header-xheader-face ((t (:foreground "blue")))) 8591 (message-separator-face ((t (:foreground "lime green")))) 8592 (modeline ((t (:foreground "white" :background "black")))) 8593 (modeline-buffer-id ((t (:foreground "white" :background "black")))) 8594 (modeline-mousable ((t (:foreground "white" :background "black")))) 8595 (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) 8596 (overlay-empty-face ((t (nil)))) 8597 (primary-selection ((t (:background "firebrick" :foreground "white")))) 8598 (region ((t (:background "firebrick" :foreground "white")))) 8599 (secondary-selection ((t (:background "yellow2" :foreground "black")))) 8600 (semantic-dirty-token-face ((t (:background "gray10")))) 8601 (show-paren-match-face ((t (:background "deep sky blue" :foreground "black")))) 8602 (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white")))) 8603 (underline ((t (:underline t :background "blue4" :foreground "white"))))))) 8604 8605 ;; In order to produce this, follow these steps: 8606 ;; 8607 ;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related 8608 ;; entries. 8609 ;; 8610 ;; 1. cd into the Emacs lisp directory and run the following command: 8611 ;; ( for d in `find -type d`; \ 8612 ;; do grep --files-with-matches 'defface[ ]' $d/*.el; \ 8613 ;; done ) | sort | uniq 8614 ;; Put the result in a lisp block, using load-library calls. 8615 ;; 8616 ;; Repeat this for any directories on your load path which you want to 8617 ;; include in the standard. This might include W3, eshell, etc. 8618 ;; 8619 ;; Add some of the libraries that don't use defface: 8620 ;; 8621 ;; 2. Start emacs using the --no-init-file and --no-site-file command line 8622 ;; arguments. Evaluate the lisp block you prepared. 8623 ;; 3. Load color-theme and run color-theme-print. Save the output and use it 8624 ;; to define color-theme-standard. 8625 ;; 8626 ;; (progn 8627 ;; (load-library "add-log") 8628 ;; (load-library "calendar") 8629 ;; (load-library "comint") 8630 ;; (load-library "cus-edit") 8631 ;; (load-library "cus-face") 8632 ;; (load-library "custom") 8633 ;; (load-library "diff-mode") 8634 ;; (load-library "ediff-init") 8635 ;; (load-library "re-builder") 8636 ;; (load-library "viper-init") 8637 ;; (load-library "enriched") 8638 ;; (load-library "em-ls") 8639 ;; (load-library "em-prompt") 8640 ;; (load-library "esh-test") 8641 ;; (load-library "faces") 8642 ;; (load-library "font-lock") 8643 ;; (load-library "generic-x") 8644 ;; (load-library "gnus-art") 8645 ;; (load-library "gnus-cite") 8646 ;; (load-library "gnus") 8647 ;; (load-library "message") 8648 ;; (load-library "hilit-chg") 8649 ;; (load-library "hi-lock") 8650 ;; (load-library "info") 8651 ;; (load-library "isearch") 8652 ;; (load-library "log-view") 8653 ;; (load-library "paren") 8654 ;; (load-library "pcvs-info") 8655 ;; (load-library "antlr-mode") 8656 ;; (load-library "cperl-mode") 8657 ;; (load-library "ebrowse") 8658 ;; (load-library "idlwave") 8659 ;; (load-library "idlw-shell") 8660 ;; (load-library "make-mode") 8661 ;; (load-library "sh-script") 8662 ;; (load-library "vhdl-mode") 8663 ;; (load-library "smerge-mode") 8664 ;; (load-library "speedbar") 8665 ;; (load-library "strokes") 8666 ;; (load-library "artist") 8667 ;; (load-library "flyspell") 8668 ;; (load-library "texinfo") 8669 ;; (load-library "tex-mode") 8670 ;; (load-library "tooltip") 8671 ;; (load-library "vcursor") 8672 ;; (load-library "wid-edit") 8673 ;; (load-library "woman") 8674 ;; (load-library "term") 8675 ;; (load-library "man") 8676 ;; (load-file "/home/alex/elisp/color-theme.el") 8677 ;; (color-theme-print)) 8678 ;; 8679 ;; 4. Make the color theme usable on Xemacs (add more faces, resolve 8680 ;; :inherit attributes) 8681 ;; 8682 (defun color-theme-emacs-21 () 8683 "Color theme used by Emacs 21.1. 8684 Added and adapted for XEmacs by Alex Schroeder. Adaptation mostly 8685 consisted of resolving :inherit attributes and adding missing faces. 8686 This theme includes faces from the following Emacs libraries: add-log 8687 calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder 8688 viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x 8689 gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view 8690 paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell 8691 make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist 8692 flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man" 8693 (interactive) 8694 (color-theme-install 8695 '(color-theme-emacs-21 8696 ((background-color . "white") 8697 (background-mode . light) 8698 (border-color . "black") 8699 (cursor-color . "black") 8700 (foreground-color . "black") 8701 (mouse-color . "black")) 8702 ((Man-overstrike-face . bold) 8703 (Man-underline-face . underline) 8704 (cperl-here-face . font-lock-string-face) 8705 (cperl-invalid-face . underline) 8706 (cperl-pod-face . font-lock-comment-face) 8707 (cperl-pod-head-face . font-lock-variable-name-face) 8708 (gnus-article-button-face . bold) 8709 (gnus-article-mouse-face . highlight) 8710 (gnus-cite-attribution-face . gnus-cite-attribution-face) 8711 (gnus-mouse-face . highlight) 8712 (gnus-signature-face . gnus-signature-face) 8713 (gnus-summary-selected-face . gnus-summary-selected-face) 8714 (help-highlight-face . underline) 8715 (idlwave-class-arrow-face . bold) 8716 (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) 8717 (idlwave-shell-expression-face . secondary-selection) 8718 (idlwave-shell-stop-line-face . highlight) 8719 (ispell-highlight-face . highlight) 8720 (list-matching-lines-face . bold) 8721 (view-highlight-face . highlight) 8722 (viper-insert-state-cursor-color . "Green") 8723 (viper-replace-overlay-cursor-color . "Red") 8724 (widget-mouse-face . highlight)) 8725 (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8726 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 8727 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 8728 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 8729 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 8730 (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) 8731 (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) 8732 (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) 8733 (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) 8734 (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) 8735 (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) 8736 (bold ((t (:bold t :weight bold)))) 8737 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 8738 (border ((t (:background "black")))) 8739 (calendar-today-face ((t (:underline t)))) 8740 (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) 8741 (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) 8742 (change-log-date-face ((t (:foreground "RosyBrown")))) 8743 (change-log-email-face ((t (:foreground "DarkGoldenrod")))) 8744 (change-log-file-face ((t (:foreground "Blue")))) 8745 (change-log-function-face ((t (:foreground "DarkGoldenrod")))) 8746 (change-log-list-face ((t (:foreground "Purple")))) 8747 (change-log-name-face ((t (:foreground "CadetBlue")))) 8748 (comint-highlight-input ((t (:bold t :weight bold)))) 8749 (comint-highlight-prompt ((t (:foreground "dark blue")))) 8750 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) 8751 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) 8752 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 8753 (cursor ((t (:background "black")))) 8754 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 8755 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 8756 (custom-changed-face ((t (:background "blue" :foreground "white")))) 8757 (custom-comment-face ((t (:background "gray85")))) 8758 (custom-comment-tag-face ((t (:foreground "blue4")))) 8759 (custom-documentation-face ((t (nil)))) 8760 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 8761 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 8762 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) 8763 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 8764 (custom-modified-face ((t (:background "blue" :foreground "white")))) 8765 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 8766 (custom-saved-face ((t (:underline t)))) 8767 (custom-set-face ((t (:background "white" :foreground "blue")))) 8768 (custom-state-face ((t (:foreground "dark green")))) 8769 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 8770 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) 8771 (cvs-filename-face ((t (:foreground "blue4")))) 8772 (cvs-handled-face ((t (:foreground "pink")))) 8773 (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) 8774 (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) 8775 (cvs-msg-face ((t (:italic t :slant italic)))) 8776 (cvs-need-action-face ((t (:foreground "orange")))) 8777 (cvs-unknown-face ((t (:foreground "red")))) 8778 (diary-face ((t (:foreground "red")))) 8779 (diff-added-face ((t (nil)))) 8780 (diff-changed-face ((t (nil)))) 8781 (diff-context-face ((t (:foreground "grey50")))) 8782 (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) 8783 (diff-function-face ((t (:foreground "grey50")))) 8784 (diff-header-face ((t (:background "grey85")))) 8785 (diff-hunk-header-face ((t (:background "grey85")))) 8786 (diff-index-face ((t (:bold t :weight bold :background "grey70")))) 8787 (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) 8788 (diff-removed-face ((t (nil)))) 8789 (dired-face-boring ((t (:foreground "RosyBrown")))) 8790 (dired-face-directory ((t (:foreground "Blue")))) 8791 (dired-face-executable ((t (nil)))) 8792 (dired-face-flagged ((t (:foreground "Red" :weight bold)))) 8793 (dired-face-marked ((t (:foreground "Red" :weight bold)))) 8794 (dired-face-permissions ((t (nil)))) 8795 (dired-face-setuid ((t (nil)))) 8796 (dired-face-socket ((t (nil)))) 8797 (dired-face-symlink ((t (:foreground "Purple")))) 8798 (ebrowse-default-face ((t (nil)))) 8799 (ebrowse-file-name-face ((t (:italic t :slant italic)))) 8800 (ebrowse-member-attribute-face ((t (:foreground "red")))) 8801 (ebrowse-member-class-face ((t (:foreground "purple")))) 8802 (ebrowse-progress-face ((t (:background "blue")))) 8803 (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) 8804 (ebrowse-tree-mark-face ((t (:foreground "red")))) 8805 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 8806 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 8807 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 8808 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 8809 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 8810 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 8811 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 8812 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 8813 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 8814 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 8815 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 8816 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 8817 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 8818 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 8819 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 8820 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 8821 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) 8822 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 8823 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 8824 (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) 8825 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 8826 (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) 8827 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 8828 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 8829 (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) 8830 (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) 8831 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 8832 (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) 8833 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 8834 (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) 8835 (excerpt ((t (:italic t :slant italic)))) 8836 (fixed ((t (:bold t :weight bold)))) 8837 (fixed-pitch ((t (:family "courier")))) 8838 (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) 8839 (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) 8840 (font-lock-builtin-face ((t (:foreground "Orchid")))) 8841 (font-lock-comment-face ((t (:foreground "Firebrick")))) 8842 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 8843 (font-lock-doc-face ((t (:foreground "RosyBrown")))) 8844 (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) 8845 (font-lock-function-name-face ((t (:foreground "Blue")))) 8846 (font-lock-keyword-face ((t (:foreground "Purple")))) 8847 (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) 8848 (font-lock-reference-face ((t (:foreground "Orchid")))) 8849 (font-lock-string-face ((t (:foreground "RosyBrown")))) 8850 (font-lock-type-face ((t (:foreground "ForestGreen")))) 8851 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 8852 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 8853 (fringe ((t (:background "grey95")))) 8854 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 8855 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 8856 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 8857 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 8858 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 8859 (gnus-cite-face-3 ((t (:foreground "dark green")))) 8860 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 8861 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 8862 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 8863 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 8864 (gnus-cite-face-8 ((t (:foreground "magenta")))) 8865 (gnus-cite-face-9 ((t (:foreground "violet")))) 8866 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 8867 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 8868 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 8869 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 8870 (gnus-emphasis-underline ((t (:underline t)))) 8871 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 8872 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 8873 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 8874 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 8875 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) 8876 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 8877 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) 8878 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 8879 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) 8880 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 8881 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) 8882 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 8883 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 8884 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 8885 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) 8886 (gnus-group-news-3-empty-face ((t (nil)))) 8887 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 8888 (gnus-group-news-4-empty-face ((t (nil)))) 8889 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 8890 (gnus-group-news-5-empty-face ((t (nil)))) 8891 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 8892 (gnus-group-news-6-empty-face ((t (nil)))) 8893 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 8894 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 8895 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 8896 (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) 8897 (gnus-header-from-face ((t (:foreground "red3")))) 8898 (gnus-header-name-face ((t (:foreground "maroon")))) 8899 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) 8900 (gnus-header-subject-face ((t (:foreground "red4")))) 8901 (gnus-signature-face ((t (:italic t :slant italic)))) 8902 (gnus-splash-face ((t (:foreground "Brown")))) 8903 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 8904 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) 8905 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 8906 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) 8907 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 8908 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) 8909 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) 8910 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) 8911 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 8912 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 8913 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 8914 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 8915 (gnus-summary-normal-unread-face ((t (nil)))) 8916 (gnus-summary-selected-face ((t (:underline t)))) 8917 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) 8918 (hi-black-b ((t (:bold t :weight bold)))) 8919 (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) 8920 (hi-blue ((t (:background "light blue")))) 8921 (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) 8922 (hi-green ((t (:background "green")))) 8923 (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) 8924 (hi-pink ((t (:background "pink")))) 8925 (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) 8926 (hi-yellow ((t (:background "yellow")))) 8927 (highlight ((t (:background "darkseagreen2")))) 8928 (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) 8929 (highlight-changes-face ((t (:foreground "red")))) 8930 (holiday-face ((t (:background "pink")))) 8931 (idlwave-help-link-face ((t (:foreground "Blue")))) 8932 (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) 8933 (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) 8934 (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) 8935 (info-menu-5 ((t (:foreground "red1")))) 8936 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 8937 (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) 8938 (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) 8939 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 8940 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 8941 (italic ((t (:italic t :slant italic)))) 8942 (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) 8943 (log-view-message-face ((t (:background "grey85")))) 8944 (makefile-space-face ((t (:background "hotpink")))) 8945 (menu ((t (nil)))) 8946 (message-cited-text-face ((t (:foreground "red")))) 8947 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 8948 (message-header-name-face ((t (:foreground "cornflower blue")))) 8949 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) 8950 (message-header-other-face ((t (:foreground "steel blue")))) 8951 (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) 8952 (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) 8953 (message-header-xheader-face ((t (:foreground "blue")))) 8954 (message-mml-face ((t (:foreground "ForestGreen")))) 8955 (message-separator-face ((t (:foreground "brown")))) 8956 (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 8957 (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 8958 (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 8959 (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 8960 (mouse ((t (:background "black")))) 8961 (primary-selection ((t (:background "lightgoldenrod2")))) 8962 (reb-match-0 ((t (:background "lightblue")))) 8963 (reb-match-1 ((t (:background "aquamarine")))) 8964 (reb-match-2 ((t (:background "springgreen")))) 8965 (reb-match-3 ((t (:background "yellow")))) 8966 (region ((t (:background "lightgoldenrod2")))) 8967 (scroll-bar ((t (:background "grey75")))) 8968 (secondary-selection ((t (:background "yellow")))) 8969 (sh-heredoc-face ((t (:foreground "tan")))) 8970 (show-paren-match-face ((t (:background "turquoise")))) 8971 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 8972 (show-tabs-space-face ((t (:foreground "yellow")))) 8973 (show-tabs-tab-face ((t (:foreground "red")))) 8974 (smerge-base-face ((t (:foreground "red")))) 8975 (smerge-markers-face ((t (:background "grey85")))) 8976 (smerge-mine-face ((t (:foreground "blue")))) 8977 (smerge-other-face ((t (:foreground "darkgreen")))) 8978 (speedbar-button-face ((t (:foreground "green4")))) 8979 (speedbar-directory-face ((t (:foreground "blue4")))) 8980 (speedbar-file-face ((t (:foreground "cyan4")))) 8981 (speedbar-highlight-face ((t (:background "green")))) 8982 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 8983 (speedbar-tag-face ((t (:foreground "brown")))) 8984 (strokes-char-face ((t (:background "lightgray")))) 8985 (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8986 (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8987 (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8988 (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8989 (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) 8990 (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8991 (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8992 (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8993 (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8994 (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8995 (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8996 (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8997 (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8998 (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 8999 (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9000 (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9001 (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9002 (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9003 (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9004 (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9005 (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) 9006 (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9007 (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9008 (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9009 (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 9010 (tex-math-face ((t (:foreground "RosyBrown")))) 9011 (texinfo-heading-face ((t (:foreground "Blue")))) 9012 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 9013 (tooltip ((t (:background "lightyellow" :foreground "black")))) 9014 (trailing-whitespace ((t (:background "red")))) 9015 (underline ((t (:underline t)))) 9016 (variable-pitch ((t (:family "helv")))) 9017 (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) 9018 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 9019 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 9020 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 9021 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 9022 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) 9023 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) 9024 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 9025 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 9026 (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) 9027 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 9028 (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) 9029 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 9030 (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) 9031 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 9032 (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) 9033 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 9034 (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) 9035 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 9036 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 9037 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 9038 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 9039 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 9040 (widget-button-face ((t (:bold t :weight bold)))) 9041 (widget-button-pressed-face ((t (:foreground "red")))) 9042 (widget-documentation-face ((t (:foreground "dark green")))) 9043 (widget-field-face ((t (:background "gray85")))) 9044 (widget-inactive-face ((t (:foreground "dim gray")))) 9045 (widget-single-line-field-face ((t (:background "gray85")))) 9046 (woman-addition-face ((t (:foreground "orange")))) 9047 (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) 9048 (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) 9049 (woman-unknown-face ((t (:foreground "brown")))) 9050 (zmacs-region ((t (:background "lightgoldenrod2"))))))) 9051 9052 (defun color-theme-jsc-light2 () 9053 "Color theme by John S Cooper, created 2001-10-29. 9054 This builds on `color-theme-jsc-light'." 9055 (interactive) 9056 (color-theme-jsc-light) 9057 (let ((color-theme-is-cumulative t)) 9058 (color-theme-install 9059 '(color-theme-jsc-light2 9060 ((vc-annotate-very-old-color . "#0046FF") 9061 (senator-eldoc-use-color . t)) 9062 nil 9063 (bold ((t (:bold t :weight bold)))) 9064 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 9065 (change-log-file-face ((t (:foreground "Blue")))) 9066 (change-log-name-face ((t (:foreground "Maroon")))) 9067 (comint-highlight-prompt ((t (:foreground "dark blue")))) 9068 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 9069 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 9070 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 9071 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) 9072 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) 9073 (font-lock-constant-face ((t (:foreground "Maroon")))) 9074 (font-lock-function-name-face ((t (:foreground "Blue")))) 9075 (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic)))) 9076 (fringe ((t (:background "grey88")))) 9077 (gnus-group-mail-1-empty-face ((t (:foreground "Blue2")))) 9078 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 9079 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 9080 (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) 9081 (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold)))) 9082 (gnus-header-subject-face ((t (:foreground "red4")))) 9083 (gnus-signature-face ((t (:italic t :slant italic)))) 9084 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 9085 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 9086 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 9087 (gnus-summary-normal-ticked-face ((t (:foreground "Navy")))) 9088 (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 9089 (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) 9090 (highlight ((t (:background "darkseagreen2")))) 9091 (ido-subdir-face ((t (:foreground "red")))) 9092 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 9093 (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button))))) 9094 (region ((t (:background "lightgoldenrod2")))) 9095 (scroll-bar ((t (nil)))) 9096 (secondary-selection ((t (:background "yellow")))) 9097 (show-paren-match-face ((t (:background "turquoise")))) 9098 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 9099 (tooltip ((t (:background "lightyellow" :foreground "black")))))))) 9100 9101 (defun color-theme-ld-dark () 9102 "Dark Color theme by Linh Dang, created 2001-11-06." 9103 (interactive) 9104 (color-theme-install 9105 '(color-theme-ld-dark 9106 ((background-color . "black") 9107 (background-mode . dark) 9108 (border-color . "black") 9109 (cursor-color . "yellow") 9110 (foreground-color . "white") 9111 (mouse-color . "white")) 9112 ((align-highlight-change-face . highlight) 9113 (align-highlight-nochange-face . secondary-selection) 9114 (apropos-keybinding-face . underline) 9115 (apropos-label-face . italic) 9116 (apropos-match-face . secondary-selection) 9117 (apropos-property-face . bold-italic) 9118 (apropos-symbol-face . bold) 9119 (ebnf-except-border-color . "Black") 9120 (ebnf-line-color . "Black") 9121 (ebnf-non-terminal-border-color . "Black") 9122 (ebnf-repeat-border-color . "Black") 9123 (ebnf-special-border-color . "Black") 9124 (ebnf-terminal-border-color . "Black") 9125 (gnus-article-button-face . bold) 9126 (gnus-article-mouse-face . highlight) 9127 (gnus-carpal-button-face . bold) 9128 (gnus-carpal-header-face . bold-italic) 9129 (gnus-cite-attribution-face . gnus-cite-attribution-face) 9130 (gnus-mouse-face . highlight) 9131 (gnus-selected-tree-face . modeline) 9132 (gnus-signature-face . gnus-signature-face) 9133 (gnus-summary-selected-face . gnus-summary-selected-face) 9134 (help-highlight-face . underline) 9135 (list-matching-lines-face . bold) 9136 (ps-line-number-color . "black") 9137 (ps-zebra-color . 0.95) 9138 (tags-tag-face . default) 9139 (vc-annotate-very-old-color . "#0046FF") 9140 (view-highlight-face . highlight) 9141 (widget-mouse-face . highlight)) 9142 (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) 9143 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 9144 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 9145 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 9146 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 9147 (bbdb-company ((t (:italic t :slant italic)))) 9148 (bbdb-field-name ((t (:bold t :weight bold)))) 9149 (bbdb-field-value ((t (nil)))) 9150 (bbdb-name ((t (:underline t)))) 9151 (bold ((t (:bold t :weight bold)))) 9152 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 9153 (border ((t (:background "black")))) 9154 (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3")))) 9155 (change-log-conditionals-face ((t (:foreground "Aquamarine")))) 9156 (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) 9157 (change-log-email-face ((t (:foreground "Aquamarine")))) 9158 (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9)))) 9159 (change-log-function-face ((t (:foreground "Aquamarine")))) 9160 (change-log-list-face ((t (:foreground "LightSkyBlue")))) 9161 (change-log-name-face ((t (:bold t :weight bold :foreground "Gold")))) 9162 (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)))) 9163 (comint-highlight-input ((t (:bold t :weight bold)))) 9164 (comint-highlight-prompt ((t (:foreground "cyan")))) 9165 (cursor ((t (:background "yellow")))) 9166 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 9167 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 9168 (custom-changed-face ((t (:background "blue" :foreground "white")))) 9169 (custom-comment-face ((t (:background "dim gray")))) 9170 (custom-comment-tag-face ((t (:foreground "gray80")))) 9171 (custom-documentation-face ((t (nil)))) 9172 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1)))) 9173 (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1)))) 9174 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1)))) 9175 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 9176 (custom-modified-face ((t (:background "blue" :foreground "white")))) 9177 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 9178 (custom-saved-face ((t (:underline t)))) 9179 (custom-set-face ((t (:background "white" :foreground "blue")))) 9180 (custom-state-face ((t (:foreground "lime green")))) 9181 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 9182 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) 9183 (diff-added-face ((t (nil)))) 9184 (diff-changed-face ((t (nil)))) 9185 (diff-context-face ((t (:foreground "grey70")))) 9186 (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) 9187 (diff-function-face ((t (:foreground "grey70")))) 9188 (diff-header-face ((t (:background "grey45")))) 9189 (diff-hunk-header-face ((t (:background "grey45")))) 9190 (diff-index-face ((t (:bold t :weight bold :background "grey60")))) 9191 (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) 9192 (diff-removed-face ((t (nil)))) 9193 (fixed-pitch ((t (:family "courier")))) 9194 (font-lock-builtin-face ((t (:foreground "SteelBlue")))) 9195 (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) 9196 (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold)))) 9197 (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) 9198 (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) 9199 (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana")))) 9200 (font-lock-keyword-face ((t (:foreground "LightSkyBlue")))) 9201 (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold)))) 9202 (font-lock-reference-face ((t (:foreground "SteelBlue")))) 9203 (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) 9204 (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana")))) 9205 (font-lock-variable-name-face ((t (:foreground "Aquamarine")))) 9206 (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold)))) 9207 (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat")))) 9208 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 9209 (gnus-cite-face-1 ((t (:foreground "light blue")))) 9210 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 9211 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 9212 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 9213 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 9214 (gnus-cite-face-4 ((t (:foreground "light pink")))) 9215 (gnus-cite-face-5 ((t (:foreground "pale green")))) 9216 (gnus-cite-face-6 ((t (:foreground "beige")))) 9217 (gnus-cite-face-7 ((t (:foreground "orange")))) 9218 (gnus-cite-face-8 ((t (:foreground "magenta")))) 9219 (gnus-cite-face-9 ((t (:foreground "violet")))) 9220 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 9221 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 9222 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 9223 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 9224 (gnus-emphasis-underline ((t (:underline t)))) 9225 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 9226 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 9227 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 9228 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 9229 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) 9230 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 9231 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) 9232 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 9233 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) 9234 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 9235 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) 9236 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 9237 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 9238 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 9239 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 9240 (gnus-group-news-3-empty-face ((t (nil)))) 9241 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 9242 (gnus-group-news-4-empty-face ((t (nil)))) 9243 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 9244 (gnus-group-news-5-empty-face ((t (nil)))) 9245 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 9246 (gnus-group-news-6-empty-face ((t (nil)))) 9247 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 9248 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 9249 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) 9250 (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) 9251 (gnus-header-from-face ((t (:foreground "spring green")))) 9252 (gnus-header-name-face ((t (:foreground "SeaGreen")))) 9253 (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) 9254 (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) 9255 (gnus-signature-face ((t (:italic t :slant italic)))) 9256 (gnus-splash-face ((t (:foreground "Brown")))) 9257 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 9258 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 9259 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 9260 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) 9261 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 9262 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) 9263 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) 9264 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) 9265 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 9266 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 9267 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 9268 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 9269 (gnus-summary-normal-unread-face ((t (nil)))) 9270 (gnus-summary-selected-face ((t (:underline t)))) 9271 (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9)))) 9272 (highlight ((t (:background "darkolivegreen")))) 9273 (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) 9274 (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) 9275 (info-menu-5 ((t (:foreground "red1")))) 9276 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 9277 (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) 9278 (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) 9279 (isearch ((t (:background "palevioletred2")))) 9280 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 9281 (italic ((t (:italic t :slant italic)))) 9282 (makefile-space-face ((t (:background "hotpink")))) 9283 (menu ((t (nil)))) 9284 (message-cited-text-face ((t (:foreground "red")))) 9285 (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) 9286 (message-header-name-face ((t (:foreground "DarkGreen")))) 9287 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) 9288 (message-header-other-face ((t (:foreground "#b00000")))) 9289 (message-header-subject-face ((t (:foreground "green3")))) 9290 (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) 9291 (message-header-xheader-face ((t (:foreground "blue")))) 9292 (message-mml-face ((t (:foreground "ForestGreen")))) 9293 (message-separator-face ((t (:foreground "blue3")))) 9294 (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) 9295 (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) 9296 (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) 9297 (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) 9298 (mouse ((t (:background "white")))) 9299 (primary-selection ((t (:background "DarkSlateGray")))) 9300 (region ((t (:background "DarkSlateGray")))) 9301 (scroll-bar ((t (nil)))) 9302 (secondary-selection ((t (:background "SkyBlue4")))) 9303 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 9304 (trailing-whitespace ((t (:background "white")))) 9305 (underline ((t (:underline t)))) 9306 (variable-pitch ((t (:family "helv")))) 9307 (widget-button-face ((t (:bold t :weight bold)))) 9308 (widget-button-pressed-face ((t (:foreground "red")))) 9309 (widget-documentation-face ((t (:foreground "lime green")))) 9310 (widget-field-face ((t (:background "dim gray")))) 9311 (widget-inactive-face ((t (:foreground "light gray")))) 9312 (widget-single-line-field-face ((t (:background "dim gray")))) 9313 (zmacs-region ((t (:background "DarkSlateGray"))))))) 9314 9315 (defun color-theme-deep-blue () 9316 "Color theme by Tomas Cerha, created 2001-11-13." 9317 (interactive) 9318 (color-theme-install 9319 '(color-theme-deep-blue 9320 ((background-color . "#102e4e") 9321 (background-mode . dark) 9322 (border-color . "black") 9323 (cursor-color . "green") 9324 (foreground-color . "#eeeeee") 9325 (mouse-color . "white")) 9326 ((browse-kill-ring-separator-face . bold) 9327 (display-time-mail-face . mode-line) 9328 (help-highlight-face . underline) 9329 (list-matching-lines-face . secondary-selection) 9330 (vc-annotate-very-old-color . "#0046FF") 9331 (view-highlight-face . highlight) 9332 (widget-mouse-face . highlight)) 9333 (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed")))) 9334 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 9335 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 9336 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 9337 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 9338 (bold ((t (:bold t :weight bold)))) 9339 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 9340 (border ((t (:background "black")))) 9341 (calendar-today-face ((t (:background "blue")))) 9342 (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue")))) 9343 (change-log-conditionals-face ((t (:foreground "SeaGreen2")))) 9344 (change-log-date-face ((t (:foreground "burlywood")))) 9345 (change-log-email-face ((t (:foreground "SeaGreen2")))) 9346 (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod")))) 9347 (change-log-function-face ((t (:foreground "SeaGreen2")))) 9348 (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1")))) 9349 (change-log-name-face ((t (:foreground "gold")))) 9350 (comint-highlight-input ((t (:bold t :weight bold)))) 9351 (comint-highlight-prompt ((t (:foreground "cyan")))) 9352 (cursor ((t (:background "green" :foreground "black")))) 9353 (cvs-filename-face ((t (:foreground "lightblue")))) 9354 (cvs-handled-face ((t (:foreground "pink")))) 9355 (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold)))) 9356 (cvs-marked-face ((t (:bold t :foreground "green" :weight bold)))) 9357 (cvs-msg-face ((t (:italic t :slant italic)))) 9358 (cvs-need-action-face ((t (:foreground "orange")))) 9359 (cvs-unknown-face ((t (:foreground "red")))) 9360 (diary-face ((t (:foreground "orange red")))) 9361 (diff-added-face ((t (nil)))) 9362 (diff-changed-face ((t (nil)))) 9363 (diff-context-face ((t (:foreground "grey70")))) 9364 (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) 9365 (diff-function-face ((t (:foreground "grey70")))) 9366 (diff-header-face ((t (:background "grey45")))) 9367 (diff-hunk-header-face ((t (:background "grey45")))) 9368 (diff-index-face ((t (:bold t :weight bold :background "grey60")))) 9369 (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) 9370 (diff-removed-face ((t (nil)))) 9371 (fixed-pitch ((t (:family "fixed")))) 9372 (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) 9373 (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) 9374 (font-latex-math-face ((t (:foreground "burlywood")))) 9375 (font-latex-sedate-face ((t (:foreground "LightGray")))) 9376 (font-latex-string-face ((t (:foreground "LightSalmon")))) 9377 (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 9378 (font-lock-builtin-face ((t (:foreground "LightCoral")))) 9379 (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic)))) 9380 (font-lock-constant-face ((t (:foreground "gold")))) 9381 (font-lock-doc-face ((t (:foreground "BlanchedAlmond")))) 9382 (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond")))) 9383 (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold)))) 9384 (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold)))) 9385 (font-lock-preprocessor-face ((t (:foreground "gold")))) 9386 (font-lock-reference-face ((t (:foreground "LightCoral")))) 9387 (font-lock-string-face ((t (:foreground "burlywood")))) 9388 (font-lock-type-face ((t (:foreground "CadetBlue1")))) 9389 (font-lock-variable-name-face ((t (:foreground "SeaGreen2")))) 9390 (font-lock-warning-face ((t (:foreground "yellow")))) 9391 (fringe ((t (:background "#405060")))) 9392 (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 9393 (highlight ((t (:background "darkgreen")))) 9394 (holiday-face ((t (:foreground "green")))) 9395 (info-header-node ((t (:foreground "DeepSkyBlue1")))) 9396 (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2")))) 9397 (info-menu-5 ((t (:foreground "wheat")))) 9398 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 9399 (info-node ((t (:foreground "DeepSkyBlue1")))) 9400 (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold)))) 9401 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 9402 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 9403 (italic ((t (:italic t :slant italic)))) 9404 (menu ((t (:background "gray" :foreground "black" :family "helvetica")))) 9405 (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) 9406 (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) 9407 (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) 9408 (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) 9409 (mouse ((t (:background "white")))) 9410 (region ((t (:background "DarkCyan")))) 9411 (scroll-bar ((t (:background "gray" :foreground "#506070")))) 9412 (secondary-selection ((t (:background "yellow" :foreground "gray10")))) 9413 (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold)))) 9414 (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold)))) 9415 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 9416 (tooltip ((t (:background "lightyellow" :foreground "black")))) 9417 (trailing-whitespace ((t (:background "#102e4e")))) 9418 (underline ((t (:underline t)))) 9419 (variable-pitch ((t (:family "helv")))) 9420 (widget-button-face ((t (:bold t :weight bold)))) 9421 (widget-button-pressed-face ((t (:foreground "red")))) 9422 (widget-documentation-face ((t (:foreground "lime green")))) 9423 (widget-field-face ((t (:background "dim gray")))) 9424 (widget-inactive-face ((t (:foreground "light gray")))) 9425 (widget-single-line-field-face ((t (:background "dim gray"))))))) 9426 9427 (defun color-theme-kingsajz () 9428 "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04. 9429 Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker. 9430 Used on Emacs 21.1 @ WinMe. Not tested on any other systems. 9431 9432 Some faces uses Andale mono font (nice fixed-width font). 9433 It is available at: http://www.microsoft.com/typography/downloads/andale32.exe 9434 9435 Hail Eris! All hail Discordia!" 9436 (interactive) 9437 (color-theme-install 9438 '(color-theme-kingsajz 9439 ((background-color . "darkslategrey") 9440 (background-mode . dark) 9441 (border-color . "black") 9442 (cursor-color . "LightGray") 9443 (foreground-color . "wheat") 9444 (mouse-color . "Grey")) 9445 ((apropos-keybinding-face . underline) 9446 (apropos-label-face face italic mouse-face highlight) 9447 (apropos-match-face . secondary-selection) 9448 (apropos-property-face . bold-italic) 9449 (apropos-symbol-face . info-xref) 9450 (display-time-mail-face . mode-line) 9451 (gnus-article-button-face . bold) 9452 (gnus-article-mouse-face . highlight) 9453 (gnus-carpal-button-face . bold) 9454 (gnus-carpal-header-face . bold-italic) 9455 (gnus-cite-attribution-face . gnus-cite-attribution-face) 9456 (gnus-mouse-face . highlight) 9457 (gnus-selected-tree-face . modeline) 9458 (gnus-signature-face . gnus-signature-face) 9459 (gnus-summary-selected-face . gnus-summary-selected-face) 9460 (gnus-treat-display-xface . head) 9461 (help-highlight-face . underline) 9462 (list-matching-lines-face . bold) 9463 (view-highlight-face . highlight) 9464 (widget-mouse-face . highlight)) 9465 (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono")))) 9466 (bbdb-field-name ((t (:foreground "green")))) 9467 (bg:erc-color-face0 ((t (:background "White")))) 9468 (bg:erc-color-face1 ((t (:background "black")))) 9469 (bg:erc-color-face10 ((t (:background "lightblue1")))) 9470 (bg:erc-color-face11 ((t (:background "cyan")))) 9471 (bg:erc-color-face12 ((t (:background "blue")))) 9472 (bg:erc-color-face13 ((t (:background "deeppink")))) 9473 (bg:erc-color-face14 ((t (:background "gray50")))) 9474 (bg:erc-color-face15 ((t (:background "gray90")))) 9475 (bg:erc-color-face2 ((t (:background "blue4")))) 9476 (bg:erc-color-face3 ((t (:background "green4")))) 9477 (bg:erc-color-face4 ((t (:background "red")))) 9478 (bg:erc-color-face5 ((t (:background "brown")))) 9479 (bg:erc-color-face6 ((t (:background "purple")))) 9480 (bg:erc-color-face7 ((t (:background "orange")))) 9481 (bg:erc-color-face8 ((t (:background "yellow")))) 9482 (bg:erc-color-face9 ((t (:background "green")))) 9483 (blue ((t (:foreground "cyan")))) 9484 (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial")))) 9485 (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial")))) 9486 (border ((t (:background "black")))) 9487 (calendar-today-face ((t (:underline t)))) 9488 (comint-highlight-input ((t (:bold t :weight bold)))) 9489 (comint-highlight-prompt ((t (:foreground "cyan")))) 9490 (cperl-array-face ((t (:foreground "Yellow")))) 9491 (cperl-hash-face ((t (:foreground "White")))) 9492 (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) 9493 (cursor ((t (:background "LightGray")))) 9494 (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t)))) 9495 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 9496 (custom-changed-face ((t (:background "blue" :foreground "white")))) 9497 (custom-comment-face ((t (:background "dim gray")))) 9498 (custom-comment-tag-face ((t (:foreground "gray80")))) 9499 (custom-documentation-face ((t (:foreground "Grey")))) 9500 (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2)))) 9501 (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) 9502 (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2)))) 9503 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 9504 (custom-modified-face ((t (:background "blue" :foreground "white")))) 9505 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 9506 (custom-saved-face ((t (:underline t)))) 9507 (custom-set-face ((t (:background "white" :foreground "blue")))) 9508 (custom-state-face ((t (:foreground "Coral")))) 9509 (custom-variable-button-face ((t (:underline t)))) 9510 (custom-variable-tag-face ((t (:foreground "Aquamarine")))) 9511 (date ((t (:foreground "green")))) 9512 (diary-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 9513 (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) 9514 (dired-face-executable ((t (:foreground "green yellow")))) 9515 (dired-face-flagged ((t (:foreground "tomato")))) 9516 (dired-face-marked ((t (:foreground "light salmon")))) 9517 (dired-face-permissions ((t (:foreground "aquamarine")))) 9518 (erc-action-face ((t (:bold t :weight bold)))) 9519 (erc-bold-face ((t (:bold t :weight bold)))) 9520 (erc-default-face ((t (nil)))) 9521 (erc-direct-msg-face ((t (:foreground "pale green")))) 9522 (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 9523 (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) 9524 (erc-host-danger-face ((t (:foreground "red")))) 9525 (erc-input-face ((t (:foreground "light blue")))) 9526 (erc-inverse-face ((t (:background "steel blue")))) 9527 (erc-notice-face ((t (:foreground "light salmon")))) 9528 (erc-pal-face ((t (:foreground "pale green")))) 9529 (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) 9530 (erc-underline-face ((t (:underline t)))) 9531 (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 9532 (eshell-ls-backup-face ((t (:foreground "Grey")))) 9533 (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold)))) 9534 (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) 9535 (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold)))) 9536 (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold)))) 9537 (eshell-ls-picture-face ((t (:foreground "Violet")))) 9538 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 9539 (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) 9540 (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold)))) 9541 (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold)))) 9542 (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) 9543 (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold)))) 9544 (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) 9545 (eshell-prompt-face ((t (:foreground "powder blue")))) 9546 (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono")))) 9547 (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono")))) 9548 (face-3 ((t (:stipple nil :foreground "NavajoWhite3")))) 9549 (fg:erc-color-face0 ((t (:foreground "white")))) 9550 (fg:erc-color-face1 ((t (:foreground "beige")))) 9551 (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) 9552 (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) 9553 (fg:erc-color-face12 ((t (:foreground "light yellow")))) 9554 (fg:erc-color-face13 ((t (:foreground "yellow")))) 9555 (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) 9556 (fg:erc-color-face15 ((t (:foreground "lime green")))) 9557 (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) 9558 (fg:erc-color-face3 ((t (:foreground "light cyan")))) 9559 (fg:erc-color-face4 ((t (:foreground "powder blue")))) 9560 (fg:erc-color-face5 ((t (:foreground "sky blue")))) 9561 (fg:erc-color-face6 ((t (:foreground "dark sea green")))) 9562 (fg:erc-color-face7 ((t (:foreground "pale green")))) 9563 (fg:erc-color-face8 ((t (:foreground "medium spring green")))) 9564 (fg:erc-color-face9 ((t (:foreground "khaki")))) 9565 (fixed-pitch ((t (:family "courier")))) 9566 (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 9567 (font-lock-comment-face ((t (:foreground "White")))) 9568 (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 9569 (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon")))) 9570 (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) 9571 (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) 9572 (font-lock-keyword-face ((t (:foreground "Salmon")))) 9573 (font-lock-preprocessor-face ((t (:foreground "Salmon")))) 9574 (font-lock-reference-face ((t (:foreground "pale green")))) 9575 (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic)))) 9576 (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold)))) 9577 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold)))) 9578 (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 9579 (fringe ((t (:background "darkslategrey")))) 9580 (gnus-cite-attribution-face ((t (:family "arial")))) 9581 (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3")))) 9582 (gnus-cite-face-10 ((t (nil)))) 9583 (gnus-cite-face-11 ((t (nil)))) 9584 (gnus-cite-face-2 ((t (:foreground "IndianRed3")))) 9585 (gnus-cite-face-3 ((t (:foreground "tomato")))) 9586 (gnus-cite-face-4 ((t (:foreground "yellow green")))) 9587 (gnus-cite-face-5 ((t (:foreground "SteelBlue3")))) 9588 (gnus-cite-face-6 ((t (:foreground "Azure3")))) 9589 (gnus-cite-face-7 ((t (:foreground "Azure4")))) 9590 (gnus-cite-face-8 ((t (:foreground "SpringGreen4")))) 9591 (gnus-cite-face-9 ((t (:foreground "SlateGray4")))) 9592 (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial")))) 9593 (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial")))) 9594 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki")))) 9595 (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial")))) 9596 (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t)))) 9597 (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial")))) 9598 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial")))) 9599 (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial")))) 9600 (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4")))) 9601 (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold)))) 9602 (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4")))) 9603 (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 9604 (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4")))) 9605 (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold)))) 9606 (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4")))) 9607 (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold)))) 9608 (gnus-group-news-1-empty-face ((t (:foreground "Salmon4")))) 9609 (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold)))) 9610 (gnus-group-news-2-empty-face ((t (:foreground "darkorange3")))) 9611 (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold)))) 9612 (gnus-group-news-3-empty-face ((t (:foreground "turquoise4")))) 9613 (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 9614 (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4")))) 9615 (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold)))) 9616 (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4")))) 9617 (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold)))) 9618 (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4")))) 9619 (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold)))) 9620 (gnus-group-news-low-empty-face ((t (:foreground "wheat4")))) 9621 (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold)))) 9622 (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) 9623 (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) 9624 (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) 9625 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) 9626 (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) 9627 (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic)))) 9628 (gnus-splash-face ((t (:foreground "Firebrick1")))) 9629 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 9630 (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold)))) 9631 (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold)))) 9632 (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) 9633 (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold)))) 9634 (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic)))) 9635 (gnus-summary-low-read-face ((t (:foreground "SeaGreen4")))) 9636 (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic)))) 9637 (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic)))) 9638 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 9639 (gnus-summary-normal-read-face ((t (:foreground "khaki4")))) 9640 (gnus-summary-normal-ticked-face ((t (:foreground "khaki3")))) 9641 (gnus-summary-normal-unread-face ((t (:foreground "khaki")))) 9642 (gnus-summary-selected-face ((t (:foreground "gold" :underline t)))) 9643 (green ((t (:foreground "green")))) 9644 (gui-button-face ((t (:foreground "red" :background "black")))) 9645 (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold)))) 9646 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 9647 (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) 9648 (highline-face ((t (:background "SeaGreen")))) 9649 (holiday-face ((t (:background "DimGray")))) 9650 (info-menu-5 ((t (:underline t)))) 9651 (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold)))) 9652 (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) 9653 (isearch ((t (:background "sea green" :foreground "black")))) 9654 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 9655 (italic ((t (:italic t :foreground "chocolate3" :slant italic)))) 9656 (menu ((t (nil)))) 9657 (message-cited-text-face ((t (:foreground "White")))) 9658 (message-header-cc-face ((t (:foreground "light cyan")))) 9659 (message-header-name-face ((t (:foreground "DodgerBlue1")))) 9660 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) 9661 (message-header-other-face ((t (:foreground "LightSkyBlue3")))) 9662 (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) 9663 (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) 9664 (message-header-xheader-face ((t (:foreground "DodgerBlue3")))) 9665 (message-mml-face ((t (:foreground "ForestGreen")))) 9666 (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate")))) 9667 (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button))))) 9668 (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial")))) 9669 (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial")))) 9670 (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial")))) 9671 (mouse ((t (:background "Grey")))) 9672 (paren-blink-off ((t (:foreground "brown")))) 9673 (region ((t (:background "dark cyan" :foreground "cyan")))) 9674 (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black")))) 9675 (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold)))) 9676 (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button))))) 9677 (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red")))) 9678 (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64")))) 9679 (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue")))) 9680 (scroll-bar ((t (nil)))) 9681 (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) 9682 (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold)))) 9683 (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) 9684 (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold)))) 9685 (text-cursor ((t (:background "Red" :foreground "white")))) 9686 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 9687 (trailing-whitespace ((t (:background "red")))) 9688 (underline ((t (:underline t)))) 9689 (variable-pitch ((t (:family "Arial")))) 9690 (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) 9691 (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) 9692 (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) 9693 (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) 9694 (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier")))) 9695 (widget-button-pressed-face ((t (:foreground "red")))) 9696 (widget-documentation-face ((t (:foreground "lime green")))) 9697 (widget-field-face ((t (:foreground "LightBlue")))) 9698 (widget-inactive-face ((t (:foreground "DimGray")))) 9699 (widget-single-line-field-face ((t (:foreground "LightBlue")))) 9700 (woman-bold-face ((t (:bold t :weight bold :family "Arial")))) 9701 (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial")))) 9702 (woman-unknown-face ((t (:foreground "LightSalmon")))) 9703 (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))) 9704 9705 (defun color-theme-comidia () 9706 "Color theme by Marcelo Dias de Toledo, created 2001-12-17. 9707 Steel blue on black." 9708 (interactive) 9709 (color-theme-install 9710 '(color-theme-comidia 9711 ((background-color . "Black") 9712 (background-mode . dark) 9713 (border-color . "black") 9714 (cursor-color . "SteelBlue") 9715 (foreground-color . "SteelBlue") 9716 (mouse-color . "SteelBlue")) 9717 ((display-time-mail-face . mode-line) 9718 (gnus-mouse-face . highlight) 9719 (gnus-summary-selected-face . gnus-summary-selected-face) 9720 (help-highlight-face . underline) 9721 (ispell-highlight-face . highlight) 9722 (list-matching-lines-face . bold) 9723 (view-highlight-face . highlight) 9724 (widget-mouse-face . highlight)) 9725 (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed")))) 9726 (bg:erc-color-face0 ((t (:background "White")))) 9727 (bg:erc-color-face1 ((t (:background "black")))) 9728 (bg:erc-color-face10 ((t (:background "lightblue1")))) 9729 (bg:erc-color-face11 ((t (:background "cyan")))) 9730 (bg:erc-color-face12 ((t (:background "blue")))) 9731 (bg:erc-color-face13 ((t (:background "deeppink")))) 9732 (bg:erc-color-face14 ((t (:background "gray50")))) 9733 (bg:erc-color-face15 ((t (:background "gray90")))) 9734 (bg:erc-color-face2 ((t (:background "blue4")))) 9735 (bg:erc-color-face3 ((t (:background "green4")))) 9736 (bg:erc-color-face4 ((t (:background "red")))) 9737 (bg:erc-color-face5 ((t (:background "brown")))) 9738 (bg:erc-color-face6 ((t (:background "purple")))) 9739 (bg:erc-color-face7 ((t (:background "orange")))) 9740 (bg:erc-color-face8 ((t (:background "yellow")))) 9741 (bg:erc-color-face9 ((t (:background "green")))) 9742 (bold ((t (:bold t :weight bold)))) 9743 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 9744 (border ((t (:background "black")))) 9745 (comint-highlight-input ((t (:bold t :weight bold)))) 9746 (comint-highlight-prompt ((t (:foreground "cyan")))) 9747 (cursor ((t (:background "SteelBlue")))) 9748 (erc-action-face ((t (:bold t :weight bold)))) 9749 (erc-bold-face ((t (:bold t :weight bold)))) 9750 (erc-dangerous-host-face ((t (:foreground "red")))) 9751 (erc-default-face ((t (nil)))) 9752 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 9753 (erc-error-face ((t (:background "Red" :foreground "White")))) 9754 (erc-fool-face ((t (:foreground "dim gray")))) 9755 (erc-input-face ((t (:foreground "brown")))) 9756 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 9757 (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) 9758 (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) 9759 (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) 9760 (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) 9761 (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) 9762 (erc-underline-face ((t (:underline t)))) 9763 (fg:erc-color-face0 ((t (:foreground "White")))) 9764 (fg:erc-color-face1 ((t (:foreground "black")))) 9765 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 9766 (fg:erc-color-face11 ((t (:foreground "cyan")))) 9767 (fg:erc-color-face12 ((t (:foreground "blue")))) 9768 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 9769 (fg:erc-color-face14 ((t (:foreground "gray50")))) 9770 (fg:erc-color-face15 ((t (:foreground "gray90")))) 9771 (fg:erc-color-face2 ((t (:foreground "blue4")))) 9772 (fg:erc-color-face3 ((t (:foreground "green4")))) 9773 (fg:erc-color-face4 ((t (:foreground "red")))) 9774 (fg:erc-color-face5 ((t (:foreground "brown")))) 9775 (fg:erc-color-face6 ((t (:foreground "purple")))) 9776 (fg:erc-color-face7 ((t (:foreground "orange")))) 9777 (fg:erc-color-face8 ((t (:foreground "yellow")))) 9778 (fg:erc-color-face9 ((t (:foreground "green")))) 9779 (fixed-pitch ((t (:family "courier")))) 9780 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 9781 (font-lock-comment-face ((t (:foreground "chocolate1")))) 9782 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 9783 (font-lock-doc-face ((t (:foreground "LightSalmon")))) 9784 (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) 9785 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 9786 (font-lock-keyword-face ((t (:foreground "Cyan")))) 9787 (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) 9788 (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) 9789 (font-lock-string-face ((t (:foreground "LightSalmon")))) 9790 (font-lock-type-face ((t (:foreground "PaleGreen")))) 9791 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 9792 (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 9793 (fringe ((t (:background "grey10")))) 9794 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 9795 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) 9796 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 9797 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) 9798 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 9799 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) 9800 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 9801 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) 9802 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 9803 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 9804 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 9805 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 9806 (gnus-group-news-3-empty-face ((t (nil)))) 9807 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 9808 (gnus-group-news-4-empty-face ((t (nil)))) 9809 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 9810 (gnus-group-news-5-empty-face ((t (nil)))) 9811 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 9812 (gnus-group-news-6-empty-face ((t (nil)))) 9813 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 9814 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 9815 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) 9816 (gnus-splash-face ((t (:foreground "Brown")))) 9817 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 9818 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 9819 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 9820 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) 9821 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 9822 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) 9823 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) 9824 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) 9825 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 9826 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 9827 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 9828 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 9829 (gnus-summary-normal-unread-face ((t (nil)))) 9830 (gnus-summary-selected-face ((t (:underline t)))) 9831 (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil)))) 9832 (highlight ((t (:background "darkolivegreen")))) 9833 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 9834 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 9835 (italic ((t (:italic t :slant italic)))) 9836 (menu ((t (nil)))) 9837 (message-cited-text-face ((t (:foreground "red")))) 9838 (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) 9839 (message-header-name-face ((t (:foreground "DarkGreen")))) 9840 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) 9841 (message-header-other-face ((t (:foreground "#b00000")))) 9842 (message-header-subject-face ((t (:foreground "green3")))) 9843 (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) 9844 (message-header-xheader-face ((t (:foreground "blue")))) 9845 (message-mml-face ((t (:foreground "ForestGreen")))) 9846 (message-separator-face ((t (:foreground "blue3")))) 9847 (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) 9848 (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) 9849 (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) 9850 (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) 9851 (mouse ((t (:background "SteelBlue")))) 9852 (primary-selection ((t (:background "blue3")))) 9853 (region ((t (:background "blue3")))) 9854 (scroll-bar ((t (:background "grey75")))) 9855 (secondary-selection ((t (:background "SkyBlue4")))) 9856 (speedbar-button-face ((t (:foreground "green3")))) 9857 (speedbar-directory-face ((t (:foreground "light blue")))) 9858 (speedbar-file-face ((t (:foreground "cyan")))) 9859 (speedbar-highlight-face ((t (:background "sea green")))) 9860 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 9861 (speedbar-tag-face ((t (:foreground "yellow")))) 9862 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 9863 (tooltip ((t (:background "lightyellow" :foreground "black")))) 9864 (trailing-whitespace ((t (:background "red")))) 9865 (underline ((t (:underline t)))) 9866 (variable-pitch ((t (:family "helv")))) 9867 (widget-button-face ((t (:bold t :weight bold)))) 9868 (widget-button-pressed-face ((t (:foreground "red")))) 9869 (widget-documentation-face ((t (:foreground "lime green")))) 9870 (widget-field-face ((t (:background "dim gray")))) 9871 (widget-inactive-face ((t (:foreground "light gray")))) 9872 (widget-single-line-field-face ((t (:background "dim gray")))) 9873 (zmacs-region ((t (:background "blue3"))))))) 9874 9875 (defun color-theme-katester () 9876 "Color theme by walterh@rocketmail.com, created 2001-12-12. 9877 A pastelly-mac like color-theme." 9878 (interactive) 9879 (color-theme-standard) 9880 (let ((color-theme-is-cumulative t)) 9881 (color-theme-install 9882 '(color-theme-katester 9883 ((background-color . "ivory") 9884 (cursor-color . "slateblue") 9885 (foreground-color . "black") 9886 (mouse-color . "slateblue")) 9887 (default ((t ((:background "ivory" :foreground "black"))))) 9888 (bold ((t (:bold t)))) 9889 (font-lock-string-face ((t (:foreground "maroon")))) 9890 (font-lock-keyword-face ((t (:foreground "blue")))) 9891 (font-lock-constant-face ((t (:foreground "darkblue")))) 9892 (font-lock-type-face ((t (:foreground "black")))) 9893 (font-lock-variable-name-face ((t (:foreground "black")))) 9894 (font-lock-function-name-face ((t (:bold t :underline t)))) 9895 (font-lock-comment-face ((t (:background "seashell")))) 9896 (highlight ((t (:background "lavender")))) 9897 (italic ((t (:italic t)))) 9898 (modeline ((t (:background "moccasin" :foreground "black")))) 9899 (region ((t (:background "lavender" )))) 9900 (underline ((t (:underline t)))))))) 9901 9902 (defun color-theme-arjen () 9903 "Color theme by awiersma, created 2001-08-27." 9904 (interactive) 9905 (color-theme-install 9906 '(color-theme-arjen 9907 ((background-color . "black") 9908 (background-mode . dark) 9909 (border-color . "black") 9910 (cursor-color . "yellow") 9911 (foreground-color . "White") 9912 (mouse-color . "sienna1")) 9913 ((buffers-tab-face . buffers-tab) 9914 (cperl-here-face . font-lock-string-face) 9915 (cperl-invalid-face quote underline) 9916 (cperl-pod-face . font-lock-comment-face) 9917 (cperl-pod-head-face . font-lock-variable-name-face) 9918 (vc-mode-face . highlight)) 9919 (default ((t (:background "black" :foreground "white")))) 9920 (blue ((t (:foreground "blue")))) 9921 (bold ((t (:bold t)))) 9922 (bold-italic ((t (:bold t)))) 9923 (border-glyph ((t (nil)))) 9924 (buffers-tab ((t (:background "black" :foreground "white")))) 9925 (calendar-today-face ((t (:underline t)))) 9926 (cperl-array-face ((t (:foreground "darkseagreen")))) 9927 (cperl-hash-face ((t (:foreground "darkseagreen")))) 9928 (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) 9929 (custom-button-face ((t (nil)))) 9930 (custom-changed-face ((t (:background "blue" :foreground "white")))) 9931 (custom-documentation-face ((t (nil)))) 9932 (custom-face-tag-face ((t (:underline t)))) 9933 (custom-group-tag-face ((t (:underline t :foreground "light blue")))) 9934 (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) 9935 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 9936 (custom-modified-face ((t (:background "blue" :foreground "white")))) 9937 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 9938 (custom-saved-face ((t (:underline t)))) 9939 (custom-set-face ((t (:background "white" :foreground "blue")))) 9940 (custom-state-face ((t (:foreground "lime green")))) 9941 (custom-variable-button-face ((t (:underline t :bold t)))) 9942 (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) 9943 (diary-face ((t (:foreground "IndianRed")))) 9944 (erc-action-face ((t (:bold t)))) 9945 (erc-bold-face ((t (:bold t)))) 9946 (erc-default-face ((t (nil)))) 9947 (erc-direct-msg-face ((t (:foreground "sandybrown")))) 9948 (erc-error-face ((t (:bold t :foreground "IndianRed")))) 9949 (erc-input-face ((t (:foreground "Beige")))) 9950 (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) 9951 (erc-notice-face ((t (:foreground "MediumAquamarine")))) 9952 (erc-pal-face ((t (:foreground "pale green")))) 9953 (erc-prompt-face ((t (:foreground "MediumAquamarine")))) 9954 (erc-underline-face ((t (:underline t)))) 9955 (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) 9956 (eshell-ls-backup-face ((t (:foreground "Grey")))) 9957 (eshell-ls-clutter-face ((t (:foreground "DimGray")))) 9958 (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) 9959 (eshell-ls-executable-face ((t (:foreground "Coral")))) 9960 (eshell-ls-missing-face ((t (:foreground "black")))) 9961 (eshell-ls-picture-face ((t (:foreground "Violet")))) 9962 (eshell-ls-product-face ((t (:foreground "sandybrown")))) 9963 (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) 9964 (eshell-ls-special-face ((t (:foreground "Gold")))) 9965 (eshell-ls-symlink-face ((t (:foreground "White")))) 9966 (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) 9967 (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) 9968 (fl-comment-face ((t (:foreground "pink")))) 9969 (fl-doc-string-face ((t (:foreground "purple")))) 9970 (fl-function-name-face ((t (:foreground "red")))) 9971 (fl-keyword-face ((t (:foreground "cadetblue")))) 9972 (fl-string-face ((t (:foreground "green")))) 9973 (fl-type-face ((t (:foreground "yellow")))) 9974 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 9975 (font-lock-comment-face ((t (:foreground "IndianRed")))) 9976 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 9977 (font-lock-doc-string-face ((t (:foreground "DarkOrange")))) 9978 (font-lock-function-name-face ((t (:foreground "YellowGreen")))) 9979 (font-lock-keyword-face ((t (:foreground "PaleYellow")))) 9980 (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) 9981 (font-lock-reference-face ((t (:foreground "SlateBlue")))) 9982 (font-lock-string-face ((t (:foreground "Orange")))) 9983 (font-lock-type-face ((t (:foreground "Green")))) 9984 (font-lock-variable-name-face ((t (:foreground "darkseagreen")))) 9985 (font-lock-warning-face ((t (:bold t :foreground "Pink")))) 9986 (qt-classes-face ((t (:foreground "Red")))) 9987 (gnus-cite-attribution-face ((t (nil)))) 9988 (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue")))) 9989 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 9990 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 9991 (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue")))) 9992 (gnus-cite-face-3 ((t (:bold nil :foreground "gold")))) 9993 (gnus-cite-face-4 ((t (:foreground "light pink")))) 9994 (gnus-cite-face-5 ((t (:foreground "pale green")))) 9995 (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate")))) 9996 (gnus-cite-face-7 ((t (:foreground "orange")))) 9997 (gnus-cite-face-8 ((t (:foreground "magenta")))) 9998 (gnus-cite-face-9 ((t (:foreground "violet")))) 9999 (gnus-emphasis-bold ((t (:bold nil)))) 10000 (gnus-emphasis-bold-italic ((t (:bold nil)))) 10001 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 10002 (gnus-emphasis-italic ((t (nil)))) 10003 (gnus-emphasis-underline ((t (:underline t)))) 10004 (gnus-emphasis-underline-bold ((t (:underline t :bold nil)))) 10005 (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil)))) 10006 (gnus-emphasis-underline-italic ((t (:underline t)))) 10007 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 10008 (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1")))) 10009 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 10010 (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2")))) 10011 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 10012 (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3")))) 10013 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 10014 (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4")))) 10015 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 10016 (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise")))) 10017 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 10018 (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise")))) 10019 (gnus-group-news-3-empty-face ((t (nil)))) 10020 (gnus-group-news-3-face ((t (:bold nil)))) 10021 (gnus-group-news-4-empty-face ((t (nil)))) 10022 (gnus-group-news-4-face ((t (:bold nil)))) 10023 (gnus-group-news-5-empty-face ((t (nil)))) 10024 (gnus-group-news-5-face ((t (:bold nil)))) 10025 (gnus-group-news-6-empty-face ((t (nil)))) 10026 (gnus-group-news-6-face ((t (:bold nil)))) 10027 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 10028 (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise")))) 10029 (gnus-header-content-face ((t (:foreground "forest green")))) 10030 (gnus-header-from-face ((t (:bold nil :foreground "spring green")))) 10031 (gnus-header-name-face ((t (:foreground "deep sky blue")))) 10032 (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple")))) 10033 (gnus-header-subject-face ((t (:bold nil :foreground "orange")))) 10034 (gnus-signature-face ((t (:bold nil :foreground "khaki")))) 10035 (gnus-splash-face ((t (:foreground "Brown")))) 10036 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 10037 (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue")))) 10038 (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen")))) 10039 (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink")))) 10040 (gnus-summary-high-unread-face ((t (:bold nil)))) 10041 (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue")))) 10042 (gnus-summary-low-read-face ((t (:foreground "PaleGreen")))) 10043 (gnus-summary-low-ticked-face ((t (:foreground "pink")))) 10044 (gnus-summary-low-unread-face ((t (nil)))) 10045 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 10046 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 10047 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 10048 (gnus-summary-normal-unread-face ((t (nil)))) 10049 (gnus-summary-selected-face ((t (:underline t)))) 10050 (green ((t (:foreground "green")))) 10051 (gui-button-face ((t (:background "grey75" :foreground "black")))) 10052 (gui-element ((t (:background "#D4D0C8" :foreground "black")))) 10053 (highlight ((t (:background "darkolivegreen")))) 10054 (highline-face ((t (:background "SeaGreen")))) 10055 (holiday-face ((t (:background "DimGray")))) 10056 (info-menu-5 ((t (:underline t)))) 10057 (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) 10058 (info-xref ((t (:underline t :foreground "DodgerBlue1")))) 10059 (isearch ((t (:background "blue")))) 10060 (isearch-secondary ((t (:foreground "red3")))) 10061 (italic ((t (nil)))) 10062 (left-margin ((t (nil)))) 10063 (list-mode-item-selected ((t (:background "gray68" :foreground "white")))) 10064 (message-cited-text-face ((t (:bold t :foreground "green")))) 10065 (message-header-cc-face ((t (:bold t :foreground "green4")))) 10066 (message-header-name-face ((t (:bold t :foreground "orange")))) 10067 (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) 10068 (message-header-other-face ((t (:bold t :foreground "chocolate")))) 10069 (message-header-subject-face ((t (:bold t :foreground "yellow")))) 10070 (message-header-to-face ((t (:bold t :foreground "cadetblue")))) 10071 (message-header-xheader-face ((t (:bold t :foreground "light blue")))) 10072 (message-mml-face ((t (:bold t :foreground "Green3")))) 10073 (message-separator-face ((t (:foreground "blue3")))) 10074 (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button))))) 10075 (modeline-buffer-id ((t (:background "DarkRed" :foreground "white")))) 10076 (modeline-mousable ((t (:background "DarkRed" :foreground "white")))) 10077 (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white")))) 10078 (p4-depot-added-face ((t (:foreground "blue")))) 10079 (p4-depot-deleted-face ((t (:foreground "red")))) 10080 (p4-depot-unmapped-face ((t (:foreground "grey30")))) 10081 (p4-diff-change-face ((t (:foreground "dark green")))) 10082 (p4-diff-del-face ((t (:foreground "red")))) 10083 (p4-diff-file-face ((t (:background "gray90")))) 10084 (p4-diff-head-face ((t (:background "gray95")))) 10085 (p4-diff-ins-face ((t (:foreground "blue")))) 10086 (pointer ((t (nil)))) 10087 (primary-selection ((t (:background "blue")))) 10088 (red ((t (:foreground "red")))) 10089 (region ((t (:background "blue")))) 10090 (right-margin ((t (nil)))) 10091 (secondary-selection ((t (:background "darkslateblue")))) 10092 (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) 10093 (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) 10094 (text-cursor ((t (:background "yellow" :foreground "black")))) 10095 (toolbar ((t (nil)))) 10096 (underline ((nil (:underline nil)))) 10097 (vertical-divider ((t (nil)))) 10098 (widget ((t (nil)))) 10099 (widget-button-face ((t (:bold t)))) 10100 (widget-button-pressed-face ((t (:foreground "red")))) 10101 (widget-documentation-face ((t (:foreground "lime green")))) 10102 (widget-field-face ((t (:background "dim gray")))) 10103 (widget-inactive-face ((t (:foreground "light gray")))) 10104 (widget-single-line-field-face ((t (:background "dim gray")))) 10105 (woman-bold-face ((t (:bold t)))) 10106 (woman-italic-face ((t (:foreground "beige")))) 10107 (woman-unknown-face ((t (:foreground "LightSalmon")))) 10108 (yellow ((t (:foreground "yellow")))) 10109 (zmacs-region ((t (:background "snow" :foreground "blue"))))))) 10110 10111 (defun color-theme-tty-dark () 10112 "Color theme by Oivvio Polite, created 2002-02-01. Good for tty display." 10113 (interactive) 10114 (color-theme-install 10115 '(color-theme-tty-dark 10116 ((background-color . "black") 10117 (background-mode . dark) 10118 (border-color . "blue") 10119 (cursor-color . "red") 10120 (foreground-color . "white") 10121 (mouse-color . "black")) 10122 ((ispell-highlight-face . highlight) 10123 (list-matching-lines-face . bold) 10124 (tinyreplace-:face . highlight) 10125 (view-highlight-face . highlight)) 10126 (default ((t (nil)))) 10127 (bold ((t (:underline t :background "black" :foreground "white")))) 10128 (bold-italic ((t (:underline t :foreground "white")))) 10129 (calendar-today-face ((t (:underline t)))) 10130 (diary-face ((t (:foreground "red")))) 10131 (font-lock-builtin-face ((t (:foreground "blue")))) 10132 (font-lock-comment-face ((t (:foreground "cyan")))) 10133 (font-lock-constant-face ((t (:foreground "magenta")))) 10134 (font-lock-function-name-face ((t (:foreground "cyan")))) 10135 (font-lock-keyword-face ((t (:foreground "red")))) 10136 (font-lock-string-face ((t (:foreground "green")))) 10137 (font-lock-type-face ((t (:foreground "yellow")))) 10138 (font-lock-variable-name-face ((t (:foreground "blue")))) 10139 (font-lock-warning-face ((t (:bold t :foreground "magenta")))) 10140 (highlight ((t (:background "blue" :foreground "yellow")))) 10141 (holiday-face ((t (:background "cyan")))) 10142 (info-menu-5 ((t (:underline t)))) 10143 (info-node ((t (:italic t :bold t)))) 10144 (info-xref ((t (:bold t)))) 10145 (italic ((t (:underline t :background "red")))) 10146 (message-cited-text-face ((t (:foreground "red")))) 10147 (message-header-cc-face ((t (:bold t :foreground "green")))) 10148 (message-header-name-face ((t (:foreground "green")))) 10149 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) 10150 (message-header-other-face ((t (:foreground "#b00000")))) 10151 (message-header-subject-face ((t (:foreground "green")))) 10152 (message-header-to-face ((t (:bold t :foreground "green")))) 10153 (message-header-xheader-face ((t (:foreground "blue")))) 10154 (message-mml-face ((t (:foreground "green")))) 10155 (message-separator-face ((t (:foreground "blue")))) 10156 10157 (modeline ((t (:background "white" :foreground "blue")))) 10158 (modeline-buffer-id ((t (:background "white" :foreground "red")))) 10159 (modeline-mousable ((t (:background "white" :foreground "magenta")))) 10160 (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow")))) 10161 (region ((t (:background "white" :foreground "black")))) 10162 (zmacs-region ((t (:background "cyan" :foreground "black")))) 10163 (secondary-selection ((t (:background "blue")))) 10164 (show-paren-match-face ((t (:background "red")))) 10165 (show-paren-mismatch-face ((t (:background "magenta" :foreground "white")))) 10166 (underline ((t (:underline t))))))) 10167 10168 (defun color-theme-aliceblue () 10169 "Color theme by Girish Bharadwaj, created 2002-03-27. 10170 Includes comint prompt, custom, font-lock, isearch, 10171 jde, senator, speedbar, and widget." 10172 (interactive) 10173 (color-theme-install 10174 '(color-theme-aliceblue 10175 ((background-color . "AliceBlue") 10176 (background-mode . light) 10177 (border-color . "black") 10178 (cursor-color . "black") 10179 (foreground-color . "DarkSlateGray4") 10180 (mouse-color . "black")) 10181 ((help-highlight-face . underline) 10182 (list-matching-lines-face . bold) 10183 (semantic-which-function-use-color . t) 10184 (senator-eldoc-use-color . t) 10185 (view-highlight-face . highlight) 10186 (widget-mouse-face . highlight)) 10187 (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) 10188 (bold ((t (:bold t :weight bold)))) 10189 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 10190 (border ((t (:background "black")))) 10191 (comint-highlight-input ((t (:bold t :weight bold)))) 10192 (comint-highlight-prompt ((t (:foreground "dark blue")))) 10193 (cursor ((t (:background "black")))) 10194 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 10195 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 10196 (custom-changed-face ((t (:background "blue" :foreground "white")))) 10197 (custom-comment-face ((t (:background "gray85")))) 10198 (custom-comment-tag-face ((t (:foreground "blue4")))) 10199 (custom-documentation-face ((t (nil)))) 10200 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 10201 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 10202 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) 10203 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 10204 (custom-modified-face ((t (:background "blue" :foreground "white")))) 10205 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 10206 (custom-saved-face ((t (:underline t)))) 10207 (custom-set-face ((t (:background "white" :foreground "blue")))) 10208 (custom-state-face ((t (:foreground "dark green")))) 10209 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 10210 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) 10211 (fixed-pitch ((t (:family "courier")))) 10212 (font-lock-builtin-face ((t (:foreground "Orchid")))) 10213 (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique)))) 10214 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 10215 (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana")))) 10216 (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana")))) 10217 (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) 10218 (font-lock-reference-face ((t (:foreground "Orchid")))) 10219 (font-lock-string-face ((t (:foreground "RosyBrown")))) 10220 (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic)))) 10221 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed)))) 10222 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 10223 (fringe ((t (:background "DarkSlateBlue")))) 10224 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) 10225 (highlight ((t (:background "darkseagreen2")))) 10226 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 10227 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 10228 (italic ((t (:italic t :slant italic)))) 10229 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 10230 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 10231 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 10232 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 10233 (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) 10234 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 10235 (jde-java-font-lock-code-face ((t (nil)))) 10236 (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) 10237 (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) 10238 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 10239 (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) 10240 (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) 10241 (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) 10242 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 10243 (jde-java-font-lock-package-face ((t (:foreground "blue3")))) 10244 (jde-java-font-lock-pre-face ((t (nil)))) 10245 (jde-java-font-lock-underline-face ((t (:underline t)))) 10246 (menu ((t (nil)))) 10247 (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 10248 (modeline-buffer-id ((t (:background "grey75" :foreground "black")))) 10249 (modeline-mousable ((t (:background "grey75" :foreground "black")))) 10250 (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black")))) 10251 (mouse ((t (:background "black")))) 10252 (primary-selection ((t (:background "lightgoldenrod2")))) 10253 (region ((t (:background "lightgoldenrod2")))) 10254 (scroll-bar ((t (nil)))) 10255 (secondary-selection ((t (:background "yellow")))) 10256 (semantic-dirty-token-face ((t (:background "lightyellow")))) 10257 (semantic-unmatched-syntax-face ((t (:underline "red")))) 10258 (senator-intangible-face ((t (:foreground "gray25")))) 10259 (senator-momentary-highlight-face ((t (:background "gray70")))) 10260 (senator-read-only-face ((t (:background "#CCBBBB")))) 10261 (show-paren-match-face ((t (:background "turquoise")))) 10262 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 10263 (speedbar-button-face ((t (:foreground "green4")))) 10264 (speedbar-directory-face ((t (:foreground "blue4")))) 10265 (speedbar-file-face ((t (:foreground "cyan4")))) 10266 (speedbar-highlight-face ((t (:background "green")))) 10267 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 10268 (speedbar-tag-face ((t (:foreground "brown")))) 10269 (template-message-face ((t (:bold t :weight bold)))) 10270 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 10271 (trailing-whitespace ((t (:background "red")))) 10272 (underline ((t (:underline t)))) 10273 (variable-pitch ((t (:family "helv")))) 10274 (widget-button-face ((t (:bold t :weight bold)))) 10275 (widget-button-pressed-face ((t (:foreground "red")))) 10276 (widget-documentation-face ((t (:foreground "dark green")))) 10277 (widget-field-face ((t (:background "gray85")))) 10278 (widget-inactive-face ((t (:foreground "dim gray")))) 10279 (widget-single-line-field-face ((t (:background "gray85")))) 10280 (trailing-whitespace ((t (:background "red")))) 10281 (underline ((t (:underline t)))) 10282 (variable-pitch ((t (:family "helv")))) 10283 (widget-button-face ((t (:bold t :weight bold)))) 10284 (widget-button-pressed-face ((t (:foreground "red")))) 10285 (widget-documentation-face ((t (:foreground "dark green")))) 10286 (widget-field-face ((t (:background "gray85")))) 10287 (widget-inactive-face ((t (:foreground "dim gray")))) 10288 (widget-single-line-field-face ((t (:background "gray85")))) 10289 (zmacs-region ((t (:background "lightgoldenrod2"))))))) 10290 10291 (defun color-theme-black-on-gray () 10292 "Color theme by sbhojwani, created 2002-04-03. 10293 Includes ecb, font-lock, paren, semantic, and widget faces. 10294 Some of the font-lock faces are disabled, ie. they look just 10295 like the default face. This is for people that don't like 10296 the look of \"angry fruit salad\" when editing." 10297 (interactive) 10298 (color-theme-install 10299 '(color-theme-black-on-gray 10300 ((background-color . "white") 10301 (background-mode . light) 10302 (border-color . "blue") 10303 (foreground-color . "black")) 10304 ((buffers-tab-face . buffers-tab) 10305 (ecb-directories-general-face . ecb-default-general-face) 10306 (ecb-directory-face . ecb-default-highlight-face) 10307 (ecb-history-face . ecb-default-highlight-face) 10308 (ecb-history-general-face . ecb-default-general-face) 10309 (ecb-method-face . ecb-default-highlight-face) 10310 (ecb-methods-general-face . ecb-default-general-face) 10311 (ecb-source-face . ecb-default-highlight-face) 10312 (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face) 10313 (ecb-sources-general-face . ecb-default-general-face) 10314 (ecb-token-header-face . ecb-token-header-face)) 10315 (default ((t (nil)))) 10316 (blue ((t (:foreground "blue")))) 10317 (bold ((t (:bold t :size "10pt")))) 10318 (bold-italic ((t (:italic t :bold t :size "10pt")))) 10319 (border-glyph ((t (:size "11pt")))) 10320 (buffers-tab ((t (:background "gray75")))) 10321 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 10322 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 10323 (display-time-time-balloon-face ((t (:foreground "red")))) 10324 (ecb-bucket-token-face ((t (:bold t :size "10pt")))) 10325 (ecb-default-general-face ((t (nil)))) 10326 (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow")))) 10327 (ecb-directories-general-face ((t (nil)))) 10328 (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow")))) 10329 (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow")))) 10330 (ecb-history-general-face ((t (nil)))) 10331 (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow")))) 10332 (ecb-methods-general-face ((t (nil)))) 10333 (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow")))) 10334 (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue")))) 10335 (ecb-sources-general-face ((t (nil)))) 10336 (ecb-token-header-face ((t (:background "SeaGreen1")))) 10337 (ecb-type-token-class-face ((t (:bold t :size "10pt")))) 10338 (ecb-type-token-enum-face ((t (:bold t :size "10pt")))) 10339 (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray")))) 10340 (ecb-type-token-interface-face ((t (:bold t :size "10pt")))) 10341 (ecb-type-token-struct-face ((t (:bold t :size "10pt")))) 10342 (ecb-type-token-typedef-face ((t (:bold t :size "10pt")))) 10343 (font-lock-builtin-face ((t (:foreground "red3")))) 10344 (font-lock-constant-face ((t (:foreground "blue3")))) 10345 (font-lock-comment-face ((t (:foreground "blue")))) 10346 (font-lock-doc-face ((t (:foreground "green4")))) 10347 (font-lock-doc-string-face ((t (:foreground "green4")))) 10348 (font-lock-function-name-face ((t (nil)))) 10349 (font-lock-keyword-face ((t (nil)))) 10350 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 10351 (font-lock-reference-face ((t (:foreground "red3")))) 10352 (font-lock-string-face ((t (nil)))) 10353 (font-lock-type-face ((t (nil)))) 10354 (font-lock-variable-name-face ((t (nil)))) 10355 (font-lock-warning-face ((t (nil)))) 10356 (green ((t (:foreground "green")))) 10357 (gui-button-face ((t (:background "grey75")))) 10358 (gui-element ((t (:size "8pt" :background "gray75")))) 10359 (highlight ((t (:background "darkseagreen2")))) 10360 (isearch ((t (:background "paleturquoise")))) 10361 (isearch-secondary ((t (:foreground "red3")))) 10362 (italic ((t (:size "10pt")))) 10363 (left-margin ((t (nil)))) 10364 (list-mode-item-selected ((t (:background "gray68")))) 10365 (modeline ((t (:background "gray75")))) 10366 (modeline-buffer-id ((t (:background "gray75" :foreground "blue4")))) 10367 (modeline-mousable ((t (:background "gray75" :foreground "firebrick")))) 10368 (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4")))) 10369 (paren-blink-off ((t (:foreground "gray")))) 10370 (paren-match ((t (:background "darkseagreen2")))) 10371 (paren-mismatch ((t (nil)))) 10372 (pointer ((t (nil)))) 10373 (primary-selection ((t (:background "gray65")))) 10374 (red ((t (:foreground "red")))) 10375 (region ((t (:background "gray65")))) 10376 (right-margin ((t (nil)))) 10377 (secondary-selection ((t (:background "paleturquoise")))) 10378 (semantic-dirty-token-face ((t (nil)))) 10379 (semantic-unmatched-syntax-face ((t (nil)))) 10380 (text-cursor ((t (:background "red" :foreground "gray")))) 10381 (toolbar ((t (:background "gray75")))) 10382 (underline ((t (:underline t)))) 10383 (vertical-divider ((t (:background "gray75")))) 10384 (widget ((t (:size "8pt" :background "gray75")))) 10385 (widget-button-face ((t (:bold t)))) 10386 (widget-button-pressed-face ((t (:foreground "red")))) 10387 (widget-documentation-face ((t (:foreground "dark green")))) 10388 (widget-field-face ((t (:background "gray85")))) 10389 (widget-inactive-face ((t (nil)))) 10390 (yellow ((t (:foreground "yellow")))) 10391 (zmacs-region ((t (:background "gray65"))))))) 10392 10393 (defun color-theme-dark-blue2 () 10394 "Color theme by Chris McMahan, created 2002-04-12. 10395 Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff, 10396 dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock, 10397 gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde, 10398 message, mmm, paren, semantic, senator, sgml, smerge, speedbar, 10399 strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml. Yes, it is 10400 a large theme." 10401 (interactive) 10402 (color-theme-install 10403 '(color-theme-dark-blue2 10404 ((background-color . "#233b5a") 10405 (background-mode . dark) 10406 (background-toolbar-color . "#cf3ccf3ccf3c") 10407 (border-color . "black") 10408 (bottom-toolbar-shadow-color . "#79e77df779e7") 10409 (cursor-color . "Yellow") 10410 (foreground-color . "#fff8dc") 10411 (mouse-color . "Grey") 10412 (top-toolbar-shadow-color . "#fffffbeeffff") 10413 (viper-saved-cursor-color-in-replace-mode . "Red3")) 10414 ((blank-space-face . blank-space-face) 10415 (blank-tab-face . blank-tab-face) 10416 (cperl-invalid-face . underline) 10417 (ecb-directories-general-face . ecb-directories-general-face) 10418 (ecb-directory-face . ecb-directory-face) 10419 (ecb-history-face . ecb-history-face) 10420 (ecb-history-general-face . ecb-history-general-face) 10421 (ecb-method-face . ecb-method-face) 10422 (ecb-methods-general-face . ecb-methods-general-face) 10423 (ecb-source-face . ecb-source-face) 10424 (ecb-source-in-directories-buffer-face . ecb-sources-face) 10425 (ecb-sources-general-face . ecb-sources-general-face) 10426 (ecb-token-header-face . ecb-token-header-face) 10427 (gnus-article-button-face . bold) 10428 (gnus-article-mouse-face . highlight) 10429 (gnus-cite-attribution-face . gnus-cite-attribution-face) 10430 (gnus-signature-face . gnus-signature-face) 10431 (gnus-summary-selected-face . gnus-summary-selected-face) 10432 (help-highlight-face . underline) 10433 (highline-face . highline-face) 10434 (highline-vertical-face . highline-vertical-face) 10435 (list-matching-lines-face . bold) 10436 (ps-zebra-color . 0.95) 10437 (senator-eldoc-use-color . t) 10438 (sgml-set-face . t) 10439 (tags-tag-face . default) 10440 (view-highlight-face . highlight) 10441 (vm-highlight-url-face . bold-italic) 10442 (vm-highlighted-header-face . bold) 10443 (vm-mime-button-face . gui-button-face) 10444 (vm-summary-highlight-face . bold) 10445 (widget-mouse-face . highlight)) 10446 (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console")))) 10447 (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) 10448 (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) 10449 (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) 10450 (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) 10451 (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10452 (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10453 (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10454 (antlr-font-lock-ruleref-face ((t (:foreground "Gray85")))) 10455 (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10456 (antlr-font-lock-tokenref-face ((t (:foreground "Gray85")))) 10457 (bbdb-company ((t (:italic t :slant italic)))) 10458 (bbdb-field-name ((t (:bold t :weight bold)))) 10459 (bbdb-field-value ((t (nil)))) 10460 (bbdb-name ((t (:underline t)))) 10461 (bg:erc-color-face0 ((t (:background "White")))) 10462 (bg:erc-color-face1 ((t (:background "black")))) 10463 (bg:erc-color-face10 ((t (:background "lightblue1")))) 10464 (bg:erc-color-face11 ((t (:background "cyan")))) 10465 (bg:erc-color-face12 ((t (:background "blue")))) 10466 (bg:erc-color-face13 ((t (:background "deeppink")))) 10467 (bg:erc-color-face14 ((t (:background "gray50")))) 10468 (bg:erc-color-face15 ((t (:background "gray90")))) 10469 (bg:erc-color-face2 ((t (:background "blue4")))) 10470 (bg:erc-color-face3 ((t (:background "green4")))) 10471 (bg:erc-color-face4 ((t (:background "red")))) 10472 (bg:erc-color-face5 ((t (:background "brown")))) 10473 (bg:erc-color-face6 ((t (:background "purple")))) 10474 (bg:erc-color-face7 ((t (:background "orange")))) 10475 (bg:erc-color-face8 ((t (:background "yellow")))) 10476 (bg:erc-color-face9 ((t (:background "green")))) 10477 (blank-space-face ((t (:background "LightGray")))) 10478 (blank-tab-face ((t (:background "Wheat")))) 10479 (blue ((t (:foreground "blue")))) 10480 (bold ((t (:bold t :foreground "cyan" :weight bold)))) 10481 (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold)))) 10482 (border ((t (:background "black")))) 10483 (border-glyph ((t (nil)))) 10484 (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue")))) 10485 (calendar-today-face ((t (:underline t)))) 10486 (change-log-acknowledgement-face ((t (:foreground "firebrick")))) 10487 (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki")))) 10488 (change-log-date-face ((t (:foreground "gold")))) 10489 (change-log-email-face ((t (:foreground "khaki" :underline t)))) 10490 (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold)))) 10491 (change-log-function-face ((t (:background "sienna" :foreground "khaki")))) 10492 (change-log-list-face ((t (:foreground "wheat")))) 10493 (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold)))) 10494 (comint-highlight-input ((t (:bold t :weight bold)))) 10495 (comint-highlight-prompt ((t (:foreground "cyan")))) 10496 (comint-input-face ((t (:foreground "deepskyblue")))) 10497 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) 10498 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) 10499 (cperl-invalid-face ((t (:foreground "white")))) 10500 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 10501 (cursor ((t (:background "Yellow")))) 10502 (custom-button-face ((t (:bold t :weight bold)))) 10503 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30")))) 10504 (custom-changed-face ((t (:background "blue" :foreground "white")))) 10505 (custom-comment-face ((t (:foreground "white")))) 10506 (custom-comment-tag-face ((t (:foreground "white")))) 10507 (custom-documentation-face ((t (:foreground "light blue")))) 10508 (custom-face-tag-face ((t (:underline t)))) 10509 (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) 10510 (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t)))) 10511 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 10512 (custom-modified-face ((t (:background "blue" :foreground "white")))) 10513 (custom-rogue-face ((t (:background "gray30" :foreground "pink")))) 10514 (custom-saved-face ((t (:underline t)))) 10515 (custom-set-face ((t (:background "white" :foreground "blue")))) 10516 (custom-state-face ((t (:foreground "gray85")))) 10517 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 10518 (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) 10519 (cvs-filename-face ((t (:foreground "white")))) 10520 (cvs-handled-face ((t (:foreground "pink")))) 10521 (cvs-header-face ((t (:foreground "green")))) 10522 (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) 10523 (cvs-msg-face ((t (:foreground "gray85")))) 10524 (cvs-need-action-face ((t (:foreground "yellow")))) 10525 (cvs-unknown-face ((t (:foreground "grey")))) 10526 (cyan ((t (:foreground "cyan")))) 10527 (diary-face ((t (:bold t :foreground "gray85" :weight bold)))) 10528 (diff-added-face ((t (nil)))) 10529 (diff-changed-face ((t (nil)))) 10530 (diff-context-face ((t (:foreground "grey50")))) 10531 (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) 10532 (diff-function-face ((t (:foreground "grey50")))) 10533 (diff-header-face ((t (:foreground "lemon chiffon")))) 10534 (diff-hunk-header-face ((t (:background "grey85")))) 10535 (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) 10536 (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) 10537 (diff-removed-face ((t (nil)))) 10538 (dired-face-boring ((t (:foreground "Gray65")))) 10539 (dired-face-directory ((t (:bold t :weight bold)))) 10540 (dired-face-executable ((t (:foreground "gray85")))) 10541 (dired-face-flagged ((t (:background "LightSlateGray")))) 10542 (dired-face-header ((t (:background "grey75" :foreground "gray30")))) 10543 (dired-face-marked ((t (:background "PaleVioletRed")))) 10544 (dired-face-permissions ((t (:background "grey75" :foreground "gray30")))) 10545 (dired-face-setuid ((t (:foreground "gray85")))) 10546 (dired-face-socket ((t (:foreground "gray85")))) 10547 (dired-face-symlink ((t (:foreground "cyan")))) 10548 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 10549 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 10550 (display-time-time-balloon-face ((t (:foreground "gray85")))) 10551 (ebrowse-default-face ((t (nil)))) 10552 (ebrowse-file-name-face ((t (:italic t :slant italic)))) 10553 (ebrowse-member-attribute-face ((t (:foreground "red")))) 10554 (ebrowse-member-class-face ((t (:foreground "Gray85")))) 10555 (ebrowse-progress-face ((t (:background "blue")))) 10556 (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10557 (ebrowse-tree-mark-face ((t (:foreground "Gray85")))) 10558 (ecb-bucket-token-face ((t (:bold t :weight bold)))) 10559 (ecb-default-general-face ((t (:height 1.0)))) 10560 (ecb-default-highlight-face ((t (:background "magenta" :height 1.0)))) 10561 (ecb-directories-general-face ((t (:height 0.9)))) 10562 (ecb-directory-face ((t (:background "Cyan4")))) 10563 (ecb-history-face ((t (:background "Cyan4")))) 10564 (ecb-history-general-face ((t (:height 0.9)))) 10565 (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal)))) 10566 (ecb-methods-general-face ((t (:slant normal)))) 10567 (ecb-source-face ((t (:background "Cyan4")))) 10568 (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1")))) 10569 (ecb-sources-face ((t (:foreground "LightBlue1")))) 10570 (ecb-sources-general-face ((t (:height 0.9)))) 10571 (ecb-token-header-face ((t (:background "Steelblue4")))) 10572 (ecb-type-token-class-face ((t (:bold t :weight bold)))) 10573 (ecb-type-token-enum-face ((t (:bold t :weight bold)))) 10574 (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold)))) 10575 (ecb-type-token-interface-face ((t (:bold t :weight bold)))) 10576 (ecb-type-token-struct-face ((t (:bold t :weight bold)))) 10577 (ecb-type-token-typedef-face ((t (:bold t :weight bold)))) 10578 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 10579 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30")))) 10580 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 10581 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 10582 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30")))) 10583 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 10584 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 10585 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30")))) 10586 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 10587 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30")))) 10588 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30")))) 10589 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30")))) 10590 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 10591 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30")))) 10592 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30")))) 10593 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 10594 (erc-action-face ((t (:bold t :weight bold)))) 10595 (erc-bold-face ((t (:bold t :weight bold)))) 10596 (erc-dangerous-host-face ((t (:foreground "red")))) 10597 (erc-default-face ((t (nil)))) 10598 (erc-direct-msg-face ((t (:foreground "pale green")))) 10599 (erc-error-face ((t (:bold t :foreground "gray85" :weight bold)))) 10600 (erc-fool-face ((t (:foreground "Gray85")))) 10601 (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) 10602 (erc-input-face ((t (:foreground "light blue")))) 10603 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 10604 (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) 10605 (erc-notice-face ((t (:foreground "light salmon")))) 10606 (erc-pal-face ((t (:foreground "pale green")))) 10607 (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) 10608 (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) 10609 (erc-underline-face ((t (:underline t)))) 10610 (eshell-ls-archive-face ((t (:bold t :weight bold)))) 10611 (eshell-ls-backup-face ((t (:foreground "gray85")))) 10612 (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold)))) 10613 (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold)))) 10614 (eshell-ls-executable-face ((t (:bold t :weight bold)))) 10615 (eshell-ls-missing-face ((t (:bold t :weight bold)))) 10616 (eshell-ls-picture-face ((t (:foreground "gray85")))) 10617 (eshell-ls-product-face ((t (:foreground "gray85")))) 10618 (eshell-ls-readonly-face ((t (:foreground "gray70")))) 10619 (eshell-ls-special-face ((t (:bold t :weight bold)))) 10620 (eshell-ls-symlink-face ((t (:bold t :weight bold)))) 10621 (eshell-ls-text-face ((t (:foreground "gray85")))) 10622 (eshell-ls-todo-face ((t (:bold t :weight bold)))) 10623 (eshell-ls-unreadable-face ((t (:foreground "gray85")))) 10624 (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold)))) 10625 (eshell-test-failed-face ((t (:bold t :weight bold)))) 10626 (eshell-test-ok-face ((t (:bold t :weight bold)))) 10627 (excerpt ((t (:italic t :slant italic)))) 10628 (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold)))) 10629 (fg:black ((t (:foreground "black")))) 10630 (fg:erc-color-face0 ((t (:foreground "White")))) 10631 (fg:erc-color-face1 ((t (:foreground "black")))) 10632 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 10633 (fg:erc-color-face11 ((t (:foreground "cyan")))) 10634 (fg:erc-color-face12 ((t (:foreground "blue")))) 10635 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 10636 (fg:erc-color-face14 ((t (:foreground "gray50")))) 10637 (fg:erc-color-face15 ((t (:foreground "gray90")))) 10638 (fg:erc-color-face2 ((t (:foreground "blue4")))) 10639 (fg:erc-color-face3 ((t (:foreground "green4")))) 10640 (fg:erc-color-face4 ((t (:foreground "red")))) 10641 (fg:erc-color-face5 ((t (:foreground "brown")))) 10642 (fg:erc-color-face6 ((t (:foreground "purple")))) 10643 (fg:erc-color-face7 ((t (:foreground "orange")))) 10644 (fg:erc-color-face8 ((t (:foreground "yellow")))) 10645 (fg:erc-color-face9 ((t (:foreground "green")))) 10646 (fixed ((t (:bold t :weight bold)))) 10647 (fixed-pitch ((t (:family "outline-lucida console")))) 10648 (fl-comment-face ((t (:foreground "gray85")))) 10649 (fl-function-name-face ((t (:foreground "green")))) 10650 (fl-keyword-face ((t (:foreground "LightGreen")))) 10651 (fl-string-face ((t (:foreground "light coral")))) 10652 (fl-type-face ((t (:foreground "cyan")))) 10653 (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) 10654 (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) 10655 (font-latex-bold-face ((t (nil)))) 10656 (font-latex-italic-face ((t (nil)))) 10657 (font-latex-math-face ((t (nil)))) 10658 (font-latex-sedate-face ((t (:foreground "Gray85")))) 10659 (font-latex-string-face ((t (:foreground "orange")))) 10660 (font-latex-warning-face ((t (:foreground "gold")))) 10661 (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold)))) 10662 (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic)))) 10663 (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 10664 (font-lock-doc-face ((t (:bold t :weight bold)))) 10665 (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold)))) 10666 (font-lock-exit-face ((t (:foreground "green")))) 10667 (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold)))) 10668 (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold)))) 10669 (font-lock-preprocessor-face ((t (:foreground "Gray85")))) 10670 (font-lock-reference-face ((t (:foreground "cyan")))) 10671 (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic)))) 10672 (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 10673 (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold)))) 10674 (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold)))) 10675 (fringe ((t (:background "#3c5473")))) 10676 (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold)))) 10677 (gnus-cite-face-1 ((t (:foreground "gold")))) 10678 (gnus-cite-face-10 ((t (:foreground "coral")))) 10679 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 10680 (gnus-cite-face-2 ((t (:foreground "wheat")))) 10681 (gnus-cite-face-3 ((t (:foreground "light pink")))) 10682 (gnus-cite-face-4 ((t (:foreground "khaki")))) 10683 (gnus-cite-face-5 ((t (:foreground "pale green")))) 10684 (gnus-cite-face-6 ((t (:foreground "beige")))) 10685 (gnus-cite-face-7 ((t (:foreground "orange")))) 10686 (gnus-cite-face-8 ((t (:foreground "magenta")))) 10687 (gnus-cite-face-9 ((t (:foreground "violet")))) 10688 (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold)))) 10689 (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) 10690 (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold")))) 10691 (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic)))) 10692 (gnus-emphasis-underline ((t (:foreground "white" :underline t)))) 10693 (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold)))) 10694 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold)))) 10695 (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic)))) 10696 (gnus-filterhist-face-1 ((t (nil)))) 10697 (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) 10698 (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold)))) 10699 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 10700 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) 10701 (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) 10702 (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold)))) 10703 (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) 10704 (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold)))) 10705 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 10706 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 10707 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 10708 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 10709 (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) 10710 (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold)))) 10711 (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) 10712 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 10713 (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) 10714 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 10715 (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) 10716 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 10717 (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) 10718 (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) 10719 (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic)))) 10720 (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold)))) 10721 (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold)))) 10722 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) 10723 (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold)))) 10724 (gnus-picons-face ((t (:background "white" :foreground "gray30")))) 10725 (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30")))) 10726 (gnus-signature-face ((t (:italic t :foreground "white" :slant italic)))) 10727 (gnus-splash ((t (:foreground "Brown")))) 10728 (gnus-splash-face ((t (:foreground "orange")))) 10729 (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange")))) 10730 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 10731 (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold)))) 10732 (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) 10733 (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) 10734 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) 10735 (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic)))) 10736 (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold)))) 10737 (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic)))) 10738 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 10739 (gnus-summary-normal-read-face ((t (:foreground "gray70")))) 10740 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) 10741 (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold)))) 10742 (gnus-summary-selected-face ((t (:foreground "white" :underline t)))) 10743 (gnus-x-face ((t (:background "white" :foreground "gray30")))) 10744 (green ((t (:foreground "green")))) 10745 (gui-button-face ((t (:background "grey75" :foreground "gray30")))) 10746 (gui-element ((t (:background "Gray80")))) 10747 (header-line ((t (:background "grey20" :foreground "grey90")))) 10748 (hi-black-b ((t (:bold t :weight bold)))) 10749 (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) 10750 (hi-blue ((t (:background "light blue")))) 10751 (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) 10752 (hi-green ((t (:background "green")))) 10753 (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) 10754 (hi-pink ((t (:background "pink")))) 10755 (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) 10756 (hi-yellow ((t (:background "yellow")))) 10757 (highlight ((t (:background "SkyBlue3")))) 10758 (highlight-changes-delete-face ((t (:foreground "gray85" :underline t)))) 10759 (highlight-changes-face ((t (:foreground "gray85")))) 10760 (highline-face ((t (:background "#3c5473")))) 10761 (highline-vertical-face ((t (:background "lightcyan")))) 10762 (holiday-face ((t (:background "pink" :foreground "gray30")))) 10763 (html-helper-bold-face ((t (:bold t :weight bold)))) 10764 (html-helper-bold-italic-face ((t (nil)))) 10765 (html-helper-builtin-face ((t (:foreground "gray85" :underline t)))) 10766 (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold)))) 10767 (html-helper-underline-face ((t (:underline t)))) 10768 (html-tag-face ((t (:bold t :weight bold)))) 10769 (hyper-apropos-documentation ((t (:foreground "white")))) 10770 (hyper-apropos-heading ((t (:bold t :weight bold)))) 10771 (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) 10772 (hyper-apropos-major-heading ((t (:bold t :weight bold)))) 10773 (hyper-apropos-section-heading ((t (:bold t :weight bold)))) 10774 (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold)))) 10775 (ibuffer-marked-face ((t (:foreground "gray85")))) 10776 (idlwave-help-link-face ((t (:foreground "Blue")))) 10777 (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) 10778 (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) 10779 (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) 10780 (info-menu-5 ((t (:underline t)))) 10781 (info-menu-6 ((t (nil)))) 10782 (info-menu-header ((t (:bold t :weight bold :family "helv")))) 10783 (info-node ((t (:italic t :bold t :slant italic :weight bold)))) 10784 (info-xref ((t (:bold t :weight bold)))) 10785 (isearch ((t (:background "LightSeaGreen")))) 10786 (isearch-lazy-highlight-face ((t (:background "cyan4")))) 10787 (isearch-secondary ((t (:foreground "red3")))) 10788 (italic ((t (:italic t :bold t :slant italic :weight bold)))) 10789 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 10790 (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) 10791 (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) 10792 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 10793 (jde-java-font-lock-code-face ((t (nil)))) 10794 (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) 10795 (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) 10796 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 10797 (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t)))) 10798 (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) 10799 (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) 10800 (jde-java-font-lock-operator-face ((t (:foreground "cyan3")))) 10801 (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) 10802 (jde-java-font-lock-pre-face ((t (nil)))) 10803 (jde-java-font-lock-underline-face ((t (:underline t)))) 10804 (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold)))) 10805 (left-margin ((t (nil)))) 10806 (linemenu-face ((t (:background "gray30")))) 10807 (list-mode-item-selected ((t (:background "gray68")))) 10808 (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) 10809 (log-view-message-face ((t (:background "grey85")))) 10810 (magenta ((t (:foreground "gray85")))) 10811 (makefile-space-face ((t (:background "hotpink" :foreground "white")))) 10812 (man-bold ((t (:bold t :weight bold)))) 10813 (man-heading ((t (:bold t :weight bold)))) 10814 (man-italic ((t (:foreground "yellow")))) 10815 (man-xref ((t (:underline t)))) 10816 (menu ((t (:background "wheat" :foreground "gray30")))) 10817 (message-cited-text ((t (:foreground "orange")))) 10818 (message-cited-text-face ((t (:foreground "medium aquamarine")))) 10819 (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold)))) 10820 (message-header-contents ((t (:foreground "white")))) 10821 (message-header-name-face ((t (:foreground "gray85")))) 10822 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) 10823 (message-header-other-face ((t (:foreground "gray85")))) 10824 (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold)))) 10825 (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) 10826 (message-header-xheader-face ((t (:foreground "blue")))) 10827 (message-headers ((t (:bold t :foreground "orange" :weight bold)))) 10828 (message-highlighted-header-contents ((t (:bold t :weight bold)))) 10829 (message-mml-face ((t (:bold t :foreground "gray85" :weight bold)))) 10830 (message-separator-face ((t (:foreground "gray85")))) 10831 (message-url ((t (:bold t :foreground "pink" :weight bold)))) 10832 (mmm-default-submode-face ((t (:background "#c0c0c5")))) 10833 (mmm-face ((t (:background "black" :foreground "green")))) 10834 (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv"))))) 10835 (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana")))) 10836 (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) 10837 (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) 10838 (mouse ((t (:background "Grey")))) 10839 (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White")))) 10840 (my-url-face ((t (:foreground "LightBlue")))) 10841 (nil ((t (nil)))) 10842 (paren-blink-off ((t (:foreground "gray80")))) 10843 (paren-face-match ((t (:background "turquoise")))) 10844 (paren-face-mismatch ((t (:background "purple" :foreground "white")))) 10845 (paren-face-no-match ((t (:background "yellow" :foreground "gray30")))) 10846 (paren-match ((t (:background "darkseagreen2")))) 10847 (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30")))) 10848 (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) 10849 (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) 10850 (pointer ((t (nil)))) 10851 (primary-selection ((t (:background "gray40")))) 10852 (reb-match-0 ((t (:background "lightblue")))) 10853 (reb-match-1 ((t (:background "aquamarine")))) 10854 (reb-match-2 ((t (:background "springgreen")))) 10855 (reb-match-3 ((t (:background "yellow")))) 10856 (red ((t (:foreground "red")))) 10857 (region ((t (:background "Cyan4")))) 10858 (right-margin ((t (nil)))) 10859 (scroll-bar ((t (:background "grey75")))) 10860 (secondary-selection ((t (:background "gray60")))) 10861 (semantic-dirty-token-face ((t (:background "gray10")))) 10862 (semantic-intangible-face ((t (:foreground "gray25")))) 10863 (semantic-read-only-face ((t (:background "gray25")))) 10864 (semantic-unmatched-syntax-face ((t (:underline "red")))) 10865 (senator-intangible-face ((t (:foreground "gray75")))) 10866 (senator-momentary-highlight-face ((t (:background "gray70")))) 10867 (senator-read-only-face ((t (:background "#664444")))) 10868 (sgml-comment-face ((t (:foreground "dark turquoise")))) 10869 (sgml-doctype-face ((t (:foreground "turquoise")))) 10870 (sgml-end-tag-face ((t (:foreground "aquamarine")))) 10871 (sgml-entity-face ((t (:foreground "gray85")))) 10872 (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) 10873 (sgml-ms-end-face ((t (:foreground "green")))) 10874 (sgml-ms-start-face ((t (:foreground "yellow")))) 10875 (sgml-pi-face ((t (:foreground "lime green")))) 10876 (sgml-sgml-face ((t (:foreground "brown")))) 10877 (sgml-short-ref-face ((t (:foreground "deep sky blue")))) 10878 (sgml-start-tag-face ((t (:foreground "aquamarine")))) 10879 (sh-heredoc-face ((t (:foreground "tan")))) 10880 (shell-option-face ((t (:foreground "gray85")))) 10881 (shell-output-2-face ((t (:foreground "gray85")))) 10882 (shell-output-3-face ((t (:foreground "gray85")))) 10883 (shell-output-face ((t (:bold t :weight bold)))) 10884 (shell-prompt-face ((t (:foreground "yellow")))) 10885 (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold)))) 10886 (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold)))) 10887 (show-tabs-space-face ((t (:foreground "yellow")))) 10888 (show-tabs-tab-face ((t (:foreground "red")))) 10889 (smerge-base-face ((t (:foreground "red")))) 10890 (smerge-markers-face ((t (:background "grey85")))) 10891 (smerge-mine-face ((t (:foreground "Gray85")))) 10892 (smerge-other-face ((t (:foreground "darkgreen")))) 10893 (speedbar-button-face ((t (:bold t :weight bold)))) 10894 (speedbar-directory-face ((t (:bold t :weight bold)))) 10895 (speedbar-file-face ((t (:bold t :weight bold)))) 10896 (speedbar-highlight-face ((t (:background "sea green")))) 10897 (speedbar-selected-face ((t (:underline t)))) 10898 (speedbar-tag-face ((t (:foreground "yellow")))) 10899 (strokes-char-face ((t (:background "lightgray")))) 10900 (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold)))) 10901 (template-message-face ((t (:bold t :weight bold)))) 10902 (term-black ((t (:foreground "black")))) 10903 (term-blackbg ((t (:background "black")))) 10904 (term-blue ((t (:foreground "blue")))) 10905 (term-bluebg ((t (:background "blue")))) 10906 (term-bold ((t (:bold t :weight bold)))) 10907 (term-cyan ((t (:foreground "cyan")))) 10908 (term-cyanbg ((t (:background "cyan")))) 10909 (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console")))) 10910 (term-default-bg ((t (nil)))) 10911 (term-default-bg-inv ((t (nil)))) 10912 (term-default-fg ((t (nil)))) 10913 (term-default-fg-inv ((t (nil)))) 10914 (term-green ((t (:foreground "green")))) 10915 (term-greenbg ((t (:background "green")))) 10916 (term-invisible ((t (nil)))) 10917 (term-invisible-inv ((t (nil)))) 10918 (term-magenta ((t (:foreground "magenta")))) 10919 (term-magentabg ((t (:background "magenta")))) 10920 (term-red ((t (:foreground "red")))) 10921 (term-redbg ((t (:background "red")))) 10922 (term-underline ((t (:underline t)))) 10923 (term-white ((t (:foreground "white")))) 10924 (term-whitebg ((t (:background "white")))) 10925 (term-yellow ((t (:foreground "yellow")))) 10926 (term-yellowbg ((t (:background "yellow")))) 10927 (tex-math-face ((t (:foreground "RosyBrown")))) 10928 (texinfo-heading-face ((t (:foreground "Blue")))) 10929 (text-cursor ((t (:background "Red3" :foreground "gray80")))) 10930 (tool-bar ((t (:background "grey75" :foreground "black")))) 10931 (toolbar ((t (:background "Gray80")))) 10932 (tooltip ((t (:background "lightyellow" :foreground "black")))) 10933 (trailing-whitespace ((t (:background "red")))) 10934 (underline ((t (:underline t)))) 10935 (variable-pitch ((t (:family "helv")))) 10936 (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) 10937 (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) 10938 (vertical-divider ((t (:background "Gray80")))) 10939 (vhdl-font-lock-attribute-face ((t (:foreground "gray85")))) 10940 (vhdl-font-lock-directive-face ((t (:foreground "gray85")))) 10941 (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85")))) 10942 (vhdl-font-lock-function-face ((t (:foreground "gray85")))) 10943 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold)))) 10944 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold)))) 10945 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 10946 (vhdl-speedbar-architecture-face ((t (:foreground "gray85")))) 10947 (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t)))) 10948 (vhdl-speedbar-configuration-face ((t (:foreground "gray85")))) 10949 (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t)))) 10950 (vhdl-speedbar-entity-face ((t (:foreground "gray85")))) 10951 (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t)))) 10952 (vhdl-speedbar-instantiation-face ((t (:foreground "gray85")))) 10953 (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t)))) 10954 (vhdl-speedbar-package-face ((t (:foreground "gray85")))) 10955 (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t)))) 10956 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 10957 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 10958 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 10959 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 10960 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 10961 (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic)))) 10962 (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic)))) 10963 (vm-header-name-face ((t (:foreground "cyan")))) 10964 (vm-header-subject-face ((t (:foreground "cyan")))) 10965 (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic)))) 10966 (vm-message-cited-face ((t (:foreground "Gray80")))) 10967 (vm-monochrome-image ((t (:background "white" :foreground "gray30")))) 10968 (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) 10969 (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) 10970 (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) 10971 (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) 10972 (vm-summary-highlight-face ((t (:foreground "White")))) 10973 (vm-xface ((t (:background "white" :foreground "gray30")))) 10974 (vmpc-pre-sig-face ((t (:foreground "gray85")))) 10975 (vmpc-sig-face ((t (:foreground "gray85")))) 10976 (vvb-face ((t (:background "pink" :foreground "gray30")))) 10977 (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) 10978 (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) 10979 (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) 10980 (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) 10981 (white ((t (:foreground "white")))) 10982 (widget ((t (nil)))) 10983 (widget-button-face ((t (:bold t :weight bold)))) 10984 (widget-button-pressed-face ((t (:foreground "gray85")))) 10985 (widget-documentation-face ((t (:foreground "dark green")))) 10986 (widget-field-face ((t (:background "gray85" :foreground "gray30")))) 10987 (widget-inactive-face ((t (:foreground "dim gray")))) 10988 (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) 10989 (woman-addition-face ((t (:foreground "orange")))) 10990 (woman-bold-face ((t (:bold t :weight bold)))) 10991 (woman-italic-face ((t (:foreground "beige")))) 10992 (woman-unknown-face ((t (:foreground "LightSalmon")))) 10993 (x-face ((t (:background "white" :foreground "gray30")))) 10994 (xrdb-option-name-face ((t (:foreground "gray85")))) 10995 (xref-keyword-face ((t (:foreground "gray85")))) 10996 (xref-list-default-face ((t (nil)))) 10997 (xref-list-pilot-face ((t (:foreground "gray85")))) 10998 (xref-list-symbol-face ((t (:foreground "navy")))) 10999 (xsl-fo-alternate-face ((t (:foreground "Yellow")))) 11000 (xsl-fo-main-face ((t (:foreground "PaleGreen")))) 11001 (xsl-other-element-face ((t (:foreground "Coral")))) 11002 (xsl-xslt-alternate-face ((t (:foreground "LightGray")))) 11003 (xsl-xslt-main-face ((t (:foreground "Wheat")))) 11004 (xxml-emph-1-face ((t (:background "lightyellow")))) 11005 (xxml-emph-2-face ((t (:background "lightyellow")))) 11006 (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) 11007 (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) 11008 (xxml-header-3-face ((t (:background "seashell1")))) 11009 (xxml-header-4-face ((t (:background "seashell1")))) 11010 (xxml-interaction-face ((t (:background "lightcyan")))) 11011 (xxml-rug-face ((t (:background "cyan")))) 11012 (xxml-sparkle-face ((t (:background "yellow")))) 11013 (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t)))) 11014 (yellow ((t (:foreground "yellow")))) 11015 (zmacs-region ((t (:background "Cyan4"))))))) 11016 11017 (defun color-theme-blue-mood () 11018 "Color theme by Nelson Loyola, created 2002-04-15. 11019 Includes cperl, custom, font-lock, p4, speedbar, widget." 11020 (interactive) 11021 (color-theme-install 11022 '(color-theme-blue-mood 11023 ((background-color . "DodgerBlue4") 11024 (background-mode . dark) 11025 (background-toolbar-color . "#bfbfbfbfbfbf") 11026 (border-color . "Blue") 11027 (border-color . "#000000000000") 11028 (bottom-toolbar-shadow-color . "#6c6c68686868") 11029 (cursor-color . "DarkGoldenrod1") 11030 (foreground-color . "white smoke") 11031 (mouse-color . "black") 11032 (top-toolbar-shadow-color . "#e5e5e0e0e1e1")) 11033 ((vc-annotate-very-old-color . "#0046FF")) 11034 (default ((t (nil)))) 11035 (blue ((t (:foreground "blue")))) 11036 (bold ((t (:bold t)))) 11037 (bold-italic ((t (nil)))) 11038 (border-glyph ((t (nil)))) 11039 (cmode-bracket-face ((t (:bold t)))) 11040 (cperl-array-face ((t (:bold t :foreground "wheat")))) 11041 (cperl-hash-face ((t (:bold t :foreground "chartreuse")))) 11042 (custom-button-face ((t (nil)))) 11043 (custom-changed-face ((t (:background "blue" :foreground "white")))) 11044 (custom-documentation-face ((t (nil)))) 11045 (custom-face-tag-face ((t (:underline t)))) 11046 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 11047 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 11048 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 11049 (custom-modified-face ((t (:background "blue" :foreground "white")))) 11050 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 11051 (custom-saved-face ((t (:underline t)))) 11052 (custom-set-face ((t (:background "white" :foreground "blue")))) 11053 (custom-state-face ((t (:bold t :foreground "cyan")))) 11054 (custom-variable-button-face ((t (:underline t :bold t)))) 11055 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 11056 (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) 11057 (font-lock-builtin-face ((t (:bold t :foreground "wheat")))) 11058 (font-lock-comment-face ((t (:bold t :foreground "gray72")))) 11059 (font-lock-constant-face ((t (:bold t :foreground "cyan3")))) 11060 (font-lock-doc-string-face ((t (:foreground "#00C000")))) 11061 (font-lock-function-name-face ((t (:bold t :foreground "chartreuse")))) 11062 (font-lock-keyword-face ((t (:bold t :foreground "gold1")))) 11063 (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1")))) 11064 (font-lock-other-type-face ((t (:bold t :foreground "gold1")))) 11065 (font-lock-preprocessor-face ((t (:foreground "plum")))) 11066 (font-lock-reference-face ((t (:bold t :foreground "orangered")))) 11067 (font-lock-string-face ((t (:foreground "tomato")))) 11068 (font-lock-type-face ((t (:bold t :foreground "gold1")))) 11069 (font-lock-variable-name-face ((t (:foreground "light yellow")))) 11070 (font-lock-warning-face ((t (:foreground "tomato")))) 11071 (green ((t (:foreground "green")))) 11072 (gui-button-face ((t (:background "grey75" :foreground "black")))) 11073 (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000")))) 11074 (highlight ((t (:background "red" :foreground "yellow")))) 11075 (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) 11076 (italic ((t (nil)))) 11077 (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) 11078 (left-margin ((t (nil)))) 11079 (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow")))) 11080 (modeline ((t (:background "goldenrod" :foreground "darkblue")))) 11081 (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue")))) 11082 (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue")))) 11083 (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue")))) 11084 (my-tab-face ((t (:background "SlateBlue1")))) 11085 (p4-depot-added-face ((t (:foreground "steelblue1")))) 11086 (p4-depot-deleted-face ((t (:foreground "red")))) 11087 (p4-depot-unmapped-face ((t (:foreground "grey90")))) 11088 (p4-diff-change-face ((t (:foreground "dark green")))) 11089 (p4-diff-del-face ((t (:bold t :foreground "salmon")))) 11090 (p4-diff-file-face ((t (:background "blue")))) 11091 (p4-diff-head-face ((t (:background "blue")))) 11092 (p4-diff-ins-face ((t (:foreground "steelblue1")))) 11093 (paren-blink-off ((t (:foreground "DodgerBlue4")))) 11094 (paren-match ((t (:background "red" :foreground "yellow")))) 11095 (paren-mismatch ((t (:background "DeepPink")))) 11096 (pointer ((t (:background "white")))) 11097 (primary-selection ((t (:bold t :background "medium sea green")))) 11098 (red ((t (:foreground "red")))) 11099 (region ((t (:background "red" :foreground "yellow")))) 11100 (right-margin ((t (nil)))) 11101 (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) 11102 (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) 11103 (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) 11104 (show-trailing-whitespace ((t (:background "red" :foreground "blue")))) 11105 (speedbar-button-face ((t (:foreground "white")))) 11106 (speedbar-directory-face ((t (:foreground "gray")))) 11107 (speedbar-file-face ((t (:foreground "gold1")))) 11108 (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1")))) 11109 (speedbar-selected-face ((t (:underline t :foreground "red")))) 11110 (speedbar-tag-face ((t (:foreground "chartreuse")))) 11111 (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4")))) 11112 (toolbar ((t (:background "#e7e3d6" :foreground "#000000")))) 11113 (underline ((t (:underline t)))) 11114 (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000")))) 11115 (widget-button-face ((t (:bold t)))) 11116 (widget-button-pressed-face ((t (:foreground "red")))) 11117 (widget-documentation-face ((t (:foreground "dark green")))) 11118 (widget-field-face ((t (:background "gray85")))) 11119 (widget-inactive-face ((t (:foreground "dim gray")))) 11120 (widget-single-line-field-face ((t (:background "gray85")))) 11121 (yellow ((t (:foreground "yellow")))) 11122 (zmacs-region ((t (:background "white" :foreground "midnightblue"))))))) 11123 11124 (defun color-theme-euphoria () 11125 "Color theme by oGLOWo, created 2000-04-19. 11126 Green on black theme including font-lock, speedbar, and widget." 11127 (interactive) 11128 (color-theme-install 11129 '(color-theme-euphoria 11130 ((background-color . "black") 11131 (background-mode . dark) 11132 (border-color . "black") 11133 (cursor-color . "yellow") 11134 (foreground-color . "#00ff00") 11135 (mouse-color . "yellow")) 11136 ((help-highlight-face . underline) 11137 (list-matching-lines-face . bold) 11138 (widget-mouse-face . highlight)) 11139 (default ((t (:stipple nil :background "black" :foreground "#00ff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed")))) 11140 (bold ((t (:bold t :weight bold)))) 11141 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11142 (border ((t (:background "black")))) 11143 (comint-highlight-input ((t (:bold t :weight bold)))) 11144 (comint-highlight-prompt ((t (:foreground "cyan")))) 11145 (cursor ((t (:background "yellow")))) 11146 (fixed-pitch ((t (:family "courier")))) 11147 (font-lock-builtin-face ((t (:foreground "magenta")))) 11148 (font-lock-comment-face ((t (:foreground "deeppink")))) 11149 (font-lock-constant-face ((t (:foreground "blue")))) 11150 (font-lock-doc-face ((t (:foreground "cyan")))) 11151 (font-lock-doc-string-face ((t (:foreground "cyan")))) 11152 (font-lock-function-name-face ((t (:foreground "purple")))) 11153 (font-lock-keyword-face ((t (:foreground "red")))) 11154 (font-lock-preprocessor-face ((t (:foreground "blue1")))) 11155 (font-lock-reference-face ((t (nil)))) 11156 (font-lock-string-face ((t (:foreground "cyan")))) 11157 (font-lock-type-face ((t (:foreground "yellow")))) 11158 (font-lock-variable-name-face ((t (:foreground "violet")))) 11159 (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) 11160 (fringe ((t (:background "gray16" :foreground "#00ff00")))) 11161 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 11162 (highlight ((t (:background "darkolivegreen")))) 11163 (horizontal-divider ((t (:background "gray16" :foreground "#00ff00")))) 11164 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 11165 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 11166 (italic ((t (:italic t :slant italic)))) 11167 (menu ((t (:background "gray16" :foreground "green")))) 11168 (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button))))) 11169 (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00")))) 11170 (modeline-mousable ((t (:background "gray16" :foreground "#00ff00")))) 11171 (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00")))) 11172 (mouse ((t (:background "yellow")))) 11173 (primary-selection ((t (:background "#00ff00" :foreground "black")))) 11174 (region ((t (:background "steelblue" :foreground "white")))) 11175 (scroll-bar ((t (:background "gray16" :foreground "#00ff00")))) 11176 (secondary-selection ((t (:background "#00ff00" :foreground "black")))) 11177 (show-paren-match-face ((t (:background "turquoise")))) 11178 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 11179 (speedbar-button-face ((t (:foreground "#00ff00")))) 11180 (speedbar-directory-face ((t (:foreground "#00ff00")))) 11181 (speedbar-file-face ((t (:foreground "cyan")))) 11182 (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple")))) 11183 (speedbar-selected-face ((t (:foreground "deeppink" :underline t)))) 11184 (speedbar-tag-face ((t (:foreground "yellow")))) 11185 (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button))))) 11186 (tooltip ((t (:background "gray16" :foreground "#00ff00")))) 11187 (trailing-whitespace ((t (:background "red")))) 11188 (underline ((t (:underline t)))) 11189 (variable-pitch ((t (:family "helv")))) 11190 (vertical-divider ((t (:background "gray16" :foreground "#00ff00")))) 11191 (widget-button-face ((t (:bold t :weight bold)))) 11192 (widget-button-pressed-face ((t (:foreground "red")))) 11193 (widget-documentation-face ((t (:foreground "lime green")))) 11194 (widget-field-face ((t (:background "dim gray")))) 11195 (widget-inactive-face ((t (:foreground "light gray")))) 11196 (widget-single-line-field-face ((t (:background "dim gray")))) 11197 (zmacs-region ((t (:background "steelblue" :foreground "white"))))))) 11198 11199 (defun color-theme-resolve () 11200 "Color theme by Damien Elmes, created 2002-04-24. 11201 A white smoke on blue color theme." 11202 (interactive) 11203 (color-theme-install 11204 '(color-theme-resolve 11205 ((background-color . "#00457f") 11206 (background-mode . dark) 11207 (border-color . "black") 11208 (cursor-color . "DarkGoldenrod1") 11209 (foreground-color . "white smoke") 11210 (mouse-color . "white")) 11211 ((display-time-mail-face . mode-line) 11212 (help-highlight-face . underline) 11213 (list-matching-lines-face . bold) 11214 (view-highlight-face . highlight) 11215 (widget-mouse-face . highlight)) 11216 (default ((t (:stipple nil :background "#00457f" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "b&h-lucidatypewriter")))) 11217 (bold ((t (:bold t :foreground "snow2" :weight bold)))) 11218 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11219 (border ((t (:background "black")))) 11220 (calendar-today-face ((t (:underline t)))) 11221 (comint-highlight-input ((t (:bold t :weight bold)))) 11222 (comint-highlight-prompt ((t (:foreground "cyan")))) 11223 (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold)))) 11224 (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold)))) 11225 (cursor ((t (:background "DarkGoldenrod1")))) 11226 (diary-face ((t (:foreground "yellow")))) 11227 (erc-input-face ((t (:foreground "lightblue2")))) 11228 (erc-notice-face ((t (:foreground "lightyellow3")))) 11229 (fixed-pitch ((t (:family "courier")))) 11230 (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) 11231 (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) 11232 (font-latex-math-face ((t (:foreground "burlywood")))) 11233 (font-latex-sedate-face ((t (:foreground "LightGray")))) 11234 (font-latex-string-face ((t (:foreground "RosyBrown")))) 11235 (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 11236 (font-lock-builtin-face ((t (:foreground "wheat")))) 11237 (font-lock-comment-face ((t (:foreground "light steel blue")))) 11238 (font-lock-constant-face ((t (:foreground "seashell3")))) 11239 (font-lock-doc-face ((t (:foreground "plum")))) 11240 (font-lock-doc-string-face ((t (:foreground "#008000")))) 11241 (font-lock-function-name-face ((t (:foreground "thistle1")))) 11242 (font-lock-keyword-face ((t (:foreground "wheat")))) 11243 (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold)))) 11244 (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold)))) 11245 (font-lock-preprocessor-face ((t (:foreground "#800080")))) 11246 (font-lock-reference-face ((t (:foreground "wheat")))) 11247 (font-lock-string-face ((t (:foreground "plum")))) 11248 (font-lock-type-face ((t (:foreground "lawn green")))) 11249 (font-lock-variable-name-face ((t (:foreground "light yellow")))) 11250 (font-lock-warning-face ((t (:foreground "plum")))) 11251 (fringe ((t (:background "#000000")))) 11252 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 11253 (gnus-cite-face-1 ((t (:foreground "light blue")))) 11254 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 11255 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 11256 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 11257 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 11258 (gnus-cite-face-4 ((t (:foreground "light pink")))) 11259 (gnus-cite-face-5 ((t (:foreground "pale green")))) 11260 (gnus-cite-face-6 ((t (:foreground "beige")))) 11261 (gnus-cite-face-7 ((t (:foreground "orange")))) 11262 (gnus-cite-face-8 ((t (:foreground "magenta")))) 11263 (gnus-cite-face-9 ((t (:foreground "violet")))) 11264 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 11265 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11266 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 11267 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 11268 (gnus-emphasis-underline ((t (:underline t)))) 11269 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 11270 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 11271 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 11272 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 11273 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) 11274 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 11275 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) 11276 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 11277 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) 11278 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 11279 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) 11280 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 11281 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 11282 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 11283 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 11284 (gnus-group-news-3-empty-face ((t (nil)))) 11285 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 11286 (gnus-group-news-4-empty-face ((t (nil)))) 11287 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 11288 (gnus-group-news-5-empty-face ((t (nil)))) 11289 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 11290 (gnus-group-news-6-empty-face ((t (nil)))) 11291 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 11292 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 11293 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) 11294 (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic)))) 11295 (gnus-header-from-face ((t (:foreground "spring green")))) 11296 (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold)))) 11297 (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) 11298 (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold)))) 11299 (gnus-signature-face ((t (:italic t :slant italic)))) 11300 (gnus-splash-face ((t (:foreground "Brown")))) 11301 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 11302 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 11303 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 11304 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) 11305 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 11306 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) 11307 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) 11308 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) 11309 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 11310 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 11311 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 11312 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 11313 (gnus-summary-normal-unread-face ((t (nil)))) 11314 (gnus-summary-selected-face ((t (:underline t)))) 11315 (header-line ((t (:background "grey20" :foreground "grey90")))) 11316 (highlight ((t (:background "gray91" :foreground "firebrick")))) 11317 (highline-face ((t (:background "paleturquoise" :foreground "black")))) 11318 (holiday-face ((t (:background "chocolate4")))) 11319 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 11320 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 11321 (italic ((t (:italic t :slant italic)))) 11322 (menu ((t (nil)))) 11323 (message-cited-text-face ((t (:foreground "seashell3")))) 11324 (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold)))) 11325 (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold)))) 11326 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) 11327 (message-header-other-face ((t (:foreground "snow2")))) 11328 (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold)))) 11329 (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold)))) 11330 (message-header-xheader-face ((t (:foreground "blue")))) 11331 (message-mml-face ((t (:foreground "ForestGreen")))) 11332 (message-separator-face ((t (:foreground "misty rose")))) 11333 (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button))))) 11334 (modeline-buffer-id ((t (:foreground "white" :background "#001040")))) 11335 (modeline-mousable ((t (:foreground "white" :background "#001040")))) 11336 (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040")))) 11337 (mouse ((t (:background "white")))) 11338 (my-tab-face ((t (:background "SlateBlue1")))) 11339 (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold)))) 11340 (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4")))) 11341 (region ((t (:background "gray91" :foreground "DodgerBlue4")))) 11342 (scroll-bar ((t (:background "grey75")))) 11343 (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) 11344 (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) 11345 (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) 11346 (tool-bar ((t (:background "grey75" :foreground "black")))) 11347 (tooltip ((t (:background "lightyellow" :foreground "black")))) 11348 (trailing-whitespace ((t (:background "red")))) 11349 (underline ((t (:underline t)))) 11350 (variable-pitch ((t (:family "helv")))) 11351 (widget-button-face ((t (:bold t :weight bold)))) 11352 (widget-button-pressed-face ((t (:foreground "red")))) 11353 (widget-documentation-face ((t (:foreground "dark green")))) 11354 (widget-field-face ((t (:background "steel blue")))) 11355 (widget-inactive-face ((t (:foreground "grey")))) 11356 (widget-single-line-field-face ((t (:background "gray85")))) 11357 (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4"))))))) 11358 11359 (defun color-theme-xp () 11360 "Color theme by Girish Bharadwaj, created 2002-04-25. 11361 Includes custom, erc, font-lock, jde, semantic, speedbar, widget." 11362 (interactive) 11363 (color-theme-install 11364 '(color-theme-xp 11365 ((background-color . "lightyellow2") 11366 (background-mode . light) 11367 (border-color . "black") 11368 (cursor-color . "black") 11369 (foreground-color . "gray20") 11370 (mouse-color . "black")) 11371 ((help-highlight-face . underline) 11372 (list-matching-lines-face . bold) 11373 (semantic-which-function-use-color . t) 11374 (senator-eldoc-use-color . t) 11375 (view-highlight-face . highlight) 11376 (widget-mouse-face . highlight)) 11377 (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) 11378 (bg:erc-color-face0 ((t (:background "White")))) 11379 (bg:erc-color-face1 ((t (:background "black")))) 11380 (bg:erc-color-face10 ((t (:background "lightblue1")))) 11381 (bg:erc-color-face11 ((t (:background "cyan")))) 11382 (bg:erc-color-face12 ((t (:background "blue")))) 11383 (bg:erc-color-face13 ((t (:background "deeppink")))) 11384 (bg:erc-color-face14 ((t (:background "gray50")))) 11385 (bg:erc-color-face15 ((t (:background "gray90")))) 11386 (bg:erc-color-face2 ((t (:background "blue4")))) 11387 (bg:erc-color-face3 ((t (:background "green4")))) 11388 (bg:erc-color-face4 ((t (:background "red")))) 11389 (bg:erc-color-face5 ((t (:background "brown")))) 11390 (bg:erc-color-face6 ((t (:background "purple")))) 11391 (bg:erc-color-face7 ((t (:background "orange")))) 11392 (bg:erc-color-face8 ((t (:background "yellow")))) 11393 (bg:erc-color-face9 ((t (:background "green")))) 11394 (bold ((t (:bold t :weight bold)))) 11395 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11396 (border ((t (:background "black")))) 11397 (button ((t (:underline t)))) 11398 (comint-highlight-input ((t (:bold t :weight bold)))) 11399 (comint-highlight-prompt ((t (:foreground "dark blue")))) 11400 (cursor ((t (:background "black")))) 11401 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 11402 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 11403 (custom-changed-face ((t (:background "blue" :foreground "white")))) 11404 (custom-comment-face ((t (:background "gray85")))) 11405 (custom-comment-tag-face ((t (:foreground "blue4")))) 11406 (custom-documentation-face ((t (nil)))) 11407 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 11408 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 11409 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) 11410 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 11411 (custom-modified-face ((t (:background "blue" :foreground "white")))) 11412 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 11413 (custom-saved-face ((t (:underline t)))) 11414 (custom-set-face ((t (:background "white" :foreground "blue")))) 11415 (custom-state-face ((t (:foreground "dark green")))) 11416 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 11417 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) 11418 (erc-action-face ((t (:bold t :weight bold)))) 11419 (erc-bold-face ((t (:bold t :weight bold)))) 11420 (erc-default-face ((t (nil)))) 11421 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 11422 (erc-error-face ((t (:background "Red" :foreground "White")))) 11423 (erc-input-face ((t (:foreground "brown")))) 11424 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 11425 (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) 11426 (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) 11427 (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) 11428 (erc-underline-face ((t (:underline t)))) 11429 (fg:erc-color-face0 ((t (:foreground "White")))) 11430 (fg:erc-color-face1 ((t (:foreground "black")))) 11431 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 11432 (fg:erc-color-face11 ((t (:foreground "cyan")))) 11433 (fg:erc-color-face12 ((t (:foreground "blue")))) 11434 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 11435 (fg:erc-color-face14 ((t (:foreground "gray50")))) 11436 (fg:erc-color-face15 ((t (:foreground "gray90")))) 11437 (fg:erc-color-face2 ((t (:foreground "blue4")))) 11438 (fg:erc-color-face3 ((t (:foreground "green4")))) 11439 (fg:erc-color-face4 ((t (:foreground "red")))) 11440 (fg:erc-color-face5 ((t (:foreground "brown")))) 11441 (fg:erc-color-face6 ((t (:foreground "purple")))) 11442 (fg:erc-color-face7 ((t (:foreground "orange")))) 11443 (fg:erc-color-face8 ((t (:foreground "yellow")))) 11444 (fg:erc-color-face9 ((t (:foreground "green")))) 11445 (fixed-pitch ((t (:family "courier")))) 11446 (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9)))) 11447 (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9)))) 11448 (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9)))) 11449 (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold)))) 11450 (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold)))) 11451 (font-lock-string-face ((t (:foreground "red" :height 0.9)))) 11452 (font-lock-type-face ((t (:foreground "Royalblue")))) 11453 (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9)))) 11454 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 11455 (fringe ((t (:background "dodgerblue")))) 11456 (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil)))) 11457 (highlight ((t (:background "darkseagreen2")))) 11458 (isearch ((t (:background "magenta2" :foreground "lightskyblue1")))) 11459 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 11460 (italic ((t (:italic t :slant italic)))) 11461 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 11462 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 11463 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 11464 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 11465 (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) 11466 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 11467 (jde-java-font-lock-code-face ((t (nil)))) 11468 (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) 11469 (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) 11470 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 11471 (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) 11472 (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) 11473 (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) 11474 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 11475 (jde-java-font-lock-package-face ((t (:foreground "blue3")))) 11476 (jde-java-font-lock-pre-face ((t (nil)))) 11477 (jde-java-font-lock-underline-face ((t (:underline t)))) 11478 (menu ((t (nil)))) 11479 (minibuffer-prompt ((t (:foreground "dark blue")))) 11480 (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red")))) 11481 (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black")))) 11482 (modeline-mousable ((t (:background "dodgerblue" :foreground "black")))) 11483 (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black")))) 11484 (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) 11485 (mouse ((t (:background "black")))) 11486 (primary-selection ((t (:background "lightgoldenrod2")))) 11487 (region ((t (:background "lightgoldenrod2")))) 11488 (scroll-bar ((t (nil)))) 11489 (secondary-selection ((t (:background "yellow")))) 11490 (semantic-dirty-token-face ((t (:background "lightyellow")))) 11491 (semantic-unmatched-syntax-face ((t (:underline "red")))) 11492 (senator-intangible-face ((t (:foreground "gray25")))) 11493 (senator-momentary-highlight-face ((t (:background "gray70")))) 11494 (senator-read-only-face ((t (:background "#CCBBBB")))) 11495 (show-paren-match-face ((t (:background "turquoise")))) 11496 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 11497 (speedbar-button-face ((t (:foreground "green4")))) 11498 (speedbar-directory-face ((t (:foreground "blue4")))) 11499 (speedbar-file-face ((t (:foreground "cyan4")))) 11500 (speedbar-highlight-face ((t (:background "green")))) 11501 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 11502 (speedbar-tag-face ((t (:foreground "brown")))) 11503 (template-message-face ((t (:bold t :weight bold)))) 11504 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 11505 (tooltip ((t (:background "lightyellow" :foreground "black")))) 11506 (trailing-whitespace ((t (:background "red")))) 11507 (underline ((t (:underline t)))) 11508 (variable-pitch ((t (:family "helv")))) 11509 (widget-button-face ((t (:bold t :weight bold)))) 11510 (widget-button-pressed-face ((t (:foreground "red")))) 11511 (widget-documentation-face ((t (:foreground "dark green")))) 11512 (widget-field-face ((t (:background "gray85")))) 11513 (widget-inactive-face ((t (:foreground "dim gray")))) 11514 (widget-single-line-field-face ((t (:background "gray85")))) 11515 (zmacs-region ((t (:background "lightgoldenrod2"))))))) 11516 11517 (defun color-theme-gray30 () 11518 "Color theme by Girish Bharadwaj, created 2002-04-22." 11519 (interactive) 11520 (color-theme-install 11521 '(color-theme-gray30 11522 ((background-color . "grey30") 11523 (background-mode . dark) 11524 (border-color . "black") 11525 (cursor-color . "black") 11526 (foreground-color . "gainsboro") 11527 (mouse-color . "black")) 11528 ((help-highlight-face . underline) 11529 (list-matching-lines-face . bold) 11530 (semantic-which-function-use-color . t) 11531 (senator-eldoc-use-color . t) 11532 (widget-mouse-face . highlight)) 11533 (default ((t (:stipple nil :background "grey30" :foreground "gainsboro" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) 11534 (bg:erc-color-face0 ((t (:background "White")))) 11535 (bg:erc-color-face1 ((t (:background "black")))) 11536 (bg:erc-color-face10 ((t (:background "lightblue1")))) 11537 (bg:erc-color-face11 ((t (:background "cyan")))) 11538 (bg:erc-color-face12 ((t (:background "blue")))) 11539 (bg:erc-color-face13 ((t (:background "deeppink")))) 11540 (bg:erc-color-face14 ((t (:background "gray50")))) 11541 (bg:erc-color-face15 ((t (:background "gray90")))) 11542 (bg:erc-color-face2 ((t (:background "blue4")))) 11543 (bg:erc-color-face3 ((t (:background "green4")))) 11544 (bg:erc-color-face4 ((t (:background "red")))) 11545 (bg:erc-color-face5 ((t (:background "brown")))) 11546 (bg:erc-color-face6 ((t (:background "purple")))) 11547 (bg:erc-color-face7 ((t (:background "orange")))) 11548 (bg:erc-color-face8 ((t (:background "yellow")))) 11549 (bg:erc-color-face9 ((t (:background "green")))) 11550 (bold ((t (:bold t :weight bold)))) 11551 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11552 (border ((t (:background "black")))) 11553 (button ((t (:underline t)))) 11554 (comint-highlight-input ((t (:bold t :weight bold)))) 11555 (comint-highlight-prompt ((t (:foreground "cyan")))) 11556 (cursor ((t (:background "black")))) 11557 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 11558 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 11559 (custom-changed-face ((t (:background "blue" :foreground "white")))) 11560 (custom-comment-face ((t (:background "dim gray")))) 11561 (custom-comment-tag-face ((t (:foreground "gray80")))) 11562 (custom-documentation-face ((t (nil)))) 11563 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 11564 (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) 11565 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) 11566 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 11567 (custom-modified-face ((t (:background "blue" :foreground "white")))) 11568 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 11569 (custom-saved-face ((t (:underline t)))) 11570 (custom-set-face ((t (:background "white" :foreground "blue")))) 11571 (custom-state-face ((t (:foreground "lime green")))) 11572 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 11573 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) 11574 (erc-action-face ((t (:bold t :weight bold)))) 11575 (erc-bold-face ((t (:bold t :weight bold)))) 11576 (erc-default-face ((t (nil)))) 11577 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 11578 (erc-error-face ((t (:background "Red" :foreground "White")))) 11579 (erc-input-face ((t (:foreground "brown")))) 11580 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 11581 (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) 11582 (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) 11583 (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) 11584 (erc-underline-face ((t (:underline t)))) 11585 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) 11586 (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) 11587 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 11588 (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 11589 (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) 11590 (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) 11591 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 11592 (eshell-ls-readonly-face ((t (:foreground "Pink")))) 11593 (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) 11594 (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) 11595 (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) 11596 (fg:erc-color-face0 ((t (:foreground "White")))) 11597 (fg:erc-color-face1 ((t (:foreground "black")))) 11598 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 11599 (fg:erc-color-face11 ((t (:foreground "cyan")))) 11600 (fg:erc-color-face12 ((t (:foreground "blue")))) 11601 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 11602 (fg:erc-color-face14 ((t (:foreground "gray50")))) 11603 (fg:erc-color-face15 ((t (:foreground "gray90")))) 11604 (fg:erc-color-face2 ((t (:foreground "blue4")))) 11605 (fg:erc-color-face3 ((t (:foreground "green4")))) 11606 (fg:erc-color-face4 ((t (:foreground "red")))) 11607 (fg:erc-color-face5 ((t (:foreground "brown")))) 11608 (fg:erc-color-face6 ((t (:foreground "purple")))) 11609 (fg:erc-color-face7 ((t (:foreground "orange")))) 11610 (fg:erc-color-face8 ((t (:foreground "yellow")))) 11611 (fg:erc-color-face9 ((t (:foreground "green")))) 11612 (fixed-pitch ((t (:family "courier")))) 11613 (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t)))) 11614 (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique)))) 11615 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 11616 (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05)))) 11617 (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05)))) 11618 (font-lock-string-face ((t (:foreground "LightSalmon")))) 11619 (font-lock-type-face ((t (:foreground "yellow" :height 1.05)))) 11620 (font-lock-variable-name-face ((t (:foreground "gold")))) 11621 (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 11622 (fringe ((t (:background "grey10")))) 11623 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 11624 (highlight ((t (:background "darkolivegreen")))) 11625 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 11626 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 11627 (italic ((t (:italic t :slant italic)))) 11628 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 11629 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 11630 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 11631 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 11632 (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) 11633 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 11634 (jde-java-font-lock-code-face ((t (nil)))) 11635 (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) 11636 (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) 11637 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 11638 (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) 11639 (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) 11640 (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) 11641 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 11642 (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) 11643 (jde-java-font-lock-pre-face ((t (nil)))) 11644 (jde-java-font-lock-underline-face ((t (:underline t)))) 11645 (menu ((t (nil)))) 11646 (minibuffer-prompt ((t (:foreground "cyan")))) 11647 (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 11648 (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light)))) 11649 (mouse ((t (:background "black")))) 11650 (primary-selection ((t (:background "blue3")))) 11651 (region ((t (:background "blue3")))) 11652 (scroll-bar ((t (nil)))) 11653 (secondary-selection ((t (:background "SkyBlue4")))) 11654 (semantic-dirty-token-face ((t (:background "lightyellow")))) 11655 (semantic-unmatched-syntax-face ((t (:underline "red")))) 11656 (senator-intangible-face ((t (:foreground "gray75")))) 11657 (senator-momentary-highlight-face ((t (:background "gray30")))) 11658 (senator-read-only-face ((t (:background "#664444")))) 11659 (show-paren-match-face ((t (:background "steelblue3")))) 11660 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 11661 (speedbar-button-face ((t (:foreground "green3")))) 11662 (speedbar-directory-face ((t (:foreground "light blue")))) 11663 (speedbar-file-face ((t (:foreground "cyan")))) 11664 (speedbar-highlight-face ((t (:background "sea green")))) 11665 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 11666 (speedbar-tag-face ((t (:foreground "yellow")))) 11667 (template-message-face ((t (:bold t :weight bold)))) 11668 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 11669 (tooltip ((t (:background "lightyellow" :foreground "black")))) 11670 (trailing-whitespace ((t (:background "red")))) 11671 (underline ((t (:underline t)))) 11672 (variable-pitch ((t (:family "helv")))) 11673 (widget-button-face ((t (:bold t :weight bold)))) 11674 (widget-button-pressed-face ((t (:foreground "red")))) 11675 (widget-documentation-face ((t (:foreground "lime green")))) 11676 (widget-field-face ((t (:background "dim gray")))) 11677 (widget-inactive-face ((t (:foreground "light gray")))) 11678 (widget-single-line-field-face ((t (:background "dim gray")))) 11679 (zmacs-region ((t (:background "blue3"))))))) 11680 11681 (defun color-theme-dark-green () 11682 "Color theme by ces93, created 2002-03-30." 11683 (interactive) 11684 (color-theme-install 11685 '(color-theme-dark-green 11686 ((background-mode . light) 11687 (background-toolbar-color . "#e79ddf7ddf7d") 11688 (border-color . "#000000000000") 11689 (bottom-toolbar-shadow-color . "#8e3886178617") 11690 (top-toolbar-shadow-color . "#ffffffffffff")) 11691 nil 11692 (default ((t (nil)))) 11693 (blue ((t (:foreground "blue")))) 11694 (bold ((t (:bold t)))) 11695 (bold-italic ((t (:italic t :bold t)))) 11696 (border-glyph ((t (nil)))) 11697 (fringe ((t (nil)))) 11698 (green ((t (:foreground "green")))) 11699 (gui-button-face ((t (:background "grey75" :foreground "black")))) 11700 (gui-element ((t (:background "#ffffff" :foreground "#000000")))) 11701 (highlight ((t (:background "gray" :foreground "darkred")))) 11702 (isearch ((t (:background "LightSlateGray" :foreground "red")))) 11703 (italic ((t (:italic t)))) 11704 (left-margin ((t (nil)))) 11705 (list-mode-item-selected ((t (:background "gray68")))) 11706 (mode-line ((t (:background "LightSlateGray" :foreground "black")))) 11707 (modeline ((t (:background "LightSlateGray" :foreground "black")))) 11708 (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4")))) 11709 (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) 11710 (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4")))) 11711 (pointer ((t (:background "#ffffff" :foreground "#000000")))) 11712 (primary-selection ((t (:background "gray65")))) 11713 (red ((t (:foreground "red")))) 11714 (region ((t (:background "gray65")))) 11715 (right-margin ((t (nil)))) 11716 (rpm-spec-dir-face ((t (:foreground "green")))) 11717 (rpm-spec-doc-face ((t (:foreground "magenta")))) 11718 (rpm-spec-ghost-face ((t (:foreground "red")))) 11719 (rpm-spec-macro-face ((t (:foreground "purple")))) 11720 (rpm-spec-package-face ((t (:foreground "red")))) 11721 (rpm-spec-tag-face ((t (:foreground "blue")))) 11722 (secondary-selection ((t (:background "paleturquoise")))) 11723 (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray")))) 11724 (tool-bar ((t (nil)))) 11725 (toolbar ((t (:background "#ffffff" :foreground "#000000")))) 11726 (underline ((t (:underline t)))) 11727 (vertical-divider ((t (:background "#ffffff" :foreground "#000000")))) 11728 (widget-button-face ((t (:bold t)))) 11729 (widget-button-pressed-face ((t (:foreground "red")))) 11730 (widget-documentation-face ((t (:foreground "dark green")))) 11731 (widget-field-face ((t (:background "gray85")))) 11732 (widget-inactive-face ((t (:foreground "dim gray")))) 11733 (yellow ((t (:foreground "yellow")))) 11734 (zmacs-region ((t (:background "darkorange" :foreground "black"))))))) 11735 11736 (defun color-theme-whateveryouwant () 11737 "Color theme by Fabien Penso, created 2002-05-02." 11738 (interactive) 11739 (color-theme-install 11740 '(color-theme-whateveryouwant 11741 ((background-color . "white") 11742 (background-mode . light) 11743 (border-color . "black") 11744 (cursor-color . "black") 11745 (foreground-color . "black") 11746 (mouse-color . "black")) 11747 ((cperl-here-face . font-lock-string-face) 11748 (cperl-invalid-face . underline) 11749 (cperl-pod-face . font-lock-comment-face) 11750 (cperl-pod-head-face . font-lock-variable-name-face) 11751 (display-time-mail-face . mode-line) 11752 (gnus-article-button-face . bold) 11753 (gnus-article-mouse-face . highlight) 11754 (gnus-carpal-button-face . bold) 11755 (gnus-carpal-header-face . bold-italic) 11756 (gnus-cite-attribution-face . gnus-cite-attribution-face) 11757 (gnus-mouse-face . highlight) 11758 (gnus-selected-tree-face . modeline) 11759 (gnus-signature-face . gnus-signature-face) 11760 (gnus-summary-selected-face . gnus-summary-selected-face) 11761 (gnus-treat-display-xface . head) 11762 (help-highlight-face . underline) 11763 (ispell-highlight-face . flyspell-incorrect-face) 11764 (list-matching-lines-face . bold) 11765 (sgml-set-face . t) 11766 (view-highlight-face . highlight) 11767 (widget-mouse-face . highlight) 11768 (x-face-mouse-face . highlight)) 11769 (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) 11770 (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) 11771 (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) 11772 (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) 11773 (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) 11774 (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) 11775 (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) 11776 (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) 11777 (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) 11778 (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) 11779 (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) 11780 (bbdb-company ((t (:italic t :slant italic)))) 11781 (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold)))) 11782 (bbdb-field-value ((t (nil)))) 11783 (bbdb-name ((t (:underline t)))) 11784 (bold ((t (:bold t :foreground "gray40" :weight bold)))) 11785 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11786 (border ((t (:background "black")))) 11787 (calendar-today-face ((t (:underline t)))) 11788 (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) 11789 (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) 11790 (change-log-date-face ((t (:foreground "RosyBrown")))) 11791 (change-log-email-face ((t (:foreground "DarkGoldenrod")))) 11792 (change-log-file-face ((t (:foreground "Blue")))) 11793 (change-log-function-face ((t (:foreground "DarkGoldenrod")))) 11794 (change-log-list-face ((t (:foreground "Purple")))) 11795 (change-log-name-face ((t (:foreground "CadetBlue")))) 11796 (comint-highlight-input ((t (:bold t :weight bold)))) 11797 (comint-highlight-prompt ((t (:foreground "dark blue")))) 11798 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) 11799 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) 11800 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 11801 (cursor ((t (:background "black")))) 11802 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 11803 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 11804 (custom-changed-face ((t (:background "blue" :foreground "white")))) 11805 (custom-comment-face ((t (:background "gray85")))) 11806 (custom-comment-tag-face ((t (:foreground "blue4")))) 11807 (custom-documentation-face ((t (nil)))) 11808 (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) 11809 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 11810 (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv")))) 11811 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 11812 (custom-modified-face ((t (:background "blue" :foreground "white")))) 11813 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 11814 (custom-saved-face ((t (:underline t)))) 11815 (custom-set-face ((t (:background "white" :foreground "blue")))) 11816 (custom-state-face ((t (:foreground "dark green")))) 11817 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 11818 (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv")))) 11819 (cvs-filename-face ((t (:foreground "blue4")))) 11820 (cvs-handled-face ((t (:foreground "pink")))) 11821 (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) 11822 (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) 11823 (cvs-msg-face ((t (:italic t :slant italic)))) 11824 (cvs-need-action-face ((t (:foreground "orange")))) 11825 (cvs-unknown-face ((t (:foreground "red")))) 11826 (diary-face ((t (:foreground "red")))) 11827 (diff-added-face ((t (nil)))) 11828 (diff-changed-face ((t (nil)))) 11829 (diff-context-face ((t (:foreground "grey50")))) 11830 (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) 11831 (diff-function-face ((t (:foreground "grey50")))) 11832 (diff-header-face ((t (:background "grey85")))) 11833 (diff-hunk-header-face ((t (:background "grey85")))) 11834 (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) 11835 (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) 11836 (diff-removed-face ((t (nil)))) 11837 (dired-face-boring ((t (:foreground "RosyBrown")))) 11838 (dired-face-directory ((t (:foreground "Blue")))) 11839 (dired-face-executable ((t (nil)))) 11840 (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold)))) 11841 (dired-face-marked ((t (:bold t :foreground "Red" :weight bold)))) 11842 (dired-face-permissions ((t (nil)))) 11843 (dired-face-setuid ((t (nil)))) 11844 (dired-face-socket ((t (nil)))) 11845 (dired-face-symlink ((t (:foreground "Purple")))) 11846 (ebrowse-default-face ((t (nil)))) 11847 (ebrowse-file-name-face ((t (:italic t :slant italic)))) 11848 (ebrowse-member-attribute-face ((t (:foreground "red")))) 11849 (ebrowse-member-class-face ((t (:foreground "purple")))) 11850 (ebrowse-progress-face ((t (:background "blue")))) 11851 (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) 11852 (ebrowse-tree-mark-face ((t (:foreground "red")))) 11853 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 11854 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 11855 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 11856 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 11857 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 11858 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 11859 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 11860 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 11861 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 11862 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 11863 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 11864 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 11865 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 11866 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 11867 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 11868 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 11869 (erc-action-face ((t (:bold t :weight bold)))) 11870 (erc-bold-face ((t (:bold t :weight bold)))) 11871 (erc-default-face ((t (nil)))) 11872 (erc-direct-msg-face ((t (:foreground "LightSalmon")))) 11873 (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 11874 (erc-input-face ((t (:foreground "Beige")))) 11875 (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) 11876 (erc-notice-face ((t (:foreground "MediumAquamarine")))) 11877 (erc-pal-face ((t (:foreground "pale green")))) 11878 (erc-prompt-face ((t (:foreground "MediumAquamarine")))) 11879 (erc-underline-face ((t (:underline t)))) 11880 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) 11881 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 11882 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 11883 (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) 11884 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 11885 (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) 11886 (eshell-ls-picture-face ((t (:foreground "Violet")))) 11887 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 11888 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 11889 (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) 11890 (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) 11891 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 11892 (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt")))) 11893 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 11894 (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) 11895 (excerpt ((t (:italic t :slant italic)))) 11896 (fixed ((t (:bold t :weight bold)))) 11897 (fixed-pitch ((t (:family "courier")))) 11898 (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) 11899 (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) 11900 (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) 11901 (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) 11902 (font-latex-math-face ((t (:foreground "SaddleBrown")))) 11903 (font-latex-sedate-face ((t (:foreground "DimGray")))) 11904 (font-latex-string-face ((t (:foreground "RosyBrown")))) 11905 (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 11906 (font-lock-builtin-face ((t (:foreground "dodgerblue3")))) 11907 (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica")))) 11908 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 11909 (font-lock-doc-face ((t (:foreground "RosyBrown")))) 11910 (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) 11911 (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100)))) 11912 (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold)))) 11913 (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) 11914 (font-lock-reference-face ((t (:foreground "Orchid")))) 11915 (font-lock-string-face ((t (:foreground "navy")))) 11916 (font-lock-type-face ((t (:bold t :foreground "black" :weight bold)))) 11917 (font-lock-variable-name-face ((t (:foreground "black")))) 11918 (font-lock-warning-face ((t (:foreground "orange2")))) 11919 (fringe ((t (:background "white")))) 11920 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 11921 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 11922 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 11923 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 11924 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 11925 (gnus-cite-face-3 ((t (:foreground "dark green")))) 11926 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 11927 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 11928 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 11929 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 11930 (gnus-cite-face-8 ((t (:foreground "magenta")))) 11931 (gnus-cite-face-9 ((t (:foreground "violet")))) 11932 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 11933 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 11934 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 11935 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 11936 (gnus-emphasis-underline ((t (:underline t)))) 11937 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 11938 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 11939 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 11940 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 11941 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) 11942 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 11943 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) 11944 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 11945 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) 11946 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 11947 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) 11948 (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) 11949 (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) 11950 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 11951 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) 11952 (gnus-group-news-3-empty-face ((t (nil)))) 11953 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 11954 (gnus-group-news-4-empty-face ((t (nil)))) 11955 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 11956 (gnus-group-news-5-empty-face ((t (nil)))) 11957 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 11958 (gnus-group-news-6-empty-face ((t (nil)))) 11959 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 11960 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 11961 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 11962 (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica")))) 11963 (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica")))) 11964 (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica")))) 11965 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) 11966 (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica")))) 11967 (gnus-picon-face ((t (:background "white" :foreground "black")))) 11968 (gnus-picon-xbm-face ((t (:background "white" :foreground "black")))) 11969 (gnus-signature-face ((t (:italic t :slant italic)))) 11970 (gnus-splash-face ((t (:foreground "Brown")))) 11971 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 11972 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) 11973 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 11974 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) 11975 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 11976 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) 11977 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) 11978 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) 11979 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 11980 (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep")))) 11981 (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep")))) 11982 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep")))) 11983 (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep")))) 11984 (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep")))) 11985 (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) 11986 (hi-black-b ((t (:bold t :weight bold)))) 11987 (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) 11988 (hi-blue ((t (:background "light blue")))) 11989 (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) 11990 (hi-green ((t (:background "green")))) 11991 (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) 11992 (hi-pink ((t (:background "pink")))) 11993 (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) 11994 (hi-yellow ((t (:background "yellow")))) 11995 (highlight ((t (:background "black" :foreground "white")))) 11996 (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) 11997 (highlight-changes-face ((t (:foreground "red")))) 11998 (highline-face ((t (:background "gray80")))) 11999 (holiday-face ((t (:background "pink")))) 12000 (idlwave-help-link-face ((t (:foreground "Blue")))) 12001 (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) 12002 (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) 12003 (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) 12004 (info-menu-5 ((t (:foreground "red1")))) 12005 (info-menu-header ((t (:bold t :weight bold :family "helv")))) 12006 (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) 12007 (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) 12008 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 12009 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 12010 (italic ((t (:italic t :slant italic)))) 12011 (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) 12012 (log-view-message-face ((t (:background "grey85")))) 12013 (makefile-space-face ((t (:background "hotpink")))) 12014 (menu ((t (nil)))) 12015 (message-cited-text-face ((t (:foreground "red")))) 12016 (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica")))) 12017 (message-header-name-face ((t (:foreground "cornflower blue")))) 12018 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) 12019 (message-header-other-face ((t (:foreground "steel blue")))) 12020 (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) 12021 (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica")))) 12022 (message-header-xheader-face ((t (:foreground "blue")))) 12023 (message-mml-face ((t (:foreground "ForestGreen")))) 12024 (message-separator-face ((t (:foreground "brown")))) 12025 (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep")))) 12026 (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold)))) 12027 (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 12028 (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 12029 (mouse ((t (:background "black")))) 12030 (mpg123-face-cur ((t (:background "#004080" :foreground "yellow")))) 12031 (mpg123-face-slider ((t (:background "yellow" :foreground "black")))) 12032 (primary-selection ((t (:background "lightgoldenrod2")))) 12033 (reb-match-0 ((t (:background "lightblue")))) 12034 (reb-match-1 ((t (:background "aquamarine")))) 12035 (reb-match-2 ((t (:background "springgreen")))) 12036 (reb-match-3 ((t (:background "yellow")))) 12037 (region ((t (:background "#aa0000" :foreground "white")))) 12038 (scroll-bar ((t (:background "grey75")))) 12039 (secondary-selection ((t (:background "yellow")))) 12040 (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic)))) 12041 (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold)))) 12042 (sgml-end-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) 12043 (sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) 12044 (sgml-ignored-face ((t (nil)))) 12045 (sgml-ms-end-face ((t (nil)))) 12046 (sgml-ms-start-face ((t (nil)))) 12047 (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold)))) 12048 (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold)))) 12049 (sgml-short-ref-face ((t (nil)))) 12050 (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold)))) 12051 (sgml-start-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) 12052 (sh-heredoc-face ((t (:foreground "tan")))) 12053 (show-paren-match-face ((t (:background "gray80" :foreground "black")))) 12054 (show-paren-mismatch-face ((t (:background "red" :foreground "yellow")))) 12055 (show-tabs-space-face ((t (:foreground "yellow")))) 12056 (show-tabs-tab-face ((t (:foreground "red")))) 12057 (smerge-base-face ((t (:foreground "red")))) 12058 (smerge-markers-face ((t (:background "grey85")))) 12059 (smerge-mine-face ((t (:foreground "blue")))) 12060 (smerge-other-face ((t (:foreground "darkgreen")))) 12061 (speedbar-button-face ((t (:foreground "green4")))) 12062 (speedbar-directory-face ((t (:foreground "blue4")))) 12063 (speedbar-file-face ((t (:foreground "cyan4")))) 12064 (speedbar-highlight-face ((t (:background "green")))) 12065 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 12066 (speedbar-tag-face ((t (:foreground "brown")))) 12067 (strokes-char-face ((t (:background "lightgray")))) 12068 (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12069 (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12070 (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12071 (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12072 (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) 12073 (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12074 (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12075 (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12076 (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12077 (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12078 (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12079 (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12080 (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12081 (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12082 (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12083 (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12084 (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12085 (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12086 (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12087 (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12088 (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) 12089 (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12090 (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12091 (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12092 (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 12093 (tex-math-face ((t (:foreground "RosyBrown")))) 12094 (texinfo-heading-face ((t (:foreground "Blue")))) 12095 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 12096 (tooltip ((t (:background "lightyellow" :foreground "black")))) 12097 (trailing-whitespace ((t (:background "red")))) 12098 (underline ((t (:foreground "navy" :underline t)))) 12099 (variable-pitch ((t (:family "helv")))) 12100 (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) 12101 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 12102 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 12103 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 12104 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 12105 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) 12106 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) 12107 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 12108 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 12109 (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) 12110 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 12111 (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) 12112 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 12113 (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) 12114 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 12115 (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) 12116 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 12117 (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) 12118 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 12119 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 12120 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 12121 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 12122 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 12123 (widget-button-face ((t (:bold t :weight bold)))) 12124 (widget-button-pressed-face ((t (:foreground "red")))) 12125 (widget-documentation-face ((t (:foreground "dark green")))) 12126 (widget-field-face ((t (:background "gray85")))) 12127 (widget-inactive-face ((t (:foreground "dim gray")))) 12128 (widget-single-line-field-face ((t (:background "gray85")))) 12129 (woman-addition-face ((t (:foreground "orange")))) 12130 (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) 12131 (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) 12132 (woman-unknown-face ((t (:foreground "brown")))) 12133 (zmacs-region ((t (:background "lightgoldenrod2"))))))) 12134 12135 (defun color-theme-bharadwaj-slate () 12136 "Color theme by Girish Bharadwaj, created 2002-05-06." 12137 (interactive) 12138 (color-theme-install 12139 '(color-theme-bharadwaj-slate 12140 ((background-color . "DarkSlateGray") 12141 (background-mode . dark) 12142 (border-color . "black") 12143 (cursor-color . "khaki") 12144 (foreground-color . "palegreen") 12145 (mouse-color . "black")) 12146 ((display-time-mail-face . mode-line) 12147 (gnus-article-button-face . bold) 12148 (gnus-article-mouse-face . highlight) 12149 (gnus-mouse-face . highlight) 12150 (help-highlight-face . underline) 12151 (ibuffer-deletion-face . font-lock-type-face) 12152 (ibuffer-filter-group-name-face . bold) 12153 (ibuffer-marked-face . font-lock-warning-face) 12154 (ibuffer-title-face . font-lock-type-face) 12155 (list-matching-lines-buffer-name-face . underline) 12156 (list-matching-lines-face . bold) 12157 (semantic-which-function-use-color . t) 12158 (senator-eldoc-use-color . t) 12159 (view-highlight-face . highlight) 12160 (widget-mouse-face . highlight)) 12161 (default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter")))) 12162 (bg:erc-color-face0 ((t (:background "White")))) 12163 (bg:erc-color-face1 ((t (:background "black")))) 12164 (bg:erc-color-face10 ((t (:background "lightblue1")))) 12165 (bg:erc-color-face11 ((t (:background "cyan")))) 12166 (bg:erc-color-face12 ((t (:background "blue")))) 12167 (bg:erc-color-face13 ((t (:background "deeppink")))) 12168 (bg:erc-color-face14 ((t (:background "gray50")))) 12169 (bg:erc-color-face15 ((t (:background "gray90")))) 12170 (bg:erc-color-face2 ((t (:background "blue4")))) 12171 (bg:erc-color-face3 ((t (:background "green4")))) 12172 (bg:erc-color-face4 ((t (:background "red")))) 12173 (bg:erc-color-face5 ((t (:background "brown")))) 12174 (bg:erc-color-face6 ((t (:background "purple")))) 12175 (bg:erc-color-face7 ((t (:background "orange")))) 12176 (bg:erc-color-face8 ((t (:background "yellow")))) 12177 (bg:erc-color-face9 ((t (:background "green")))) 12178 (bold ((t (:bold t :weight bold)))) 12179 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 12180 (border ((t (:background "black")))) 12181 (button ((t (:underline t)))) 12182 (comint-highlight-input ((t (:bold t :weight bold)))) 12183 (comint-highlight-prompt ((t (:foreground "cyan")))) 12184 (cursor ((t (:background "khaki")))) 12185 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 12186 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 12187 (custom-changed-face ((t (:background "blue" :foreground "white")))) 12188 (custom-comment-face ((t (:background "dim gray")))) 12189 (custom-comment-tag-face ((t (:foreground "gray80")))) 12190 (custom-documentation-face ((t (nil)))) 12191 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 12192 (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) 12193 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) 12194 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 12195 (custom-modified-face ((t (:background "blue" :foreground "white")))) 12196 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 12197 (custom-saved-face ((t (:underline t)))) 12198 (custom-set-face ((t (:background "white" :foreground "blue")))) 12199 (custom-state-face ((t (:foreground "lime green")))) 12200 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 12201 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) 12202 (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold)))) 12203 (erc-bold-face ((t (:bold t :weight bold)))) 12204 (erc-default-face ((t (nil)))) 12205 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 12206 (erc-error-face ((t (:background "Red" :foreground "White")))) 12207 (erc-input-face ((t (:foreground "lightblue")))) 12208 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 12209 (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold)))) 12210 (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold)))) 12211 (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) 12212 (erc-underline-face ((t (:underline t)))) 12213 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) 12214 (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) 12215 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 12216 (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 12217 (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) 12218 (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) 12219 (eshell-ls-product-face ((t (:foreground "LightSalmon")))) 12220 (eshell-ls-readonly-face ((t (:foreground "Pink")))) 12221 (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) 12222 (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) 12223 (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) 12224 (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold)))) 12225 (fg:erc-color-face0 ((t (:foreground "White")))) 12226 (fg:erc-color-face1 ((t (:foreground "black")))) 12227 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 12228 (fg:erc-color-face11 ((t (:foreground "cyan")))) 12229 (fg:erc-color-face12 ((t (:foreground "blue")))) 12230 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 12231 (fg:erc-color-face14 ((t (:foreground "gray50")))) 12232 (fg:erc-color-face15 ((t (:foreground "gray90")))) 12233 (fg:erc-color-face2 ((t (:foreground "blue4")))) 12234 (fg:erc-color-face3 ((t (:foreground "green4")))) 12235 (fg:erc-color-face4 ((t (:foreground "red")))) 12236 (fg:erc-color-face5 ((t (:foreground "brown")))) 12237 (fg:erc-color-face6 ((t (:foreground "purple")))) 12238 (fg:erc-color-face7 ((t (:foreground "orange")))) 12239 (fg:erc-color-face8 ((t (:foreground "yellow")))) 12240 (fg:erc-color-face9 ((t (:foreground "green")))) 12241 (fixed-pitch ((t (:family "courier")))) 12242 (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) 12243 (font-lock-comment-face ((t (:foreground "violet" :height 1.0)))) 12244 (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) 12245 (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold)))) 12246 (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold)))) 12247 (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) 12248 (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) 12249 (font-lock-string-face ((t (:foreground "red" :height 1.0)))) 12250 (font-lock-type-face ((t (:foreground "lightblue3")))) 12251 (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0)))) 12252 (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 12253 (fringe ((t (:background "DarkSlateGray")))) 12254 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 12255 (gnus-cite-face-1 ((t (:foreground "light blue")))) 12256 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 12257 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 12258 (gnus-cite-face-2 ((t (:foreground "light cyan")))) 12259 (gnus-cite-face-3 ((t (:foreground "light yellow")))) 12260 (gnus-cite-face-4 ((t (:foreground "light pink")))) 12261 (gnus-cite-face-5 ((t (:foreground "pale green")))) 12262 (gnus-cite-face-6 ((t (:foreground "beige")))) 12263 (gnus-cite-face-7 ((t (:foreground "orange")))) 12264 (gnus-cite-face-8 ((t (:foreground "magenta")))) 12265 (gnus-cite-face-9 ((t (:foreground "violet")))) 12266 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 12267 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 12268 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 12269 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 12270 (gnus-emphasis-underline ((t (:underline t)))) 12271 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 12272 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 12273 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 12274 (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) 12275 (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) 12276 (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) 12277 (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) 12278 (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) 12279 (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) 12280 (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) 12281 (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) 12282 (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) 12283 (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 12284 (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) 12285 (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) 12286 (gnus-group-news-3-empty-face ((t (nil)))) 12287 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 12288 (gnus-group-news-4-empty-face ((t (nil)))) 12289 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 12290 (gnus-group-news-5-empty-face ((t (nil)))) 12291 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 12292 (gnus-group-news-6-empty-face ((t (nil)))) 12293 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 12294 (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) 12295 (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) 12296 (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) 12297 (gnus-header-from-face ((t (:foreground "spring green")))) 12298 (gnus-header-name-face ((t (:foreground "SeaGreen")))) 12299 (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) 12300 (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) 12301 (gnus-signature-face ((t (:italic t :slant italic)))) 12302 (gnus-splash-face ((t (:foreground "Brown")))) 12303 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 12304 (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) 12305 (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) 12306 (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) 12307 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 12308 (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) 12309 (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) 12310 (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) 12311 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 12312 (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) 12313 (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) 12314 (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) 12315 (gnus-summary-normal-unread-face ((t (nil)))) 12316 (gnus-summary-selected-face ((t (:underline t)))) 12317 (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 12318 (highlight ((t (:background "darkolivegreen")))) 12319 (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold)))) 12320 (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic)))) 12321 (html-helper-underline-face ((t (:foreground "cornsilk" :underline t)))) 12322 (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold)))) 12323 (info-menu-6 ((t (nil)))) 12324 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 12325 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 12326 (italic ((t (:italic t :slant italic)))) 12327 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 12328 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 12329 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 12330 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 12331 (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) 12332 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 12333 (jde-java-font-lock-code-face ((t (nil)))) 12334 (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) 12335 (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) 12336 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 12337 (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) 12338 (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) 12339 (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) 12340 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 12341 (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) 12342 (jde-java-font-lock-pre-face ((t (nil)))) 12343 (jde-java-font-lock-underline-face ((t (:underline t)))) 12344 (menu ((t (nil)))) 12345 (message-cited-text-face ((t (:foreground "red")))) 12346 (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) 12347 (message-header-name-face ((t (:foreground "DarkGreen")))) 12348 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) 12349 (message-header-other-face ((t (:foreground "#b00000")))) 12350 (message-header-subject-face ((t (:foreground "green3")))) 12351 (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) 12352 (message-header-xheader-face ((t (:foreground "blue")))) 12353 (message-mml-face ((t (:foreground "ForestGreen")))) 12354 (message-separator-face ((t (:foreground "blue3")))) 12355 (minibuffer-prompt ((t (:foreground "cyan")))) 12356 (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) 12357 (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) 12358 (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) 12359 (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) 12360 (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) 12361 (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) 12362 (mouse ((t (:background "black")))) 12363 (primary-selection ((t (:background "dimgray")))) 12364 (region ((t (:background "dimgray")))) 12365 (scroll-bar ((t (nil)))) 12366 (secondary-selection ((t (:background "SkyBlue4")))) 12367 (semantic-dirty-token-face ((t (:background "lightyellow")))) 12368 (semantic-unmatched-syntax-face ((t (:underline "red")))) 12369 (senator-intangible-face ((t (:foreground "gray75")))) 12370 (senator-momentary-highlight-face ((t (:background "gray30")))) 12371 (senator-read-only-face ((t (:background "#664444")))) 12372 (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1)))) 12373 (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1)))) 12374 (show-tabs-space-face ((t (:foreground "yellow")))) 12375 (show-tabs-tab-face ((t (:foreground "red")))) 12376 (speedbar-button-face ((t (:foreground "green3")))) 12377 (speedbar-directory-face ((t (:foreground "light blue")))) 12378 (speedbar-file-face ((t (:foreground "cyan")))) 12379 (speedbar-highlight-face ((t (:background "sea green")))) 12380 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 12381 (speedbar-tag-face ((t (:foreground "yellow")))) 12382 (template-message-face ((t (:bold t :weight bold)))) 12383 (term-black ((t (:foreground "black")))) 12384 (term-blackbg ((t (:background "black")))) 12385 (term-blue ((t (:foreground "blue")))) 12386 (term-bluebg ((t (:background "blue")))) 12387 (term-bold ((t (:bold t :weight bold)))) 12388 (term-cyan ((t (:foreground "cyan")))) 12389 (term-cyanbg ((t (:background "cyan")))) 12390 (term-default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter")))) 12391 (term-default-bg ((t (nil)))) 12392 (term-default-bg-inv ((t (nil)))) 12393 (term-default-fg ((t (nil)))) 12394 (term-default-fg-inv ((t (nil)))) 12395 (term-green ((t (:foreground "green")))) 12396 (term-greenbg ((t (:background "green")))) 12397 (term-invisible ((t (nil)))) 12398 (term-invisible-inv ((t (nil)))) 12399 (term-magenta ((t (:foreground "magenta")))) 12400 (term-magentabg ((t (:background "magenta")))) 12401 (term-red ((t (:foreground "red")))) 12402 (term-redbg ((t (:background "red")))) 12403 (term-underline ((t (:underline t)))) 12404 (term-white ((t (:foreground "white")))) 12405 (term-whitebg ((t (:background "white")))) 12406 (term-yellow ((t (:foreground "yellow")))) 12407 (term-yellowbg ((t (:background "yellow")))) 12408 (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue"))))) 12409 (tooltip ((t (:background "lightyellow" :foreground "black")))) 12410 (trailing-whitespace ((t (:background "red")))) 12411 (underline ((t (:underline t)))) 12412 (variable-pitch ((t (:family "helv")))) 12413 (widget-button-face ((t (:bold t :weight bold)))) 12414 (widget-button-pressed-face ((t (:foreground "red")))) 12415 (widget-documentation-face ((t (:foreground "lime green")))) 12416 (widget-field-face ((t (:background "dim gray")))) 12417 (widget-inactive-face ((t (:foreground "light gray")))) 12418 (widget-single-line-field-face ((t (:background "dim gray")))) 12419 (zmacs-region ((t (:background "dimgray"))))))) 12420 12421 (defun color-theme-lethe () 12422 "Color theme by Ivica Loncar, created 2002-08-02. 12423 Some additional X resources as suggested by the author: 12424 12425 Emacs*menubar.Foreground: Yellow 12426 Emacs*menubar.Background: #1a2b3c 12427 Emacs*menubar.topShadowColor: gray 12428 Emacs*menubar.bottomShadowColor: dimgray 12429 12430 Some fonts I really like (note: this fonts are not highly 12431 available): 12432 12433 Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2 12434 Emacs*menubar*Font: -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1 12435 12436 Mouse fix: 12437 12438 Emacs*dialog*XmPushButton.translations:#override\n\ 12439 <Btn1Down>: Arm()\n\ 12440 <Btn1Down>,<Btn1Up>: Activate()\ 12441 Disarm()\n\ 12442 <Btn1Down>(2+): MultiArm()\n\ 12443 <Btn1Up>(2+): MultiActivate()\n\ 12444 <Btn1Up>: Activate()\ 12445 Disarm()\n\ 12446 <Key>osfSelect: ArmAndActivate()\n\ 12447 <Key>osfActivate: ArmAndActivate()\n\ 12448 <Key>osfHelp: Help()\n\ 12449 ~Shift ~Meta ~Alt <Key>Return: ArmAndActivate()\n\ 12450 <EnterWindow>: Enter()\n\ 12451 <LeaveWindow>: Leave()\n 12452 12453 Bonus: do not use 3D modeline." 12454 (interactive) 12455 (color-theme-install 12456 '(color-theme-lethe 12457 ((background-color . "black") 12458 (background-mode . dark) 12459 (background-toolbar-color . "#000000000000") 12460 (border-color . "#000000000000") 12461 (bottom-toolbar-shadow-color . "red") 12462 (cursor-color . "red") 12463 (foreground-color . "peachpuff") 12464 (mouse-color . "red") 12465 (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) 12466 ((buffers-tab-face . buffers-tab) 12467 (cscope-use-face . t) 12468 (gnus-mouse-face . highlight)) 12469 (default ((t (nil)))) 12470 (bg:erc-color-face0 ((t (:background "White")))) 12471 (bg:erc-color-face1 ((t (nil)))) 12472 (bg:erc-color-face10 ((t (:background "lightblue1")))) 12473 (bg:erc-color-face11 ((t (:background "cyan")))) 12474 (bg:erc-color-face12 ((t (:background "blue")))) 12475 (bg:erc-color-face13 ((t (:background "deeppink")))) 12476 (bg:erc-color-face14 ((t (:background "gray50")))) 12477 (bg:erc-color-face15 ((t (:background "gray90")))) 12478 (bg:erc-color-face2 ((t (:background "blue4")))) 12479 (bg:erc-color-face3 ((t (:background "green4")))) 12480 (bg:erc-color-face4 ((t (:background "red")))) 12481 (bg:erc-color-face5 ((t (:background "brown")))) 12482 (bg:erc-color-face6 ((t (:background "purple")))) 12483 (bg:erc-color-face7 ((t (:background "orange")))) 12484 (bg:erc-color-face8 ((t (:background "yellow")))) 12485 (bg:erc-color-face9 ((t (:background "green")))) 12486 (blue ((t (:foreground "blue")))) 12487 (bold ((t (:bold t)))) 12488 (bold-italic ((t (:italic t :bold t)))) 12489 (border ((t (nil)))) 12490 (border-glyph ((t (nil)))) 12491 (buffers-tab ((t (:bold t :foreground "red")))) 12492 (button ((t (:underline t)))) 12493 (calendar-today-face ((t (:underline t)))) 12494 (comint-highlight-input ((t (:bold t)))) 12495 (comint-highlight-prompt ((t (:foreground "cyan")))) 12496 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) 12497 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) 12498 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 12499 (cscope-file-face ((t (:foreground "blue")))) 12500 (cscope-function-face ((t (:foreground "magenta")))) 12501 (cscope-line-face ((t (:foreground "green")))) 12502 (cscope-line-number-face ((t (:foreground "red")))) 12503 (cscope-mouse-face ((t (:background "blue" :foreground "white")))) 12504 (cursor ((t (nil)))) 12505 (custom-button-face ((t (nil)))) 12506 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) 12507 (custom-changed-face ((t (:background "blue" :foreground "white")))) 12508 (custom-comment-face ((t (:background "dim gray")))) 12509 (custom-comment-tag-face ((t (:foreground "gray80")))) 12510 (custom-documentation-face ((t (nil)))) 12511 (custom-face-tag-face ((t (:underline t)))) 12512 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 12513 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 12514 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 12515 (custom-modified-face ((t (:background "blue" :foreground "white")))) 12516 (custom-rogue-face ((t (:foreground "pink")))) 12517 (custom-saved-face ((t (:underline t)))) 12518 (custom-set-face ((t (:background "white" :foreground "blue")))) 12519 (custom-state-face ((t (:foreground "dark green")))) 12520 (custom-variable-button-face ((t (:underline t :bold t)))) 12521 (custom-variable-tag-face ((t (:underline t :foreground "blue")))) 12522 (cyan ((t (:foreground "cyan")))) 12523 (diary-face ((t (:foreground "red")))) 12524 (dired-face-boring ((t (:foreground "Gray65")))) 12525 (dired-face-directory ((t (:bold t)))) 12526 (dired-face-executable ((t (:foreground "SeaGreen")))) 12527 (dired-face-flagged ((t (:background "LightSlateGray")))) 12528 (dired-face-marked ((t (:background "PaleVioletRed")))) 12529 (dired-face-permissions ((t (:background "grey75" :foreground "black")))) 12530 (dired-face-setuid ((t (:foreground "Red")))) 12531 (dired-face-socket ((t (:foreground "magenta")))) 12532 (dired-face-symlink ((t (:foreground "cyan")))) 12533 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 12534 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 12535 (display-time-time-balloon-face ((t (:foreground "red")))) 12536 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 12537 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 12538 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 12539 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 12540 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 12541 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 12542 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 12543 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 12544 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 12545 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 12546 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 12547 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 12548 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 12549 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 12550 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 12551 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 12552 (erc-action-face ((t (:bold t)))) 12553 (erc-bold-face ((t (:bold t)))) 12554 (erc-default-face ((t (nil)))) 12555 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 12556 (erc-error-face ((t (:background "Red" :foreground "White")))) 12557 (erc-input-face ((t (:foreground "brown")))) 12558 (erc-inverse-face ((t (:background "Black" :foreground "White")))) 12559 (erc-notice-face ((t (:bold t :foreground "SlateBlue")))) 12560 (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black")))) 12561 (erc-timestamp-face ((t (:bold t :foreground "green")))) 12562 (erc-underline-face ((t (:underline t)))) 12563 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) 12564 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 12565 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) 12566 (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) 12567 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) 12568 (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) 12569 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 12570 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 12571 (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) 12572 (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) 12573 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 12574 (eshell-prompt-face ((t (:bold t :foreground "Red")))) 12575 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) 12576 (eshell-test-ok-face ((t (:bold t :foreground "Green")))) 12577 (excerpt ((t (:italic t)))) 12578 (fg:erc-color-face0 ((t (:foreground "White")))) 12579 (fg:erc-color-face1 ((t (:foreground "black")))) 12580 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 12581 (fg:erc-color-face11 ((t (:foreground "cyan")))) 12582 (fg:erc-color-face12 ((t (:foreground "blue")))) 12583 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 12584 (fg:erc-color-face14 ((t (:foreground "gray50")))) 12585 (fg:erc-color-face15 ((t (:foreground "gray90")))) 12586 (fg:erc-color-face2 ((t (:foreground "blue4")))) 12587 (fg:erc-color-face3 ((t (:foreground "green4")))) 12588 (fg:erc-color-face4 ((t (:foreground "red")))) 12589 (fg:erc-color-face5 ((t (:foreground "brown")))) 12590 (fg:erc-color-face6 ((t (:foreground "purple")))) 12591 (fg:erc-color-face7 ((t (:foreground "orange")))) 12592 (fg:erc-color-face8 ((t (:foreground "yellow")))) 12593 (fg:erc-color-face9 ((t (:foreground "green")))) 12594 (fixed ((t (:bold t)))) 12595 (fixed-pitch ((t (:size "16")))) 12596 (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) 12597 (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) 12598 (font-lock-builtin-face ((t (:foreground "Orchid")))) 12599 (font-lock-comment-face ((t (:bold t :foreground "cyan")))) 12600 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 12601 (font-lock-doc-face ((t (:bold t :foreground "red")))) 12602 (font-lock-doc-string-face ((t (:bold t :foreground "red")))) 12603 (font-lock-function-name-face ((t (:bold t :foreground "white")))) 12604 (font-lock-keyword-face ((t (:bold t :foreground "yellow")))) 12605 (font-lock-preprocessor-face ((t (:bold t :foreground "blue")))) 12606 (font-lock-reference-face ((t (:foreground "red3")))) 12607 (font-lock-string-face ((t (:bold t :foreground "magenta")))) 12608 (font-lock-type-face ((t (:bold t :foreground "lightgreen")))) 12609 (font-lock-variable-name-face ((t (:bold t :foreground "white")))) 12610 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 12611 (fringe ((t (:background "grey95")))) 12612 (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red")))) 12613 (gnus-cite-attribution-face ((t (:italic t)))) 12614 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 12615 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 12616 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 12617 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 12618 (gnus-cite-face-3 ((t (:foreground "dark green")))) 12619 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 12620 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 12621 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 12622 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 12623 (gnus-cite-face-8 ((t (:foreground "magenta")))) 12624 (gnus-cite-face-9 ((t (:foreground "violet")))) 12625 (gnus-emphasis-bold ((t (:bold t)))) 12626 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 12627 (gnus-emphasis-highlight-words ((t (:foreground "yellow")))) 12628 (gnus-emphasis-italic ((t (:italic t)))) 12629 (gnus-emphasis-underline ((t (:underline t)))) 12630 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 12631 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 12632 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 12633 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 12634 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 12635 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 12636 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 12637 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 12638 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 12639 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 12640 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 12641 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 12642 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 12643 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 12644 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 12645 (gnus-group-news-3-empty-face ((t (nil)))) 12646 (gnus-group-news-3-face ((t (:bold t)))) 12647 (gnus-group-news-4-empty-face ((t (nil)))) 12648 (gnus-group-news-4-face ((t (:bold t)))) 12649 (gnus-group-news-5-empty-face ((t (nil)))) 12650 (gnus-group-news-5-face ((t (:bold t)))) 12651 (gnus-group-news-6-empty-face ((t (nil)))) 12652 (gnus-group-news-6-face ((t (:bold t)))) 12653 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 12654 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 12655 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 12656 (gnus-header-from-face ((t (:foreground "red3")))) 12657 (gnus-header-name-face ((t (:foreground "maroon")))) 12658 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) 12659 (gnus-header-subject-face ((t (:foreground "red4")))) 12660 (gnus-picons-face ((t (:background "white" :foreground "black")))) 12661 (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) 12662 (gnus-signature-face ((t (:italic t)))) 12663 (gnus-splash-face ((t (:foreground "ForestGreen")))) 12664 (gnus-summary-cancelled-face ((t (:foreground "yellow")))) 12665 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 12666 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 12667 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) 12668 (gnus-summary-high-unread-face ((t (:bold t)))) 12669 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 12670 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 12671 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 12672 (gnus-summary-low-unread-face ((t (:italic t)))) 12673 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 12674 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 12675 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 12676 (gnus-summary-normal-unread-face ((t (nil)))) 12677 (gnus-summary-selected-face ((t (:underline t)))) 12678 (gnus-x-face ((t (:background "white" :foreground "black")))) 12679 (green ((t (:foreground "green")))) 12680 (gui-button-face ((t (:background "grey75" :foreground "black")))) 12681 (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) 12682 (header-line ((t (:background "grey20" :foreground "grey90")))) 12683 (highlight ((t (:bold t :background "yellow" :foreground "red")))) 12684 (highlight-changes-delete-face ((t (:underline t :foreground "red")))) 12685 (highlight-changes-face ((t (:foreground "red")))) 12686 (highline-face ((t (:background "paleturquoise")))) 12687 (holiday-face ((t (:background "pink")))) 12688 (hyper-apropos-documentation ((t (:foreground "#aaaaaa")))) 12689 (hyper-apropos-heading ((t (:bold t :foreground "#999999")))) 12690 (hyper-apropos-hyperlink ((t (:foreground "Violet")))) 12691 (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000")))) 12692 (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55")))) 12693 (hyper-apropos-warning ((t (:bold t :foreground "red")))) 12694 (info-menu-5 ((t (:underline t)))) 12695 (info-node ((t (:italic t :bold t)))) 12696 (info-xref ((t (:bold t)))) 12697 (isearch ((t (:background "paleturquoise")))) 12698 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 12699 (isearch-secondary ((t (:foreground "red3")))) 12700 (italic ((t (:italic t)))) 12701 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 12702 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 12703 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 12704 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 12705 (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) 12706 (jde-java-font-lock-bold-face ((t (:bold t)))) 12707 (jde-java-font-lock-code-face ((t (nil)))) 12708 (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) 12709 (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) 12710 (jde-java-font-lock-italic-face ((t (:italic t)))) 12711 (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue")))) 12712 (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) 12713 (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) 12714 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 12715 (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) 12716 (jde-java-font-lock-pre-face ((t (nil)))) 12717 (jde-java-font-lock-underline-face ((t (:underline t)))) 12718 (left-margin ((t (nil)))) 12719 (list-mode-item-selected ((t (:background "gray68")))) 12720 (magenta ((t (:foreground "magenta")))) 12721 (makefile-space-face ((t (:background "hotpink")))) 12722 (menu ((t (nil)))) 12723 (message-cited-text-face ((t (:foreground "red")))) 12724 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 12725 (message-header-name-face ((t (:foreground "cornflower blue")))) 12726 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 12727 (message-header-other-face ((t (:foreground "steel blue")))) 12728 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 12729 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 12730 (message-header-xheader-face ((t (:foreground "blue")))) 12731 (message-mml-face ((t (:bold t :foreground "cyan")))) 12732 (message-separator-face ((t (:foreground "brown")))) 12733 (minibuffer-prompt ((t (:foreground "cyan")))) 12734 (mode-line ((t (:background "grey75" :foreground "black")))) 12735 (mode-line-inactive ((t (:background "grey30" :foreground "grey80")))) 12736 (modeline ((t (:bold t :background "red" :foreground "yellow")))) 12737 (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow")))) 12738 (modeline-mousable ((t (:background "red" :foreground "yellow")))) 12739 (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4")))) 12740 (mouse ((t (nil)))) 12741 (paren-blink-off ((t (:foreground "black")))) 12742 (paren-match ((t (:bold t :background "yellow" :foreground "red")))) 12743 (paren-mismatch ((t (:background "DeepPink")))) 12744 (pointer ((t (nil)))) 12745 (primary-selection ((t (:background "gray65")))) 12746 (red ((t (:foreground "red")))) 12747 (region ((t (:background "gray75")))) 12748 (right-margin ((t (nil)))) 12749 (scroll-bar ((t (nil)))) 12750 (secondary-selection ((t (:background "paleturquoise")))) 12751 (semantic-dirty-token-face ((t (:background "lightyellow")))) 12752 (semantic-unmatched-syntax-face ((t (nil)))) 12753 (senator-intangible-face ((t (:foreground "gray75")))) 12754 (senator-momentary-highlight-face ((t (:background "gray30")))) 12755 (senator-read-only-face ((t (:background "#664444")))) 12756 (show-paren-match-face ((t (:background "turquoise")))) 12757 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 12758 (speedbar-button-face ((t (:foreground "green4")))) 12759 (speedbar-directory-face ((t (:foreground "blue4")))) 12760 (speedbar-file-face ((t (:foreground "cyan4")))) 12761 (speedbar-highlight-face ((t (:background "green")))) 12762 (speedbar-selected-face ((t (:underline t :foreground "red")))) 12763 (speedbar-tag-face ((t (:foreground "brown")))) 12764 (template-message-face ((t (:bold t)))) 12765 (term-black ((t (:foreground "black")))) 12766 (term-blackbg ((t (nil)))) 12767 (term-blue ((t (:foreground "blue")))) 12768 (term-blue-bold-face ((t (:bold t :foreground "blue")))) 12769 (term-blue-face ((t (:foreground "blue")))) 12770 (term-blue-inv-face ((t (:background "blue")))) 12771 (term-blue-ul-face ((t (:underline t :foreground "blue")))) 12772 (term-bluebg ((t (:background "blue")))) 12773 (term-bold ((t (:bold t)))) 12774 (term-cyan ((t (:foreground "cyan")))) 12775 (term-cyan-bold-face ((t (:bold t :foreground "cyan")))) 12776 (term-cyan-face ((t (:foreground "cyan")))) 12777 (term-cyan-inv-face ((t (:background "cyan")))) 12778 (term-cyan-ul-face ((t (:underline t :foreground "cyan")))) 12779 (term-cyanbg ((t (:background "cyan")))) 12780 (term-default-bg ((t (nil)))) 12781 (term-default-bg-inv ((t (nil)))) 12782 (term-default-bold-face ((t (:bold t)))) 12783 (term-default-face ((t (nil)))) 12784 (term-default-fg ((t (nil)))) 12785 (term-default-fg-inv ((t (nil)))) 12786 (term-default-inv-face ((t (:background "peachpuff" :foreground "black")))) 12787 (term-default-ul-face ((t (:underline t)))) 12788 (term-green ((t (:foreground "green")))) 12789 (term-green-bold-face ((t (:bold t :foreground "green")))) 12790 (term-green-face ((t (:foreground "green")))) 12791 (term-green-inv-face ((t (:background "green")))) 12792 (term-green-ul-face ((t (:underline t :foreground "green")))) 12793 (term-greenbg ((t (:background "green")))) 12794 (term-invisible ((t (nil)))) 12795 (term-invisible-inv ((t (nil)))) 12796 (term-magenta ((t (:foreground "magenta")))) 12797 (term-magenta-bold-face ((t (:bold t :foreground "magenta")))) 12798 (term-magenta-face ((t (:foreground "magenta")))) 12799 (term-magenta-inv-face ((t (:background "magenta")))) 12800 (term-magenta-ul-face ((t (:underline t :foreground "magenta")))) 12801 (term-magentabg ((t (:background "magenta")))) 12802 (term-red ((t (:foreground "red")))) 12803 (term-red-bold-face ((t (:bold t :foreground "red")))) 12804 (term-red-face ((t (:foreground "red")))) 12805 (term-red-inv-face ((t (:background "red")))) 12806 (term-red-ul-face ((t (:underline t :foreground "red")))) 12807 (term-redbg ((t (:background "red")))) 12808 (term-underline ((t (:underline t)))) 12809 (term-white ((t (:foreground "white")))) 12810 (term-white-bold-face ((t (:bold t :foreground "white")))) 12811 (term-white-face ((t (:foreground "white")))) 12812 (term-white-inv-face ((t (nil)))) 12813 (term-white-ul-face ((t (:underline t :foreground "white")))) 12814 (term-whitebg ((t (:background "white")))) 12815 (term-yellow ((t (:foreground "yellow")))) 12816 (term-yellow-bold-face ((t (:bold t :foreground "yellow")))) 12817 (term-yellow-face ((t (:foreground "yellow")))) 12818 (term-yellow-inv-face ((t (:background "yellow")))) 12819 (term-yellow-ul-face ((t (:underline t :foreground "yellow")))) 12820 (term-yellowbg ((t (:background "yellow")))) 12821 (text-cursor ((t (:background "red" :foreground "black")))) 12822 (tool-bar ((t (:background "grey75" :foreground "black")))) 12823 (toolbar ((t (:background "Gray80" :foreground "black")))) 12824 (tooltip ((t (:background "lightyellow" :foreground "black")))) 12825 (trailing-whitespace ((t (:background "red")))) 12826 (underline ((t (:underline t)))) 12827 (variable-pitch ((t (nil)))) 12828 (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) 12829 (vertical-divider ((t (:background "Gray80" :foreground "black")))) 12830 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 12831 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 12832 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 12833 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 12834 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) 12835 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) 12836 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 12837 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 12838 (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) 12839 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 12840 (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) 12841 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 12842 (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) 12843 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 12844 (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) 12845 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 12846 (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) 12847 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 12848 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 12849 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 12850 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 12851 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 12852 (white ((t (:foreground "white")))) 12853 (widget ((t (:size "12" :background "Gray80" :foreground "black")))) 12854 (widget-button-face ((t (:bold t)))) 12855 (widget-button-pressed-face ((t (:foreground "red")))) 12856 (widget-documentation-face ((t (:foreground "dark green")))) 12857 (widget-field-face ((t (nil)))) 12858 (widget-inactive-face ((t (:foreground "dim gray")))) 12859 (widget-single-line-field-face ((t (:background "gray85")))) 12860 (x-face ((t (:bold t :background "wheat" :foreground "black")))) 12861 (xrdb-option-name-face ((t (:bold t :foreground "yellow")))) 12862 (xrdb-option-value-face ((t (:bold t :foreground "magenta")))) 12863 (yellow ((t (:foreground "yellow")))) 12864 (zmacs-region ((t (:background "white" :foreground "black"))))))) 12865 12866 (defun color-theme-shaman () 12867 "Color theme by shaman, created 2002-11-11." 12868 (interactive) 12869 (color-theme-install 12870 '(color-theme-shaman 12871 ((background-color . "#456345") 12872 (background-mode . dark) 12873 (background-toolbar-color . "#cf3ccf3ccf3c") 12874 (border-color . "#000000000000") 12875 (bottom-toolbar-shadow-color . "#79e77df779e7") 12876 (foreground-color . "White") 12877 (top-toolbar-shadow-color . "#f7defbeef7de")) 12878 ((buffers-tab-face . buffers-tab)) 12879 (default ((t (nil)))) 12880 (blue ((t (:foreground "blue")))) 12881 (bold ((t (:bold t :size "12")))) 12882 (bold-italic ((t (:italic t :bold t :size "12")))) 12883 (border-glyph ((t (nil)))) 12884 (buffers-tab ((t (:background "Gray80" :foreground "black")))) 12885 (font-lock-builtin-face ((t (:foreground "cadetblue2")))) 12886 (font-lock-comment-face ((t (:foreground "gray80")))) 12887 (font-lock-constant-face ((t (:foreground "steelblue1")))) 12888 (font-lock-doc-face ((t (:foreground "light coral")))) 12889 (font-lock-doc-string-face ((t (:foreground "light coral")))) 12890 (font-lock-function-name-face ((t (:foreground "aquamarine")))) 12891 (font-lock-keyword-face ((t (:foreground "cyan")))) 12892 (font-lock-preprocessor-face ((t (:foreground "steelblue1")))) 12893 (font-lock-reference-face ((t (:foreground "cadetblue2")))) 12894 (font-lock-string-face ((t (:foreground "tan")))) 12895 (font-lock-type-face ((t (:foreground "wheat")))) 12896 (font-lock-variable-name-face ((t (:foreground "cyan3")))) 12897 (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink")))) 12898 (fringe ((t (nil)))) 12899 (gnus-x-face ((t (:background "white" :foreground "black")))) 12900 (green ((t (:foreground "green")))) 12901 (gui-button-face ((t (:background "grey75" :foreground "black")))) 12902 (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) 12903 (highlight ((t (:background "darkseagreen2")))) 12904 (isearch ((t (:background "paleturquoise")))) 12905 (isearch-secondary ((t (:foreground "red3")))) 12906 (italic ((t (:italic t :size "12")))) 12907 (left-margin ((t (nil)))) 12908 (list-mode-item-selected ((t (:background "gray68")))) 12909 (message-cited-text-face ((t (:foreground "red")))) 12910 (message-header-cc-face ((t (:bold t :foreground "green4")))) 12911 (message-header-name-face ((t (:foreground "DarkGreen")))) 12912 (message-header-newsgroups-face ((t (:bold t :foreground "yellow")))) 12913 (message-header-other-face ((t (:foreground "#b00000")))) 12914 (message-header-subject-face ((t (:foreground "green3")))) 12915 (message-header-to-face ((t (:bold t :foreground "green2")))) 12916 (message-header-xheader-face ((t (:foreground "blue")))) 12917 (message-mml-face ((t (:foreground "ForestGreen")))) 12918 (message-separator-face ((t (:foreground "blue3")))) 12919 (mode-line ((t (:background "Gray80" :foreground "black")))) 12920 (modeline ((t (:background "Gray80" :foreground "black")))) 12921 (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) 12922 (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) 12923 (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) 12924 (pointer ((t (:foreground "White")))) 12925 (primary-selection ((t (:background "gray65")))) 12926 (red ((t (:foreground "red")))) 12927 (region ((t (:background "gray65")))) 12928 (right-margin ((t (nil)))) 12929 (rpm-spec-dir-face ((t (:foreground "green")))) 12930 (rpm-spec-doc-face ((t (:foreground "magenta")))) 12931 (rpm-spec-ghost-face ((t (:foreground "red")))) 12932 (rpm-spec-macro-face ((t (:foreground "yellow")))) 12933 (rpm-spec-package-face ((t (:foreground "red")))) 12934 (rpm-spec-tag-face ((t (:foreground "blue")))) 12935 (rpm-spec-var-face ((t (:foreground "maroon")))) 12936 (secondary-selection ((t (:background "paleturquoise")))) 12937 (text-cursor ((t (:background "Pink" :foreground "Black")))) 12938 (tool-bar ((t (nil)))) 12939 (toolbar ((t (:background "Gray80" :foreground "black")))) 12940 (underline ((t (:underline t)))) 12941 (vertical-divider ((t (:background "Gray80" :foreground "black")))) 12942 (widget ((t (:size "12" :background "Gray80" :foreground "black")))) 12943 (widget-button-face ((t (:bold t)))) 12944 (widget-button-pressed-face ((t (:foreground "red")))) 12945 (widget-documentation-face ((t (:foreground "lime green")))) 12946 (widget-field-face ((t (:background "dim gray")))) 12947 (widget-inactive-face ((t (:foreground "light gray")))) 12948 (yellow ((t (:foreground "yellow")))) 12949 (zmacs-region ((t (:background "gray65"))))))) 12950 12951 (defun color-theme-emacs-nw () 12952 "Follow emacs21's color-theme, with -nw getting 100% compatibility. 12953 12954 Alex's `color-theme-emacs-21' follows emacs21's theme, but in the 12955 current scheme of things, that means that when it works on X, it won't 12956 work in -nw perfectly. The modeline and menuline will have same 12957 colors as the rest of emacs, which can be particularly disturbing when 12958 there are multiple windows. 12959 12960 OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is 12961 100% -nw compatibility, and in X; we shall try for decent color 12962 scheme, and as much compability default emacs21's X as possble. 12963 Bugs to deego@gnufans.org. 12964 12965 TODO: Try to make this theme relative to color-theme-emacs-21 rather 12966 than absolute, viz: call that first and then tweak minor stuff." 12967 (interactive) 12968 (color-theme-install 12969 '(color-theme-emacs-nw 12970 ((background-color . "white") 12971 (background-mode . light) 12972 (border-color . "black") 12973 (cursor-color . "black") 12974 (foreground-color . "black") 12975 (mouse-color . "black")) 12976 ((Man-overstrike-face . bold) 12977 (Man-underline-face . underline) 12978 (cperl-here-face . font-lock-string-face) 12979 (cperl-invalid-face . underline) 12980 (cperl-pod-face . font-lock-comment-face) 12981 (cperl-pod-head-face . font-lock-variable-name-face) 12982 (gnus-article-button-face . bold) 12983 (gnus-article-mouse-face . highlight) 12984 (gnus-cite-attribution-face . gnus-cite-attribution-face) 12985 (gnus-mouse-face . highlight) 12986 (gnus-signature-face . gnus-signature-face) 12987 (gnus-summary-selected-face . gnus-summary-selected-face) 12988 (help-highlight-face . underline) 12989 (idlwave-class-arrow-face . bold) 12990 (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) 12991 (idlwave-shell-expression-face . secondary-selection) 12992 (idlwave-shell-stop-line-face . highlight) 12993 (ispell-highlight-face . highlight) 12994 (list-matching-lines-face . bold) 12995 (view-highlight-face . highlight) 12996 (viper-insert-state-cursor-color . "Green") 12997 (viper-replace-overlay-cursor-color . "Red") 12998 (widget-mouse-face . highlight)) 12999 (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13000 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 13001 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 13002 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 13003 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 13004 (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) 13005 (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) 13006 (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) 13007 (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) 13008 (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) 13009 (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) 13010 (bold ((t (:bold t :weight bold)))) 13011 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 13012 (border ((t (:background "black")))) 13013 (calendar-today-face ((t (:underline t)))) 13014 (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) 13015 (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) 13016 (change-log-date-face ((t (:foreground "RosyBrown")))) 13017 (change-log-email-face ((t (:foreground "DarkGoldenrod")))) 13018 (change-log-file-face ((t (:foreground "Blue")))) 13019 (change-log-function-face ((t (:foreground "DarkGoldenrod")))) 13020 (change-log-list-face ((t (:foreground "Purple")))) 13021 (change-log-name-face ((t (:foreground "CadetBlue")))) 13022 (comint-highlight-input ((t (:bold t :weight bold)))) 13023 (comint-highlight-prompt ((t (:foreground "dark blue")))) 13024 (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) 13025 (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) 13026 (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) 13027 (cursor ((t (:background "black")))) 13028 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) 13029 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 13030 (custom-changed-face ((t (:background "blue" :foreground "white")))) 13031 (custom-comment-face ((t (:background "gray85")))) 13032 (custom-comment-tag-face ((t (:foreground "blue4")))) 13033 (custom-documentation-face ((t (nil)))) 13034 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 13035 (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) 13036 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) 13037 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 13038 (custom-modified-face ((t (:background "blue" :foreground "white")))) 13039 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 13040 (custom-saved-face ((t (:underline t)))) 13041 (custom-set-face ((t (:background "white" :foreground "blue")))) 13042 (custom-state-face ((t (:foreground "dark green")))) 13043 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 13044 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) 13045 (cvs-filename-face ((t (:foreground "blue4")))) 13046 (cvs-handled-face ((t (:foreground "pink")))) 13047 (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) 13048 (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) 13049 (cvs-msg-face ((t (:italic t :slant italic)))) 13050 (cvs-need-action-face ((t (:foreground "orange")))) 13051 (cvs-unknown-face ((t (:foreground "red")))) 13052 (diary-face ((t (:foreground "red")))) 13053 (diff-added-face ((t (nil)))) 13054 (diff-changed-face ((t (nil)))) 13055 (diff-context-face ((t (:foreground "grey50")))) 13056 (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) 13057 (diff-function-face ((t (:foreground "grey50")))) 13058 (diff-header-face ((t (:background "grey85")))) 13059 (diff-hunk-header-face ((t (:background "grey85")))) 13060 (diff-index-face ((t (:bold t :weight bold :background "grey70")))) 13061 (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) 13062 (diff-removed-face ((t (nil)))) 13063 (dired-face-boring ((t (:foreground "RosyBrown")))) 13064 (dired-face-directory ((t (:foreground "Blue")))) 13065 (dired-face-executable ((t (nil)))) 13066 (dired-face-flagged ((t (:foreground "Red" :weight bold)))) 13067 (dired-face-marked ((t (:foreground "Red" :weight bold)))) 13068 (dired-face-permissions ((t (nil)))) 13069 (dired-face-setuid ((t (nil)))) 13070 (dired-face-socket ((t (nil)))) 13071 (dired-face-symlink ((t (:foreground "Purple")))) 13072 (ebrowse-default-face ((t (nil)))) 13073 (ebrowse-file-name-face ((t (:italic t :slant italic)))) 13074 (ebrowse-member-attribute-face ((t (:foreground "red")))) 13075 (ebrowse-member-class-face ((t (:foreground "purple")))) 13076 (ebrowse-progress-face ((t (:background "blue")))) 13077 (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) 13078 (ebrowse-tree-mark-face ((t (:foreground "red")))) 13079 (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) 13080 (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) 13081 (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) 13082 (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) 13083 (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) 13084 (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) 13085 (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) 13086 (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) 13087 (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) 13088 (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) 13089 (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) 13090 (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) 13091 (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) 13092 (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) 13093 (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) 13094 (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) 13095 (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) 13096 (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) 13097 (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 13098 (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) 13099 (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 13100 (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) 13101 (eshell-ls-product-face ((t (:foreground "OrangeRed")))) 13102 (eshell-ls-readonly-face ((t (:foreground "Brown")))) 13103 (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) 13104 (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) 13105 (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) 13106 (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) 13107 (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) 13108 (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) 13109 (excerpt ((t (:italic t :slant italic)))) 13110 (fixed ((t (:bold t :weight bold)))) 13111 (fixed-pitch ((t (:family "courier")))) 13112 (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) 13113 (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) 13114 (font-lock-builtin-face ((t (:foreground "Orchid")))) 13115 (font-lock-comment-face ((t (:foreground "Firebrick")))) 13116 (font-lock-constant-face ((t (:foreground "CadetBlue")))) 13117 (font-lock-doc-face ((t (:foreground "RosyBrown")))) 13118 (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) 13119 (font-lock-function-name-face ((t (:foreground "Blue")))) 13120 (font-lock-keyword-face ((t (:foreground "Purple")))) 13121 (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) 13122 (font-lock-reference-face ((t (:foreground "Orchid")))) 13123 (font-lock-string-face ((t (:foreground "RosyBrown")))) 13124 (font-lock-type-face ((t (:foreground "ForestGreen")))) 13125 (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) 13126 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 13127 (fringe ((t (:background "grey95")))) 13128 (gnus-cite-attribution-face ((t (:italic t :slant italic)))) 13129 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 13130 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 13131 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 13132 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 13133 (gnus-cite-face-3 ((t (:foreground "dark green")))) 13134 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 13135 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 13136 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 13137 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 13138 (gnus-cite-face-8 ((t (:foreground "magenta")))) 13139 (gnus-cite-face-9 ((t (:foreground "violet")))) 13140 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 13141 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 13142 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 13143 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 13144 (gnus-emphasis-underline ((t (:underline t)))) 13145 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 13146 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 13147 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 13148 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 13149 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) 13150 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 13151 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) 13152 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 13153 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) 13154 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 13155 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) 13156 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 13157 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 13158 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 13159 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) 13160 (gnus-group-news-3-empty-face ((t (nil)))) 13161 (gnus-group-news-3-face ((t (:bold t :weight bold)))) 13162 (gnus-group-news-4-empty-face ((t (nil)))) 13163 (gnus-group-news-4-face ((t (:bold t :weight bold)))) 13164 (gnus-group-news-5-empty-face ((t (nil)))) 13165 (gnus-group-news-5-face ((t (:bold t :weight bold)))) 13166 (gnus-group-news-6-empty-face ((t (nil)))) 13167 (gnus-group-news-6-face ((t (:bold t :weight bold)))) 13168 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 13169 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 13170 (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) 13171 (gnus-header-from-face ((t (:foreground "red3")))) 13172 (gnus-header-name-face ((t (:foreground "maroon")))) 13173 (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) 13174 (gnus-header-subject-face ((t (:foreground "red4")))) 13175 (gnus-signature-face ((t (:italic t :slant italic)))) 13176 (gnus-splash-face ((t (:foreground "Brown")))) 13177 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 13178 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) 13179 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) 13180 (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) 13181 (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) 13182 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) 13183 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) 13184 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) 13185 (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) 13186 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 13187 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 13188 (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) 13189 (gnus-summary-normal-unread-face ((t (nil)))) 13190 (gnus-summary-selected-face ((t (:underline t)))) 13191 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) 13192 (hi-black-b ((t (:bold t :weight bold)))) 13193 (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) 13194 (hi-blue ((t (:background "light blue")))) 13195 (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) 13196 (hi-green ((t (:background "green")))) 13197 (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) 13198 (hi-pink ((t (:background "pink")))) 13199 (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) 13200 (hi-yellow ((t (:background "yellow")))) 13201 (highlight ((t (:background "darkseagreen2")))) 13202 (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) 13203 (highlight-changes-face ((t (:foreground "red")))) 13204 (holiday-face ((t (:background "pink")))) 13205 (idlwave-help-link-face ((t (:foreground "Blue")))) 13206 (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) 13207 (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) 13208 (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) 13209 (info-menu-5 ((t (:foreground "red1")))) 13210 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 13211 (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) 13212 (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) 13213 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 13214 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 13215 (italic ((t (:italic t :slant italic)))) 13216 (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) 13217 (log-view-message-face ((t (:background "grey85")))) 13218 (makefile-space-face ((t (:background "hotpink")))) 13219 (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) 13220 (message-cited-text-face ((t (:foreground "red")))) 13221 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 13222 (message-header-name-face ((t (:foreground "cornflower blue")))) 13223 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) 13224 (message-header-other-face ((t (:foreground "steel blue")))) 13225 (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) 13226 (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) 13227 (message-header-xheader-face ((t (:foreground "blue")))) 13228 (message-mml-face ((t (:foreground "ForestGreen")))) 13229 (message-separator-face ((t (:foreground "brown")))) 13230 (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) 13231 (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) 13232 (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 13233 (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 13234 (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 13235 (mouse ((t (:background "black")))) 13236 (primary-selection ((t (:background "lightgoldenrod2")))) 13237 (reb-match-0 ((t (:background "lightblue")))) 13238 (reb-match-1 ((t (:background "aquamarine")))) 13239 (reb-match-2 ((t (:background "springgreen")))) 13240 (reb-match-3 ((t (:background "yellow")))) 13241 (region ((t (:background "lightgoldenrod2")))) 13242 (scroll-bar ((t (:background "grey75")))) 13243 (secondary-selection ((t (:background "yellow")))) 13244 (sh-heredoc-face ((t (:foreground "tan")))) 13245 (show-paren-match-face ((t (:background "turquoise")))) 13246 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 13247 (show-tabs-space-face ((t (:foreground "yellow")))) 13248 (show-tabs-tab-face ((t (:foreground "red")))) 13249 (smerge-base-face ((t (:foreground "red")))) 13250 (smerge-markers-face ((t (:background "grey85")))) 13251 (smerge-mine-face ((t (:foreground "blue")))) 13252 (smerge-other-face ((t (:foreground "darkgreen")))) 13253 (speedbar-button-face ((t (:foreground "green4")))) 13254 (speedbar-directory-face ((t (:foreground "blue4")))) 13255 (speedbar-file-face ((t (:foreground "cyan4")))) 13256 (speedbar-highlight-face ((t (:background "green")))) 13257 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 13258 (speedbar-tag-face ((t (:foreground "brown")))) 13259 (strokes-char-face ((t (:background "lightgray")))) 13260 (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13261 (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13262 (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13263 (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13264 (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) 13265 (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13266 (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13267 (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13268 (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13269 (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13270 (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13271 (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13272 (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13273 (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13274 (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13275 (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13276 (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13277 (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13278 (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13279 (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13280 (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) 13281 (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13282 (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13283 (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13284 (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) 13285 (tex-math-face ((t (:foreground "RosyBrown")))) 13286 (texinfo-heading-face ((t (:foreground "Blue")))) 13287 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 13288 (tooltip ((t (:background "lightyellow" :foreground "black")))) 13289 (trailing-whitespace ((t (:background "red")))) 13290 (underline ((t (:underline t)))) 13291 (variable-pitch ((t (:family "helv")))) 13292 (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) 13293 (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) 13294 (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) 13295 (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) 13296 (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) 13297 (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) 13298 (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) 13299 (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) 13300 (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) 13301 (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) 13302 (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) 13303 (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) 13304 (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) 13305 (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) 13306 (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) 13307 (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) 13308 (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) 13309 (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) 13310 (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) 13311 (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) 13312 (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) 13313 (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) 13314 (viper-search-face ((t (:background "khaki" :foreground "Black")))) 13315 (widget-button-face ((t (:bold t :weight bold)))) 13316 (widget-button-pressed-face ((t (:foreground "red")))) 13317 (widget-documentation-face ((t (:foreground "dark green")))) 13318 (widget-field-face ((t (:background "gray85")))) 13319 (widget-inactive-face ((t (:foreground "dim gray")))) 13320 (widget-single-line-field-face ((t (:background "gray85")))) 13321 (woman-addition-face ((t (:foreground "orange")))) 13322 (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) 13323 (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) 13324 (woman-unknown-face ((t (:foreground "brown")))) 13325 (zmacs-region ((t (:background "lightgoldenrod2"))))))) 13326 13327 (defun color-theme-late-night () 13328 "Color theme by Alex Schroeder, created 2003-08-07. 13329 This theme is for use late at night, with only little light in the room. 13330 The goal was to make something as dark and subtle as the text console in 13331 its default 80x25 state -- dark grey on black." 13332 (interactive) 13333 (let ((color-theme-is-cumulative t)) 13334 (color-theme-dark-erc) 13335 (color-theme-dark-gnus) 13336 ;; (color-theme-dark-diff) 13337 ;; (color-theme-dark-eshell) 13338 (color-theme-dark-info) 13339 (color-theme-dark-font-lock) 13340 (color-theme-install 13341 '(color-theme-late-night 13342 ((background-color . "#000") 13343 (background-mode . dark) 13344 (background-toolbar-color . "#000") 13345 (border-color . "#000") 13346 (bottom-toolbar-shadow-color . "#000") 13347 (cursor-color . "#888") 13348 (foreground-color . "#666") 13349 (top-toolbar-shadow-color . "#111")) 13350 (default ((t (nil)))) 13351 (bold ((t (:bold t)))) 13352 (button ((t (:bold t)))) 13353 (custom-button-face ((t (:bold t :foreground "#999")))) 13354 (fringe ((t (:background "#111" :foreground "#444")))) 13355 (header-line ((t (:background "#333" :foreground "#000")))) 13356 (highlight ((t (:background "dark slate blue" :foreground "light blue")))) 13357 (holiday-face ((t (:background "#000" :foreground "#777")))) 13358 (isearch ((t (:foreground "pink" :background "red")))) 13359 (isearch-lazy-highlight-face ((t (:foreground "red")))) 13360 (italic ((t (:bold t)))) 13361 (menu ((t (:background "#111" :foreground "#444")))) 13362 (minibuffer-prompt ((t (:foreground "555")))) 13363 (modeline ((t (:background "#111" :foreground "#444")))) 13364 (mode-line-inactive ((t (:background "#000" :foreground "#444")))) 13365 (modeline-buffer-id ((t (:background "#000" :foreground "#555")))) 13366 (modeline-mousable ((t (:background "#000" :foreground "#555")))) 13367 (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555")))) 13368 (region ((t (:background "dark cyan" :foreground "cyan")))) 13369 (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) 13370 (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) 13371 (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) 13372 (tool-bar ((t (:background "#111" :foreground "#777")))) 13373 (tooltip ((t (:background "#333" :foreground "#777")))) 13374 (underline ((t (:bold t)))) 13375 (variable-pitch ((t (nil)))) 13376 (widget-button-face ((t (:bold t :foreground "#888")))) 13377 (widget-field-face ((t (:bold t :foreground "#999")))))))) 13378 13379 (defun color-theme-clarity () 13380 "White on black color theme by Richard Wellum, created 2003-01-16." 13381 (interactive) 13382 (color-theme-install 13383 '(color-theme-clarity 13384 ((background-color . "black") 13385 (background-mode . dark) 13386 (border-color . "white") 13387 (cursor-color . "yellow") 13388 (foreground-color . "white") 13389 (mouse-color . "white")) 13390 ((CUA-mode-global-mark-cursor-color . "cyan") 13391 (CUA-mode-normal-cursor-color . "yellow") 13392 (CUA-mode-overwrite-cursor-color . "red") 13393 (CUA-mode-read-only-cursor-color . "green") 13394 (help-highlight-face . underline) 13395 (ibuffer-dired-buffer-face . font-lock-function-name-face) 13396 (ibuffer-help-buffer-face . font-lock-comment-face) 13397 (ibuffer-hidden-buffer-face . font-lock-warning-face) 13398 (ibuffer-occur-match-face . font-lock-warning-face) 13399 (ibuffer-read-only-buffer-face . font-lock-type-face) 13400 (ibuffer-special-buffer-face . font-lock-keyword-face) 13401 (ibuffer-title-face . font-lock-type-face) 13402 (list-matching-lines-face . bold) 13403 (ps-line-number-color . "black") 13404 (ps-zebra-color . 0.95) 13405 (tags-tag-face . default) 13406 (view-highlight-face . highlight) 13407 (widget-mouse-face . highlight)) 13408 (default ((t (nil)))) 13409 (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) 13410 (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) 13411 (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) 13412 (bold ((t (:bold t :weight bold)))) 13413 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 13414 (border ((t (:background "white")))) 13415 (clearcase-dired-checkedout-face ((t (:foreground "red")))) 13416 (comint-highlight-input ((t (:bold t :weight bold)))) 13417 (comint-highlight-prompt ((t (:foreground "cyan")))) 13418 (cursor ((t (:background "yellow")))) 13419 (fixed-pitch ((t (:family "courier")))) 13420 (flash-paren-face-off ((t (nil)))) 13421 (flash-paren-face-on ((t (nil)))) 13422 (flash-paren-face-region ((t (nil)))) 13423 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 13424 (font-lock-comment-face ((t (:foreground "OrangeRed")))) 13425 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 13426 (font-lock-doc-face ((t (:foreground "LightSalmon")))) 13427 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 13428 (font-lock-keyword-face ((t (:foreground "Cyan")))) 13429 (font-lock-string-face ((t (:foreground "LightSalmon")))) 13430 (font-lock-type-face ((t (:foreground "PaleGreen")))) 13431 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 13432 (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 13433 (fringe ((t (:background "grey10")))) 13434 (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil)))) 13435 (highlight ((t (:background "darkolivegreen")))) 13436 (ibuffer-deletion-face ((t (:foreground "red")))) 13437 (ibuffer-marked-face ((t (:foreground "green")))) 13438 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 13439 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 13440 (italic ((t (:italic t :slant italic)))) 13441 (menu ((t (nil)))) 13442 (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button))))) 13443 (mouse ((t (:background "white")))) 13444 (region ((t (:background "blue")))) 13445 (scroll-bar ((t (nil)))) 13446 (secondary-selection ((t (:background "darkslateblue")))) 13447 (show-block-face1 ((t (:background "gray10")))) 13448 (show-block-face2 ((t (:background "gray15")))) 13449 (show-block-face3 ((t (:background "gray20")))) 13450 (show-block-face4 ((t (:background "gray25")))) 13451 (show-block-face5 ((t (:background "gray30")))) 13452 (show-block-face6 ((t (:background "gray35")))) 13453 (show-block-face7 ((t (:background "gray40")))) 13454 (show-block-face8 ((t (:background "gray45")))) 13455 (show-block-face9 ((t (:background "gray50")))) 13456 (show-paren-match-face ((t (:background "turquoise")))) 13457 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 13458 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 13459 (tooltip ((t (:background "lightyellow" :foreground "black")))) 13460 (trailing-whitespace ((t (:background "red")))) 13461 (underline ((t (:underline t)))) 13462 (variable-pitch ((t (:family "helv")))) 13463 (widget-button-face ((t (:bold t :weight bold)))) 13464 (widget-button-pressed-face ((t (:foreground "red")))) 13465 (widget-documentation-face ((t (:foreground "lime green")))) 13466 (widget-field-face ((t (:background "dim gray")))) 13467 (widget-inactive-face ((t (:foreground "light gray")))) 13468 (widget-single-line-field-face ((t (:background "dim gray"))))))) 13469 13470 (defun color-theme-andreas () 13471 "Color theme by Andreas Busch, created 2003-02-06." 13472 (interactive) 13473 (color-theme-install 13474 '(color-theme-andreas 13475 ((background-mode . light) 13476 (background-color . "white") 13477 (background-toolbar-color . "#cccccccccccc") 13478 (border-color . "#000000000000") 13479 (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") 13480 (foreground-color . "black") 13481 (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) 13482 ((gnus-mouse-face . highlight) 13483 (ispell-highlight-face . highlight)) 13484 (default ((t (nil)))) 13485 (OrangeRed ((t (nil)))) 13486 (blue ((t (:foreground "blue")))) 13487 (bold ((t (:bold t)))) 13488 (bold-italic ((t (:italic t :bold t)))) 13489 (border-glyph ((t (nil)))) 13490 (calendar-today-face ((t (:underline t)))) 13491 (color-mode-face-@ ((t (:foreground "orange")))) 13492 (color-mode-face-a ((t (:foreground "blue")))) 13493 (color-mode-face-b ((t (:foreground "red")))) 13494 (color-mode-face-c ((t (:foreground "green3")))) 13495 (color-mode-face-d ((t (:background "red" :foreground "white")))) 13496 (color-mode-face-e ((t (:background "orange" :foreground "blue")))) 13497 (color-mode-face-f ((t (:background "blue" :foreground "yellow")))) 13498 (color-mode-face-g ((t (:background "lightblue" :foreground "brown")))) 13499 (color-mode-face-h ((t (:background "brown" :foreground "white")))) 13500 (custom-button-face ((t (:bold t)))) 13501 (custom-changed-face ((t (:background "blue" :foreground "white")))) 13502 (custom-documentation-face ((t (nil)))) 13503 (custom-face-tag-face ((t (:underline t)))) 13504 (custom-group-tag-face ((t (:underline t :foreground "blue")))) 13505 (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) 13506 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 13507 (custom-modified-face ((t (:background "blue" :foreground "white")))) 13508 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 13509 (custom-saved-face ((t (:underline t)))) 13510 (custom-set-face ((t (:background "white" :foreground "blue")))) 13511 (custom-state-face ((t (:foreground "dark green")))) 13512 (custom-variable-button-face ((t (:underline t :bold t :background "gray90")))) 13513 (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue")))) 13514 (diary-face ((t (:foreground "red")))) 13515 (display-time-mail-balloon-enhance-face ((t (:background "orange")))) 13516 (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) 13517 (display-time-time-balloon-face ((t (:foreground "red")))) 13518 (emacs-wiki-bad-link-face ((t (:bold t :foreground "red")))) 13519 (emacs-wiki-link-face ((t (:bold t :foreground "green")))) 13520 (font-lock-comment-face ((t (:foreground "orange1")))) 13521 (font-lock-doc-string-face ((t (:foreground "green4")))) 13522 (font-lock-function-name-face ((t (:foreground "blue3")))) 13523 (font-lock-keyword-face ((t (:foreground "red1")))) 13524 (font-lock-preprocessor-face ((t (:foreground "blue3")))) 13525 (font-lock-reference-face ((t (:foreground "red3")))) 13526 (font-lock-string-face ((t (:foreground "green4")))) 13527 (font-lock-type-face ((t (:foreground "#6920ac")))) 13528 (font-lock-variable-name-face ((t (:foreground "blue3")))) 13529 (font-lock-warning-face ((t (:bold t :foreground "Red")))) 13530 (gnu-cite-face-3 ((t (nil)))) 13531 (gnu-cite-face-4 ((t (nil)))) 13532 (gnus-cite-attribution-face ((t (:underline t)))) 13533 (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) 13534 (gnus-cite-face-10 ((t (:foreground "medium purple")))) 13535 (gnus-cite-face-11 ((t (:foreground "turquoise")))) 13536 (gnus-cite-face-2 ((t (:foreground "firebrick")))) 13537 (gnus-cite-face-3 ((t (:foreground "dark green")))) 13538 (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) 13539 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 13540 (gnus-cite-face-6 ((t (:foreground "dark violet")))) 13541 (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) 13542 (gnus-cite-face-8 ((t (:foreground "magenta")))) 13543 (gnus-cite-face-9 ((t (:foreground "violet")))) 13544 (gnus-emphasis-bold ((t (:bold t)))) 13545 (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) 13546 (gnus-emphasis-italic ((t (:italic t)))) 13547 (gnus-emphasis-underline ((t (:underline t)))) 13548 (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) 13549 (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) 13550 (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) 13551 (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) 13552 (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) 13553 (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) 13554 (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) 13555 (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) 13556 (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) 13557 (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) 13558 (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) 13559 (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) 13560 (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) 13561 (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) 13562 (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) 13563 (gnus-group-news-3-empty-face ((t (nil)))) 13564 (gnus-group-news-3-face ((t (:bold t)))) 13565 (gnus-group-news-4-empty-face ((t (nil)))) 13566 (gnus-group-news-4-face ((t (:bold t)))) 13567 (gnus-group-news-5-empty-face ((t (nil)))) 13568 (gnus-group-news-5-face ((t (:bold t)))) 13569 (gnus-group-news-6-empty-face ((t (nil)))) 13570 (gnus-group-news-6-face ((t (:bold t)))) 13571 (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) 13572 (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) 13573 (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) 13574 (gnus-header-from-face ((t (:bold t :foreground "red3")))) 13575 (gnus-header-name-face ((t (:foreground "maroon")))) 13576 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) 13577 (gnus-header-subject-face ((t (:bold t :foreground "red4")))) 13578 (gnus-splash-face ((t (:foreground "red")))) 13579 (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) 13580 (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) 13581 (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) 13582 (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed")))) 13583 (gnus-summary-high-unread-face ((t (:bold t)))) 13584 (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) 13585 (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) 13586 (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) 13587 (gnus-summary-low-unread-face ((t (:italic t)))) 13588 (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) 13589 (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) 13590 (gnus-summary-normal-ticked-face ((t (:foreground "Red")))) 13591 (gnus-summary-normal-unread-face ((t (nil)))) 13592 (gnus-summary-selected-face ((t (:underline t)))) 13593 (gnus-x-face ((t (nil)))) 13594 (green ((t (:foreground "green")))) 13595 (gui-button-face ((t (:background "grey75")))) 13596 (gui-element ((t (:background "Gray80")))) 13597 (highlight ((t (nil)))) 13598 (holiday-face ((t (:background "pink")))) 13599 (hyper-apropos-documentation ((t (:foreground "darkred")))) 13600 (hyper-apropos-heading ((t (:bold t)))) 13601 (hyper-apropos-hyperlink ((t (:foreground "blue4")))) 13602 (hyper-apropos-major-heading ((t (:bold t)))) 13603 (hyper-apropos-section-heading ((t (:italic t :bold t)))) 13604 (hyper-apropos-warning ((t (:bold t :foreground "red")))) 13605 (info-node ((t (:italic t :bold t)))) 13606 (info-xref ((t (:bold t)))) 13607 (isearch ((t (:background "yellow" :foreground "red")))) 13608 (italic ((t (:italic t)))) 13609 (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4")))) 13610 (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2")))) 13611 (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3")))) 13612 (kai-gnus-group-mail-face ((t (:foreground "darkslategrey")))) 13613 (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed")))) 13614 (kai-gnus-group-starred-face ((t (:foreground "grey50")))) 13615 (left-margin ((t (nil)))) 13616 (list-mode-item-selected ((t (:background "gray68")))) 13617 (message-cited-text ((t (:italic t)))) 13618 (message-cited-text-face ((t (:foreground "red")))) 13619 (message-header-cc-face ((t (:foreground "MidnightBlue")))) 13620 (message-header-contents ((t (:italic t)))) 13621 (message-header-name-face ((t (:foreground "cornflower blue")))) 13622 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) 13623 (message-header-other-face ((t (:foreground "steel blue")))) 13624 (message-header-subject-face ((t (:bold t :foreground "navy blue")))) 13625 (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) 13626 (message-header-xheader-face ((t (:foreground "blue")))) 13627 (message-headers ((t (:bold t)))) 13628 (message-highlighted-header-contents ((t (:italic t :bold t)))) 13629 (message-mml-face ((t (:foreground "ForestGreen")))) 13630 (message-separator-face ((t (:foreground "brown")))) 13631 (modeline ((t (:background "Gray75" :foreground "Black")))) 13632 (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4")))) 13633 (modeline-mousable ((t (:background "Gray75" :foreground "firebrick")))) 13634 (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) 13635 (paren-blink-off ((t (:foreground "gray80")))) 13636 (paren-match ((t (:background "red" :foreground "white")))) 13637 (paren-mismatch ((t (:background "DeepPink")))) 13638 (pointer ((t (:foreground "blue")))) 13639 (primary-selection ((t (:background "gray65")))) 13640 (red ((t (:foreground "red")))) 13641 (region ((t (:background "gray75")))) 13642 (right-margin ((t (nil)))) 13643 (secondary-selection ((t (:background "paleturquoise")))) 13644 (text-cursor ((t (:background "red" :foreground "LightYellow1")))) 13645 (toolbar ((t (:background "Gray80")))) 13646 (underline ((t (:underline t)))) 13647 (vertical-divider ((t (:background "Gray80")))) 13648 (widget-button-face ((t (:bold t)))) 13649 (widget-button-pressed-face ((t (:foreground "red")))) 13650 (widget-documentation-face ((t (:foreground "dark green")))) 13651 (widget-field-face ((t (:background "gray85")))) 13652 (widget-inactive-face ((t (:foreground "dim gray")))) 13653 (x-face ((t (:background "white")))) 13654 (yellow ((t (:foreground "yellow")))) 13655 (zmacs-region ((t (:background "gray65" :foreground "yellow"))))))) 13656 13657 (defun color-theme-charcoal-black () 13658 "Color theme by Lars Chr. Hausmann, created 2003-03-24." 13659 (interactive) 13660 (color-theme-install 13661 '(color-theme-charcoal-black 13662 ((background-color . "Grey15") 13663 (background-mode . dark) 13664 (border-color . "Grey") 13665 (cursor-color . "Grey") 13666 (foreground-color . "Grey") 13667 (mouse-color . "Grey")) 13668 ((display-time-mail-face . mode-line) 13669 (gnus-article-button-face . bold) 13670 (gnus-article-mouse-face . highlight) 13671 (gnus-mouse-face . highlight) 13672 (gnus-server-agent-face . gnus-server-agent-face) 13673 (gnus-server-closed-face . gnus-server-closed-face) 13674 (gnus-server-denied-face . gnus-server-denied-face) 13675 (gnus-server-offline-face . gnus-server-offline-face) 13676 (gnus-server-opened-face . gnus-server-opened-face) 13677 (gnus-signature-face . gnus-signature-face) 13678 (gnus-summary-selected-face . gnus-summary-selected-face) 13679 (help-highlight-face . underline) 13680 (list-matching-lines-face . bold) 13681 (mime-button-face . bold) 13682 (mime-button-mouse-face . highlight) 13683 (sgml-set-face . t) 13684 (tags-tag-face . default) 13685 (view-highlight-face . highlight) 13686 (widget-mouse-face . highlight)) 13687 (default ((t (:stipple nil :background "Grey15" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed")))) 13688 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 13689 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 13690 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 13691 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 13692 (bg:erc-color-face0 ((t (nil)))) 13693 (bg:erc-color-face1 ((t (nil)))) 13694 (bg:erc-color-face10 ((t (nil)))) 13695 (bg:erc-color-face11 ((t (nil)))) 13696 (bg:erc-color-face12 ((t (nil)))) 13697 (bg:erc-color-face13 ((t (nil)))) 13698 (bg:erc-color-face14 ((t (nil)))) 13699 (bg:erc-color-face15 ((t (nil)))) 13700 (bg:erc-color-face2 ((t (nil)))) 13701 (bg:erc-color-face3 ((t (nil)))) 13702 (bg:erc-color-face4 ((t (nil)))) 13703 (bg:erc-color-face5 ((t (nil)))) 13704 (bg:erc-color-face6 ((t (nil)))) 13705 (bg:erc-color-face7 ((t (nil)))) 13706 (bg:erc-color-face8 ((t (nil)))) 13707 (bg:erc-color-face9 ((t (nil)))) 13708 (bold ((t (:bold t :weight bold)))) 13709 (bold-italic ((t (:bold t :foreground "beige" :weight bold)))) 13710 (border ((t (:background "Grey")))) 13711 (calendar-today-face ((t (:underline t)))) 13712 (comint-highlight-input ((t (:bold t :weight bold)))) 13713 (comint-highlight-prompt ((t (:foreground "cyan")))) 13714 (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold)))) 13715 (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) 13716 (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) 13717 (cursor ((t (:background "Grey")))) 13718 (custom-button-face ((t (:foreground "gainsboro")))) 13719 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) 13720 (custom-changed-face ((t (:background "blue" :foreground "white")))) 13721 (custom-comment-face ((t (:background "dim gray")))) 13722 (custom-comment-tag-face ((t (:foreground "gray80")))) 13723 (custom-documentation-face ((t (:foreground "light blue")))) 13724 (custom-face-tag-face ((t (:underline t)))) 13725 (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) 13726 (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) 13727 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 13728 (custom-modified-face ((t (:background "blue" :foreground "white")))) 13729 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 13730 (custom-saved-face ((t (:underline t)))) 13731 (custom-set-face ((t (:background "white" :foreground "blue")))) 13732 (custom-state-face ((t (:foreground "light salmon")))) 13733 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 13734 (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold)))) 13735 (diary-face ((t (:foreground "red")))) 13736 (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) 13737 (dired-face-executable ((t (:foreground "green yellow")))) 13738 (dired-face-flagged ((t (:foreground "tomato")))) 13739 (dired-face-marked ((t (:foreground "light salmon")))) 13740 (dired-face-permissions ((t (:foreground "aquamarine")))) 13741 (erc-action-face ((t (nil)))) 13742 (erc-bold-face ((t (:bold t :weight bold)))) 13743 (erc-default-face ((t (nil)))) 13744 (erc-direct-msg-face ((t (:foreground "pale green")))) 13745 (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) 13746 (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) 13747 (erc-input-face ((t (:foreground "light blue")))) 13748 (erc-inverse-face ((t (:background "steel blue")))) 13749 (erc-notice-face ((t (:foreground "light salmon")))) 13750 (erc-pal-face ((t (:foreground "pale green")))) 13751 (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) 13752 (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold)))) 13753 (eshell-ls-backup-face ((t (:foreground "dim gray")))) 13754 (eshell-ls-clutter-face ((t (:foreground "dim gray")))) 13755 (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold)))) 13756 (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold)))) 13757 (eshell-ls-missing-face ((t (:foreground "black")))) 13758 (eshell-ls-picture-face ((t (:foreground "violet")))) 13759 (eshell-ls-product-face ((t (:foreground "light steel blue")))) 13760 (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) 13761 (eshell-ls-special-face ((t (:foreground "gold")))) 13762 (eshell-ls-symlink-face ((t (:foreground "white")))) 13763 (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) 13764 (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold)))) 13765 (excerpt ((t (:italic t :slant italic)))) 13766 (fg:erc-color-face0 ((t (:foreground "white")))) 13767 (fg:erc-color-face1 ((t (:foreground "beige")))) 13768 (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) 13769 (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) 13770 (fg:erc-color-face12 ((t (:foreground "light yellow")))) 13771 (fg:erc-color-face13 ((t (:foreground "yellow")))) 13772 (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) 13773 (fg:erc-color-face15 ((t (:foreground "lime green")))) 13774 (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) 13775 (fg:erc-color-face3 ((t (:foreground "light cyan")))) 13776 (fg:erc-color-face4 ((t (:foreground "powder blue")))) 13777 (fg:erc-color-face5 ((t (:foreground "sky blue")))) 13778 (fg:erc-color-face6 ((t (:foreground "dark sea green")))) 13779 (fg:erc-color-face7 ((t (:foreground "pale green")))) 13780 (fg:erc-color-face8 ((t (:foreground "medium spring green")))) 13781 (fg:erc-color-face9 ((t (:foreground "khaki")))) 13782 (fixed ((t (:bold t :weight bold)))) 13783 (fixed-pitch ((t (:family "courier")))) 13784 (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) 13785 (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) 13786 (font-lock-builtin-face ((t (:foreground "aquamarine")))) 13787 (font-lock-comment-face ((t (:foreground "light blue")))) 13788 (font-lock-constant-face ((t (:foreground "pale green")))) 13789 (font-lock-doc-face ((t (:foreground "light sky blue")))) 13790 (font-lock-doc-string-face ((t (:foreground "sky blue")))) 13791 (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold)))) 13792 (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) 13793 (font-lock-reference-face ((t (:foreground "pale green")))) 13794 (font-lock-string-face ((t (:foreground "light sky blue")))) 13795 (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold)))) 13796 (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold)))) 13797 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 13798 (fringe ((t (:background "Grey15")))) 13799 (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) 13800 (gnus-cite-face-2 ((t (:foreground "Khaki")))) 13801 (gnus-cite-face-3 ((t (:foreground "Coral")))) 13802 (gnus-cite-face-4 ((t (:foreground "yellow green")))) 13803 (gnus-cite-face-5 ((t (:foreground "dark khaki")))) 13804 (gnus-cite-face-6 ((t (:foreground "bisque")))) 13805 (gnus-cite-face-7 ((t (:foreground "peru")))) 13806 (gnus-cite-face-8 ((t (:foreground "light coral")))) 13807 (gnus-cite-face-9 ((t (:foreground "plum")))) 13808 (gnus-emphasis-bold ((t (:bold t :weight bold)))) 13809 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 13810 (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) 13811 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 13812 (gnus-emphasis-strikethru ((t (nil)))) 13813 (gnus-emphasis-underline ((t (:underline t)))) 13814 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) 13815 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) 13816 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 13817 (gnus-group-mail-1-empty-face ((t (:foreground "White")))) 13818 (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold)))) 13819 (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) 13820 (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13821 (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) 13822 (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) 13823 (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) 13824 (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 13825 (gnus-group-news-1-empty-face ((t (:foreground "White")))) 13826 (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold)))) 13827 (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) 13828 (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13829 (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) 13830 (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) 13831 (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) 13832 (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 13833 (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) 13834 (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) 13835 (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) 13836 (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) 13837 (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) 13838 (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) 13839 (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) 13840 (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13841 (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold)))) 13842 (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) 13843 (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13844 (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 13845 (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) 13846 (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold)))) 13847 (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) 13848 (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold)))) 13849 (gnus-signature-face ((t (:foreground "Grey")))) 13850 (gnus-splash-face ((t (:foreground "ForestGreen")))) 13851 (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) 13852 (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) 13853 (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) 13854 (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold)))) 13855 (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) 13856 (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic)))) 13857 (gnus-summary-low-read-face ((t (:foreground "slate gray")))) 13858 (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) 13859 (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) 13860 (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) 13861 (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) 13862 (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) 13863 (gnus-summary-normal-unread-face ((t (nil)))) 13864 (gnus-summary-selected-face ((t (:underline t)))) 13865 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) 13866 (highlight ((t (:background "dark slate blue" :foreground "light blue")))) 13867 (highline-face ((t (:background "DeepSkyBlue4")))) 13868 (holiday-face ((t (:background "pink")))) 13869 (info-header-node ((t (:bold t :weight bold)))) 13870 (info-header-xref ((t (:bold t :weight bold :foreground "sky blue")))) 13871 (info-menu-5 ((t (:underline t)))) 13872 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 13873 (info-node ((t (:bold t :weight bold)))) 13874 (info-xref ((t (:bold t :foreground "sky blue" :weight bold)))) 13875 (isearch ((t (:background "slate blue")))) 13876 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 13877 (italic ((t (:foreground "sky blue")))) 13878 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 13879 (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) 13880 (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) 13881 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 13882 (jde-java-font-lock-code-face ((t (nil)))) 13883 (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) 13884 (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) 13885 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 13886 (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) 13887 (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) 13888 (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) 13889 (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) 13890 (jde-java-font-lock-pre-face ((t (nil)))) 13891 (jde-java-font-lock-underline-face ((t (:underline t)))) 13892 (makefile-space-face ((t (:background "hotpink")))) 13893 (menu ((t (:background "MidnightBlue" :foreground "Grey")))) 13894 (message-cited-text-face ((t (:foreground "LightSalmon")))) 13895 (message-header-cc-face ((t (:foreground "light cyan")))) 13896 (message-header-name-face ((t (:foreground "LightBlue")))) 13897 (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) 13898 (message-header-other-face ((t (:foreground "MediumAquamarine")))) 13899 (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13900 (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) 13901 (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) 13902 (message-mml-face ((t (:foreground "ForestGreen")))) 13903 (message-separator-face ((t (:foreground "chocolate")))) 13904 (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) 13905 (mouse ((t (:background "Grey")))) 13906 (region ((t (:background "DarkSlateBlue")))) 13907 (scroll-bar ((t (:background "grey75")))) 13908 (secondary-selection ((t (:background "steel blue")))) 13909 (semantic-dirty-token-face ((t (:background "gray10")))) 13910 (semantic-unmatched-syntax-face ((t (:underline "red")))) 13911 (show-paren-match-face ((t (:background "light slate blue" :foreground "white")))) 13912 (show-paren-mismatch-face ((t (:background "red" :foreground "white")))) 13913 (speedbar-button-face ((t (:foreground "seashell2")))) 13914 (speedbar-directory-face ((t (:foreground "seashell3")))) 13915 (speedbar-file-face ((t (:foreground "seashell4")))) 13916 (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) 13917 (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) 13918 (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) 13919 (speedbar-tag-face ((t (:foreground "antique white")))) 13920 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) 13921 (tooltip ((t (:background "lightyellow" :foreground "black")))) 13922 (trailing-whitespace ((t (:background "red")))) 13923 (underline ((t (:underline t)))) 13924 (variable-pitch ((t (:family "helv")))) 13925 (widget-button-face ((t (:bold t :weight bold)))) 13926 (widget-button-pressed-face ((t (:foreground "red")))) 13927 (widget-documentation-face ((t (:foreground "light blue")))) 13928 (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) 13929 (widget-inactive-face ((t (:foreground "dim gray")))) 13930 (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) 13931 (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold)))) 13932 (woman-italic-face ((t (:foreground "deep sky blue")))) 13933 (woman-unknown-face ((t (:foreground "LightSalmon")))) 13934 (zmacs-region ((t (:background "DarkSlateBlue"))))))) 13935 13936 (defun color-theme-vim-colors () 13937 "Color theme by Michael Soulier, created 2003-03-26." 13938 (interactive) 13939 (color-theme-install 13940 '(color-theme-vim-colors 13941 ((background-color . "#ffffff") 13942 (background-mode . light) 13943 (border-color . "black") 13944 (cursor-color . "#000000") 13945 (foreground-color . "#000000") 13946 (mouse-color . "#000000")) 13947 ((Man-overstrike-face . bold) 13948 (Man-underline-face . underline) 13949 (apropos-keybinding-face . underline) 13950 (apropos-label-face . italic) 13951 (apropos-match-face . secondary-selection) 13952 (apropos-property-face . bold-italic) 13953 (apropos-symbol-face . bold) 13954 (cperl-here-face . font-lock-string-face) 13955 (cperl-invalid-face quote underline) 13956 (cperl-pod-face . font-lock-comment-face) 13957 (cperl-pod-head-face . font-lock-variable-name-face) 13958 (help-highlight-face . underline) 13959 (ispell-highlight-face . highlight) 13960 (list-matching-lines-face . bold) 13961 (rpm-spec-dir-face . rpm-spec-dir-face) 13962 (rpm-spec-doc-face . rpm-spec-doc-face) 13963 (rpm-spec-ghost-face . rpm-spec-ghost-face) 13964 (rpm-spec-macro-face . rpm-spec-macro-face) 13965 (rpm-spec-package-face . rpm-spec-package-face) 13966 (rpm-spec-tag-face . rpm-spec-tag-face) 13967 (tags-tag-face . default) 13968 (view-highlight-face . highlight) 13969 (widget-mouse-face . highlight)) 13970 (default ((t (:background "#ffffff" :foreground "#000000")))) 13971 (Info-title-1-face ((t (nil)))) 13972 (Info-title-2-face ((t (nil)))) 13973 (Info-title-3-face ((t (nil)))) 13974 (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold))))) 13975 (bold ((t (:bold (bold extra-bold ultra-bold))))) 13976 (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold))))) 13977 (border ((t (:background "black")))) 13978 (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold))))) 13979 (comint-highlight-prompt ((t (:foreground "dark blue")))) 13980 (cperl-array-face ((t (:foreground "brown")))) 13981 (cperl-hash-face ((t (:foreground "red")))) 13982 (cperl-nonoverridable-face ((t (:foreground "#008b8b")))) 13983 (cursor ((t (:background "#000000")))) 13984 (fixed-pitch ((t (nil)))) 13985 (font-lock-builtin-face ((t (:foreground "purple")))) 13986 (font-lock-comment-face ((t (:foreground "blue")))) 13987 (font-lock-constant-face ((t (:foreground "green4")))) 13988 (font-lock-doc-face ((t (:background "#f2f2f2")))) 13989 (font-lock-function-name-face ((t (:foreground "#008b8b")))) 13990 (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a")))) 13991 (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff")))) 13992 (font-lock-type-face ((t (:foreground "ForestGreen")))) 13993 (font-lock-variable-name-face ((t (:foreground "#008b8b")))) 13994 (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red")))) 13995 (fringe ((t (:background "#e5e5e5")))) 13996 (header-line ((t (:background "grey90" :foreground "grey20")))) 13997 (highlight ((t (:background "darkseagreen2")))) 13998 (info-header-node ((t (nil)))) 13999 (info-header-xref ((t (nil)))) 14000 (info-menu-5 ((t (:foreground "red1")))) 14001 (info-menu-header ((t (:bold (bold extra-bold ultra-bold))))) 14002 (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown")))) 14003 (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4")))) 14004 (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) 14005 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 14006 (italic ((t (:italic (italic oblique))))) 14007 (menu ((t (nil)))) 14008 (mode-line ((t (:background "grey75" :foreground "black")))) 14009 (mouse ((t (:background "#000000")))) 14010 (region ((t (:background "lightgoldenrod2")))) 14011 (rpm-spec-dir-face ((t (:foreground "green")))) 14012 (rpm-spec-doc-face ((t (:foreground "magenta")))) 14013 (rpm-spec-ghost-face ((t (:foreground "red")))) 14014 (rpm-spec-macro-face ((t (:foreground "purple")))) 14015 (rpm-spec-package-face ((t (:foreground "red")))) 14016 (rpm-spec-tag-face ((t (:foreground "blue")))) 14017 (scroll-bar ((t (:background "grey75" :foreground "#000000")))) 14018 (secondary-selection ((t (:background "yellow")))) 14019 (sh-heredoc-face ((t (:foreground "tan")))) 14020 (show-paren-match-face ((t (:background "turquoise")))) 14021 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 14022 (tool-bar ((t (:background "grey75" :foreground "black")))) 14023 (tooltip ((t (:background "lightyellow" :foreground "black")))) 14024 (trailing-whitespace ((t (:background "red")))) 14025 (underline ((t (:underline t)))) 14026 (variable-pitch ((t (nil)))) 14027 (widget-button-face ((t (:bold (bold extra-bold ultra-bold))))) 14028 (widget-button-pressed-face ((t (:foreground "red")))) 14029 (widget-documentation-face ((t (:foreground "dark green")))) 14030 (widget-field-face ((t (:background "gray85")))) 14031 (widget-inactive-face ((t (:foreground "dim gray")))) 14032 (widget-single-line-field-face ((t (:background "gray85"))))))) 14033 14034 (defun color-theme-calm-forest () 14035 "Color theme by Artur Hefczyc, created 2003-04-18." 14036 (interactive) 14037 (color-theme-install 14038 '(color-theme-calm-forest 14039 ((background-color . "gray12") 14040 (background-mode . dark) 14041 (border-color . "black") 14042 (cursor-color . "orange") 14043 (foreground-color . "green") 14044 (mouse-color . "yellow")) 14045 ((help-highlight-face . underline) 14046 (list-matching-lines-face . bold) 14047 (senator-eldoc-use-color . t) 14048 (view-highlight-face . highlight) 14049 (widget-mouse-face . highlight)) 14050 (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil 14051 :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width 14052 normal :family "outline-courier new")))) 14053 (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) 14054 (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) 14055 (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) 14056 (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) 14057 (bold ((t (:bold t :weight bold)))) 14058 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 14059 (border ((t (:background "black")))) 14060 (comint-highlight-input ((t (:bold t :weight bold)))) 14061 (comint-highlight-prompt ((t (:foreground "cyan")))) 14062 (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold)))) 14063 (cparen-around-begin-face ((t (:foreground "maroon")))) 14064 (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) 14065 (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold)))) 14066 (cparen-around-lambda-face ((t (:foreground "LightSeaGreen")))) 14067 (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold)))) 14068 (cparen-around-quote-face ((t (:foreground "SaddleBrown")))) 14069 (cparen-around-set!-face ((t (:foreground "OrangeRed")))) 14070 (cparen-around-syntax-rules-face ((t (:foreground "Magenta")))) 14071 (cparen-around-vector-face ((t (:foreground "chocolate")))) 14072 (cparen-binding-face ((t (:foreground "ForestGreen")))) 14073 (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) 14074 (cparen-conditional-clause-face ((t (:foreground "RoyalBlue")))) 14075 (cparen-normal-paren-face ((t (:foreground "grey50")))) 14076 (cursor ((t (:background "orange")))) 14077 (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style 14078 released-button))))) 14079 (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 14080 2 :style pressed-button))))) 14081 (custom-changed-face ((t (:background "blue" :foreground "white")))) 14082 (custom-comment-face ((t (:background "dim gray")))) 14083 (custom-comment-tag-face ((t (:foreground "gray80")))) 14084 (custom-documentation-face ((t (nil)))) 14085 (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) 14086 (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) 14087 (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 14088 1.2)))) 14089 (custom-invalid-face ((t (:background "red" :foreground "yellow")))) 14090 (custom-modified-face ((t (:background "blue" :foreground "white")))) 14091 (custom-rogue-face ((t (:background "black" :foreground "pink")))) 14092 (custom-saved-face ((t (:underline t)))) 14093 (custom-set-face ((t (:background "white" :foreground "blue")))) 14094 (custom-state-face ((t (:foreground "lime green")))) 14095 (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) 14096 (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold 14097 :height 1.2)))) 14098 (eieio-custom-slot-tag-face ((t (:foreground "light blue")))) 14099 (extra-whitespace-face ((t (:background "pale green")))) 14100 (fixed-pitch ((t (:family "courier")))) 14101 (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) 14102 (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) 14103 (font-latex-math-face ((t (:foreground "burlywood")))) 14104 (font-latex-sedate-face ((t (:foreground "LightGray")))) 14105 (font-latex-string-face ((t (:foreground "RosyBrown")))) 14106 (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) 14107 (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) 14108 (font-lock-comment-face ((t (:foreground "chocolate1")))) 14109 (font-lock-constant-face ((t (:foreground "Aquamarine")))) 14110 (font-lock-doc-face ((t (:foreground "LightSalmon")))) 14111 (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) 14112 (font-lock-keyword-face ((t (:foreground "Cyan")))) 14113 (font-lock-string-face ((t (:foreground "LightSalmon")))) 14114 (font-lock-type-face ((t (:foreground "PaleGreen")))) 14115 (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) 14116 (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) 14117 (fringe ((t (:background "grey10")))) 14118 (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground 14119 "grey90" :box nil)))) 14120 (highlight ((t (:background "darkolivegreen")))) 14121 (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) 14122 (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) 14123 (info-menu-5 ((t (:foreground "red1")))) 14124 (info-menu-header ((t (:bold t :family "helv" :weight bold)))) 14125 (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) 14126 (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) 14127 (isearch ((t (:background "palevioletred2" :foreground "brown4")))) 14128 (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) 14129 (italic ((t (:italic t :slant italic)))) 14130 (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) 14131 (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) 14132 (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) 14133 (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) 14134 (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) 14135 (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) 14136 (jde-java-font-lock-code-face ((t (nil)))) 14137 (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) 14138 (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) 14139 (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) 14140 (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) 14141 (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) 14142 (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) 14143 (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) 14144 (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) 14145 (jde-java-font-lock-pre-face ((t (nil)))) 14146 (jde-java-font-lock-underline-face ((t (:underline t)))) 14147 (menu ((t (nil)))) 14148 (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style 14149 released-button))))) 14150 (mouse ((t (:background "yellow")))) 14151 (region ((t (:background "blue3")))) 14152 (scroll-bar ((t (nil)))) 14153 (secondary-selection ((t (:background "SkyBlue4")))) 14154 (semantic-dirty-token-face ((t (:background "gray10")))) 14155 (semantic-unmatched-syntax-face ((t (:underline "red")))) 14156 (senator-intangible-face ((t (:foreground "gray75")))) 14157 (senator-momentary-highlight-face ((t (:background "gray30")))) 14158 (senator-read-only-face ((t (:background "#664444")))) 14159 (show-paren-match-face ((t (:background "turquoise")))) 14160 (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) 14161 (speedbar-button-face ((t (:foreground "green3")))) 14162 (speedbar-directory-face ((t (:foreground "light blue")))) 14163 (speedbar-file-face ((t (:foreground "cyan")))) 14164 (speedbar-highlight-face ((t (:background "sea green")))) 14165 (speedbar-selected-face ((t (:foreground "red" :underline t)))) 14166 (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) 14167 (speedbar-tag-face ((t (:foreground "yellow")))) 14168 (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style 14169 released-button))))) 14170 (trailing-whitespace ((t (:background "red")))) 14171 (underline ((t (:underline t)))) 14172 (variable-pitch ((t (:family "helv")))) 14173 (widget-button-face ((t (:bold t :weight bold)))) 14174 (widget-button-pressed-face ((t (:foreground "red")))) 14175 (widget-documentation-face ((t (:foreground "lime green")))) 14176 (widget-field-face ((t (:background "dim gray")))) 14177 (widget-inactive-face ((t (:foreground "light gray")))) 14178 (widget-single-line-field-face ((t (:background "dim gray"))))))) 14179 14180 (defun color-theme-lawrence () 14181 "Color theme by lawrence mitchell <wence@gmx.li>. 14182 Mainly shades of green. 14183 Contains faces for erc, gnus, most of jde." 14184 (interactive) 14185 (color-theme-install 14186 '(color-theme-lawrence 14187 ((background-color . "black") 14188 (background-mode . dark) 14189 (border-color . "black") 14190 (cursor-color . "green") 14191 (foreground-color . "#00CC00") 14192 (mouse-color . "black")) 14193 ((erc-button-face . bold) 14194 (erc-button-mouse-face . highlight) 14195 (gnus-article-button-face . bold) 14196 (gnus-article-mouse-face . highlight) 14197 (gnus-cite-attribution-face . gnus-cite-attribution-face) 14198 (gnus-mouse-face . highlight) 14199 (gnus-server-agent-face . gnus-server-agent-face) 14200 (gnus-server-closed-face . gnus-server-closed-face) 14201 (gnus-server-denied-face . gnus-server-denied-face) 14202 (gnus-server-offline-face . gnus-server-offline-face) 14203 (gnus-server-opened-face . gnus-server-opened-face) 14204 (gnus-signature-face . gnus-signature-face) 14205 (gnus-summary-selected-face . gnus-summary-selected-face) 14206 (gnus-treat-display-face . head) 14207 (gnus-treat-display-xface . head) 14208 (list-matching-lines-buffer-name-face . underline) 14209 (list-matching-lines-face . bold) 14210 (paren-match-face . paren-face-match) 14211 (paren-mismatch-face . paren-face-mismatch) 14212 (paren-no-match-face . paren-face-no-match) 14213 (sgml-set-face . t) 14214 (tags-tag-face . default) 14215 (view-highlight-face . highlight) 14216 (widget-mouse-face . highlight)) 14217 (default ((t (nil)))) 14218 (Buffer-menu-buffer-face ((t (:bold t :weight bold)))) 14219 (bg:erc-color-face0 ((t (:background "White")))) 14220 (bg:erc-color-face1 ((t (:background "black")))) 14221 (bg:erc-color-face10 ((t (:background "lightblue1")))) 14222 (bg:erc-color-face11 ((t (:background "cyan")))) 14223 (bg:erc-color-face12 ((t (:background "blue")))) 14224 (bg:erc-color-face13 ((t (:background "deeppink")))) 14225 (bg:erc-color-face14 ((t (:background "gray50")))) 14226 (bg:erc-color-face15 ((t (:background "gray90")))) 14227 (bg:erc-color-face2 ((t (:background "blue4")))) 14228 (bg:erc-color-face3 ((t (:background "green4")))) 14229 (bg:erc-color-face4 ((t (:background "red")))) 14230 (bg:erc-color-face5 ((t (:background "brown")))) 14231 (bg:erc-color-face6 ((t (:background "purple")))) 14232 (bg:erc-color-face7 ((t (:background "orange")))) 14233 (bg:erc-color-face8 ((t (:background "yellow")))) 14234 (bg:erc-color-face9 ((t (:background "green")))) 14235 (bold ((t (:bold t :foreground "#00CC00" :background "black")))) 14236 (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold)))) 14237 (border ((t (:background "black")))) 14238 (button ((t (:underline t)))) 14239 (comint-highlight-input ((t (nil)))) 14240 (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14241 (cursor ((t (:background "green")))) 14242 (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14243 (custom-button-pressed-face ((t (nil)))) 14244 (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) 14245 (custom-comment-face ((t (nil)))) 14246 (custom-comment-tag-face ((t (nil)))) 14247 (custom-documentation-face ((t (nil)))) 14248 (custom-face-tag-face ((t (nil)))) 14249 (custom-group-tag-face ((t (nil)))) 14250 (custom-group-tag-face-1 ((t (nil)))) 14251 (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) 14252 (custom-modified-face ((t (nil)))) 14253 (custom-rogue-face ((t (nil)))) 14254 (custom-saved-face ((t (nil)))) 14255 (custom-set-face ((t (nil)))) 14256 (custom-state-face ((t (nil)))) 14257 (custom-variable-button-face ((t (nil)))) 14258 (custom-variable-tag-face ((t (nil)))) 14259 (erc-action-face ((t (:bold t :weight semi-bold)))) 14260 (erc-bold-face ((t (:bold t :weight bold)))) 14261 (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold)))) 14262 (erc-dangerous-host-face ((t (:foreground "red")))) 14263 (erc-default-face ((t (nil)))) 14264 (erc-direct-msg-face ((t (:foreground "IndianRed")))) 14265 (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) 14266 (erc-fool-face ((t (:foreground "dim gray")))) 14267 (erc-input-face ((t (:foreground "springgreen")))) 14268 (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold)))) 14269 (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) 14270 (erc-nick-default-face ((t (:bold t :weight semi-bold)))) 14271 (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold)))) 14272 (erc-notice-face ((t (:foreground "seagreen" :weight normal)))) 14273 (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) 14274 (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold)))) 14275 (erc-timestamp-face ((t (:foreground "seagreen" :weight normal)))) 14276 (erc-underline-face ((t (:underline t)))) 14277 (fg:erc-color-face0 ((t (:foreground "White")))) 14278 (fg:erc-color-face1 ((t (:foreground "black")))) 14279 (fg:erc-color-face10 ((t (:foreground "lightblue1")))) 14280 (fg:erc-color-face11 ((t (:foreground "cyan")))) 14281 (fg:erc-color-face12 ((t (:foreground "blue")))) 14282 (fg:erc-color-face13 ((t (:foreground "deeppink")))) 14283 (fg:erc-color-face14 ((t (:foreground "gray50")))) 14284 (fg:erc-color-face15 ((t (:foreground "gray90")))) 14285 (fg:erc-color-face2 ((t (:foreground "blue4")))) 14286 (fg:erc-color-face3 ((t (:foreground "green4")))) 14287 (fg:erc-color-face4 ((t (:foreground "red")))) 14288 (fg:erc-color-face5 ((t (:foreground "brown")))) 14289 (fg:erc-color-face6 ((t (:foreground "purple")))) 14290 (fg:erc-color-face7 ((t (:foreground "orange")))) 14291 (fg:erc-color-face8 ((t (:foreground "yellow")))) 14292 (fg:erc-color-face9 ((t (:foreground "green")))) 14293 (fixed-pitch ((t (nil)))) 14294 (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black")))) 14295 (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) 14296 (font-lock-builtin-face ((t (:foreground "seagreen1")))) 14297 (font-lock-comment-face ((t (:background "black" :foreground "medium spring green")))) 14298 (font-lock-constant-face ((t (nil)))) 14299 (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) 14300 (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14301 (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold)))) 14302 (font-lock-preprocessor-face ((t (:foreground "#00ccdd")))) 14303 (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) 14304 (font-lock-type-face ((t (nil)))) 14305 (font-lock-variable-name-face ((t (nil)))) 14306 (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold)))) 14307 (fringe ((t (:foreground "#00CC00" :background "#151515")))) 14308 (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic)))) 14309 (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen")))) 14310 (gnus-cite-face-10 ((t (nil)))) 14311 (gnus-cite-face-11 ((t (nil)))) 14312 (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen")))) 14313 (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen")))) 14314 (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen")))) 14315 (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen")))) 14316 (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen")))) 14317 (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen")))) 14318 (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen")))) 14319 (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen")))) 14320 (gnus-emphasis-bold ((t (:bold t :weight semi-bold)))) 14321 (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold)))) 14322 (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold)))) 14323 (gnus-emphasis-italic ((t (:italic t :slant italic)))) 14324 (gnus-emphasis-strikethru ((t (nil)))) 14325 (gnus-emphasis-underline ((t (:underline t)))) 14326 (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold)))) 14327 (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold)))) 14328 (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) 14329 (gnus-group-mail-1-empty-face ((t (nil)))) 14330 (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14331 (gnus-group-mail-2-empty-face ((t (nil)))) 14332 (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14333 (gnus-group-mail-3-empty-face ((t (nil)))) 14334 (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14335 (gnus-group-mail-low-empty-face ((t (nil)))) 14336 (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14337 (gnus-group-news-1-empty-face ((t (nil)))) 14338 (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14339 (gnus-group-news-2-empty-face ((t (nil)))) 14340 (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14341 (gnus-group-news-3-empty-face ((t (nil)))) 14342 (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14343 (gnus-group-news-4-empty-face ((t (nil)))) 14344 (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14345 (gnus-group-news-5-empty-face ((t (nil)))) 14346 (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14347 (gnus-group-news-6-empty-face ((t (nil)))) 14348 (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14349 (gnus-group-news-low-empty-face ((t (nil)))) 14350 (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14351 (gnus-header-content-face ((t (:background "black" :foreground "springgreen")))) 14352 (gnus-header-from-face ((t (nil)))) 14353 (gnus-header-name-face ((t (nil)))) 14354 (gnus-header-newsgroups-face ((t (nil)))) 14355 (gnus-header-subject-face ((t (nil)))) 14356 (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) 14357 (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) 14358 (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold)))) 14359 (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) 14360 (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold)))) 14361 (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal)))) 14362 (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14363 (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) 14364 (gnus-summary-high-ancient-face ((t (nil)))) 14365 (gnus-summary-high-read-face ((t (nil)))) 14366 (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen")))) 14367 (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold)))) 14368 (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14369 (gnus-summary-low-ancient-face ((t (nil)))) 14370 (gnus-summary-low-read-face ((t (nil)))) 14371 (gnus-summary-low-ticked-face ((t (nil)))) 14372 (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal)))) 14373 (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) 14374 (gnus-summary-normal-ancient-face ((t (nil)))) 14375 (gnus-summary-normal-read-face ((t (nil)))) 14376 (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14377 (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal)))) 14378 (gnus-summary-normal-unread-face ((t (nil)))) 14379 (gnus-summary-selected-face ((t (:background "#101010")))) 14380 (gnus-x-face ((t (:background "white" :foreground "black")))) 14381 (header-line ((t (nil)))) 14382 (highlight ((t (:foreground "#00CC00" :background "darkgreen")))) 14383 (ido-first-match-face ((t (:bold t :weight bold)))) 14384 (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed)))) 14385 (ido-only-match-face ((t (:foreground "ForestGreen")))) 14386 (ido-subdir-face ((t (:foreground "red")))) 14387 (isearch ((t (:background "seagreen" :foreground "black")))) 14388 (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black")))) 14389 (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) 14390 (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) 14391 (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) 14392 (message-header-cc-face ((t (nil)))) 14393 (message-header-name-face ((t (nil)))) 14394 (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14395 (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14396 (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14397 (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14398 (message-header-xheader-face ((t (nil)))) 14399 (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) 14400 (message-separator-face ((t (nil)))) 14401 (minibuffer-prompt ((t (:background "black" :foreground "seagreen")))) 14402 (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) 14403 (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010")))) 14404 (mouse ((t (:background "black")))) 14405 (paren-face ((t (:background "black" :foreground "darkgreen")))) 14406 (paren-face-match ((t (:background "black" :foreground "springgreen")))) 14407 (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t)))) 14408 (paren-face-no-match ((t (:background "black" :foreground "red")))) 14409 (region ((t (:background "seagreen" :foreground "black")))) 14410 (scroll-bar ((t (nil)))) 14411 (secondary-selection ((t (:background "darkseagreen" :foreground "black")))) 14412 (semantic-dirty-token-face ((t (:background "gray10")))) 14413 (semantic-unmatched-syntax-face ((t (:underline "red")))) 14414 (sgml-end-tag-face ((t (:foreground "seagreen")))) 14415 (sgml-start-tag-face ((t (:foreground "seagreen")))) 14416 (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button))))) 14417 (tabbar-default-face ((t (:background "black" :foreground "#00cc00")))) 14418 (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button))))) 14419 (tabbar-separator-face ((t (:foreground "#00cc00" :background "black")))) 14420 (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button))))) 14421 (tool-bar ((t (:box (:line-width 1 :style released-button))))) 14422 (tooltip ((t (nil)))) 14423 (trailing-whitespace ((t (:background "lightseagreen" :foreground "black")))) 14424 (underline ((t (:foreground "#00CC00" :background "black" :underline t)))) 14425 (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black")))) 14426 (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) 14427 (widget-button-pressed-face ((t (nil)))) 14428 (widget-documentation-face ((t (nil)))) 14429 (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) 14430 (widget-inactive-face ((t (nil)))) 14431 (widget-single-line-field-face ((t (nil))))))) 14432 14433 (defun color-theme-matrix () 14434 "Color theme by walterh@rocketmail.com, created 2003-10-16." 14435 (interactive) 14436 (color-theme-install 14437 '(color-theme-matrix 14438 ((background-color . "black") 14439 (background-mode . dark) 14440 (background-toolbar-color . "bisque") 14441 (border-color . "orange") 14442 (bottom-toolbar-shadow-color . "#909099999999") 14443 (cursor-color . "#7eff00") 14444 (foreground-color . "#7eff00") 14445 (mouse-color . "#7eff00") 14446 (top-toolbar-shadow-color . "#ffffffffffff")) 14447 ((help-highlight-face . underline) 14448 (list-matching-lines-face . bold) 14449 (rmail-highlight-face . font-lock-function-name-face) 14450 (view-highlight-face . highlight) 14451 (widget-mouse-face . highlight)) 14452 (default ((t (:stipple nil :background "black" :foreground 14453 "#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil 14454 :underline nil :slant normal :weight normal :height 90 :width normal 14455 :family "outline-courier new")))) 14456 (Buffer-menu-buffer-face ((t (nil)))) 14457 (CUA-global-mark-face ((t (nil)))) 14458 (CUA-rectangle-face ((t (nil)))) 14459 (CUA-rectangle-noselect-face ((t (nil)))) 14460 (Info-title-1-face ((t (nil)))) 14461 (Info-title-2-face ((t (nil)))) 14462 (Info-title-3-face ((t (nil)))) 14463 (Info-title-4-face ((t (nil)))) 14464 (antlr-font-lock-keyword-face ((t (nil)))) 14465 (antlr-font-lock-literal-face ((t (nil)))) 14466 (antlr-font-lock-ruledef-face ((t (nil)))) 14467 (antlr-font-lock-ruleref-face ((t (nil)))) 14468 (antlr-font-lock-tokendef-face ((t (nil)))) 14469 (antlr-font-lock-tokenref-face ((t (nil)))) 14470 (bbdb-company ((t (nil)))) 14471 (bbdb-field-name ((t (nil)))) 14472 (bbdb-field-value ((t (nil)))) 14473 (bbdb-name ((t (nil)))) 14474 (bg:erc-color-face0 ((t (nil)))) 14475 (bg:erc-color-face1 ((t (nil)))) 14476 (bg:erc-color-face10 ((t (nil)))) 14477 (bg:erc-color-face11 ((t (nil)))) 14478 (bg:erc-color-face12 ((t (nil)))) 14479 (bg:erc-color-face13 ((t (nil)))) 14480 (bg:erc-color-face14 ((t (nil)))) 14481 (bg:erc-color-face15 ((t (nil)))) 14482 (bg:erc-color-face2 ((t (nil)))) 14483 (bg:erc-color-face3 ((t (nil)))) 14484 (bg:erc-color-face4 ((t (nil)))) 14485 (bg:erc-color-face5 ((t (nil)))) 14486 (bg:erc-color-face6 ((t (nil)))) 14487 (bg:erc-color-face7 ((t (nil)))) 14488 (bg:erc-color-face8 ((t (nil)))) 14489 (bg:erc-color-face9 ((t (nil)))) 14490 (blank-space-face ((t (nil)))) 14491 (blank-tab-face ((t (nil)))) 14492 (blue ((t (nil)))) 14493 (bold ((t (:bold t :weight bold)))) 14494 (bold-italic ((t (:bold t :weight bold)))) 14495 (border ((t (:background "orange")))) 14496 (border-glyph ((t (nil)))) 14497 (buffers-tab ((t (nil)))) 14498 (button ((t (nil)))) 14499 (calendar-today-face ((t (nil)))) 14500 (change-log-acknowledgement-face ((t (nil)))) 14501 (change-log-conditionals-face ((t (nil)))) 14502 (change-log-date-face ((t (nil)))) 14503 (change-log-email-face ((t (nil)))) 14504 (change-log-file-face ((t (nil)))) 14505 (change-log-function-face ((t (nil)))) 14506 (change-log-list-face ((t (nil)))) 14507 (change-log-name-face ((t (nil)))) 14508 (clearcase-dired-checkedout-face ((t (nil)))) 14509 (comint-highlight-input ((t (nil)))) 14510 (comint-highlight-prompt ((t (nil)))) 14511 (cparen-around-andor-face ((t (nil)))) 14512 (cparen-around-begin-face ((t (nil)))) 14513 (cparen-around-conditional-face ((t (nil)))) 14514 (cparen-around-define-face ((t (nil)))) 14515 (cparen-around-lambda-face ((t (nil)))) 14516 (cparen-around-letdo-face ((t (nil)))) 14517 (cparen-around-quote-face ((t (nil)))) 14518 (cparen-around-set!-face ((t (nil)))) 14519 (cparen-around-syntax-rules-face ((t (nil)))) 14520 (cparen-around-vector-face ((t (nil)))) 14521 (cparen-binding-face ((t (nil)))) 14522 (cparen-binding-list-face ((t (nil)))) 14523 (cparen-conditional-clause-face ((t (nil)))) 14524 (cparen-normal-paren-face ((t (nil)))) 14525 (cperl-array-face ((t (nil)))) 14526 (cperl-hash-face ((t (nil)))) 14527 (cperl-invalid-face ((t (nil)))) 14528 (cperl-nonoverridable-face ((t (nil)))) 14529 (cursor ((t (:background "#7eff00" :foreground "black")))) 14530 (custom-button-face ((t (nil)))) 14531 (custom-button-pressed-face ((t (nil)))) 14532 (custom-changed-face ((t (nil)))) 14533 (custom-comment-face ((t (nil)))) 14534 (custom-comment-tag-face ((t (nil)))) 14535 (custom-documentation-face ((t (nil)))) 14536 (custom-face-tag-face ((t (nil)))) 14537 (custom-group-tag-face ((t (nil)))) 14538 (custom-group-tag-face-1 ((t (nil)))) 14539 (custom-invalid-face ((t (nil)))) 14540 (custom-modified-face ((t (nil)))) 14541 (custom-rogue-face ((t (nil)))) 14542 (custom-saved-face ((t (nil)))) 14543 (custom-set-face ((t (nil)))) 14544 (custom-state-face ((t (nil)))) 14545 (custom-variable-button-face ((t (nil)))) 14546 (custom-variable-tag-face ((t (nil)))) 14547 (cvs-filename-face ((t (nil)))) 14548 (cvs-handled-face ((t (nil)))) 14549 (cvs-header-face ((t (nil)))) 14550 (cvs-marked-face ((t (nil)))) 14551 (cvs-msg-face ((t (nil)))) 14552 (cvs-need-action-face ((t (nil)))) 14553 (cvs-unknown-face ((t (nil)))) 14554 (cyan ((t (nil)))) 14555 (diary-face ((t (nil)))) 14556 (diff-added-face ((t (nil)))) 14557 (diff-changed-face ((t (nil)))) 14558 (diff-context-face ((t (nil)))) 14559 (diff-file-header-face ((t (nil)))) 14560 (diff-function-face ((t (nil)))) 14561 (diff-header-face ((t (nil)))) 14562 (diff-hunk-header-face ((t (nil)))) 14563 (diff-index-face ((t (nil)))) 14564 (diff-nonexistent-face ((t (nil)))) 14565 (diff-removed-face ((t (nil)))) 14566 (dired-face-boring ((t (nil)))) 14567 (dired-face-directory ((t (nil)))) 14568 (dired-face-executable ((t (nil)))) 14569 (dired-face-flagged ((t (nil)))) 14570 (dired-face-header ((t (nil)))) 14571 (dired-face-marked ((t (nil)))) 14572 (dired-face-permissions ((t (nil)))) 14573 (dired-face-setuid ((t (nil)))) 14574 (dired-face-socket ((t (nil)))) 14575 (dired-face-symlink ((t (nil)))) 14576 (display-time-mail-balloon-enhance-face ((t (nil)))) 14577 (display-time-mail-balloon-gnus-group-face ((t (nil)))) 14578 (display-time-time-balloon-face ((t (nil)))) 14579 (ebrowse-default-face ((t (nil)))) 14580 (ebrowse-file-name-face ((t (nil)))) 14581 (ebrowse-member-attribute-face ((t (nil)))) 14582 (ebrowse-member-class-face ((t (nil)))) 14583 (ebrowse-progress-face ((t (nil)))) 14584 (ebrowse-root-class-face ((t (nil)))) 14585 (ebrowse-tree-mark-face ((t (nil)))) 14586 (ecb-sources-face ((t (nil)))) 14587 (edb-inter-field-face ((t (nil)))) 14588 (edb-normal-summary-face ((t (nil)))) 14589 (ediff-current-diff-face-A ((t (nil)))) 14590 (ediff-current-diff-face-Ancestor ((t (nil)))) 14591 (ediff-current-diff-face-B ((t (nil)))) 14592 (ediff-current-diff-face-C ((t (nil)))) 14593 (ediff-even-diff-face-A ((t (nil)))) 14594 (ediff-even-diff-face-Ancestor ((t (nil)))) 14595 (ediff-even-diff-face-B ((t (nil)))) 14596 (ediff-even-diff-face-C ((t (nil)))) 14597 (ediff-fine-diff-face-A ((t (nil)))) 14598 (ediff-fine-diff-face-Ancestor ((t (nil)))) 14599 (ediff-fine-diff-face-B ((t (nil)))) 14600 (ediff-fine-diff-face-C ((t (nil)))) 14601 (ediff-odd-diff-face-A ((t (nil)))) 14602 (ediff-odd-diff-face-Ancestor ((t (nil)))) 14603 (ediff-odd-diff-face-B ((t (nil)))) 14604 (ediff-odd-diff-face-C ((t (nil)))) 14605 (eieio-custom-slot-tag-face ((t (nil)))) 14606 (emacs-wiki-bad-link-face ((t (nil)))) 14607 (emacs-wiki-link-face ((t (nil)))) 14608 (erc-action-face ((t (nil)))) 14609 (erc-bold-face ((t (nil)))) 14610 (erc-current-nick-face ((t (nil)))) 14611 (erc-dangerous-host-face ((t (nil)))) 14612 (erc-default-face ((t (nil)))) 14613 (erc-direct-msg-face ((t (nil)))) 14614 (erc-error-face ((t (nil)))) 14615 (erc-fool-face ((t (nil)))) 14616 (erc-highlight-face ((t (nil)))) 14617 (erc-input-face ((t (nil)))) 14618 (erc-inverse-face ((t (nil)))) 14619 (erc-keyword-face ((t (nil)))) 14620 (erc-nick-default-face ((t (nil)))) 14621 (erc-nick-msg-face ((t (nil)))) 14622 (erc-notice-face ((t (nil)))) 14623 (erc-pal-face ((t (nil)))) 14624 (erc-prompt-face ((t (nil)))) 14625 (erc-timestamp-face ((t (nil)))) 14626 (erc-underline-face ((t (nil)))) 14627 (eshell-ls-archive-face ((t (nil)))) 14628 (eshell-ls-backup-face ((t (nil)))) 14629 (eshell-ls-clutter-face ((t (nil)))) 14630 (eshell-ls-directory-face ((t (nil)))) 14631 (eshell-ls-executable-face ((t (nil)))) 14632 (eshell-ls-missing-face ((t (nil)))) 14633 (eshell-ls-picture-face ((t (nil)))) 14634 (eshell-ls-product-face ((t (nil)))) 14635 (eshell-ls-readonly-face ((t (nil)))) 14636 (eshell-ls-special-face ((t (nil)))) 14637 (eshell-ls-symlink-face ((t (nil)))) 14638 (eshell-ls-text-face ((t (nil)))) 14639 (eshell-ls-todo-face ((t (nil)))) 14640 (eshell-ls-unreadable-face ((t (nil)))) 14641 (eshell-prompt-face ((t (nil)))) 14642 (eshell-test-failed-face ((t (nil)))) 14643 (eshell-test-ok-face ((t (nil)))) 14644 (excerpt ((t (nil)))) 14645 (extra-whitespace-face ((t (nil)))) 14646 (ff-paths-non-existant-file-face ((t (nil)))) 14647 (fg:black ((t (nil)))) 14648 (fg:erc-color-face0 ((t (nil)))) 14649 (fg:erc-color-face1 ((t (nil)))) 14650 (fg:erc-color-face10 ((t (nil)))) 14651 (fg:erc-color-face11 ((t (nil)))) 14652 (fg:erc-color-face12 ((t (nil)))) 14653 (fg:erc-color-face13 ((t (nil)))) 14654 (fg:erc-color-face14 ((t (nil)))) 14655 (fg:erc-color-face15 ((t (nil)))) 14656 (fg:erc-color-face2 ((t (nil)))) 14657 (fg:erc-color-face3 ((t (nil)))) 14658 (fg:erc-color-face4 ((t (nil)))) 14659 (fg:erc-color-face5 ((t (nil)))) 14660 (fg:erc-color-face6 ((t (nil)))) 14661 (fg:erc-color-face7 ((t (nil)))) 14662 (fg:erc-color-face8 ((t (nil)))) 14663 (fg:erc-color-face9 ((t (nil)))) 14664 (fixed ((t (nil)))) 14665 (fixed-pitch ((t (nil)))) 14666 (fl-comment-face ((t (nil)))) 14667 (fl-function-name-face ((t (nil)))) 14668 (fl-keyword-face ((t (nil)))) 14669 (fl-string-face ((t (nil)))) 14670 (fl-type-face ((t (nil)))) 14671 (flash-paren-face-off ((t (nil)))) 14672 (flash-paren-face-on ((t (nil)))) 14673 (flash-paren-face-region ((t (nil)))) 14674 (flyspell-duplicate-face ((t (nil)))) 14675 (flyspell-incorrect-face ((t (nil)))) 14676 (font-latex-bold-face ((t (nil)))) 14677 (font-latex-italic-face ((t (nil)))) 14678 (font-latex-math-face ((t (nil)))) 14679 (font-latex-sedate-face ((t (nil)))) 14680 (font-latex-string-face ((t (nil)))) 14681 (font-latex-warning-face ((t (nil)))) 14682 (font-lock-builtin-face ((t (:foreground "pink2")))) 14683 (font-lock-comment-face ((t (:italic t :background "black" :slant 14684 italic)))) 14685 (font-lock-constant-face ((t (:foreground "magenta")))) 14686 (font-lock-doc-face ((t (nil)))) 14687 (font-lock-doc-string-face ((t (nil)))) 14688 (font-lock-exit-face ((t (nil)))) 14689 (font-lock-function-name-face ((t (:bold t :underline t :weight 14690 bold)))) 14691 (font-lock-keyword-face ((t (:foreground "yellow1")))) 14692 (font-lock-other-emphasized-face ((t (nil)))) 14693 (font-lock-other-type-face ((t (nil)))) 14694 (font-lock-preprocessor-face ((t (nil)))) 14695 (font-lock-reference-face ((t (nil)))) 14696 (font-lock-special-comment-face ((t (nil)))) 14697 (font-lock-special-keyword-face ((t (nil)))) 14698 (font-lock-string-face ((t (:foreground "yellow2")))) 14699 (font-lock-type-face ((t (:foreground "LightYellow1")))) 14700 (font-lock-variable-name-face ((t (:foreground "light green")))) 14701 (font-lock-warning-face ((t (nil)))) 14702 (fringe ((t (nil)))) 14703 (gnus-cite-attribution-face ((t (nil)))) 14704 (gnus-cite-face-1 ((t (nil)))) 14705 (gnus-cite-face-10 ((t (nil)))) 14706 (gnus-cite-face-11 ((t (nil)))) 14707 (gnus-cite-face-2 ((t (nil)))) 14708 (gnus-cite-face-3 ((t (nil)))) 14709 (gnus-cite-face-4 ((t (nil)))) 14710 (gnus-cite-face-5 ((t (nil)))) 14711 (gnus-cite-face-6 ((t (nil)))) 14712 (gnus-cite-face-7 ((t (nil)))) 14713 (gnus-cite-face-8 ((t (nil)))) 14714 (gnus-cite-face-9 ((t (nil)))) 14715 (gnus-emphasis-bold ((t (nil)))) 14716 (gnus-emphasis-bold-italic ((t (nil)))) 14717 (gnus-emphasis-highlight-words ((t (nil)))) 14718 (gnus-emphasis-italic ((t (nil)))) 14719 (gnus-emphasis-strikethru ((t (nil)))) 14720 (gnus-emphasis-underline ((t (nil)))) 14721 (gnus-emphasis-underline-bold ((t (nil)))) 14722 (gnus-emphasis-underline-bold-italic ((t (nil)))) 14723 (gnus-emphasis-underline-italic ((t (nil)))) 14724 (gnus-filterhist-face-1 ((t (nil)))) 14725 (gnus-group-mail-1-empty-face ((t (nil)))) 14726 (gnus-group-mail-1-face ((t (nil)))) 14727 (gnus-group-mail-2-empty-face ((t (nil)))) 14728 (gnus-group-mail-2-face ((t (nil)))) 14729 (gnus-group-mail-3-empty-face ((t (nil)))) 14730 (gnus-group-mail-3-face ((t (nil)))) 14731 (gnus-group-mail-low-empty-face ((t (nil)))) 14732 (gnus-group-mail-low-face ((t (nil)))) 14733 (gnus-group-news-1-empty-face ((t (nil)))) 14734 (gnus-group-news-1-face ((t (nil)))) 14735 (gnus-group-news-2-empty-face ((t (nil)))) 14736 (gnus-group-news-2-face ((t (nil)))) 14737 (gnus-group-news-3-empty-face ((t (nil)))) 14738 (gnus-group-news-3-face ((t (nil)))) 14739 (gnus-group-news-4-empty-face ((t (nil)))) 14740 (gnus-group-news-4-face ((t (nil)))) 14741 (gnus-group-news-5-empty-face ((t (nil)))) 14742 (gnus-group-news-5-face ((t (nil)))) 14743 (gnus-group-news-6-empty-face ((t (nil)))) 14744 (gnus-group-news-6-face ((t (nil)))) 14745 (gnus-group-news-low-empty-face ((t (nil)))) 14746 (gnus-group-news-low-face ((t (nil)))) 14747 (gnus-header-content-face ((t (nil)))) 14748 (gnus-header-from-face ((t (nil)))) 14749 (gnus-header-name-face ((t (nil)))) 14750 (gnus-header-newsgroups-face ((t (nil)))) 14751 (gnus-header-subject-face ((t (nil)))) 14752 (gnus-picon-face ((t (nil)))) 14753 (gnus-picon-xbm-face ((t (nil)))) 14754 (gnus-picons-face ((t (nil)))) 14755 (gnus-picons-xbm-face ((t (nil)))) 14756 (gnus-server-agent-face ((t (nil)))) 14757 (gnus-server-closed-face ((t (nil)))) 14758 (gnus-server-denied-face ((t (nil)))) 14759 (gnus-server-offline-face ((t (nil)))) 14760 (gnus-server-opened-face ((t (nil)))) 14761 (gnus-signature-face ((t (nil)))) 14762 (gnus-splash ((t (nil)))) 14763 (gnus-splash-face ((t (nil)))) 14764 (gnus-summary-cancelled-face ((t (nil)))) 14765 (gnus-summary-high-ancient-face ((t (nil)))) 14766 (gnus-summary-high-read-face ((t (nil)))) 14767 (gnus-summary-high-ticked-face ((t (nil)))) 14768 (gnus-summary-high-undownloaded-face ((t (nil)))) 14769 (gnus-summary-high-unread-face ((t (nil)))) 14770 (gnus-summary-low-ancient-face ((t (nil)))) 14771 (gnus-summary-low-read-face ((t (nil)))) 14772 (gnus-summary-low-ticked-face ((t (nil)))) 14773 (gnus-summary-low-undownloaded-face ((t (nil)))) 14774 (gnus-summary-low-unread-face ((t (nil)))) 14775 (gnus-summary-normal-ancient-face ((t (nil)))) 14776 (gnus-summary-normal-read-face ((t (nil)))) 14777 (gnus-summary-normal-ticked-face ((t (nil)))) 14778 (gnus-summary-normal-undownloaded-face ((t (nil)))) 14779 (gnus-summary-normal-unread-face ((t (nil)))) 14780 (gnus-summary-selected-face ((t (nil)))) 14781 (gnus-x-face ((t (nil)))) 14782 (green ((t (nil)))) 14783 (gui-button-face ((t (nil)))) 14784 (gui-element ((t (nil)))) 14785 (header-line ((t (nil)))) 14786 (hi-black-b ((t (nil)))) 14787 (hi-black-hb ((t (nil)))) 14788 (hi-blue ((t (nil)))) 14789 (hi-blue-b ((t (nil)))) 14790 (hi-green ((t (nil)))) 14791 (hi-green-b ((t (nil)))) 14792 (hi-pink ((t (nil)))) 14793 (hi-red-b ((t (nil)))) 14794 (hi-yellow ((t (nil)))) 14795 (highlight ((t (:background "#7eff00" :foreground "black")))) 14796 (highlight-changes-delete-face ((t (nil)))) 14797 (highlight-changes-face ((t (nil)))) 14798 (highline-face ((t (nil)))) 14799 (holiday-face ((t (nil)))) 14800 (html-helper-bold-face ((t (nil)))) 14801 (html-helper-bold-italic-face ((t (nil)))) 14802 (html-helper-builtin-face ((t (nil)))) 14803 (html-helper-italic-face ((t (nil)))) 14804 (html-helper-underline-face ((t (nil)))) 14805 (html-tag-face ((t (nil)))) 14806 (hyper-apropos-documentation ((t (nil)))) 14807 (hyper-apropos-heading ((t (nil)))) 14808 (hyper-apropos-hyperlink ((t (nil)))) 14809 (hyper-apropos-major-heading ((t (nil)))) 14810 (hyper-apropos-section-heading ((t (nil)))) 14811 (hyper-apropos-warning ((t (nil)))) 14812 (ibuffer-deletion-face ((t (nil)))) 14813 (ibuffer-marked-face ((t (nil)))) 14814 (idlwave-help-link-face ((t (nil)))) 14815 (idlwave-shell-bp-face ((t (nil)))) 14816 (ido-first-match-face ((t (nil)))) 14817 (ido-indicator-face ((t (nil)))) 14818 (ido-only-match-face ((t (nil)))) 14819 (ido-subdir-face ((t (nil)))) 14820 (info-header-node ((t (nil)))) 14821 (info-header-xref ((t (nil)))) 14822 (info-menu-5 ((t (nil)))) 14823 (info-menu-6 ((t (nil)))) 14824 (info-menu-header ((t (nil)))) 14825 (info-node ((t (nil)))) 14826 (info-xref ((t (nil)))) 14827 (isearch ((t (nil)))) 14828 (isearch-lazy-highlight-face ((t (nil)))) 14829 (isearch-secondary ((t (nil)))) 14830 (italic ((t (:underline t)))) 14831 (jde-bug-breakpoint-cursor ((t (nil)))) 14832 (jde-bug-breakpoint-marker ((t (nil)))) 14833 (jde-db-active-breakpoint-face ((t (nil)))) 14834 (jde-db-requested-breakpoint-face ((t (nil)))) 14835 (jde-db-spec-breakpoint-face ((t (nil)))) 14836 (jde-java-font-lock-api-face ((t (nil)))) 14837 (jde-java-font-lock-bold-face ((t (nil)))) 14838 (jde-java-font-lock-code-face ((t (nil)))) 14839 (jde-java-font-lock-constant-face ((t (nil)))) 14840 (jde-java-font-lock-doc-tag-face ((t (nil)))) 14841 (jde-java-font-lock-italic-face ((t (nil)))) 14842 (jde-java-font-lock-link-face ((t (nil)))) 14843 (jde-java-font-lock-modifier-face ((t (nil)))) 14844 (jde-java-font-lock-number-face ((t (nil)))) 14845 (jde-java-font-lock-operator-face ((t (nil)))) 14846 (jde-java-font-lock-package-face ((t (nil)))) 14847 (jde-java-font-lock-pre-face ((t (nil)))) 14848 (jde-java-font-lock-underline-face ((t (nil)))) 14849 (lazy-highlight-face ((t (nil)))) 14850 (left-margin ((t (nil)))) 14851 (linemenu-face ((t (nil)))) 14852 (list-mode-item-selected ((t (nil)))) 14853 (log-view-file-face ((t (nil)))) 14854 (log-view-message-face ((t (nil)))) 14855 (magenta ((t (nil)))) 14856 (makefile-space-face ((t (nil)))) 14857 (man-bold ((t (nil)))) 14858 (man-heading ((t (nil)))) 14859 (man-italic ((t (nil)))) 14860 (man-xref ((t (nil)))) 14861 (menu ((t (nil)))) 14862 (message-cited-text ((t (nil)))) 14863 (message-cited-text-face ((t (nil)))) 14864 (message-header-cc-face ((t (nil)))) 14865 (message-header-contents ((t (nil)))) 14866 (message-header-name-face ((t (nil)))) 14867 (message-header-newsgroups-face ((t (nil)))) 14868 (message-header-other-face ((t (nil)))) 14869 (message-header-subject-face ((t (nil)))) 14870 (message-header-to-face ((t (nil)))) 14871 (message-header-xheader-face ((t (nil)))) 14872 (message-headers ((t (nil)))) 14873 (message-highlighted-header-contents ((t (nil)))) 14874 (message-mml-face ((t (nil)))) 14875 (message-separator-face ((t (nil)))) 14876 (message-url ((t (nil)))) 14877 (minibuffer-prompt ((t (nil)))) 14878 (mmm-face ((t (nil)))) 14879 (mode-line ((t (:bold t :background "gray" :foreground "black" 14880 :weight bold)))) 14881 (mode-line-inactive ((t (nil)))) 14882 (modeline-buffer-id ((t (:background "orange" :foreground 14883 "black")))) 14884 (modeline-mousable ((t (:background "orange" :foreground 14885 "black")))) 14886 (modeline-mousable-minor-mode ((t (:background "orange" 14887 :foreground "black")))) 14888 (mouse ((t (nil)))) 14889 (mpg123-face-cur ((t (nil)))) 14890 (mpg123-face-slider ((t (nil)))) 14891 (my-tab-face ((t (nil)))) 14892 (nil ((t (nil)))) 14893 (overlay-empty-face ((t (nil)))) 14894 (p4-diff-del-face ((t (nil)))) 14895 (paren-blink-off ((t (nil)))) 14896 (paren-face ((t (nil)))) 14897 (paren-face-match ((t (nil)))) 14898 (paren-face-mismatch ((t (nil)))) 14899 (paren-face-no-match ((t (nil)))) 14900 (paren-match ((t (nil)))) 14901 (paren-mismatch ((t (nil)))) 14902 (paren-mismatch-face ((t (nil)))) 14903 (paren-no-match-face ((t (nil)))) 14904 (pointer ((t (nil)))) 14905 (primary-selection ((t (nil)))) 14906 (reb-match-0 ((t (nil)))) 14907 (reb-match-1 ((t (nil)))) 14908 (reb-match-2 ((t (nil)))) 14909 (reb-match-3 ((t (nil)))) 14910 (red ((t (nil)))) 14911 (region ((t (:background "#7eff00" :foreground "black")))) 14912 (right-margin ((t (nil)))) 14913 (rpm-spec-dir-face ((t (nil)))) 14914 (rpm-spec-doc-face ((t (nil)))) 14915 (rpm-spec-ghost-face ((t (nil)))) 14916 (rpm-spec-macro-face ((t (nil)))) 14917 (rpm-spec-package-face ((t (nil)))) 14918 (rpm-spec-tag-face ((t (nil)))) 14919 (rpm-spec-var-face ((t (nil)))) 14920 (scroll-bar ((t (nil)))) 14921 (secondary-selection ((t (:background "orange" :foreground 14922 "black")))) 14923 (semantic-dirty-token-face ((t (nil)))) 14924 (semantic-intangible-face ((t (nil)))) 14925 (semantic-read-only-face ((t (nil)))) 14926 (semantic-unmatched-syntax-face ((t (nil)))) 14927 (senator-intangible-face ((t (nil)))) 14928 (senator-momentary-highlight-face ((t (nil)))) 14929 (senator-read-only-face ((t (nil)))) 14930 (sgml-comment-face ((t (nil)))) 14931 (sgml-doctype-face ((t (nil)))) 14932 (sgml-end-tag-face ((t (nil)))) 14933 (sgml-entity-face ((t (nil)))) 14934 (sgml-ignored-face ((t (nil)))) 14935 (sgml-ms-end-face ((t (nil)))) 14936 (sgml-ms-start-face ((t (nil)))) 14937 (sgml-pi-face ((t (nil)))) 14938 (sgml-sgml-face ((t (nil)))) 14939 (sgml-short-ref-face ((t (nil)))) 14940 (sgml-shortref-face ((t (nil)))) 14941 (sgml-start-tag-face ((t (nil)))) 14942 (sh-heredoc-face ((t (nil)))) 14943 (shell-option-face ((t (nil)))) 14944 (shell-output-2-face ((t (nil)))) 14945 (shell-output-3-face ((t (nil)))) 14946 (shell-output-face ((t (nil)))) 14947 (shell-prompt-face ((t (nil)))) 14948 (show-block-face1 ((t (nil)))) 14949 (show-block-face2 ((t (nil)))) 14950 (show-block-face3 ((t (nil)))) 14951 (show-block-face4 ((t (nil)))) 14952 (show-block-face5 ((t (nil)))) 14953 (show-block-face6 ((t (nil)))) 14954 (show-block-face7 ((t (nil)))) 14955 (show-block-face8 ((t (nil)))) 14956 (show-block-face9 ((t (nil)))) 14957 (show-paren-match-face ((t (:background "orange" :foreground 14958 "black")))) 14959 (show-paren-mismatch-face ((t (:underline t)))) 14960 (show-tabs-space-face ((t (nil)))) 14961 (show-tabs-tab-face ((t (nil)))) 14962 (smerge-base-face ((t (nil)))) 14963 (smerge-markers-face ((t (nil)))) 14964 (smerge-mine-face ((t (nil)))) 14965 (smerge-other-face ((t (nil)))) 14966 (speedbar-button-face ((t (nil)))) 14967 (speedbar-directory-face ((t (nil)))) 14968 (speedbar-file-face ((t (nil)))) 14969 (speedbar-highlight-face ((t (nil)))) 14970 (speedbar-selected-face ((t (nil)))) 14971 (speedbar-separator-face ((t (nil)))) 14972 (speedbar-tag-face ((t (nil)))) 14973 (strokes-char-face ((t (nil)))) 14974 (swbuff-current-buffer-face ((t (nil)))) 14975 (tabbar-button-face ((t (nil)))) 14976 (tabbar-default-face ((t (nil)))) 14977 (tabbar-selected-face ((t (nil)))) 14978 (tabbar-separator-face ((t (nil)))) 14979 (tabbar-unselected-face ((t (nil)))) 14980 (template-message-face ((t (nil)))) 14981 (term-black ((t (nil)))) 14982 (term-blackbg ((t (nil)))) 14983 (term-blue ((t (nil)))) 14984 (term-blue-bold-face ((t (nil)))) 14985 (term-blue-face ((t (nil)))) 14986 (term-blue-inv-face ((t (nil)))) 14987 (term-blue-ul-face ((t (nil)))) 14988 (term-bluebg ((t (nil)))) 14989 (term-bold ((t (nil)))) 14990 (term-cyan ((t (nil)))) 14991 (term-cyan-bold-face ((t (nil)))) 14992 (term-cyan-face ((t (nil)))) 14993 (term-cyan-inv-face ((t (nil)))) 14994 (term-cyan-ul-face ((t (nil)))) 14995 (term-cyanbg ((t (nil)))) 14996 (term-default ((t (nil)))) 14997 (term-default-bg ((t (nil)))) 14998 (term-default-bg-inv ((t (nil)))) 14999 (term-default-bold-face ((t (nil)))) 15000 (term-default-face ((t (nil)))) 15001 (term-default-fg ((t (nil)))) 15002 (term-default-fg-inv ((t (nil)))) 15003 (term-default-inv-face ((t (nil)))) 15004 (term-default-ul-face ((t (nil)))) 15005 (term-green ((t (nil)))) 15006 (term-green-bold-face ((t (nil)))) 15007 (term-green-face ((t (nil)))) 15008 (term-green-inv-face ((t (nil)))) 15009 (term-green-ul-face ((t (nil)))) 15010 (term-greenbg ((t (nil)))) 15011 (term-invisible ((t (nil)))) 15012 (term-invisible-inv ((t (nil)))) 15013 (term-magenta ((t (nil)))) 15014 (term-magenta-bold-face ((t (nil)))) 15015 (term-magenta-face ((t (nil)))) 15016 (term-magenta-inv-face ((t (nil)))) 15017 (term-magenta-ul-face ((t (nil)))) 15018 (term-magentabg ((t (nil)))) 15019 (term-red ((t (nil)))) 15020 (term-red-bold-face ((t (nil)))) 15021 (term-red-face ((t (nil)))) 15022 (term-red-inv-face ((t (nil)))) 15023 (term-red-ul-face ((t (nil)))) 15024 (term-redbg ((t (nil)))) 15025 (term-underline ((t (nil)))) 15026 (term-white ((t (nil)))) 15027 (term-white-bold-face ((t (nil)))) 15028 (term-white-face ((t (nil)))) 15029 (term-white-inv-face ((t (nil)))) 15030 (term-white-ul-face ((t (nil)))) 15031 (term-whitebg ((t (nil)))) 15032 (term-yellow ((t (nil)))) 15033 (term-yellow-bold-face ((t (nil)))) 15034 (term-yellow-face ((t (nil)))) 15035 (term-yellow-inv-face ((t (nil)))) 15036 (term-yellow-ul-face ((t (nil)))) 15037 (term-yellowbg ((t (nil)))) 15038 (tex-math-face ((t (nil)))) 15039 (texinfo-heading-face ((t (nil)))) 15040 (text-cursor ((t (nil)))) 15041 (tool-bar ((t (nil)))) 15042 (tooltip ((t (nil)))) 15043 (trailing-whitespace ((t (nil)))) 15044 (underline ((t (:underline t)))) 15045 (variable-pitch ((t (nil)))) 15046 (vc-annotate-face-0046FF ((t (nil)))) 15047 (vcursor ((t (nil)))) 15048 (vertical-divider ((t (nil)))) 15049 (vhdl-font-lock-attribute-face ((t (nil)))) 15050 (vhdl-font-lock-directive-face ((t (nil)))) 15051 (vhdl-font-lock-enumvalue-face ((t (nil)))) 15052 (vhdl-font-lock-function-face ((t (nil)))) 15053 (vhdl-font-lock-generic-/constant-face ((t (nil)))) 15054 (vhdl-font-lock-prompt-face ((t (nil)))) 15055 (vhdl-font-lock-reserved-words-face ((t (nil)))) 15056 (vhdl-font-lock-translate-off-face ((t (nil)))) 15057 (vhdl-font-lock-type-face ((t (nil)))) 15058 (vhdl-font-lock-variable-face ((t (nil)))) 15059 (vhdl-speedbar-architecture-face ((t (nil)))) 15060 (vhdl-speedbar-architecture-selected-face ((t (nil)))) 15061 (vhdl-speedbar-configuration-face ((t (nil)))) 15062 (vhdl-speedbar-configuration-selected-face ((t (nil)))) 15063 (vhdl-speedbar-entity-face ((t (nil)))) 15064 (vhdl-speedbar-entity-selected-face ((t (nil)))) 15065 (vhdl-speedbar-instantiation-face ((t (nil)))) 15066 (vhdl-speedbar-instantiation-selected-face ((t (nil)))) 15067 (vhdl-speedbar-package-face ((t (nil)))) 15068 (vhdl-speedbar-package-selected-face ((t (nil)))) 15069 (vhdl-speedbar-subprogram-face ((t (nil)))) 15070 (viper-minibuffer-emacs-face ((t (nil)))) 15071 (viper-minibuffer-insert-face ((t (nil)))) 15072 (viper-minibuffer-vi-face ((t (nil)))) 15073 (viper-replace-overlay-face ((t (nil)))) 15074 (viper-search-face ((t (nil)))) 15075 (vm-xface ((t (nil)))) 15076 (vmpc-pre-sig-face ((t (nil)))) 15077 (vmpc-sig-face ((t (nil)))) 15078 (w3m-anchor-face ((t (nil)))) 15079 (w3m-arrived-anchor-face ((t (nil)))) 15080 (w3m-header-line-location-content-face ((t (nil)))) 15081 (w3m-header-line-location-title-face ((t (nil)))) 15082 (white ((t (nil)))) 15083 (widget ((t (nil)))) 15084 (widget-button-face ((t (nil)))) 15085 (widget-button-pressed-face ((t (nil)))) 15086 (widget-documentation-face ((t (nil)))) 15087 (widget-field-face ((t (nil)))) 15088 (widget-inactive-face ((t (nil)))) 15089 (widget-single-line-field-face ((t (nil)))) 15090 (woman-addition-face ((t (nil)))) 15091 (woman-bold-face ((t (nil)))) 15092 (woman-italic-face ((t (nil)))) 15093 (woman-unknown-face ((t (nil)))) 15094 (x-face ((t (nil)))) 15095 (xrdb-option-name-face ((t (nil)))) 15096 (xref-keyword-face ((t (nil)))) 15097 (xref-list-default-face ((t (nil)))) 15098 (xref-list-pilot-face ((t (nil)))) 15099 (xref-list-symbol-face ((t (nil)))) 15100 (yellow ((t (nil)))) 15101 (zmacs-region ((t (nil))))))) 15102 15103 (defun color-theme-feng-shui () 15104 "Color theme by walterh@rocketmail.com (www.xanadb.com), created 15105 2003-10-16. Evolved from color-theme-katester" 15106 (interactive) 15107 (color-theme-install 15108 '(color-theme-feng-shui 15109 ((background-color . "ivory") 15110 (background-mode . light) 15111 (border-color . "black") 15112 (cursor-color . "slateblue") 15113 (foreground-color . "black") 15114 (mouse-color . "slateblue")) 15115 ((help-highlight-face . underline) 15116 (list-matching-lines-face . bold) 15117 (view-highlight-face . highlight) 15118 (widget-mouse-face . highlight)) 15119 (default ((t (:stipple nil :background "ivory" :foreground "black" 15120 :inverse-video nil :box nil :strike-through nil :overline nil 15121 :underline nil :slant normal :weight normal :height 90 :width normal 15122 :family "outline-courier new")))) 15123 (bold ((t (:bold t :weight bold)))) 15124 (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) 15125 (border ((t (:background "black")))) 15126 (cursor ((t (:background "slateblue" :foreground "black")))) 15127 (fixed-pitch ((t (:family "courier")))) 15128 (font-lock-builtin-face ((t (:foreground "black")))) 15129 (font-lock-comment-face ((t (:italic t :background "seashell" 15130 :slant italic)))) 15131 (font-lock-constant-face ((t (:foreground "darkblue")))) 15132 (font-lock-doc-face ((t (:background "lemonChiffon")))) 15133 (font-lock-function-name-face ((t (:bold t :underline t :weight 15134 bold)))) 15135 (font-lock-keyword-face ((t (:foreground "blue")))) 15136 (font-lock-string-face ((t (:background "lemonChiffon")))) 15137 (font-lock-type-face ((t (:foreground "black")))) 15138 (font-lock-variable-name-face ((t (:foreground "black")))) 15139 (font-lock-warning-face ((t (:bold t :foreground "Red" :weight 15140 bold)))) 15141 (fringe ((t (:background "grey95")))) 15142 (header-line ((t (:bold t :weight bold :underline t :background 15143 "grey90" :foreground "grey20" :box nil)))) 15144 (highlight ((t (:background "mistyRose" :foreground "black")))) 15145 (isearch ((t (:background "magenta4" :foreground 15146 "lightskyblue1")))) 15147 (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) 15148 (italic ((t (:italic t :slant italic)))) 15149 (menu ((t (nil)))) 15150 (mode-line ((t (:bold t :background "mistyRose" :foreground "navy" 15151 :underline t :weight bold)))) 15152 (mouse ((t (:background "slateblue")))) 15153 (region ((t (:background "lavender" :foreground "black")))) 15154 (scroll-bar ((t (nil)))) 15155 (secondary-selection ((t (:background "yellow")))) 15156 (tool-bar ((t (:background "grey75" :foreground "black" :box 15157 (:line-width 1 :style released-button))))) 15158 (trailing-whitespace ((t (:background "red")))) 15159 (underline ((t (:underline t)))) 15160 (variable-pitch ((t (:family "helv")))) 15161 (widget-button-face ((t (:bold t :weight bold)))) 15162 (widget-button-pressed-face ((t (:foreground "red")))) 15163 (widget-documentation-face ((t (:foreground "dark green")))) 15164 (widget-field-face ((t (:background "gray85")))) 15165 (widget-inactive-face ((t (:foreground "dim gray")))) 15166 (widget-single-line-field-face ((t (:background "gray85"))))))) 15167 15168 (provide 'color-theme) 15169 15170 ;;; color-theme.el ends here