;;; color-theme-library.el --- The real color theme functions ;; Copyright (C) 2005, 2006 Xavier Maillard ;; Copyright (C) 2005, 2006 Brian Palmer ;; Version: 0.0.9 ;; Keywords: faces ;; Author: Brian Palmer, Xavier Maillard ;; Maintainer: Xavier Maillard ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme ;; This file is not (YET) part of GNU Emacs. ;; This is free software; you can redistribute it and/or modify it under ;; the terms of the GNU General Public License as published by the Free ;; Software Foundation; either version 2, or (at your option) any later ;; version. ;; ;; This is distributed in the hope that it will be useful, but WITHOUT ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ;; for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, ;; MA 02111-1307, USA. ;; Code: (eval-when-compile (require 'color-theme)) (defun color-theme-gnome () "Wheat on darkslategrey scheme. From one version of Emacs in RH6 and Gnome, modified by Jonadab." (interactive) (color-theme-install '(color-theme-gnome ((foreground-color . "wheat") (background-color . "darkslategrey") (background-mode . dark)) (default ((t (nil)))) (region ((t (:foreground "cyan" :background "dark cyan")))) (underline ((t (:foreground "yellow" :underline t)))) (modeline ((t (:foreground "dark cyan" :background "wheat")))) (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat")))) (modeline-mousable ((t (:foreground "dark cyan" :background "wheat")))) (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat")))) (italic ((t (:foreground "dark red" :italic t)))) (bold-italic ((t (:foreground "dark red" :bold t :italic t)))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (bold ((t (:bold))))))) (defun color-theme-blue-gnus () "Color theme for gnus and message faces only. This is intended for other color themes to use (eg. `color-theme-gnome2' and `color-theme-blue-sea')." (interactive) (color-theme-install '(color-theme-blue-gnus nil (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t)))) (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) (gnus-cite-face-2 ((t (:foreground "Khaki")))) (gnus-cite-face-3 ((t (:foreground "Coral")))) (gnus-cite-face-4 ((t (:foreground "yellow green")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "bisque")))) (gnus-cite-face-7 ((t (:foreground "peru")))) (gnus-cite-face-8 ((t (:foreground "light coral")))) (gnus-cite-face-9 ((t (:foreground "plum")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "White")))) (gnus-group-mail-1-face ((t (:bold t :foreground "White")))) (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) (gnus-group-news-1-empty-face ((t (:foreground "White")))) (gnus-group-news-1-face ((t (:bold t :foreground "White")))) (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) (gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) (gnus-signature-face ((t (:foreground "Grey")))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) (gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) (gnus-summary-low-read-face ((t (:foreground "slate gray")))) (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) (message-cited-text-face ((t (:foreground "LightSalmon")))) (message-header-cc-face ((t (:foreground "light cyan")))) (message-header-name-face ((t (:foreground "LightBlue")))) (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) (message-header-other-face ((t (:foreground "MediumAquamarine")))) (message-header-subject-face ((t (:bold t :foreground "light cyan")))) (message-header-to-face ((t (:bold t :foreground "light cyan")))) (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) (message-separator-face ((t (:foreground "chocolate"))))))) (defun color-theme-dark-gnus () "Color theme for gnus and message faces only. This is intended for other color themes to use \(eg. `color-theme-late-night')." (interactive) (color-theme-install '(color-theme-blue-gnus nil (gnus-cite-attribution-face ((t (:foreground "#bbb")))) (gnus-cite-face-1 ((t (:foreground "#aaa")))) (gnus-cite-face-2 ((t (:foreground "#aaa")))) (gnus-cite-face-3 ((t (:foreground "#aaa")))) (gnus-cite-face-4 ((t (:foreground "#aaa")))) (gnus-cite-face-5 ((t (:foreground "#aaa")))) (gnus-cite-face-6 ((t (:foreground "#aaa")))) (gnus-cite-face-7 ((t (:foreground "#aaa")))) (gnus-cite-face-8 ((t (:foreground "#aaa")))) (gnus-cite-face-9 ((t (:foreground "#aaa")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:foreground "#ccc")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "#999")))) (gnus-group-mail-1-face ((t (:bold t :foreground "#999")))) (gnus-group-mail-2-empty-face ((t (:foreground "#999")))) (gnus-group-mail-2-face ((t (:bold t :foreground "#999")))) (gnus-group-mail-3-empty-face ((t (:foreground "#888")))) (gnus-group-mail-3-face ((t (:bold t :foreground "#888")))) (gnus-group-mail-low-empty-face ((t (:foreground "#777")))) (gnus-group-mail-low-face ((t (:bold t :foreground "#777")))) (gnus-group-news-1-empty-face ((t (:foreground "#999")))) (gnus-group-news-1-face ((t (:bold t :foreground "#999")))) (gnus-group-news-2-empty-face ((t (:foreground "#888")))) (gnus-group-news-2-face ((t (:bold t :foreground "#888")))) (gnus-group-news-3-empty-face ((t (:foreground "#777")))) (gnus-group-news-3-face ((t (:bold t :foreground "#777")))) (gnus-group-news-4-empty-face ((t (:foreground "#666")))) (gnus-group-news-4-face ((t (:bold t :foreground "#666")))) (gnus-group-news-5-empty-face ((t (:foreground "#666")))) (gnus-group-news-5-face ((t (:bold t :foreground "#666")))) (gnus-group-news-6-empty-face ((t (:foreground "#666")))) (gnus-group-news-6-face ((t (:bold t :foreground "#666")))) (gnus-group-news-low-empty-face ((t (:foreground "#666")))) (gnus-group-news-low-face ((t (:bold t :foreground "#666")))) (gnus-header-content-face ((t (:foreground "#888")))) (gnus-header-from-face ((t (:bold t :foreground "#888")))) (gnus-header-name-face ((t (:bold t :foreground "#777")))) (gnus-header-newsgroups-face ((t (:bold t :foreground "#777")))) (gnus-header-subject-face ((t (:bold t :foreground "#999")))) (gnus-signature-face ((t (:foreground "#444")))) (gnus-splash-face ((t (:foreground "#ccc")))) (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555")))) (gnus-summary-high-read-face ((t (:bold t :foreground "#666")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "#888")))) (gnus-summary-low-ancient-face ((t (:foreground "#444")))) (gnus-summary-low-read-face ((t (:foreground "#555")))) (gnus-summary-low-ticked-face ((t (:foreground "#666")))) (gnus-summary-low-unread-face ((t (:foreground "#777")))) (gnus-summary-normal-ancient-face ((t (:foreground "#555")))) (gnus-summary-normal-read-face ((t (:foreground "#666")))) (gnus-summary-normal-ticked-face ((t (:foreground "#777")))) (gnus-summary-normal-unread-face ((t (:foreground "#888")))) (gnus-summary-selected-face ((t (:background "#333")))) (message-cited-text-face ((t (:foreground "#aaa")))) (message-header-cc-face ((t (:foreground "#888")))) (message-header-name-face ((t (:bold t :foreground "#777")))) (message-header-newsgroups-face ((t (:bold t :foreground "#777")))) (message-header-other-face ((t (:foreground "#666")))) (message-header-subject-face ((t (:bold t :foreground "#999")))) (message-header-to-face ((t (:bold t :foreground "#777")))) (message-header-xheader-face ((t (:foreground "#666")))) (message-separator-face ((t (:foreground "#999"))))))) (defun color-theme-blue-eshell () "Color theme for eshell faces only. This is intended for other color themes to use (eg. `color-theme-gnome2')." (interactive) (color-theme-install '(color-theme-blue-eshell nil (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:foreground "DimGray")))) (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) (eshell-ls-executable-face ((t (:foreground "Coral")))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) (eshell-ls-special-face ((t (:foreground "Gold")))) (eshell-ls-symlink-face ((t (:foreground "White")))) (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) (eshell-prompt-face ((t (:foreground "powder blue"))))))) (defun color-theme-salmon-font-lock () "Color theme for font-lock faces only. This is intended for other color themes to use (eg. `color-theme-gnome2')." (interactive) (color-theme-install '(color-theme-salmon-font-lock nil (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) (font-lock-comment-face ((t (:foreground "LightBlue")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine")))) (font-lock-keyword-face ((t (:foreground "Salmon")))) (font-lock-preprocessor-face ((t (:foreground "Salmon")))) (font-lock-reference-face ((t (:foreground "pale green")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine")))) (font-lock-warning-face ((t (:bold t :foreground "red"))))))) (defun color-theme-dark-font-lock () "Color theme for font-lock faces only. This is intended for other color themes to use (eg. `color-theme-late-night')." (interactive) (color-theme-install '(color-theme-dark-font-lock nil (font-lock-builtin-face ((t (:bold t :foreground "#777")))) (font-lock-comment-face ((t (:foreground "#555")))) (font-lock-constant-face ((t (:foreground "#777")))) (font-lock-doc-string-face ((t (:foreground "#777")))) (font-lock-doc-face ((t (:foreground "#777")))) (font-lock-function-name-face ((t (:bold t :foreground "#777")))) (font-lock-keyword-face ((t (:foreground "#777")))) (font-lock-preprocessor-face ((t (:foreground "#777")))) (font-lock-reference-face ((t (:foreground "#777")))) (font-lock-string-face ((t (:foreground "#777")))) (font-lock-type-face ((t (:bold t)))) (font-lock-variable-name-face ((t (:bold t :foreground "#888")))) (font-lock-warning-face ((t (:bold t :foreground "#999"))))))) (defun color-theme-dark-info () "Color theme for info, help and apropos faces. This is intended for other color themes to use (eg. `color-theme-late-night')." (interactive) (color-theme-install '(color-theme-dark-info nil (info-header-node ((t (:foreground "#666")))) (info-header-xref ((t (:foreground "#666")))) (info-menu-5 ((t (:underline t)))) (info-menu-header ((t (:bold t :foreground "#666")))) (info-node ((t (:bold t :foreground "#888")))) (info-xref ((t (:bold t :foreground "#777"))))))) (defun color-theme-gnome2 () "Wheat on darkslategrey scheme. `color-theme-gnome' started it all. This theme supports standard faces, font-lock, eshell, info, message, gnus, custom, widget, woman, diary, cperl, bbdb, and erc. This theme includes faces for Emacs and XEmacs. The theme does not support w3 faces because w3 faces can be controlled by your default style sheet. This is what you should put in your .Xdefaults file, if you want to change the colors of the menus in Emacs 20 as well: emacs*Background: DarkSlateGray emacs*Foreground: Wheat" (interactive) (color-theme-blue-gnus) (let ((color-theme-is-cumulative t)) (color-theme-blue-erc) (color-theme-blue-eshell) (color-theme-salmon-font-lock) (color-theme-salmon-diff) (color-theme-install '(color-theme-gnome2 ((foreground-color . "wheat") (background-color . "darkslategrey") (mouse-color . "Grey") (cursor-color . "LightGray") (border-color . "black") (background-mode . dark)) ((apropos-keybinding-face . underline) (apropos-label-face . italic) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . info-xref) (goto-address-mail-face . message-header-to-face) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . info-xref) (goto-address-url-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bbdb-company ((t (:foreground "pale green")))) (bbdb-name ((t (:bold t :foreground "pale green")))) (bbdb-field-name ((t (:foreground "medium sea green")))) (bbdb-field-value ((t (:foreground "dark sea green")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t :foreground "beige")))) (calendar-today-face ((t (:underline t)))) (comint-highlight-prompt ((t (:foreground "medium aquamarine")))) (cperl-array-face ((t (:foreground "Yellow")))) (cperl-hash-face ((t (:foreground "White")))) (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) (custom-documentation-face ((t (:foreground "Grey")))) (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) (custom-state-face ((t (:foreground "LightSalmon")))) (custom-variable-tag-face ((t (:foreground "Aquamarine")))) (diary-face ((t (:foreground "IndianRed")))) (dired-face-directory ((t (:bold t :foreground "sky blue")))) (dired-face-permissions ((t (:foreground "aquamarine")))) (dired-face-flagged ((t (:foreground "tomato")))) (dired-face-marked ((t (:foreground "light salmon")))) (dired-face-executable ((t (:foreground "green yellow")))) (fringe ((t (:background "darkslategrey")))) (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) (highline-face ((t (:background "SeaGreen")))) (holiday-face ((t (:background "DimGray")))) (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) (hyper-apropos-documentation ((t (:foreground "LightSalmon")))) (info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) (info-xref ((t (:bold t :foreground "DodgerBlue1")))) (isearch ((t (:background "sea green")))) (italic ((t (:italic t)))) (menu ((t (:foreground "wheat" :background "darkslategrey")))) (modeline ((t (:background "dark olive green" :foreground "wheat")))) (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) (region ((t (:background "dark cyan" :foreground "cyan")))) (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) (underline ((t (:underline t)))) (widget-field-face ((t (:foreground "LightBlue")))) (widget-inactive-face ((t (:foreground "DimGray")))) (widget-single-line-field-face ((t (:foreground "LightBlue")))) (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))) (defun color-theme-simple-1 () "Black background. Doesn't mess with most faces, but does turn on dark background mode." (interactive) (color-theme-install '(color-theme-simple-1 ((foreground-color . "white") (background-color . "black") (cursor-color . "indian red") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "black" :background "white")))) (modeline-buffer-id ((t (:foreground "black" :background "white")))) (modeline-mousable ((t (:foreground "black" :background "white")))) (modeline-mousable-minor-mode ((t (:foreground "black" :background "white")))) (underline ((t (:underline t)))) (region ((t (:background "grey"))))))) (defun color-theme-jonadabian () "Dark blue background. Supports standard faces, font-lock, highlight-changes, widget and custom." (interactive) (color-theme-install '(color-theme-jonadabian ((foreground-color . "#CCBB77") (cursor-color . "medium turquoise") (background-color . "#000055") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "cyan" :background "#007080")))) (modeline-buffer-id ((t (:foreground "cyan" :background "#007080")))) (modeline-mousable ((t (:foreground "cyan" :background "#007080")))) (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080")))) (underline ((t (:underline t)))) (region ((t (:background "#004080")))) (font-lock-keyword-face ((t (:foreground "#00BBBB")))) (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t)))) (font-lock-string-face ((t (:foreground "#10D010")))) (font-lock-constant-face ((t (:foreground "indian red")))) (highlight-changes-face ((t (:background "navy")))) (highlight-changes-delete-face ((t (:foreground "red" :background "navy")))) (widget-field-face ((t (:foreground "black" :background "grey35")))) (widget-inactive-face ((t (:foreground "gray")))) (custom-button-face ((t (:foreground "yellow" :background "dark blue")))) (custom-state-face ((t (:foreground "mediumaquamarine")))) (custom-face-tag-face ((t (:foreground "goldenrod" :underline t)))) (custom-documentation-face ((t (:foreground "#10D010")))) (custom-set-face ((t (:foreground "#2020D0"))))))) (defun color-theme-ryerson () "White on midnightblue scheme. Used at Ryerson Polytechnic University in the Electronic Engineering department." (interactive) (color-theme-install '(color-theme-ryerson ((foreground-color . "white") (background-color . "midnightblue") (cursor-color . "red") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "black" :background "slategray3")))) (modeline-buffer-id ((t (:foreground "black" :background "slategray3")))) (modeline-mousable ((t (:foreground "black" :background "slategray3")))) (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3")))) (underline ((t (:underline t)))) (region ((t (:foreground "black" :background "slategray3"))))))) (defun color-theme-wheat () "Default colors on a wheat background. Calls the standard color theme function `color-theme-standard' in order to reset all faces." (interactive) (color-theme-standard) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-wheat ((background-color . "Wheat")))))) (defun color-theme-standard () "Emacs default colors. If you are missing standard faces in this theme, please notify the maintainer." (interactive) ;; Note that some of the things that make up a color theme are ;; actually variable settings! (color-theme-install '(color-theme-standard ((foreground-color . "black") (background-color . "white") (mouse-color . "black") (cursor-color . "black") (border-color . "black") (background-mode . light)) ((Man-overstrike-face . bold) (Man-underline-face . underline) (apropos-keybinding-face . underline) (apropos-label-face . italic) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . bold) (goto-address-mail-face . italic) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . bold) (goto-address-url-mouse-face . highlight) (help-highlight-face . underline) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t :italic t)))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:foreground "white" :background "blue")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:foreground "blue" :underline t)))) (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) (custom-invalid-face ((t (:foreground "yellow" :background "red")))) (custom-modified-face ((t (:foreground "white" :background "blue")))) (custom-rogue-face ((t (:foreground "pink" :background "black")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:foreground "blue" :background "white")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t)))) (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) (diary-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) (eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:foreground "Red" :bold t)))) (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) (eshell-test-ok-face ((t (:foreground "Green" :bold t)))) (excerpt ((t (:italic t)))) (fixed ((t (:bold t)))) (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-keyword-face ((t (:foreground "Purple")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:foreground "Red" :bold t)))) (fringe ((t (:background "grey95")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) (gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "darkseagreen2")))) (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "paleturquoise")))) (holiday-face ((t (:background "pink")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:bold t :italic t)))) (info-xref ((t (:bold t)))) (italic ((t (:italic t)))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:foreground "navy blue" :bold t)))) (message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:foreground "white" :background "black")))) (modeline-buffer-id ((t (:foreground "white" :background "black")))) (modeline-mousable ((t (:foreground "white" :background "black")))) (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "paleturquoise")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (underline ((t (:underline t)))) (vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) (viper-search-face ((t (:foreground "Black" :background "khaki")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-fischmeister () "The light colors on a grey blackground. Sebastian Fischmeister " (interactive) (color-theme-install '(color-theme-fischmeister ((foreground-color . "black") (background-color . "gray80") (mouse-color . "red") (cursor-color . "yellow") (border-color . "black") (background-mode . light)) (default ((t (nil)))) (modeline ((t (:foreground "gray80" :background "black")))) (modeline-buffer-id ((t (:foreground "gray80" :background "black")))) (modeline-mousable ((t (:foreground "gray80" :background "black")))) (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black")))) (highlight ((t (:background "darkseagreen2")))) (bold ((t (:bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "paleturquoise")))) (underline ((t (:underline t)))) (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen")))) (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t)))) (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t)))) (font-lock-keyword-face ((t (:foreground "navy")))) (font-lock-builtin-face ((t (:foreground "white")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-variable-name-face ((t (:foreground "Darkblue")))) (font-lock-type-face ((t (:foreground "darkgreen")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-warning-face ((t (:foreground "Orchid" :bold t)))) (font-lock-reference-face ((t (:foreground "SteelBlue"))))))) (defun color-theme-sitaramv-solaris () "White on a midnight blue background. Lots of yellow and orange. Includes faces for font-lock, widget, custom, speedbar, message, gnus, eshell." (interactive) (color-theme-install '(color-theme-sitaramv-solaris ((foreground-color . "white") (background-color . "MidnightBlue") (mouse-color . "yellow") (cursor-color . "magenta2") (border-color . "black") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "black" :background "gold2")))) (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) (modeline-mousable ((t (:foreground "black" :background "gold2")))) (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) (highlight ((t (:foreground "black" :background "Aquamarine")))) (bold ((t (:bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (region ((t (:foreground "black" :background "snow3")))) (secondary-selection ((t (:foreground "black" :background "aquamarine")))) (underline ((t (:underline t)))) (lazy-highlight-face ((t (:foreground "yellow")))) (font-lock-comment-face ((t (:foreground "orange" :italic t)))) (font-lock-string-face ((t (:foreground "orange")))) (font-lock-keyword-face ((t (:foreground "green")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-function-name-face ((t (:foreground "cyan" :bold t)))) (font-lock-variable-name-face ((t (:foreground "white")))) (font-lock-type-face ((t (:foreground "cyan")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-warning-face ((t (:foreground "Pink" :bold t)))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-button-face ((t (:bold t)))) (widget-field-face ((t (:background "dim gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-button-pressed-face ((t (:foreground "red")))) (custom-invalid-face ((t (:foreground "yellow" :background "red")))) (custom-rogue-face ((t (:foreground "pink" :background "black")))) (custom-modified-face ((t (:foreground "white" :background "blue")))) (custom-set-face ((t (:foreground "blue" :background "white")))) (custom-changed-face ((t (:foreground "white" :background "blue")))) (custom-saved-face ((t (:underline t)))) (custom-button-face ((t (nil)))) (custom-documentation-face ((t (nil)))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-tag-face ((t (:foreground "light blue" :underline t)))) (custom-variable-button-face ((t (:bold t :underline t)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) (custom-group-tag-face ((t (:foreground "light blue" :underline t)))) (speedbar-button-face ((t (:foreground "green3")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-directory-face ((t (:foreground "light blue")))) (speedbar-tag-face ((t (:foreground "yellow")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-highlight-face ((t (:background "sea green")))) (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t)))) (font-lock-exit-face ((t (:foreground "green")))) (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) (show-paren-match-face ((t (:background "red")))) (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) (message-header-to-face ((t (:foreground "green2" :bold t)))) (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t)))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t)))) (message-header-other-face ((t (:foreground "Salmon")))) (message-header-name-face ((t (:foreground "green3")))) (message-header-xheader-face ((t (:foreground "GreenYellow")))) (message-separator-face ((t (:foreground "Tan")))) (message-cited-text-face ((t (:foreground "Gold")))) (message-mml-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t)))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t)))) (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t)))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-splash-face ((t (:foreground "Brown")))) (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t)))) (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) (eshell-ls-executable-face ((t (:foreground "Green" :bold t)))) (eshell-ls-readonly-face ((t (:foreground "Pink")))) (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) (eshell-prompt-face ((t (:foreground "Pink" :bold t)))) (term-default-fg ((t (nil)))) (term-default-bg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-bold ((t (:bold t)))) (term-underline ((t (:underline t)))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-black ((t (:foreground "black")))) (term-red ((t (:foreground "red")))) (term-green ((t (:foreground "green")))) (term-yellow ((t (:foreground "yellow")))) (term-blue ((t (:foreground "blue")))) (term-magenta ((t (:foreground "magenta")))) (term-cyan ((t (:foreground "cyan")))) (term-white ((t (:foreground "white")))) (term-blackbg ((t (:background "black")))) (term-redbg ((t (:background "red")))) (term-greenbg ((t (:background "green")))) (term-yellowbg ((t (:background "yellow")))) (term-bluebg ((t (:background "blue")))) (term-magentabg ((t (:background "magenta")))) (term-cyanbg ((t (:background "cyan")))) (term-whitebg ((t (:background "white")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) (gnus-signature-face ((t (:italic t)))) (gnus-header-from-face ((t (:foreground "spring green")))) (gnus-header-subject-face ((t (:foreground "yellow" :bold t)))) (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t)))) (gnus-header-name-face ((t (:foreground "pink")))) (gnus-header-content-face ((t (:foreground "lime green" :italic t)))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "light blue")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) (defun color-theme-sitaramv-nt () "Black foreground on white background. Includes faces for font-lock, widget, custom, speedbar." (interactive) (color-theme-install '(color-theme-sitaramv-nt ((foreground-color . "black") (background-color . "white") (mouse-color . "sienna3") (cursor-color . "HotPink") (border-color . "Blue") (background-mode . light)) (default ((t (nil)))) (modeline ((t (:foreground "black" :background "gold2")))) (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) (modeline-mousable ((t (:foreground "black" :background "gold2")))) (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) (highlight ((t (:foreground "black" :background "darkseagreen2")))) (bold ((t (:bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (region ((t (:foreground "black" :background "snow3")))) (secondary-selection ((t (:background "paleturquoise")))) (underline ((t (:underline t)))) (lazy-highlight-face ((t (:foreground "dark magenta" :bold t)))) (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t)))) (font-lock-string-face ((t (:foreground "red")))) (font-lock-keyword-face ((t (:foreground "blue" :bold t)))) (font-lock-builtin-face ((t (:foreground "black")))) (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t)))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-type-face ((t (:foreground "blue")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-warning-face ((t (:foreground "Red" :bold t)))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-button-face ((t (:bold t)))) (widget-field-face ((t (:background "gray85")))) (widget-single-line-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-button-pressed-face ((t (:foreground "red")))) (custom-invalid-face ((t (:foreground "yellow" :background "red")))) (custom-rogue-face ((t (:foreground "pink" :background "black")))) (custom-modified-face ((t (:foreground "white" :background "blue")))) (custom-set-face ((t (:foreground "blue" :background "white")))) (custom-changed-face ((t (:foreground "white" :background "blue")))) (custom-saved-face ((t (:underline t)))) (custom-button-face ((t (nil)))) (custom-documentation-face ((t (nil)))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) (custom-variable-button-face ((t (:bold t :underline t)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) (custom-group-tag-face ((t (:foreground "blue" :underline t)))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-tag-face ((t (:foreground "brown")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-highlight-face ((t (:background "green")))) (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) (show-paren-match-face ((t (:background "light blue")))) (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))))) (defun color-theme-billw () "Cornsilk on black. Includes info, diary, font-lock, eshell, sgml, message, gnus, widget, custom, latex, ediff." (interactive) (color-theme-install '(color-theme-billw ((foreground-color . "cornsilk") (background-color . "black") (mouse-color . "black") (cursor-color . "white") (border-color . "black") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "black" :background "wheat")))) (modeline-buffer-id ((t (:foreground "black" :background "wheat")))) (modeline-mousable ((t (:foreground "black" :background "wheat")))) (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat")))) (highlight ((t (:foreground "wheat" :background "darkslategray")))) (bold ((t (:bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (region ((t (:background "dimgray")))) (secondary-selection ((t (:background "deepskyblue4")))) (underline ((t (:underline t)))) (info-node ((t (:foreground "yellow" :bold t :italic t)))) (info-menu-5 ((t (:underline t)))) (info-xref ((t (:foreground "yellow" :bold t)))) (diary-face ((t (:foreground "orange")))) (calendar-today-face ((t (:underline t)))) (holiday-face ((t (:background "red")))) (show-paren-match-face ((t (:background "deepskyblue4")))) (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) (font-lock-comment-face ((t (:foreground "gold")))) (font-lock-string-face ((t (:foreground "orange")))) (font-lock-keyword-face ((t (:foreground "cyan1")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-function-name-face ((t (:foreground "mediumspringgreen")))) (font-lock-variable-name-face ((t (:foreground "light salmon")))) (font-lock-type-face ((t (:foreground "yellow1")))) (font-lock-constant-face ((t (:foreground "salmon")))) (font-lock-warning-face ((t (:foreground "gold" :bold t)))) (blank-space-face ((t (:background "LightGray")))) (blank-tab-face ((t (:foreground "black" :background "cornsilk")))) (highline-face ((t (:background "gray35")))) (eshell-ls-directory-face ((t (:foreground "green" :bold t)))) (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) (eshell-ls-executable-face ((t (:foreground "orange" :bold t)))) (eshell-ls-readonly-face ((t (:foreground "gray")))) (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-clutter-face ((t (:foreground "blue" :bold t)))) (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) (custom-button-face ((t (:foreground "white")))) (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) (sgml-doctype-face ((t (:foreground "orange")))) (sgml-sgml-face ((t (:foreground "yellow")))) (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black")))) (custom-documentation-face ((t (:foreground "white")))) (sgml-end-tag-face ((t (:foreground "greenyellow")))) (linemenu-face ((t (:background "gray30")))) (sgml-entity-face ((t (:foreground "gold")))) (message-header-to-face ((t (:foreground "floral white" :bold t)))) (message-header-cc-face ((t (:foreground "ivory")))) (message-header-subject-face ((t (:foreground "papaya whip" :bold t)))) (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t)))) (message-header-other-face ((t (:foreground "pale turquoise")))) (message-header-name-face ((t (:foreground "light sky blue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "sandy brown")))) (message-cited-text-face ((t (:foreground "plum1")))) (message-mml-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:foreground "white" :bold t)))) (gnus-group-news-1-empty-face ((t (:foreground "white")))) (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t)))) (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) (gnus-group-news-3-face ((t (:foreground "tan" :bold t)))) (gnus-group-news-3-empty-face ((t (:foreground "tan")))) (gnus-group-news-4-face ((t (:foreground "white" :bold t)))) (gnus-group-news-4-empty-face ((t (:foreground "white")))) (gnus-group-news-5-face ((t (:foreground "wheat" :bold t)))) (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) (gnus-group-news-6-face ((t (:foreground "tan" :bold t)))) (gnus-group-news-6-empty-face ((t (:foreground "tan")))) (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-mail-1-face ((t (:foreground "white" :bold t)))) (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t)))) (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) (gnus-group-mail-3-face ((t (:foreground "tan" :bold t)))) (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t)))) (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray")))) (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t)))) (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t)))) (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t)))) (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-splash-face ((t (:foreground "gold")))) (font-latex-bold-face ((t (nil)))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (:foreground "Gray85")))) (font-latex-string-face ((t (:foreground "orange")))) (font-latex-warning-face ((t (:foreground "gold")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-button-face ((t (:bold t)))) (widget-field-face ((t (:background "gray20")))) (widget-single-line-field-face ((t (:background "gray20")))) (widget-inactive-face ((t (:foreground "wheat")))) (widget-button-pressed-face ((t (:foreground "red")))) (custom-invalid-face ((t (:foreground "yellow" :background "red")))) (custom-rogue-face ((t (:foreground "pink" :background "black")))) (custom-modified-face ((t (:foreground "white" :background "blue")))) (custom-set-face ((t (:foreground "blue")))) (custom-changed-face ((t (:foreground "wheat" :background "skyblue")))) (custom-saved-face ((t (:underline t)))) (custom-state-face ((t (:foreground "light green")))) (custom-variable-tag-face ((t (:foreground "skyblue" :underline t)))) (custom-variable-button-face ((t (:bold t :underline t)))) (custom-face-tag-face ((t (:foreground "white" :underline t)))) (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) (custom-group-tag-face ((t (:foreground "skyblue" :underline t)))) (swbuff-current-buffer-face ((t (:foreground "red" :bold t)))) (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred")))) (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4")))) (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t)))) (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t)))) (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t)))) (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) (gnus-signature-face ((t (:italic t)))) (gnus-header-from-face ((t (:foreground "wheat")))) (gnus-header-subject-face ((t (:foreground "wheat" :bold t)))) (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t)))) (gnus-header-name-face ((t (:foreground "white")))) (gnus-header-content-face ((t (:foreground "tan" :italic t)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-splash ((t (:foreground "Brown")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "light blue")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) (defun color-theme-retro-green (&optional color func) "Plain green on black faces for those longing for the good old days." (interactive) ;; Build a list of faces without parameters (let ((old-faces (face-list)) (faces) (face) (foreground (or color "green"))) (dolist (face old-faces) (cond ((memq face '(bold bold-italic)) (add-to-list 'faces `(,face (( t (:bold t)))))) ((memq face '(italic underline show-paren-mismatch-face)) (add-to-list 'faces `(,face (( t (:underline t)))))) ((memq face '(modeline modeline-buffer-id modeline-mousable modeline-mousable-minor-mode highlight region secondary-selection show-paren-match-face)) (add-to-list 'faces `(,face (( t (:foreground "black" :background ,foreground :inverse t)))))) (t (add-to-list 'faces `(,face (( t (nil)))))))) (color-theme-install (append (list (or func 'color-theme-retro-green) (list (cons 'foreground-color foreground) (cons 'background-color "black") (cons 'mouse-color foreground) (cons 'cursor-color foreground) (cons 'border-color foreground) (cons 'background-mode 'dark))) faces)))) (defun color-theme-retro-orange () "Plain orange on black faces for those longing for the good old days." (interactive) (color-theme-retro-green "orange" 'color-theme-retro-orange)) (defun color-theme-subtle-hacker () "Subtle Hacker Color Theme. Based on gnome2, but uses white for important things like comments, and less of the unreadable tomato. By Colin Walters " (interactive) (color-theme-gnome2) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-subtle-hacker nil nil (custom-state-face ((t (:foreground "Coral")))) (diary-face ((t (:bold t :foreground "IndianRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray")))) (eshell-ls-executable-face ((t (:bold t :foreground "Coral")))) (eshell-ls-missing-face ((t (:bold t :foreground "black")))) (eshell-ls-special-face ((t (:bold t :foreground "Gold")))) (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) (font-lock-comment-face ((t (:foreground "White")))) (font-lock-constant-face ((t (:bold t :foreground "Aquamarine")))) (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue")))) (font-lock-string-face ((t (:italic t :foreground "LightSalmon")))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine")))) (gnus-cite-face-1 ((t (:foreground "dark khaki")))) (gnus-cite-face-2 ((t (:foreground "chocolate")))) (gnus-cite-face-3 ((t (:foreground "tomato")))) (gnus-group-mail-1-empty-face ((t (:foreground "light cyan")))) (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) (gnus-group-mail-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-mail-3-empty-face ((t (:foreground "tomato")))) (gnus-group-mail-3-face ((t (:bold t :foreground "tomato")))) (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue")))) (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue")))) (gnus-group-news-1-empty-face ((t (:foreground "green yellow")))) (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) (gnus-group-news-2-empty-face ((t (:foreground "dark orange")))) (gnus-group-news-2-face ((t (:bold t :foreground "dark orange")))) (gnus-group-news-3-empty-face ((t (:foreground "tomato")))) (gnus-group-news-3-face ((t (:bold t :foreground "tomato")))) (gnus-group-news-low-empty-face ((t (:foreground "yellow green")))) (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) (gnus-signature-face ((t (:foreground "salmon")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "forest green")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate")))) (gnus-summary-low-read-face ((t (:foreground "light sea green")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate")))) (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "khaki")))) (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown")))) (gnus-summary-normal-unread-face ((t (:foreground "aquamarine")))) (message-cited-text-face ((t (:foreground "White")))) (message-header-name-face ((t (:foreground "DodgerBlue1")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) (message-header-other-face ((t (:foreground "LightSkyBlue3")))) (message-header-xheader-face ((t (:foreground "DodgerBlue3")))))))) (defun color-theme-pok-wog () "Low-contrast White-on-Gray by S.Pokrovsky. The following might be a good addition to your .Xdefaults file: Emacs.pane.menubar.background: darkGrey Emacs.pane.menubar.foreground: black" (interactive) (color-theme-install '(color-theme-pok-wog ((foreground-color . "White") (background-color . "DarkSlateGray") (mouse-color . "gold") (cursor-color . "Cyan") (border-color . "black") (background-mode . dark)) (default ((t (nil)))) (bold ((t (:bold t :foreground "Wheat")))) (bold-italic ((t (:italic t :bold t :foreground "wheat")))) (calendar-today-face ((t (:underline t :foreground "white")))) (diary-face ((t (:foreground "red")))) (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) (font-lock-comment-face ((t (:foreground "Gold")))) (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) (font-lock-function-name-face ((t (:bold t :foreground "Yellow")))) (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) (font-lock-string-face ((t (:foreground "Khaki")))) (font-lock-type-face ((t (:bold t :foreground "Cyan")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat")))) (gnus-cite-face-1 ((t (:foreground "wheat")))) (gnus-cite-face-10 ((t (:foreground "wheat")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :foreground "wheat")))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :foreground "white")))) (gnus-emphasis-underline ((t (:underline t :foreground "white")))) (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat")))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "Salmon")))) (gnus-group-mail-3-face ((t (:bold t :foreground "gold")))) (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) (gnus-header-from-face ((t (:foreground "light yellow")))) (gnus-header-name-face ((t (:foreground "cyan")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) (gnus-signature-face ((t (:italic t :foreground "wheat")))) (gnus-splash-face ((t (:foreground "orange")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (:foreground "wheat")))) (gnus-summary-selected-face ((t (:underline t :foreground "white")))) (highlight ((t (:background "Blue" :foreground "white")))) (highline-face ((t (:background "black" :foreground "white")))) (holiday-face ((t (:background "pink" :foreground "white")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t :foreground "white")))) (info-xref ((t (:bold t :foreground "wheat")))) (italic ((t (:italic t :foreground "white")))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "green")))) (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) (message-header-name-face ((t (:foreground "Gold")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "lightGray")))) (message-header-subject-face ((t (:foreground "Yellow")))) (message-header-to-face ((t (:bold t :foreground "green2")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:bold t :foreground "khaki")))) (message-separator-face ((t (:background "aquamarine" :foreground "black")))) (modeline ((t (:background "DarkGray" :foreground "Black")))) (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black")))) (modeline-mousable ((t (:background "DarkGray" :foreground "Black")))) (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black")))) (paren-mismatch-face ((t (:background "DeepPink" :foreground "white")))) (paren-no-match-face ((t (:background "yellow" :foreground "white")))) (region ((t (:background "MediumSlateBlue" :foreground "white")))) (secondary-selection ((t (:background "Sienna" :foreground "white")))) (show-paren-match-face ((t (:background "turquoise" :foreground "white")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:bold t :foreground "magenta")))) (speedbar-directory-face ((t (:bold t :foreground "orchid")))) (speedbar-file-face ((t (:foreground "pink")))) (speedbar-highlight-face ((t (:background "black")))) (speedbar-selected-face ((t (:underline t :foreground "cyan")))) (speedbar-tag-face ((t (:foreground "yellow")))) (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) (underline ((t (:underline t :foreground "white")))) (widget-button-face ((t (:bold t :foreground "wheat")))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray" :foreground "white")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) (defun color-theme-pok-wob () "White-on-Black by S. Pokrovsky. The following might be a good addition to your .Xdefaults file: Emacs.pane.menubar.background: darkGrey Emacs.pane.menubar.foreground: black" (interactive) ; (setq term-default-fg-color "white" ; term-default-bg "black") (color-theme-install '(color-theme-pok-wob ((foreground-color . "white") (background-color . "black") (mouse-color . "gold") (cursor-color . "yellow") (border-color . "black") (background-mode . dark)) (default ((t (nil)))) (bold ((t (:bold t :foreground "light gray")))) (bold-italic ((t (:italic t :bold t :foreground "cyan")))) (calendar-today-face ((t (:underline t :foreground "white")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t)))) (custom-group-tag-face-1 ((t (:underline t)))) (custom-invalid-face ((t (:background "red" :foreground "white")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (nil)))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t)))) (diary-face ((t (:foreground "gold")))) (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) (font-lock-comment-face ((t (:foreground "Gold")))) (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) (font-lock-function-name-face ((t (:bold t :foreground "gold")))) (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) (font-lock-string-face ((t (:foreground "Khaki")))) (font-lock-type-face ((t (:bold t :foreground "Cyan")))) (font-lock-variable-name-face ((t (:italic t :foreground "gold")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (gnus-cite-attribution-face ((t (:underline t :foreground "beige")))) (gnus-cite-face-1 ((t (:foreground "gold")))) (gnus-cite-face-10 ((t (:foreground "coral")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "wheat")))) (gnus-cite-face-3 ((t (:foreground "light pink")))) (gnus-cite-face-4 ((t (:foreground "khaki")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :foreground "light gray")))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan")))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold")))) (gnus-emphasis-italic ((t (:italic t :foreground "cyan")))) (gnus-emphasis-underline ((t (:underline t :foreground "white")))) (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white")))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white")))) (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan")))) (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) (gnus-group-mail-low-face ((t (:foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) (gnus-header-from-face ((t (:foreground "light yellow")))) (gnus-header-name-face ((t (:foreground "Wheat")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "gold")))) (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) (gnus-signature-face ((t (:italic t :foreground "white")))) (gnus-splash-face ((t (:foreground "orange")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "red")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "red")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral")))) (gnus-summary-low-unread-face ((t (:italic t :foreground "white")))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (:foreground "white")))) (gnus-summary-selected-face ((t (:underline t :foreground "white")))) (highlight ((t (:background "Blue" :foreground "white")))) (highline-face ((t (:background "dark slate gray" :foreground "white")))) (holiday-face ((t (:background "red" :foreground "white")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t :foreground "white")))) (info-xref ((t (:bold t :foreground "light gray")))) (italic ((t (:italic t :foreground "cyan")))) (makefile-space-face ((t (:background "hotpink" :foreground "white")))) (message-cited-text-face ((t (:foreground "green")))) (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) (message-header-name-face ((t (:foreground "Gold")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) (message-header-other-face ((t (:foreground "lightGray")))) (message-header-subject-face ((t (:foreground "Yellow")))) (message-header-to-face ((t (:bold t :foreground "green2")))) (message-header-xheader-face ((t (:foreground "sky blue")))) (message-mml-face ((t (:bold t :foreground "khaki")))) (message-separator-face ((t (:background "aquamarine" :foreground "black")))) (modeline ((t (:background "dark gray" :foreground "black")))) (modeline-buffer-id ((t (:background "dark gray" :foreground "black")))) (modeline-mousable ((t (:background "dark gray" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black")))) (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) (region ((t (:background "MediumSlateBlue" :foreground "white")))) (secondary-selection ((t (:background "Sienna" :foreground "white")))) (show-paren-match-face ((t (:background "purple" :foreground "white")))) (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) (speedbar-button-face ((t (nil)))) (speedbar-directory-face ((t (nil)))) (speedbar-file-face ((t (:bold t)))) (speedbar-highlight-face ((t (nil)))) (speedbar-selected-face ((t (:underline t)))) (speedbar-tag-face ((t (nil)))) (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) (underline ((t (:underline t :foreground "white")))) (widget-button-face ((t (:bold t :foreground "coral")))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray" :foreground "white")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) (defun color-theme-blue-sea () "The grey on midnight blue theme. Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar, custom, widget, info, flyspell, gnus, message, man, woman, dired. This is what you should put in your .Xdefaults file, if you want to change the colors of the menus: emacs*Background: DarkSlateGray emacs*Foreground: Wheat" (interactive) (color-theme-blue-gnus) (let ((color-theme-is-cumulative t)) (color-theme-blue-erc) (color-theme-install '(color-theme-blue-sea ((background-color . "MidnightBlue") (background-mode . dark) (border-color . "Grey") (cursor-color . "Grey") (foreground-color . "Grey") (mouse-color . "Grey")) ((Man-overstrike-face . woman-bold-face) (Man-underline-face . woman-italic-face)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t :foreground "beige")))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:foreground "light salmon" :bold t)))) (cperl-hash-face ((t (:foreground "beige" :bold t :italic t)))) (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) (custom-button-face ((t (:foreground "gainsboro")))) (custom-changed-face ((t (:foreground "white" :background "blue")))) (custom-documentation-face ((t (:foreground "light blue")))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t)))) (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) (custom-invalid-face ((t (:foreground "yellow" :background "red")))) (custom-modified-face ((t (:foreground "white" :background "blue")))) (custom-rogue-face ((t (:foreground "pink" :background "black")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:foreground "blue" :background "white")))) (custom-state-face ((t (:foreground "light salmon")))) (custom-variable-button-face ((t (:bold t :underline t)))) (custom-variable-tag-face ((t (:foreground "turquoise" :bold t)))) (diary-face ((t (:foreground "red")))) (dired-face-directory ((t (:bold t :foreground "sky blue")))) (dired-face-permissions ((t (:foreground "aquamarine")))) (dired-face-flagged ((t (:foreground "tomato")))) (dired-face-marked ((t (:foreground "light salmon")))) (dired-face-executable ((t (:foreground "green yellow")))) (eshell-ls-archive-face ((t (:bold t :foreground "medium purple")))) (eshell-ls-backup-face ((t (:foreground "dim gray")))) (eshell-ls-clutter-face ((t (:foreground "dim gray")))) (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine")))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "violet")))) (eshell-ls-product-face ((t (:foreground "light steel blue")))) (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) (eshell-ls-special-face ((t (:foreground "gold")))) (eshell-ls-symlink-face ((t (:foreground "white")))) (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) (eshell-prompt-face ((t (:foreground "light sky blue" :bold t)))) (excerpt ((t (:italic t)))) (fixed ((t (:bold t)))) (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) (font-lock-builtin-face ((t (:foreground "aquamarine")))) (font-lock-comment-face ((t (:foreground "light blue")))) (font-lock-constant-face ((t (:foreground "pale green")))) (font-lock-doc-string-face ((t (:foreground "sky blue")))) (font-lock-function-name-face ((t (:bold t :foreground "aquamarine")))) (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t)))) (font-lock-reference-face ((t (:foreground "pale green")))) (font-lock-string-face ((t (:foreground "light sky blue")))) (font-lock-type-face ((t (:foreground "sky blue" :bold t)))) (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t)))) (font-lock-warning-face ((t (:foreground "Red" :bold t)))) (fringe ((t (:background "MidnightBlue")))) (header-line ((t (:background "#002" :foreground "cornflower blue")))) (highlight ((t (:background "dark slate blue" :foreground "light blue")))) (highline-face ((t (:background "DeepSkyBlue4")))) (holiday-face ((t (:background "pink")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t :foreground "sky blue")))) (isearch ((t (:background "slate blue")))) (italic ((t (:foreground "sky blue")))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (:background "MidnightBlue" :foreground "Grey")))) (modeline ((t (:foreground "wheat" :background "slate blue")))) (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat")))) (modeline-buffer-id ((t (:foreground "beige" :background "slate blue")))) (modeline-mousable ((t (:foreground "light cyan" :background "slate blue")))) (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue")))) (region ((t (:background "DarkSlateBlue")))) (secondary-selection ((t (:background "steel blue")))) (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) (speedbar-button-face ((t (:foreground "seashell2")))) (speedbar-directory-face ((t (:foreground "seashell3")))) (speedbar-file-face ((t (:foreground "seashell4")))) (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) (speedbar-tag-face ((t (:foreground "antique white")))) (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button))))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "light blue")))) (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) (woman-bold-face ((t (:foreground "sky blue" :bold t)))) (woman-italic-face ((t (:foreground "deep sky blue")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (zmacs-region ((t (:background "DarkSlateBlue")))))))) (defun color-theme-rotor () "Black on Beige color theme by Jinwei Shen, created 2000-06-08. Supports default faces, font-lock, custom, widget, message, man, show-paren, viper." (interactive) (color-theme-install '(color-theme-rotor ((background-color . "Beige") (background-mode . light) (border-color . "black") (cursor-color . "Maroon") (foreground-color . "Black") (mouse-color . "Black")) ((Man-overstrike-face . font-lock-function-name-face) (Man-underline-face . font-lock-type-face) (list-matching-lines-face . bold) (rmail-highlight-face . font-lock-function-name-face) (watson-attribution-face . italic) (watson-url-face . bold) (watson-url-mouse-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t :background "grey40" :foreground "yellow")))) (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "MediumBlue")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:foreground "MediumSlateBlue")))) (font-lock-keyword-face ((t (:foreground "#80a0ff")))) (font-lock-string-face ((t (:foreground "red")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (highlight ((t (:background "PaleGreen" :foreground "black")))) (italic ((t (:italic t :foreground "yellow3")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "wheat" :foreground "DarkOliveGreen")))) (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen")))) (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen")))) (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen")))) (nil ((t (nil)))) (region ((t (:background "dark cyan" :foreground "cyan")))) (secondary-selection ((t (:background "Turquoise" :foreground "black")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-pierson () "Black on White color theme by Dan L. Pierson, created 2000-06-08. Supports default faces, font-lock, show-paren." (interactive) (color-theme-install '(color-theme-pierson ((background-color . "AntiqueWhite") (background-mode . light) (border-color . "black") (cursor-color . "Orchid") (foreground-color . "black") (mouse-color . "Orchid")) ((list-matching-lines-face . bold)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "ForestGreen")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:foreground "blue3")))) (font-lock-keyword-face ((t (:foreground "Blue")))) (font-lock-string-face ((t (:foreground "Firebrick")))) (font-lock-type-face ((t (:foreground "Purple")))) (font-lock-variable-name-face ((t (:foreground "blue3")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (highlight ((t (:background "darkseagreen2")))) (italic ((t (:italic t)))) (modeline ((t (:foreground "antiquewhite" :background "black")))) (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black")))) (modeline-mousable ((t (:foreground "antiquewhite" :background "black")))) (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black")))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "paleturquoise")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t))))))) (defun color-theme-xemacs () "XEmacs standard colors. If you are missing standard faces in this theme, please notify the maintainer. Currently, this theme includes the standard faces and font-lock faces, including some faces used in Emacs only but which are needed to recreate the look of the XEmacs color theme." (interactive) (color-theme-install '(color-theme-xemacs ((background-color . "gray80") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "Red3") (foreground-color . "black") (top-toolbar-shadow-color . "#fffffbeeffff")) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) (font-lock-builtin-face ((t (:foreground "red3")))) (font-lock-comment-face ((t (:foreground "blue4")))) (font-lock-constant-face ((t (:foreground "red3")))) (font-lock-doc-string-face ((t (:foreground "green4")))) (font-lock-function-name-face ((t (:foreground "brown4")))) (font-lock-keyword-face ((t (:foreground "red4")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:foreground "steelblue")))) (font-lock-variable-name-face ((t (:foreground "magenta4")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "Gray80")))) (highlight ((t (:background "darkseagreen2")))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "paleturquoise")))) (italic ((t (:italic t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (modeline ((t (:background "Gray80")))) (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) (paren-blink-off ((t (:foreground "gray80")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "Red3" :foreground "gray80")))) (toolbar ((t (:background "Gray80")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "Gray80")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-jsc-light () "Color theme by John S Cooper, created 2000-06-08." (interactive) (color-theme-install '(color-theme-jsc-light ((background-color . "white") (background-mode . light) (border-color . "black") (cursor-color . "Red") (foreground-color . "black") (mouse-color . "black")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t :foreground "red3")))) (bold-italic ((t (:italic t :bold t :foreground "red")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3")))) (font-lock-constant-face ((t (:foreground "navy")))) (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) (font-lock-string-face ((t (:foreground "Green4")))) (font-lock-type-face ((t (:foreground "Navy")))) (font-lock-variable-name-face ((t (:foreground "Tan4")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "blue2")))) (gnus-group-news-1-face ((t (:bold t :foreground "blue2")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "blue")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "red3")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:bold t :foreground "red")))) (gnus-signature-face ((t (:foreground "pink")))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "navy")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "blue")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "red3")))) (gnus-summary-normal-ticked-face ((t (:foreground "black")))) (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3")))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "antiquewhite" :foreground "blue")))) (italic ((t (:italic t)))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "plum" :foreground "black")))) (modeline-buffer-id ((t (:background "plum" :foreground "black")))) (modeline-mousable ((t (:background "plum" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black")))) (region ((t (:background "plum")))) (secondary-selection ((t (:background "palegreen")))) (show-paren-match-face ((t (:background "plum")))) (show-paren-mismatch-face ((t (:background "navy" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-jsc-dark () "Color theme by John S Cooper, created 2000-06-11." (interactive) (color-theme-install '(color-theme-jsc-dark ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "white") (foreground-color . "cornsilk") (mouse-color . "black")) ((gnus-mouse-face . highlight) (goto-address-mail-face . italic) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . bold) (goto-address-url-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (blank-space-face ((t (:background "LightGray")))) (blank-tab-face ((t (:background "cornsilk" :foreground "black")))) (default ((t (nil)))) (bold ((t (:bold t :foreground "white")))) (bold-italic ((t (:italic t :bold t)))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (custom-button-face ((t (:foreground "white")))) (custom-changed-face ((t (:background "skyblue" :foreground "wheat")))) (custom-documentation-face ((t (:foreground "white")))) (custom-face-tag-face ((t (:underline t :foreground "white")))) (custom-group-tag-face ((t (:underline t :foreground "skyblue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:foreground "blue")))) (custom-state-face ((t (:foreground "light green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "skyblue")))) (diary-face ((t (:bold t :foreground "orange")))) (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:italic t :foreground "red")))) (font-lock-constant-face ((t (:bold t :foreground "salmon")))) (font-lock-function-name-face ((t (:bold t :foreground "orange")))) (font-lock-keyword-face ((t (:bold t :foreground "gold")))) (font-lock-string-face ((t (:italic t :foreground "orange")))) (font-lock-type-face ((t (:bold t :foreground "gold")))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon")))) (font-lock-warning-face ((t (:bold t :foreground "gold")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "light cyan")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "light blue")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white")))) (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black")))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black")))) (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black")))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-1-face ((t (:bold t :foreground "white")))) (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan")))) (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) (gnus-group-mail-3-face ((t (:bold t :foreground "tan")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "white")))) (gnus-group-news-1-face ((t (:bold t :foreground "white")))) (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan")))) (gnus-group-news-3-empty-face ((t (:foreground "tan")))) (gnus-group-news-3-face ((t (:bold t :foreground "tan")))) (gnus-group-news-4-empty-face ((t (:foreground "white")))) (gnus-group-news-4-face ((t (:bold t :foreground "white")))) (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) (gnus-group-news-5-face ((t (:bold t :foreground "wheat")))) (gnus-group-news-6-empty-face ((t (:foreground "tan")))) (gnus-group-news-6-face ((t (:bold t :foreground "tan")))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:italic t :foreground "plum1")))) (gnus-header-from-face ((t (:bold t :foreground "wheat")))) (gnus-header-name-face ((t (:bold t :foreground "gold")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat")))) (gnus-header-subject-face ((t (:bold t :foreground "red")))) (gnus-signature-face ((t (:italic t :foreground "maroon")))) (gnus-splash ((t (:foreground "Brown")))) (gnus-splash-face ((t (:foreground "gold")))) (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70")))) (gnus-summary-high-unread-face ((t (:italic t :bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70")))) (gnus-summary-normal-unread-face ((t (:bold t)))) (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4")))) (highlight ((t (:background "darkslategray" :foreground "wheat")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "gray35")))) (holiday-face ((t (:background "red")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t :foreground "yellow")))) (info-xref ((t (:bold t :foreground "plum")))) (italic ((t (:italic t)))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (linemenu-face ((t (:background "gray30")))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "plum1")))) (message-header-cc-face ((t (:bold t :foreground "ivory")))) (message-header-name-face ((t (:foreground "light sky blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush")))) (message-header-other-face ((t (:foreground "pale turquoise")))) (message-header-subject-face ((t (:bold t :foreground "papaya whip")))) (message-header-to-face ((t (:bold t :foreground "floral white")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:bold t :foreground "ForestGreen")))) (message-separator-face ((t (:foreground "sandy brown")))) (modeline ((t (:background "tan" :foreground "black")))) (modeline-buffer-id ((t (:background "tan" :foreground "black")))) (modeline-mousable ((t (:background "tan" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black")))) (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) (region ((t (:background "slategrey")))) (secondary-selection ((t (:background "deepskyblue4")))) (sgml-doctype-face ((t (:foreground "orange")))) (sgml-end-tag-face ((t (:foreground "greenyellow")))) (sgml-entity-face ((t (:foreground "gold")))) (sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) (sgml-sgml-face ((t (:foreground "yellow")))) (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) (show-paren-match-face ((t (:background "deepskyblue4")))) (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:bold t :foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "gray20")))) (widget-inactive-face ((t (:foreground "wheat")))) (widget-single-line-field-face ((t (:background "gray20")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon"))))))) (defun color-theme-greiner () "Color theme by Kevin Greiner, created 2000-06-13. Black on Beige, supports default, font-lock, speedbar, custom, widget faces. Designed to be easy on the eyes, particularly on Win32 computers which commonly have white window backgrounds." (interactive) (color-theme-install '(color-theme-greiner ((background-color . "beige") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "black") (mouse-color . "black")) ((list-matching-lines-face . bold)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (font-lock-builtin-face ((t (:foreground "blue4")))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-keyword-face ((t (:foreground "royal blue")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (highlight ((t (:background "darkseagreen2")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (italic ((t (:italic t)))) (modeline ((t (:background "black" :foreground "white")))) (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) (modeline-mousable ((t (:background "black" :foreground "white")))) (modeline-buffer-id ((t (:background "black" :foreground "white")))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "paleturquoise")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-jb-simple () "Color theme by jeff, created 2000-06-14. Uses white background and bold for many things" (interactive) (color-theme-install '(color-theme-jb-simple ((background-color . "white") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "black") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "black") (foreground-color . "black") (mouse-color . "black") (top-toolbar-shadow-color . "#fffffbeeffff")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (rmail-highlight-face . font-lock-function-name-face) (view-highlight-face . highlight)) (default ((t (nil)))) (blank-space-face ((t (nil)))) (blank-tab-face ((t (nil)))) (blue ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) (diary-face ((t (:bold t :foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (nil)))) (erc-error-face ((t (:bold t)))) (erc-input-face ((t (nil)))) (erc-inverse-face ((t (nil)))) (erc-notice-face ((t (nil)))) (erc-pal-face ((t (nil)))) (erc-prompt-face ((t (nil)))) (erc-underline-face ((t (nil)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) (eshell-ls-picture-face ((t (nil)))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (excerpt ((t (:italic t)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (fixed ((t (:bold t)))) (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) (font-latex-bold-face ((t (nil)))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (nil)))) (font-latex-string-face ((t (nil)))) (font-latex-warning-face ((t (nil)))) (font-lock-builtin-face ((t (:bold t :foreground "Orchid")))) (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4")))) (font-lock-constant-face ((t (:bold t :foreground "CadetBlue")))) (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4")))) (font-lock-exit-face ((t (nil)))) (font-lock-function-name-face ((t (:bold t :foreground "brown4")))) (font-lock-keyword-face ((t (:bold t :foreground "black")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:italic t :bold t :foreground "green4")))) (font-lock-type-face ((t (:bold t :foreground "steelblue")))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnus-cite-attribution-face ((t (:italic t :bold t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (nil)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:bold t :foreground "red3")))) (gnus-header-name-face ((t (:bold t :foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:bold t :foreground "red4")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash ((t (nil)))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:italic t :bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (:bold t)))) (gnus-summary-selected-face ((t (:underline t)))) (green ((t (nil)))) (gui-button-face ((t (:background "grey75")))) (gui-element ((t (:background "Gray80")))) (highlight ((t (:background "darkseagreen2")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "paleturquoise")))) (holiday-face ((t (:background "pink")))) (html-helper-italic-face ((t (:italic t)))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (nil)))) (italic ((t (:italic t)))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (left-margin ((t (nil)))) (linemenu-face ((t (nil)))) (list-mode-item-selected ((t (nil)))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:bold t)))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "darkblue" :foreground "yellow")))) (modeline-buffer-id ((t (:background "black" :foreground "white")))) (modeline-mousable ((t (:background "black" :foreground "white")))) (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) (nil ((t (nil)))) (paren-mismatch-face ((t (:bold t)))) (paren-no-match-face ((t (:bold t)))) (pointer ((t (nil)))) (primary-selection ((t (nil)))) (red ((t (nil)))) (region ((t (:background "gray")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (sgml-doctype-face ((t (nil)))) (sgml-end-tag-face ((t (nil)))) (sgml-entity-face ((t (nil)))) (sgml-ignored-face ((t (nil)))) (sgml-sgml-face ((t (nil)))) (sgml-start-tag-face ((t (nil)))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) (speedbar-button-face ((t (:bold t :foreground "green4")))) (speedbar-directory-face ((t (:bold t :foreground "blue4")))) (speedbar-file-face ((t (:bold t :foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (swbuff-current-buffer-face ((t (:bold t)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (text-cursor ((t (nil)))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vc-annotate-face-0046FF ((t (nil)))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (nil)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (nil)))) (woman-unknown-face ((t (nil)))) (yellow ((t (nil)))) (zmacs-region ((t (nil))))))) (defun color-theme-beige-diff () "Brownish faces for diff and change-log modes. This is intended for other color themes to use (eg. `color-theme-gnome2' and `color-theme-blue-sea')." (color-theme-install '(color-theme-beige-diff nil (change-log-acknowledgement-face ((t (:foreground "firebrick")))) (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna")))) (change-log-date-face ((t (:foreground "gold")))) (change-log-email-face ((t (:foreground "khaki" :underline t)))) (change-log-file-face ((t (:bold t :foreground "lemon chiffon")))) (change-log-function-face ((t (:foreground "khaki" :background "sienna")))) (change-log-list-face ((t (:foreground "wheat")))) (change-log-name-face ((t (:bold t :foreground "light goldenrod")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey50")))) (diff-file-header-face ((t (:bold t :foreground "lemon chiffon")))) (diff-function-face ((t (:foreground "grey50")))) (diff-header-face ((t (:foreground "lemon chiffon")))) (diff-hunk-header-face ((t (:foreground "light goldenrod")))) (diff-index-face ((t (:bold t :underline t)))) (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) (diff-removed-face ((t (nil)))) (log-view-message-face ((t (:foreground "lemon chiffon"))))))) (defun color-theme-standard-ediff () "Standard colors for ediff faces. This is intended for other color themes to use \(eg. `color-theme-goldenrod')." (color-theme-install '(color-theme-beige-diff nil (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))))) (defun color-theme-beige-eshell () "Brownish colors for eshell faces only. This is intended for other color themes to use (eg. `color-theme-goldenrod')." (color-theme-install '(color-theme-beige-eshell nil (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:foreground "DimGray")))) (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki")))) (eshell-ls-executable-face ((t (:foreground "Coral")))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face (eshell-ls-product-face ((t (:foreground "dark sea green")))) (eshell-ls-readonly-face ((t (:foreground "light steel blue")))) (eshell-ls-special-face ((t (:foreground "gold")))) (eshell-ls-symlink-face ((t (:foreground "peach puff")))) (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) (eshell-prompt-face ((t (:foreground "lemon chiffon"))))))) (defun color-theme-goldenrod () "Brown color theme. Very different from the others. Supports standard, font-lock and info faces, and it uses `color-theme-blue-gnus', `color-theme-blue-erc' , and `color-theme-beige-diff'." (interactive) (color-theme-blue-gnus) (let ((color-theme-is-cumulative t)) (color-theme-blue-erc) (color-theme-beige-diff) (color-theme-beige-eshell) (color-theme-install '(color-theme-goldenrod ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "light goldenrod") (foreground-color . "goldenrod") (mouse-color . "goldenrod")) ((goto-address-mail-face . info-xref) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t :foreground "lavender")))) (font-lock-builtin-face ((t (:foreground "pale goldenrod")))) (font-lock-comment-face ((t (:foreground "indian red")))) (font-lock-constant-face ((t (:foreground "pale green")))) (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon")))) (font-lock-keyword-face ((t (:foreground "wheat")))) (font-lock-string-face ((t (:foreground "gold")))) (font-lock-type-face ((t (:foreground "dark khaki" :bold t)))) (font-lock-variable-name-face ((t (:bold t :foreground "khaki")))) (font-lock-warning-face ((t (:bold t :foreground "orange red")))) (fringe ((t (:background "gray25")))) (header-line ((t (:background "gray20" :foreground "gray70")))) (highlight ((t (:background "dark slate blue")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t :foreground "pale goldenrod")))) (isearch ((t (:background "SeaGreen4")))) (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4")))) (italic ((t (:italic t :foreground "lavender")))) (menu ((t (:background "gray25" :foreground "lemon chiffon")))) (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon")))) (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) (region ((t (:background "dark olive green")))) (secondary-selection ((t (:background "dark green")))) (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) (underline ((t (:underline t)))))))) (defun color-theme-ramangalahy () "Color theme by Solofo Ramangalahy, created 2000-10-18. Black on light grey, includes faces for vm, ispell, gnus, dired, display-time, cperl, font-lock, widget, x-symbol." (interactive) (color-theme-install '(color-theme-ramangalahy ((background-color . "lightgrey") (background-mode . light) (background-toolbar-color . "#bfbfbfbfbfbf") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#737373737373") (cursor-color . "blue") (foreground-color . "black") (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) ((gnus-mouse-face . highlight) (goto-address-mail-face . info-xref) (ispell-highlight-face . highlight) (notes-bold-face . notes-bold-face) (setnu-line-number-face . bold) (tinyreplace-:face . highlight) (vm-highlight-url-face . bold-italic) (vm-highlighted-header-face . bold) (vm-mime-button-face . gui-button-face) (vm-summary-highlight-face . bold)) (default ((t (nil)))) (bbdb-company ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (cperl-here-face ((t (:foreground "green4")))) (cperl-pod-face ((t (:foreground "brown4")))) (cperl-pod-head-face ((t (:foreground "steelblue")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "blue")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (font-lock-comment-face ((t (:bold t :foreground "purple")))) (font-lock-doc-string-face ((t (:bold t :foreground "slateblue")))) (font-lock-emphasized-face ((t (:bold t :background "lightyellow2")))) (font-lock-function-name-face ((t (:bold t :foreground "blue")))) (font-lock-keyword-face ((t (:bold t :foreground "violetred")))) (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2")))) (font-lock-other-type-face ((t (:bold t :foreground "orange3")))) (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:bold t :foreground "steelblue")))) (font-lock-variable-name-face ((t (:foreground "magenta4")))) (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (nil)))) (gnus-emphasis-italic ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t)))) (gnus-emphasis-underline-italic ((t (:underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:foreground "indianred4")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:bold t)))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-low-unread-face ((t (nil)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "lightgrey" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "lightgrey")))) (highlight ((t (:background "darkseagreen2")))) (info-node ((t (:underline t :bold t :foreground "mediumpurple")))) (info-xref ((t (:underline t :bold t :foreground "#0000ee")))) (isearch ((t (:background "paleturquoise")))) (italic ((t (:italic t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) (message-cited-text ((t (:foreground "slategrey")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-contents ((t (:italic t)))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-headers ((t (:bold t)))) (message-highlighted-header-contents ((t (:bold t)))) (message-separator-face ((t (:foreground "brown")))) (message-url ((t (:bold t)))) (modeline ((t (:bold t :background "Gray75" :foreground "Black")))) (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4")))) (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4")))) (paren-blink-off ((t (:foreground "lightgrey")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (pointer ((t (:foreground "blue")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "black" :foreground "white")))) (right-margin ((t (nil)))) (searchm-buffer ((t (:bold t :background "white" :foreground "red")))) (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white")))) (searchm-field ((t (:background "grey89")))) (searchm-field-label ((t (:bold t)))) (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black")))) (secondary-selection ((t (:background "paleturquoise")))) (template-message-face ((t (:bold t)))) (text-cursor ((t (:background "blue" :foreground "lightgrey")))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (x-face ((t (:background "white" :foreground "black")))) (x-symbol-adobe-fontspecific-face ((t (nil)))) (x-symbol-face ((t (nil)))) (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4")))) (x-symbol-info-face ((t (:foreground "green4")))) (x-symbol-invisible-face ((t (nil)))) (x-symbol-revealed-face ((t (:background "pink")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "yellow"))))))) (defun color-theme-raspopovic () "Color theme by Pedja Raspopovic, created 2000-10-19. Includes faces for dired, font-lock, info, paren." (interactive) (color-theme-install '(color-theme-raspopovic ((background-color . "darkblue") (background-mode . light) (background-toolbar-color . "#bfbfbfbfbfbf") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#737373737373") (cursor-color . "Red3") (foreground-color . "yellow") (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) ((setnu-line-number-face . bold) (goto-address-mail-face . info-xref)) (default ((t (nil)))) (blue ((t (:background "darkblue" :foreground "blue")))) (bold ((t (:bold t :background "darkblue" :foreground "yellow")))) (bold-italic ((t (:bold t :background "darkblue" :foreground "red3")))) (comint-input-face ((t (:foreground "deepskyblue")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:foreground "lightgreen")))) (dired-face-executable ((t (:foreground "indianred")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) (dired-face-permissions ((t (:background "darkblue" :foreground "white")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "grey95")))) (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen")))) (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen")))) (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred")))) (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue")))) (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange")))) (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue")))) (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey")))) (font-lock-type-face ((t (:background "darkblue" :foreground "orange")))) (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white")))) (green ((t (:background "darkblue" :foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (highlight ((t (:background "yellow" :foreground "darkblue")))) (info-node ((t (:bold t :background "darkblue" :foreground "red3")))) (info-xref ((t (:bold t :background "darkblue" :foreground "yellow")))) (isearch ((t (:background "yellow" :foreground "darkblue")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:background "darkblue" :foreground "red3")))) (left-margin ((t (:background "darkblue" :foreground "yellow")))) (list-mode-item-selected ((t (:background "gray68" :foreground "yellow")))) (makefile-space-face ((t (:background "hotpink")))) (modeline ((t (:background "Gray75" :foreground "Black")))) (modeline-buffer-id ((t (:background "Gray75" :foreground "blue")))) (modeline-mousable ((t (:background "Gray75" :foreground "red")))) (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) (paren-blink-off ((t (:foreground "darkblue")))) (paren-match ((t (:background "yellow" :foreground "darkblue")))) (paren-mismatch ((t (:background "DeepPink" :foreground "yellow")))) (pointer ((t (:background "darkblue" :foreground "red3")))) (primary-selection ((t (:background "yellow" :foreground "darkblue")))) (red ((t (:background "darkblue" :foreground "red")))) (right-margin ((t (:background "darkblue" :foreground "yellow")))) (secondary-selection ((t (:background "darkblue" :foreground "yellow")))) (shell-option-face ((t (:background "darkblue" :foreground "cyan2")))) (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen")))) (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey")))) (shell-output-face ((t (:background "darkblue" :foreground "white")))) (shell-prompt-face ((t (:background "darkblue" :foreground "red")))) (text-cursor ((t (:background "Red3" :foreground "white")))) (underline ((t (:underline t :background "darkblue" :foreground "yellow")))) (vvb-face ((t (:background "pink" :foreground "black")))) (yellow ((t (:background "darkblue" :foreground "yellow")))) (zmacs-region ((t (:background "gray" :foreground "black"))))))) (defun color-theme-taylor () "Color theme by Art Taylor, created 2000-10-20. Wheat on black. Includes faces for font-lock, gnus, paren." (interactive) (color-theme-install '(color-theme-taylor ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "red") (foreground-color . "wheat") (mouse-color . "black")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t :background "grey40" :foreground "yellow")))) (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) (fl-comment-face ((t (:foreground "medium purple")))) (fl-function-name-face ((t (:foreground "green")))) (fl-keyword-face ((t (:foreground "LightGreen")))) (fl-string-face ((t (:foreground "light coral")))) (fl-type-face ((t (:foreground "cyan")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "OrangeRed")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "black" :foreground "black")))) (italic ((t (:italic t :foreground "yellow3")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "wheat" :foreground "black")))) (modeline-buffer-id ((t (:background "wheat" :foreground "black")))) (modeline-mousable ((t (:background "wheat" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black")))) (region ((t (:background "blue")))) (secondary-selection ((t (:background "darkslateblue" :foreground "black")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t)))) (xref-keyword-face ((t (:foreground "blue")))) (xref-list-default-face ((t (nil)))) (xref-list-pilot-face ((t (:foreground "navy")))) (xref-list-symbol-face ((t (:foreground "navy"))))))) (defun color-theme-marquardt () "Color theme by Colin Marquardt, created 2000-10-25. Black on bisque, a light color. Based on some settings from Robin S. Socha. Features some color changes to programming languages, especially vhdl-mode. You might also want to put something like Emacs*Foreground: Black Emacs*Background: bisque2 in your ~/.Xdefaults." (interactive) (color-theme-install '(color-theme-marquardt ((background-color . "bisque") (background-mode . light) (background-toolbar-color . "bisque") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#909099999999") (cursor-color . "Red3") (foreground-color . "black") (top-toolbar-shadow-color . "#ffffffffffff")) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t)))) (border-glyph ((t (nil)))) (calendar-today-face ((t (:underline t)))) (diary-face ((t (:foreground "red")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (font-lock-comment-face ((t (:foreground "gray50")))) (font-lock-doc-string-face ((t (:foreground "green4")))) (font-lock-function-name-face ((t (:foreground "darkorange")))) (font-lock-keyword-face ((t (:foreground "blue3")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-special-comment-face ((t (:foreground "blue4")))) (font-lock-special-keyword-face ((t (:foreground "red4")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:foreground "steelblue")))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "azure1" :foreground "Black")))) (highlight ((t (:background "darkseagreen2" :foreground "blue")))) (holiday-face ((t (:background "pink" :foreground "black")))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "yellow" :foreground "red")))) (italic ((t (:bold t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "bisque2" :foreground "steelblue4")))) (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4")))) (modeline-mousable ((t (:background "bisque2" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4")))) (paren-blink-off ((t (:foreground "azure1")))) (paren-face ((t (:background "lightgoldenrod")))) (paren-match ((t (:background "bisque2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (paren-mismatch-face ((t (:background "DeepPink")))) (paren-no-match-face ((t (:background "yellow")))) (pointer ((t (:background "white" :foreground "blue")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (shell-option-face ((t (:foreground "gray50")))) (shell-output-2-face ((t (:foreground "green4")))) (shell-output-3-face ((t (:foreground "green4")))) (shell-output-face ((t (:bold t)))) (shell-prompt-face ((t (:foreground "blue3")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (text-cursor ((t (:background "Red3" :foreground "bisque")))) (toolbar ((t (:background "Gray80")))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown")))) (vhdl-font-lock-function-face ((t (:foreground "DarkCyan")))) (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-font-lock-type-face ((t (:foreground "ForestGreen")))) (vhdl-font-lock-variable-face ((t (:foreground "Grey50")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "steelblue" :foreground "yellow"))))))) (defun color-theme-parus () "Color theme by Jon K Hellan, created 2000-11-01. White on dark blue color theme. There is some redundancy in the X resources, but I do not have time to find out which should go or which should stay: Emacs*dialog*Background: midnightblue Emacs*dialog*Foreground: white Emacs*popup*Background: midnightblue Emacs*popup*Foreground: white emacs*background: #00005a emacs*cursorColor: gray90 emacs*foreground: White emacs.dialog*.background: midnightblue emacs.menu*.background: midnightblue emacs.pane.menubar.background: midnightblue" (interactive) (color-theme-install '(color-theme-parus ((background-color . "#00005a") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "White") (mouse-color . "yellow")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (paren-face . bold) (paren-mismatch-face . paren-mismatch-face) (paren-no-match-face . paren-no-match-face) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (font-latex-bold-face ((t (:bold t :foreground "OliveDrab")))) (font-latex-italic-face ((t (:italic t :foreground "OliveDrab")))) (font-latex-math-face ((t (:foreground "burlywood")))) (font-latex-sedate-face ((t (:foreground "LightGray")))) (font-latex-string-face ((t (:foreground "LightSalmon")))) (font-latex-warning-face ((t (:foreground "Pink")))) (font-lock-builtin-face ((t (:foreground "#e0e0ff")))) (font-lock-reference-face ((t (:foreground "#e0e0ff")))) (font-lock-comment-face ((t (:foreground "#FFd1d1")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) (font-lock-function-name-face ((t (:foreground "#b2e4ff")))) (font-lock-keyword-face ((t (:foreground "#a0ffff")))) (font-lock-string-face ((t (:foreground "#efca10")))) (font-lock-doc-string-face ((t (:foreground "#efca10")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "#dfdfff")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:italic t :foreground "#90f490")))) (gnus-header-from-face ((t (:foreground "#aaffaa")))) (gnus-header-name-face ((t (:foreground "#c7e3c7")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) (gnus-header-subject-face ((t (:foreground "#a0f0a0")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "darkolivegreen")))) (italic ((t (:italic t)))) (message-cited-text-face ((t (:foreground "#dfdfff")))) (message-header-cc-face ((t (:bold t :foreground "#a0f0a0")))) (message-header-name-face ((t (:foreground "#c7e3c7")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "#db9b9b")))) (message-header-subject-face ((t (:foreground "#a0f0a0")))) (message-header-to-face ((t (:bold t :foreground "#aaffaa")))) (message-header-xheader-face ((t (:foreground "#e2e2ff")))) (message-mml-face ((t (:foreground "#abdbab")))) (message-separator-face ((t (:foreground "#dfdfff")))) (modeline ((t (:background "White" :foreground "#00005a")))) (modeline-buffer-id ((t (:background "White" :foreground "#00005a")))) (modeline-mousable ((t (:background "White" :foreground "#00005a")))) (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a")))) (paren-mismatch-face ((t (:background "DeepPink")))) (paren-no-match-face ((t (:background "yellow")))) (region ((t (:background "blue")))) (primary-selection ((t (:background "blue")))) (isearch ((t (:background "blue")))) (secondary-selection ((t (:background "darkslateblue")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-high-contrast () "High contrast color theme, maybe for the visually impaired. Watch out! This will set a very large font-size! If you want to modify the font as well, you should customize variable `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". The default setting will prevent color themes from installing specific fonts." (interactive) (color-theme-standard) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-high-contrast ((cursor-color . "red") (width . 60) (height . 25) (background . dark)) (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")))) (bold ((t (:bold t :underline t)))) (bold-italic ((t (:bold t :underline t)))) (font-lock-builtin-face ((t (:bold t :foreground "Red")))) (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue")))) (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) (font-lock-string-face ((t (:bold t :foreground "DarkGreen")))) (font-lock-type-face ((t (:bold t :foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (highlight ((t (:background "black" :foreground "white" :bold 1)))) (info-menu-5 ((t (:underline t :bold t)))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t )))) (italic ((t (:bold t :underline t)))) (modeline ((t (:background "black" :foreground "white" :bold 1)))) (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1)))) (modeline-mousable ((t (:background "black" :foreground "white" :bold 1)))) (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1)))) (region ((t (:background "black" :foreground "white" :bold 1)))) (secondary-selection ((t (:background "black" :foreground "white" :bold 1)))) (underline ((t (:bold t :underline t)))))))) (defun color-theme-infodoc () "Color theme by Frederic Giroud, created 2001-01-18. Black on wheat scheme. Based on infodoc (xemacs variant distribution), with my favorit fontlock color." (interactive) (color-theme-install '(color-theme-infodoc ((background-color . "wheat") (background-mode . light) (background-toolbar-color . "#000000000000") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#000000000000") (cursor-color . "red") (foreground-color . "black") (top-toolbar-shadow-color . "#ffffffffffff")) nil (default ((t (:bold t)))) (blue ((t (:bold t :foreground "blue")))) (bold ((t (:background "wheat" :foreground "black")))) (bold-italic ((t (:bold t :background "wheat" :foreground "black")))) (border-glyph ((t (:bold t)))) (calendar-today-face ((t (:underline t :bold t)))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4")))) (custom-face-tag-face ((t (:underline t :bold t)))) (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red")))) (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t :bold t)))) (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green")))) (custom-variable-button-face ((t (:underline t)))) (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) (diary-face ((t (:bold t :foreground "red")))) (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black")))) (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue")))) (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green")))) (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4")))) (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4")))) (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4")))) (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3")))) (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown")))) (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate")))) (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black")))) (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black")))) (green ((t (:bold t :foreground "green")))) (gui-button-face ((t (:bold t :background "wheat" :foreground "red")))) (gui-element ((t (:bold t :background "wheat" :foreground "black")))) (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green")))) (holiday-face ((t (:bold t :background "pink" :foreground "black")))) (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red")))) (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80")))) (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red")))) (hproperty:item-face ((t (:bold t)))) (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) (italic ((t (:bold t :background "wheat" :foreground "black")))) (left-margin ((t (:bold t :background "wheat" :foreground "black")))) (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black")))) (message-cited-text ((t (:bold t :background "wheat" :foreground "brown")))) (message-header-contents ((t (:bold t :background "wheat" :foreground "black")))) (message-headers ((t (:bold t :background "wheat" :foreground "black")))) (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue")))) (message-url ((t (nil)))) (modeline ((t (:bold t :background "light salmon" :foreground "dark green")))) (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4")))) (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4")))) (pointer ((t (:bold t :background "wheat" :foreground "red")))) (primary-selection ((t (:bold t :background "medium sea green")))) (red ((t (:bold t :foreground "red")))) (right-margin ((t (:bold t :background "wheat" :foreground "black")))) (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black")))) (shell-input-face ((t (:bold t :background "wheat" :foreground "blue")))) (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) (shell-output-face ((t (:bold t :background "wheat" :foreground "black")))) (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) (text-cursor ((t (:bold t :background "red" :foreground "wheat")))) (toolbar ((t (:bold t :background "wheat" :foreground "black")))) (underline ((t (:underline t :bold t :background "wheat" :foreground "black")))) (vertical-divider ((t (:bold t)))) (widget-button-face ((t (nil)))) (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red")))) (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green")))) (widget-field-face ((t (:bold t :background "gray85")))) (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray")))) (x-face ((t (:bold t :background "wheat" :foreground "black")))) (yellow ((t (:bold t :foreground "yellow")))) (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen"))))))) (defun color-theme-classic () "Color theme by Frederic Giroud, created 2001-01-18. AntiqueWhite on darkslategrey scheme. Based on Gnome 2, with my favorit color foreground-color and fontlock color." (interactive) (color-theme-blue-gnus) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-classic ((foreground-color . "AntiqueWhite") (background-color . "darkslategrey") (mouse-color . "Grey") (cursor-color . "Red") (border-color . "black") (background-mode . dark)) ((apropos-keybinding-face . underline) (apropos-label-face . italic) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . info-xref) (goto-address-mail-face . message-header-to-face) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . info-xref) (goto-address-url-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t :foreground "beige")))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:foreground "Yellow")))) (cperl-hash-face ((t (:foreground "White")))) (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) (custom-documentation-face ((t (:foreground "Grey")))) (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) (custom-state-face ((t (:foreground "LightSalmon")))) (custom-variable-tag-face ((t (:foreground "Aquamarine")))) (diary-face ((t (:foreground "IndianRed")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "LightSalmon")))) (erc-error-face ((t (:bold t :foreground "IndianRed")))) (erc-input-face ((t (:foreground "Beige")))) (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) (erc-notice-face ((t (:foreground "MediumAquamarine")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:foreground "MediumAquamarine")))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:foreground "DimGray")))) (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) (eshell-ls-executable-face ((t (:foreground "Coral")))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "Violet")))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) (eshell-ls-special-face ((t (:foreground "Gold")))) (eshell-ls-symlink-face ((t (:foreground "White")))) (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) (font-lock-comment-face ((t (:foreground "tomato3")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-string-face ((t (:foreground "LightSalmon3")))) (font-lock-function-name-face ((t (:foreground "SteelBlue1")))) (font-lock-keyword-face ((t (:foreground "cyan1")))) (font-lock-reference-face ((t (:foreground "LightSalmon2")))) (font-lock-string-face ((t (:foreground "LightSalmon3")))) (font-lock-type-face ((t (:foreground "PaleGreen3")))) (font-lock-variable-name-face ((t (:foreground "khaki1")))) (font-lock-warning-face ((t (:bold t :foreground "IndianRed")))) (font-lock-preprocessor-face ((t (:foreground "SkyBlue3")))) (widget-field-face ((t (:background "DarkCyan")))) (custom-group-tag-face ((t(:foreground "brown" :underline t)))) (custom-state-face ((t (:foreground "khaki")))) (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) (highline-face ((t (:background "SeaGreen")))) (holiday-face ((t (:background "DimGray")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) (info-xref ((t (:underline t :foreground "DodgerBlue1")))) (isearch ((t (:foreground "red" :background "CornflowerBlue")))) (italic ((t (:italic t)))) (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite")))) (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue")))) (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat")))) (region ((t (:background "dark cyan" :foreground "cyan")))) (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) (underline ((t (:underline t)))) (widget-field-face ((t (:foreground "LightBlue")))) (widget-inactive-face ((t (:foreground "DimGray")))) (widget-single-line-field-face ((t (:foreground "LightBlue")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))))))) (defun color-theme-scintilla () "Color theme by Gordon Messmer, created 2001-02-07. Based on the Scintilla editor. If you want to modify the font as well, you should customize variable `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". The default setting will prevent color themes from installing specific fonts." (interactive) (color-theme-install ;; The light editor style doesn't seem to look right with ;; the same font that works in the dark editor style. ;; Dark letters on light background just isn't as visible. '(color-theme-scintilla ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1") (width . 95) (height . 40) (background-color . "white") (foreground-color . "black") (background-mode . light) (mouse-color . "grey15") (cursor-color . "grey15")) (default ((t nil))) (font-lock-comment-face ((t (:italic t :foreground "ForestGreen")))) (font-lock-string-face ((t (:foreground "DarkMagenta")))) (font-lock-keyword-face ((t (:foreground "NavyBlue")))) (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) (font-lock-constant-face ((t (:foreground "Blue")))) (font-lock-type-face ((t (:foreground "NavyBlue")))) (font-lock-variable-name-face ((t (:foreground "DarkCyan")))) (font-lock-function-name-face ((t (:foreground "DarkCyan")))) (font-lock-builtin-face ((t (:foreground "NavyBlue")))) (highline-face ((t (:background "Grey95")))) (show-paren-match-face ((t (:background "Grey80")))) (region ((t (:background "Grey80")))) (highlight ((t (:foreground "ForestGreen")))) (secondary-selection ((t (:background "NavyBlue" :foreground "white")))) (widget-field-face ((t (:background "NavyBlue")))) (widget-single-line-field-face ((t (:background "RoyalBlue")))))) ) (defun color-theme-gtk-ide () "Color theme by Gordon Messmer, created 2001-02-07. Inspired by a GTK IDE whose name I've forgotten. If you want to modify the font as well, you should customize variable `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". The default setting will prevent color themes from installing specific fonts." ;; The light editor style doesn't seem to look right with ;; the same font that works in the dark editor style. ;; Dark letters on light background just isn't as visible. (interactive) (color-theme-install '(color-theme-gtk-ide ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15") (width . 95) (height . 45) (background-color . "white") (foreground-color . "black") (background-mode . light) (mouse-color . "grey15") (cursor-color . "grey15")) (default ((t nil))) (font-lock-comment-face ((t (:italic t :foreground "grey55")))) (font-lock-string-face ((t (:foreground "DarkRed")))) (font-lock-keyword-face ((t (:foreground "DarkBlue")))) (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) (font-lock-constant-face ((t (:foreground "OliveDrab")))) (font-lock-type-face ((t (:foreground "SteelBlue4")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-function-name-face ((t (:foreground "SlateBlue")))) (font-lock-builtin-face ((t (:foreground "ForestGreen")))) (highline-face ((t (:background "grey95")))) (show-paren-match-face ((t (:background "grey80")))) (region ((t (:background "grey80")))) (highlight ((t (:background "LightSkyBlue")))) (secondary-selection ((t (:background "grey55")))) (widget-field-face ((t (:background "navy")))) (widget-single-line-field-face ((t (:background "royalblue")))))) ) (defun color-theme-midnight () "Color theme by Gordon Messmer, created 2001-02-07. A color theme inspired by a certain IDE for Windows. It's all from memory, since I only used that software in college. If you want to modify the font as well, you should customize variable `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". The default setting will prevent color themes from installing specific fonts." (interactive) (color-theme-install '(color-theme-midnight ((font . "fixed") (width . 130) (height . 50) (background-color . "black") (foreground-color . "grey85") (background-mode . dark) (mouse-color . "grey85") (cursor-color . "grey85")) (default ((t (nil)))) (font-lock-comment-face ((t (:italic t :foreground "grey60")))) (font-lock-string-face ((t (:foreground "Magenta")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (font-lock-constant-face ((t (:foreground "OliveDrab")))) (font-lock-type-face ((t (:foreground "DarkCyan")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-function-name-face ((t (:foreground "SlateBlue")))) (font-lock-builtin-face ((t (:foreground "SkyBlue")))) (highline-face ((t (:background "grey12")))) (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t)))) (show-paren-match-face ((t (:background "grey30")))) (region ((t (:background "grey15")))) (highlight ((t (:background "blue")))) (secondary-selection ((t (:background "navy")))) (widget-field-face ((t (:background "navy")))) (widget-single-line-field-face ((t (:background "royalblue")))))) ) (defun color-theme-jedit-grey () "Color theme by Gordon Messmer, created 2001-02-07. Based on a screenshot of jedit. If you want to modify the font as well, you should customize variable `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". The default setting will prevent color themes from installing specific fonts." (interactive) (color-theme-install '(color-theme-jedit-grey ((font . "fixed") (width . 130) (height . 50) (background-color . "grey77") (foreground-color . "black") (background-mode . light) (mouse-color . "black") (cursor-color . "black")) (default ((t (nil)))) (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4")))) (font-lock-string-face ((t (:foreground "Gold4")))) (font-lock-keyword-face ((t (:bold t :foreground "DarkRed")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (font-lock-constant-face ((t (:foreground "DarkCyan")))) (font-lock-type-face ((t (:foreground "DarkRed")))) (font-lock-function-name-face ((t (:foreground "Green4")))) (font-lock-builtin-face ((t (:bold t :foreground "DarkRed")))) (highline-face ((t (:background "grey84")))) (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t)))) (show-paren-match-face ((t (:background "grey60")))) (region ((t (:background "grey70")))) (highlight ((t (:background "grey90")))) (secondary-selection ((t (:background "white")))) (widget-field-face ((t (:background "royalblue")))) (widget-single-line-field-face ((t (:background "royalblue")))))) ) (defun color-theme-snow () "Color theme by Nicolas Rist, created 2001-03-08. Black on gainsboro. In Emacs, the text background is a shade darker than the frame background: Gainsboro instead of snow. This makes the structure of the text clearer without being too agressive on the eyes. On XEmacs, this doesn't really work as the frame and the default face allways use the same foreground and background colors. The color theme includes gnus, message, font-lock, sgml, and speedbar." (interactive) (color-theme-install '(color-theme-snow ((background-color . "snow2") (background-mode . light) (border-color . "black") (cursor-color . "RoyalBlue2") (foreground-color . "black") (mouse-color . "black")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (:background "gainsboro" :foreground "dark slate gray")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (calendar-today-face ((t (:underline t)))) (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan")))) (custom-documentation-face ((t (:background "gainsboro")))) (diary-face ((t (:foreground "red")))) (fg:black ((t (:foreground "black")))) (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid")))) (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3")))) (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3")))) (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3")))) (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3")))) (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3")))) (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan")))) (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2")))) (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red")))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gui-button-face ((t (:foreground "light grey")))) (highlight ((t (:background "LightSteelBlue1")))) (holiday-face ((t (:background "pink")))) (ibuffer-marked-face ((t (:foreground "red")))) (italic ((t (:italic t)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "dark slate gray" :foreground "gainsboro")))) (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro")))) (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro")))) (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro")))) (region ((t (:background "lavender")))) (secondary-selection ((t (:background "paleturquoise")))) (sgml-comment-face ((t (:foreground "dark green")))) (sgml-doctype-face ((t (:foreground "maroon")))) (sgml-end-tag-face ((t (:foreground "blue2")))) (sgml-entity-face ((t (:foreground "red2")))) (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) (sgml-ms-end-face ((t (:foreground "maroon")))) (sgml-ms-start-face ((t (:foreground "maroon")))) (sgml-pi-face ((t (:foreground "maroon")))) (sgml-sgml-face ((t (:foreground "maroon")))) (sgml-short-ref-face ((t (:foreground "goldenrod")))) (sgml-start-tag-face ((t (:foreground "blue2")))) (show-paren-match-face ((t (:background "SlateGray1")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (underline ((t (:underline t))))))) (defun color-theme-montz () "Color theme by Brady Montz, created 2001-03-08. Black on Gray. Includes dired, bbdb, font-lock, gnus, message, viper, and widget." (interactive) (color-theme-install '(color-theme-montz ((background-color . "gray80") (background-mode . light) (background-toolbar-color . "#cccccccccccc") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") (cursor-color . "Red3") (foreground-color . "black") (top-toolbar-shadow-color . "#f5f5f5f5f5f5") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((gnus-mouse-face . highlight) (paren-match-face . paren-face-match) (paren-mismatch-face . paren-face-mismatch) (paren-no-match-face . paren-face-no-match) (smiley-mouse-face . highlight)) (default ((t (nil)))) (bbdb-company ((t (:italic t)))) (bbdb-field-name ((t (:bold t)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (font-lock-builtin-face ((t (:foreground "red3")))) (font-lock-comment-face ((t (:foreground "blue")))) (font-lock-constant-face ((t (:foreground "red3")))) (font-lock-doc-string-face ((t (:foreground "mediumvioletred")))) (font-lock-function-name-face ((t (:foreground "firebrick")))) (font-lock-keyword-face ((t (:bold t :foreground "black")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "mediumvioletred")))) (font-lock-type-face ((t (:foreground "darkgreen")))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (nil)))) (highlight ((t (:background "darkseagreen2")))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "paleturquoise")))) (italic ((t (:italic t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (nil)))) (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) (paren-face-match ((t (:background "turquoise")))) (paren-face-mismatch ((t (:background "purple" :foreground "white")))) (paren-face-no-match ((t (:background "yellow" :foreground "black")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "Red3" :foreground "gray80")))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black")))) (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black")))) (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black")))) (viper-replace-overlay-face ((t (:background "black" :foreground "white")))) (viper-search-face ((t (:background "black" :foreground "white")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "black" :foreground "white"))))))) (defun color-theme-aalto-light () "Color theme by Jari Aalto, created 2001-03-08. Black on light yellow. Used for Win32 on a Nokia446Xpro monitor. Includes cvs, font-lock, gnus, message, sgml, widget" (interactive) (color-theme-install '(color-theme-aalto-light ((background-color . "#FFFFE0") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "black") (mouse-color . "LawnGreen")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (tinyreplace-:face . highlight) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (calendar-today-face ((t (:underline t)))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4")))) (cvs-marked-face ((t (:bold t :foreground "green3")))) (cvs-msg-face ((t (:italic t)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:foreground "red")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-keyword-face ((t (:foreground "Purple")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "darkseagreen2")))) (holiday-face ((t (:background "pink")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (italic ((t (:italic t)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "black" :foreground "white")))) (modeline-buffer-id ((t (:background "black" :foreground "white")))) (modeline-mousable ((t (:background "black" :foreground "white")))) (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "paleturquoise")))) (sgml-comment-face ((t (:foreground "dark turquoise")))) (sgml-doctype-face ((t (:foreground "red")))) (sgml-end-tag-face ((t (:foreground "blue")))) (sgml-entity-face ((t (:foreground "magenta")))) (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) (sgml-ms-end-face ((t (:foreground "green")))) (sgml-ms-start-face ((t (:foreground "green")))) (sgml-pi-face ((t (:foreground "lime green")))) (sgml-sgml-face ((t (:foreground "brown")))) (sgml-short-ref-face ((t (:foreground "deep sky blue")))) (sgml-start-tag-face ((t (:foreground "blue")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-aalto-dark () "Color theme by Jari Aalto, created 2001-03-08. White on Deep Sky Blue 3. Used for Unix Exceed on a Nokia446Xpro monitor. Includes font-lock, info, and message." (interactive) (color-theme-install '(color-theme-aalto-dark ((background-color . "DeepSkyBlue3") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "white") (mouse-color . "black")) ((ispell-highlight-face . highlight) (list-matching-lines-face . bold) (tinyreplace-:face . highlight) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t :background "blue3" :foreground "white")))) (bold-italic ((t (:italic t :bold t :foreground "blue3")))) (calendar-today-face ((t (:underline t)))) (diary-face ((t (:foreground "red")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "OrangeRed")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (highlight ((t (:background "blue3" :foreground "white")))) (holiday-face ((t (:background "pink")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (italic ((t (:italic t :background "gray")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "white" :foreground "DeepSkyBlue3")))) (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3")))) (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) (region ((t (:background "gray")))) (secondary-selection ((t (:background "darkslateblue")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t))))))) (defun color-theme-blippblopp () "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12. Used by researchers at Uppsala University and the Center for Biological Sequence Analysis at the Technical University of Denmark. (As some of my swedish friends couldn't pronounce Sicheritz - they choose to transform it to something more \"swedish\": Blippblopp :-) Includes font-lock and message." (interactive) (color-theme-install '(color-theme-blippblopp ((background-color . "white") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "Red3") (foreground-color . "black") (mouse-color . "black") (top-toolbar-shadow-color . "#fffffbeeffff") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((ispell-highlight-face . highlight)) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (excerpt ((t (:italic t)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (fg:black ((t (:foreground "black")))) (fixed ((t (:bold t)))) (font-lock-builtin-face ((t (:foreground "red3")))) (font-lock-comment-face ((t (:foreground "orange")))) (font-lock-constant-face ((t (:foreground "red3")))) (font-lock-doc-string-face ((t (:foreground "darkgreen")))) (font-lock-exit-face ((t (:foreground "green")))) (font-lock-function-name-face ((t (:bold t :foreground "red")))) (font-lock-keyword-face ((t (:bold t :foreground "steelblue")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:bold t :foreground "blue")))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (green ((t (:foreground "green")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "dimgray" :foreground "lemonchiffon")))) (modeline-buffer-id ((t (:background "dimgray" :foreground "green3")))) (modeline-mousable ((t (:background "dimgray" :foreground "orange")))) (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65")))) (secondary-selection ((t (:background "paleturquoise")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (text-cursor ((t (:background "Red3" :foreground "white")))) (toolbar ((t (:background "Gray80")))) (underline ((t (:underline t)))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (:background "Gray80")))) (xref-keyword-face ((t (:foreground "blue")))) (xref-list-pilot-face ((t (:foreground "navy")))) (xref-list-symbol-face ((t (:foreground "navy")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-hober (&optional preview) "Does all sorts of crazy stuff. Originally based on color-theme-standard, so I probably still have some setting that I haven't changed. I also liberally copied settings from the other themes in this package. The end result isn't much like the other ones; I hope you like it." (interactive) (color-theme-install '(color-theme-hober ((foreground-color . "#c0c0c0") (background-color . "black") (mouse-color . "black") (cursor-color . "medium turquoise") (border-color . "black") (background-mode . dark)) (default ((t (nil)))) (modeline ((t (:foreground "white" :background "darkslateblue")))) (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue")))) (modeline-mousable ((t (:foreground "white" :background "darkslateblue")))) (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue")))) (highlight ((t (:foreground "black" :background "#c0c0c0")))) (bold ((t (:bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (region ((t (:foreground "white" :background "darkslateblue")))) (zmacs-region ((t (:foreground "white" :background "darkslateblue")))) (secondary-selection ((t (:background "paleturquoise")))) (underline ((t (:underline t)))) (diary-face ((t (:foreground "red")))) (calendar-today-face ((t (:underline t)))) (holiday-face ((t (:background "pink")))) (widget-documentation-face ((t (:foreground "dark green" :background "white")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red" :background "black")))) (widget-field-face ((t (:background "gray85" :foreground "black")))) (widget-single-line-field-face ((t (:background "gray85" :foreground "black")))) (widget-inactive-face ((t (:foreground "dim gray" :background "red")))) (fixed ((t (:bold t)))) (excerpt ((t (:italic t)))) (term-default-fg ((t (nil)))) (term-default-bg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-bold ((t (:bold t)))) (term-underline ((t (:underline t)))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-white ((t (:foreground "#c0c0c0")))) (term-whitebg ((t (:background "#c0c0c0")))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-red ((t (:foreground "#ef8171")))) (term-redbg ((t (:background "#ef8171")))) (term-green ((t (:foreground "#e5f779")))) (term-greenbg ((t (:background "#e5f779")))) (term-yellow ((t (:foreground "#fff796")))) (term-yellowbg ((t (:background "#fff796")))) (term-blue ((t (:foreground "#4186be")))) (term-bluebg ((t (:background "#4186be")))) (term-magenta ((t (:foreground "#ef9ebe")))) (term-magentabg ((t (:background "#ef9ebe")))) (term-cyan ((t (:foreground "#71bebe")))) (term-cyanbg ((t (:background "#71bebe")))) (font-lock-keyword-face ((t (:foreground "#00ffff")))) (font-lock-comment-face ((t (:foreground "Red")))) (font-lock-string-face ((t (:foreground "#ffff00")))) (font-lock-constant-face ((t (:foreground "#00ff00")))) (font-lock-builtin-face ((t (:foreground "#ffaa00")))) (font-lock-type-face ((t (:foreground "Coral")))) (font-lock-warning-face ((t (:foreground "Red" :bold t)))) (font-lock-function-name-face ((t (:foreground "#4186be")))) (font-lock-variable-name-face ((t (:foreground "white" :bold t)))) (message-header-to-face ((t (:foreground "#4186be" :bold t)))) (message-header-cc-face ((t (:foreground "#4186be")))) (message-header-subject-face ((t (:foreground "#4186be" :bold t)))) (message-header-newsgroups-face ((t (:foreground "Coral" :bold t)))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-name-face ((t (:foreground "white")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "brown")))) (message-cited-text-face ((t (:foreground "white")))) (gnus-header-from-face ((t (:foreground "Coral")))) (gnus-header-subject-face ((t (:foreground "#4186be")))) (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t)))) (gnus-header-name-face ((t (:foreground "white")))) (gnus-header-content-face ((t (:foreground "#4186be" :italic t)))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-list ((t (:bold nil :foreground "red")))) (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) (gnus-signature-face ((t (:foreground "white")))) (gnus-cite-face-1 ((t (:foreground "Khaki")))) (gnus-cite-face-2 ((t (:foreground "Coral")))) (gnus-cite-face-3 ((t (:foreground "#4186be")))) (gnus-cite-face-4 ((t (:foreground "yellow green")))) (gnus-cite-face-5 ((t (:foreground "IndianRed")))) (highlight-changes-face ((t (:foreground "red")))) (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) (show-paren-match-face ((t (:foreground "white" :background "purple")))) (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2")))) (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2")))) (makefile-space-face ((t (:background "hotpink")))) (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) (sgml-doctype-face ((t (:foreground "orange")))) (sgml-sgml-face ((t (:foreground "yellow")))) (sgml-end-tag-face ((t (:foreground "greenyellow")))) (sgml-entity-face ((t (:foreground "gold")))) (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))))) (defun color-theme-bharadwaj () "Color theme by Girish Bharadwaj, created 2001-03-28. Black on gainsboro. Includes BBDB, custom, cperl, cvs, dired, ediff, erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml, shell, speedbar, term, vhdl, viper, widget, woman, xref. Wow!" (interactive) (color-theme-install '(color-theme-bharadwaj ((background-color . "gainsboro") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "black") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "grey15") (foreground-color . "black") (mouse-color . "grey15") (top-toolbar-shadow-color . "#fffffbeeffff") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((gnus-mouse-face . highlight) (smiley-mouse-face . highlight)) (default ((t (nil)))) (bbdb-company ((t (nil)))) (bbdb-field-name ((t (:bold t)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (blank-space-face ((t (nil)))) (blank-tab-face ((t (nil)))) (blue ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t)))) (border-glyph ((t (nil)))) (calendar-today-face ((t (:underline t)))) (comint-input-face ((t (:foreground "deepskyblue")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4")))) (cvs-marked-face ((t (:bold t :foreground "green3")))) (cvs-msg-face ((t (nil)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:bold t :foreground "red")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t :foreground "forestgreen")))) (dired-face-executable ((t (:foreground "indianred")))) (dired-face-flagged ((t (:background "SlateGray")))) (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) (dired-face-permissions ((t (nil)))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "grey95")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (nil)))) (erc-error-face ((t (:bold t)))) (erc-input-face ((t (nil)))) (erc-inverse-face ((t (nil)))) (erc-notice-face ((t (nil)))) (erc-pal-face ((t (nil)))) (erc-prompt-face ((t (nil)))) (erc-underline-face ((t (nil)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) (eshell-ls-picture-face ((t (nil)))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (excerpt ((t (nil)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (fg:black ((t (:foreground "black")))) (fixed ((t (:bold t)))) (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) (font-latex-bold-face ((t (nil)))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (nil)))) (font-latex-string-face ((t (nil)))) (font-latex-warning-face ((t (nil)))) (font-lock-builtin-face ((t (:foreground "ForestGreen")))) (font-lock-comment-face ((t (:foreground "grey55")))) (font-lock-constant-face ((t (:foreground "OliveDrab")))) (font-lock-doc-string-face ((t (:bold t :foreground "blue4")))) (font-lock-exit-face ((t (nil)))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue")))) (font-lock-keyword-face ((t (:foreground "DarkBlue")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "DarkRed")))) (font-lock-type-face ((t (:foreground "SteelBlue4")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) (fringe ((t (:background "grey95")))) (gnus-cite-attribution-face ((t (:bold t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:bold t)))) (gnus-emphasis-highlight-words ((t (nil)))) (gnus-emphasis-italic ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:foreground "indianred4")))) (gnus-header-from-face ((t (:bold t :foreground "red3")))) (gnus-header-name-face ((t (:bold t :foreground "maroon")))) (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:bold t :foreground "red4")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (nil)))) (gnus-splash ((t (nil)))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (nil)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (:bold t)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (nil)))) (gui-button-face ((t (:background "grey75")))) (gui-element ((t (:background "Gray80")))) (highlight ((t (:background "LightSkyBlue")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "grey95")))) (holiday-face ((t (:background "pink")))) (html-helper-italic-face ((t (nil)))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "yellow")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (nil)))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (left-margin ((t (nil)))) (linemenu-face ((t (nil)))) (list-mode-item-selected ((t (nil)))) (makefile-space-face ((t (:background "hotpink")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:bold t)))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "white" :foreground "black")))) (modeline-buffer-id ((t (:background "white" :foreground "black")))) (modeline-mousable ((t (:background "white" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) (paren-blink-off ((t (:foreground "gray80")))) (paren-face-match ((t (:background "turquoise")))) (paren-face-mismatch ((t (:background "purple" :foreground "white")))) (paren-face-no-match ((t (:background "yellow" :foreground "black")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (paren-mismatch-face ((t (:bold t)))) (paren-no-match-face ((t (:bold t)))) (pointer ((t (nil)))) (primary-selection ((t (nil)))) (red ((t (nil)))) (region ((t (:background "grey80")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "grey55")))) (sgml-comment-face ((t (:foreground "dark turquoise")))) (sgml-doctype-face ((t (nil)))) (sgml-end-tag-face ((t (nil)))) (sgml-entity-face ((t (nil)))) (sgml-ignored-face ((t (nil)))) (sgml-ms-end-face ((t (:foreground "green")))) (sgml-ms-start-face ((t (:foreground "green")))) (sgml-pi-face ((t (:foreground "lime green")))) (sgml-sgml-face ((t (nil)))) (sgml-short-ref-face ((t (:foreground "deep sky blue")))) (sgml-start-tag-face ((t (nil)))) (shell-option-face ((t (:foreground "blue")))) (shell-output-2-face ((t (:foreground "darkseagreen")))) (shell-output-3-face ((t (:foreground "slategrey")))) (shell-output-face ((t (:foreground "palegreen")))) (shell-prompt-face ((t (:foreground "red")))) (show-paren-match-face ((t (:background "grey80")))) (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) (speedbar-button-face ((t (:bold t :foreground "green4")))) (speedbar-directory-face ((t (:bold t :foreground "blue4")))) (speedbar-file-face ((t (:bold t :foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (swbuff-current-buffer-face ((t (:bold t)))) (template-message-face ((t (:bold t)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (text-cursor ((t (:background "grey15" :foreground "gainsboro")))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vc-annotate-face-0046FF ((t (nil)))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (nil)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (vvb-face ((t (:background "pink" :foreground "black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "navy" :foreground "white")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "royalblue" :foreground "white")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (nil)))) (woman-unknown-face ((t (nil)))) (xref-keyword-face ((t (:foreground "blue")))) (xref-list-pilot-face ((t (:foreground "navy")))) (xref-list-symbol-face ((t (:foreground "navy")))) (yellow ((t (nil)))) (zmacs-region ((t (:background "royalblue"))))))) (defun color-theme-oswald () "Color theme by Tom Oswald, created 2001-04-18. Green on black, includes font-lock, show-paren, and ediff." (interactive) (color-theme-install '(color-theme-oswald ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "black") (foreground-color . "green") (mouse-color . "black")) ((blank-space-face . blank-space-face) (blank-tab-face . blank-tab-face) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (blank-space-face ((t (:background "LightGray")))) (blank-tab-face ((t (:background "green" :foreground "black")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4")))) (font-lock-constant-face ((t (:italic t :foreground "HotPink")))) (font-lock-doc-string-face ((t (:italic t :foreground "orange")))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "red")))) (font-lock-keyword-face ((t (:foreground "red")))) (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink")))) (font-lock-string-face ((t (:italic t :foreground "orange")))) (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue")))) (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (highlight ((t (:background "yellow" :foreground "red")))) (isearch ((t (:background "dim gray" :foreground "aquamarine")))) (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow")))) (italic ((t (:italic t)))) (modeline ((t (:background "green" :foreground "black")))) (modeline-buffer-id ((t (:background "green" :foreground "black")))) (modeline-mousable ((t (:background "green" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "green" :foreground "black")))) (region ((t (:background "dim gray" :foreground "aquamarine")))) (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod")))) (show-paren-match-face ((t (:background "turquoise" :foreground "black")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (underline ((t (:underline t)))) (zmacs-region ((t (:background "dim gray" :foreground "aquamarine"))))))) (defun color-theme-salmon-diff () "Salmon and aquamarine faces for diff and change-log modes. This is intended for other color themes to use (eg. `color-theme-gnome2')." (color-theme-install '(color-theme-salmon-diff nil (change-log-acknowledgement-face ((t (:foreground "LightBlue")))) (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine")))) (change-log-date-face ((t (:foreground "LightSalmon")))) (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine")))) (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine")))) (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine")))) (change-log-list-face ((t (:foreground "Salmon")))) (change-log-name-face ((t (:foreground "Aquamarine")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey70")))) (diff-file-header-face ((t (:bold t)))) (diff-function-face ((t (:foreground "grey70")))) (diff-header-face ((t (:foreground "light salmon")))) (diff-hunk-header-face ((t (:foreground "light salmon")))) (diff-index-face ((t (:bold t)))) (diff-nonexistent-face ((t (:bold t)))) (diff-removed-face ((t (nil)))) (log-view-message-face ((t (:foreground "light salmon"))))))) (defun color-theme-robin-hood () "`color-theme-gnome2' with navajo white on green. This theme tries to avoid underlined and italic faces, because the fonts either look ugly, or do not exist. The author himself uses neep, for example." (interactive) (color-theme-gnome2) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-robin-hood ((foreground-color . "navajo white") (background-color . "#304020")) ((CUA-mode-read-only-cursor-color . "white") (help-highlight-face . info-xref) (list-matching-lines-buffer-name-face . bold)) (default ((t (nil)))) (button ((t (:bold t)))) (calendar-today-face ((t (:foreground "lemon chiffon")))) (custom-button-face ((t (:bold t :foreground "DodgerBlue1")))) (diary-face ((t (:bold t :foreground "yellow")))) (fringe ((t (:background "#003700")))) (header-line ((t (:background "#030" :foreground "#AA7")))) (holiday-face ((t (:bold t :foreground "peru")))) (ido-subdir-face ((t (:foreground "MediumSlateBlue")))) (isearch ((t (:foreground "pink" :background "red")))) (isearch-lazy-highlight-face ((t (:foreground "red")))) (menu ((t (:background "#304020" :foreground "navajo white")))) (minibuffer-prompt ((t (:foreground "pale green")))) (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button))))) (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button))))) (semantic-dirty-token-face ((t (:background "grey22")))) (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lemon chiffon" :foreground "black")))))))) (defun color-theme-snowish () "Color theme by Girish Bharadwaj, created 2001-05-17. Dark slate gray on snow2, lots of blue colors. Includes custom, eshell, font-lock, gnus, html-helper, hyper-apropos, jde, message, paren, semantic, speedbar, term, widget." (interactive) (color-theme-install '(color-theme-snowish ((background-color . "snow2") (background-mode . light) (cursor-color . "Red3") (foreground-color . "darkslategray")) ((buffers-tab-face . buffers-tab) (gnus-mouse-face . highlight) (sgml-set-face . t) (smiley-mouse-face . highlight)) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t :foreground "peru")))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "snow2" :foreground "darkslategray")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (cyan ((t (:foreground "cyan")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan")))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red")))) (font-lock-builtin-face ((t (:underline t :foreground "blue")))) (font-lock-comment-face ((t (:foreground "snow4")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-doc-string-face ((t (:foreground "mediumblue")))) (font-lock-function-name-face ((t (:bold t :foreground "darkblue")))) (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue")))) (font-lock-preprocessor-face ((t (:underline t :foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "darkviolet")))) (font-lock-type-face ((t (:foreground "goldenrod")))) (font-lock-variable-name-face ((t (:foreground "tomato")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnus-cite-attribution-face ((t (nil)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (nil)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t)))) (gnus-emphasis-underline-italic ((t (:underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:foreground "indianred4")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (nil)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-low-unread-face ((t (nil)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "#D4D0C8" :foreground "black")))) (highlight ((t (:background "darkseagreen2")))) (html-helper-bold-face ((t (:bold t)))) (html-helper-bold-italic-face ((t (nil)))) (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) (html-helper-italic-face ((t (:foreground "medium sea green")))) (html-helper-underline-face ((t (:underline t)))) (html-tag-face ((t (:bold t)))) (hyper-apropos-documentation ((t (:foreground "darkred")))) (hyper-apropos-heading ((t (:bold t)))) (hyper-apropos-hyperlink ((t (:foreground "blue4")))) (hyper-apropos-major-heading ((t (:bold t)))) (hyper-apropos-section-heading ((t (nil)))) (hyper-apropos-warning ((t (:bold t :foreground "red")))) (info-menu-6 ((t (nil)))) (isearch ((t (:background "paleturquoise")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (nil)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) (magenta ((t (:foreground "magenta")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (nil)))) (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4")))) (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4")))) (paren-blink-off ((t (:foreground "snow2")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "snow2" :foreground "darkslategray")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (semantic-intangible-face ((t (:foreground "gray25")))) (semantic-read-only-face ((t (:background "gray25")))) (senator-momentary-highlight-face ((t (:background "gray70")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (template-message-face ((t (:bold t)))) (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) (term-blue-face ((t (:foreground "blue")))) (term-blue-inv-face ((t (:background "blue")))) (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) (term-cyan-face ((t (:foreground "cyan")))) (term-cyan-inv-face ((t (:background "cyan")))) (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) (term-green-face ((t (:foreground "green")))) (term-green-inv-face ((t (:background "green")))) (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) (term-magenta-face ((t (:foreground "magenta")))) (term-magenta-inv-face ((t (:background "magenta")))) (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) (term-red-face ((t (:foreground "red")))) (term-red-inv-face ((t (:background "red")))) (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) (term-white-face ((t (:foreground "white")))) (term-white-inv-face ((t (:background "snow2")))) (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) (term-yellow-face ((t (:foreground "yellow")))) (term-yellow-inv-face ((t (:background "yellow")))) (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) (text-cursor ((t (:background "Red3" :foreground "snow2")))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (white ((t (:foreground "white")))) (widget ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-dark-laptop () "Color theme by Laurent Michel, created 2001-05-24. Includes custom, fl, font-lock, gnus, message, widget." (interactive) (color-theme-install '(color-theme-dark-laptop ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "white") (mouse-color . "sienna1")) ((gnus-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "light blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) (fl-comment-face ((t (:foreground "pink")))) (fl-doc-string-face ((t (:foreground "purple")))) (fl-function-name-face ((t (:foreground "red")))) (fl-keyword-face ((t (:foreground "cyan")))) (fl-string-face ((t (:foreground "green")))) (fl-type-face ((t (:foreground "yellow")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "OrangeRed")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:bold t :foreground "cyan")))) (gnus-cite-face-3 ((t (:bold t :foreground "gold")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:bold t :foreground "chocolate")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:italic t :foreground "forest green")))) (gnus-header-from-face ((t (:bold t :foreground "spring green")))) (gnus-header-name-face ((t (:foreground "deep sky blue")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple")))) (gnus-header-subject-face ((t (:bold t :foreground "orange")))) (gnus-signature-face ((t (:bold t :foreground "khaki")))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (highlight ((t (:background "darkolivegreen")))) (italic ((t (:italic t)))) (message-cited-text-face ((t (:bold t :foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:bold t :foreground "orange")))) (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) (message-header-other-face ((t (:bold t :foreground "chocolate")))) (message-header-subject-face ((t (:bold t :foreground "yellow")))) (message-header-to-face ((t (:bold t :foreground "cyan")))) (message-header-xheader-face ((t (:bold t :foreground "light blue")))) (message-mml-face ((t (:bold t :background "Green3")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "white" :foreground "black")))) (modeline-buffer-id ((t (:background "white" :foreground "black")))) (modeline-mousable ((t (:background "white" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) (region ((t (:background "blue")))) (primary-selection ((t (:background "blue")))) (isearch ((t (:background "blue")))) (zmacs-region ((t (:background "blue")))) (secondary-selection ((t (:background "darkslateblue")))) (underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-taming-mr-arneson () "Color theme by Erik Arneson, created 2001-06-12. Light sky blue on black. Includes bbdb, cperl, custom, cvs, diff, dired, font-lock, html-helper, hyper-apropos, info, isearch, man, message, paren, shell, and widget." (interactive) (color-theme-install '(color-theme-taming-mr-arneson ((background-color . "black") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "Red3") (foreground-color . "LightSkyBlue") (top-toolbar-shadow-color . "#fffffbeeffff")) ((buffers-tab-face . buffers-tab) (cperl-here-face . font-lock-string-face) (cperl-invalid-face quote default) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (ispell-highlight-face . highlight) (vc-mode-face . highlight) (vm-highlight-url-face . bold-italic) (vm-highlighted-header-face . bold) (vm-mime-button-face . gui-button-face) (vm-summary-highlight-face . bold)) (default ((t (nil)))) (bbdb-company ((t (nil)))) (bbdb-field-name ((t (:bold t)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t :foreground "yellow")))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) (cperl-array-face ((t (:bold t :foreground "SkyBlue2")))) (cperl-hash-face ((t (:foreground "LightBlue2")))) (cperl-invalid-face ((t (:foreground "white")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:foreground "white")))) (custom-comment-tag-face ((t (:foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "white")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (cvs-filename-face ((t (:foreground "white")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:foreground "green")))) (cvs-marked-face ((t (:bold t :foreground "green3")))) (cvs-msg-face ((t (:foreground "red")))) (cvs-need-action-face ((t (:foreground "yellow")))) (cvs-unknown-face ((t (:foreground "grey")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-file-header-face ((t (:bold t :background "grey70")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :background "grey70")))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t :foreground "SkyBlue2")))) (dired-face-executable ((t (:foreground "Green")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-header ((t (:background "grey75" :foreground "black")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) (excerpt ((t (nil)))) (fixed ((t (:bold t)))) (font-lock-builtin-face ((t (:foreground "red3")))) (font-lock-comment-face ((t (:foreground "red")))) (font-lock-constant-face ((t (nil)))) (font-lock-doc-string-face ((t (:foreground "turquoise")))) (font-lock-function-name-face ((t (:foreground "white")))) (font-lock-keyword-face ((t (:foreground "green")))) (font-lock-preprocessor-face ((t (:foreground "green3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "turquoise")))) (font-lock-type-face ((t (:foreground "steelblue")))) (font-lock-variable-name-face ((t (:foreground "magenta2")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (nil)))) (highlight ((t (:background "darkseagreen2" :foreground "blue")))) (html-helper-bold-face ((t (:bold t)))) (html-helper-italic-face ((t (:bold t :foreground "yellow")))) (html-helper-underline-face ((t (:underline t)))) (hyper-apropos-documentation ((t (:foreground "white")))) (hyper-apropos-heading ((t (:bold t)))) (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) (hyper-apropos-major-heading ((t (:bold t)))) (hyper-apropos-section-heading ((t (:bold t)))) (hyper-apropos-warning ((t (:bold t :foreground "red")))) (info-node ((t (:bold t :foreground "yellow")))) (info-xref ((t (:bold t)))) (isearch ((t (:background "paleturquoise" :foreground "dark red")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:bold t :foreground "yellow")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "dark green")))) (man-bold ((t (:bold t)))) (man-heading ((t (:bold t)))) (man-italic ((t (:foreground "yellow")))) (man-xref ((t (:underline t)))) (message-cited-text ((t (:foreground "orange")))) (message-header-contents ((t (:foreground "white")))) (message-headers ((t (:bold t :foreground "orange")))) (message-highlighted-header-contents ((t (:bold t)))) (message-url ((t (:bold t :foreground "pink")))) (mmm-face ((t (:background "black" :foreground "green")))) (modeline ((t (nil)))) (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) (paren-blink-off ((t (:foreground "gray80")))) (paren-match ((t (:background "dark blue")))) (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65" :foreground "DarkBlue")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65" :foreground "DarkBlue")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise" :foreground "black")))) (shell-option-face ((t (:foreground "blue4")))) (shell-output-2-face ((t (:foreground "green4")))) (shell-output-3-face ((t (:foreground "green4")))) (shell-output-face ((t (:bold t)))) (shell-prompt-face ((t (:foreground "red4")))) (text-cursor ((t (:background "Red3" :foreground "black")))) (toolbar ((t (:background "Gray80" :foreground "black")))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (vm-xface ((t (:background "white" :foreground "black")))) (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) (vmpc-sig-face ((t (:foreground "steelblue")))) (widget ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85" :foreground "black")))) (widget-inactive-face ((t (:foreground "dim gray")))) (x-face ((t (:background "white" :foreground "black")))) (xrdb-option-name-face ((t (:foreground "red")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-digital-ofs1 () "Color theme by Gareth Owen, created 2001-06-13. This works well on an old, beat-up Digital Unix box with its 256 colour display, on which other color themes hog too much of the palette. Black on some shade of dark peach. Includes bbdb, cperl, custom, cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus, highlight, hproperty, html-helper, hyper-apropos, info, jde, man, message, paren, searchm, semantic, sgml, shell, speedbar, term, vhdl, viper, w3m, widget, woman, x-symbol, xref." (interactive) (color-theme-install '(color-theme-digital-ofs1 ((background-color . "#CA94AA469193") (background-mode . light) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "black") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "Black") (foreground-color . "Black") (mouse-color . "Black") (top-toolbar-shadow-color . "#fffffbeeffff") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((Man-overstrike-face . bold) (Man-underline-face . underline) (gnus-mouse-face . highlight) (goto-address-mail-face . italic) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . bold) (goto-address-url-mouse-face . highlight) (ispell-highlight-face . highlight) (list-matching-lines-face . bold) (rmail-highlight-face . font-lock-function-name-face) (view-highlight-face . highlight)) (default ((t (:bold t)))) (bbdb-company ((t (:italic t)))) (bbdb-field-name ((t (:bold t)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (blank-space-face ((t (nil)))) (blank-tab-face ((t (nil)))) (blue ((t (:bold t :foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (:bold t)))) (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) (calendar-today-face ((t (:underline t :bold t :foreground "white")))) (comint-input-face ((t (nil)))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) (cperl-here-face ((t (nil)))) (cperl-invalid-face ((t (:foreground "white")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cperl-pod-face ((t (nil)))) (cperl-pod-head-face ((t (nil)))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) (custom-comment-face ((t (:foreground "white")))) (custom-comment-tag-face ((t (:foreground "white")))) (custom-documentation-face ((t (:bold t)))) (custom-face-tag-face ((t (:underline t :bold t)))) (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue")))) (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red")))) (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t :bold t)))) (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) (custom-state-face ((t (:bold t :foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) (cvs-filename-face ((t (:foreground "white")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "green")))) (cvs-marked-face ((t (:bold t :foreground "green3")))) (cvs-msg-face ((t (:italic t :foreground "red")))) (cvs-need-action-face ((t (:foreground "yellow")))) (cvs-unknown-face ((t (:foreground "grey")))) (cyan ((t (:foreground "cyan")))) (diary-face ((t (:bold t :foreground "red")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-file-header-face ((t (:bold t :background "grey70")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :background "grey70")))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-header ((t (:background "grey75" :foreground "black")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue")))) (display-time-time-balloon-face ((t (:bold t :foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (nil)))) (erc-error-face ((t (:bold t)))) (erc-input-face ((t (nil)))) (erc-inverse-face ((t (nil)))) (erc-notice-face ((t (nil)))) (erc-pal-face ((t (nil)))) (erc-prompt-face ((t (nil)))) (erc-underline-face ((t (nil)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) (eshell-ls-picture-face ((t (:foreground "Violet")))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (excerpt ((t (:italic t)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (fg:black ((t (:foreground "black")))) (fixed ((t (:bold t)))) (fl-comment-face ((t (:foreground "medium purple")))) (fl-doc-string-face ((t (nil)))) (fl-function-name-face ((t (:foreground "green")))) (fl-keyword-face ((t (:foreground "LightGreen")))) (fl-string-face ((t (:foreground "light coral")))) (fl-type-face ((t (:foreground "cyan")))) (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) (font-latex-bold-face ((t (:bold t)))) (font-latex-italic-face ((t (:italic t)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (nil)))) (font-latex-string-face ((t (nil)))) (font-latex-warning-face ((t (nil)))) (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid")))) (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue")))) (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4")))) (font-lock-emphasized-face ((t (:bold t)))) (font-lock-exit-face ((t (:foreground "green")))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue")))) (font-lock-keyword-face ((t (:bold t :foreground "dark olive green")))) (font-lock-other-emphasized-face ((t (:italic t :bold t)))) (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue")))) (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3")))) (font-lock-reference-face ((t (:italic t :bold t :foreground "red3")))) (font-lock-special-comment-face ((t (nil)))) (font-lock-special-keyword-face ((t (nil)))) (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue")))) (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen")))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (fringe ((t (:background "grey95")))) (gdb-arrow-face ((t (:bold t)))) (gnus-cite-attribution-face ((t (:italic t :bold t)))) (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:bold t :foreground "firebrick")))) (gnus-cite-face-3 ((t (:bold t :foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:bold t :foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-cite-face-list ((t (nil)))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:bold t :foreground "red3")))) (gnus-header-name-face ((t (:bold t :foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:bold t :foreground "red4")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (:italic t :bold t)))) (gnus-splash ((t (nil)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:italic t :bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (:bold t)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:bold t :foreground "green")))) (gui-button-face ((t (:bold t :background "grey75" :foreground "black")))) (gui-element ((t (:bold t :background "Gray80")))) (highlight ((t (:bold t :background "darkseagreen2")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "black" :foreground "white")))) (holiday-face ((t (:bold t :background "pink" :foreground "white")))) (hproperty:but-face ((t (:bold t)))) (hproperty:flash-face ((t (:bold t)))) (hproperty:highlight-face ((t (:bold t)))) (hproperty:item-face ((t (:bold t)))) (html-helper-bold-face ((t (:bold t)))) (html-helper-bold-italic-face ((t (nil)))) (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow")))) (html-helper-underline-face ((t (:underline t)))) (html-tag-face ((t (:bold t)))) (hyper-apropos-documentation ((t (:foreground "white")))) (hyper-apropos-heading ((t (:bold t)))) (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) (hyper-apropos-major-heading ((t (:bold t)))) (hyper-apropos-section-heading ((t (:bold t)))) (hyper-apropos-warning ((t (:bold t :foreground "red")))) (ibuffer-marked-face ((t (:foreground "red")))) (info-menu-5 ((t (:underline t :bold t)))) (info-menu-6 ((t (nil)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:bold t :background "paleturquoise")))) (isearch-secondary ((t (:foreground "red3")))) (ispell-face ((t (:bold t)))) (italic ((t (:italic t :bold t)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (left-margin ((t (:bold t)))) (linemenu-face ((t (nil)))) (list-mode-item-selected ((t (:bold t :background "gray68")))) (magenta ((t (:foreground "magenta")))) (makefile-space-face ((t (:background "hotpink")))) (man-bold ((t (:bold t)))) (man-heading ((t (:bold t)))) (man-italic ((t (:foreground "yellow")))) (man-xref ((t (:underline t)))) (message-cited-text ((t (:bold t :foreground "orange")))) (message-cited-text-face ((t (:bold t :foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-contents ((t (:italic t :bold t :foreground "white")))) (message-header-name-face ((t (:bold t :foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:bold t :foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:bold t :foreground "blue")))) (message-headers ((t (:bold t :foreground "orange")))) (message-highlighted-header-contents ((t (:bold t)))) (message-mml-face ((t (:bold t :foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (message-url ((t (:bold t :foreground "pink")))) (mmm-face ((t (:background "black" :foreground "green")))) (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193")))) (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4")))) (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4")))) (my-tab-face ((t (nil)))) (nil ((t (nil)))) (p4-diff-del-face ((t (:bold t)))) (paren-blink-off ((t (:foreground "gray80")))) (paren-face ((t (nil)))) (paren-face-match ((t (nil)))) (paren-face-mismatch ((t (nil)))) (paren-face-no-match ((t (nil)))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white")))) (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white")))) (pointer ((t (:bold t)))) (primary-selection ((t (:bold t :background "gray65")))) (red ((t (:bold t :foreground "red")))) (region ((t (:bold t :background "gray")))) (right-margin ((t (:bold t)))) (searchm-buffer ((t (:bold t)))) (searchm-button ((t (:bold t)))) (searchm-field ((t (nil)))) (searchm-field-label ((t (:bold t)))) (searchm-highlight ((t (:bold t)))) (secondary-selection ((t (:bold t :background "paleturquoise")))) (semantic-intangible-face ((t (:foreground "gray25")))) (semantic-read-only-face ((t (:background "gray25")))) (senator-momentary-highlight-face ((t (:background "gray70")))) (setnu-line-number-face ((t (:italic t :bold t)))) (sgml-comment-face ((t (:foreground "dark green")))) (sgml-doctype-face ((t (:foreground "maroon")))) (sgml-end-tag-face ((t (:foreground "blue2")))) (sgml-entity-face ((t (:foreground "red2")))) (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) (sgml-ms-end-face ((t (:foreground "maroon")))) (sgml-ms-start-face ((t (:foreground "maroon")))) (sgml-pi-face ((t (:foreground "maroon")))) (sgml-sgml-face ((t (:foreground "maroon")))) (sgml-short-ref-face ((t (:foreground "goldenrod")))) (sgml-start-tag-face ((t (:foreground "blue2")))) (shell-input-face ((t (:bold t)))) (shell-option-face ((t (:bold t :foreground "blue4")))) (shell-output-2-face ((t (:bold t :foreground "green4")))) (shell-output-3-face ((t (:bold t :foreground "green4")))) (shell-output-face ((t (:bold t)))) (shell-prompt-face ((t (:bold t :foreground "red4")))) (show-paren-match-face ((t (:bold t :background "turquoise")))) (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) (speedbar-button-face ((t (:bold t :foreground "magenta")))) (speedbar-directory-face ((t (:bold t :foreground "orchid")))) (speedbar-file-face ((t (:bold t :foreground "pink")))) (speedbar-highlight-face ((t (:background "black")))) (speedbar-selected-face ((t (:underline t :foreground "cyan")))) (speedbar-tag-face ((t (:foreground "yellow")))) (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) (template-message-face ((t (:bold t)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) (term-blue-face ((t (:foreground "blue")))) (term-blue-inv-face ((t (:background "blue")))) (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) (term-cyan-face ((t (:foreground "cyan")))) (term-cyan-inv-face ((t (:background "cyan")))) (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) (term-green ((t (:foreground "green")))) (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) (term-green-face ((t (:foreground "green")))) (term-green-inv-face ((t (:background "green")))) (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) (term-magenta-face ((t (:foreground "magenta")))) (term-magenta-inv-face ((t (:background "magenta")))) (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) (term-red-face ((t (:foreground "red")))) (term-red-inv-face ((t (:background "red")))) (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) (term-white-face ((t (:foreground "white")))) (term-white-inv-face ((t (:background "snow2")))) (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) (term-yellow-face ((t (:foreground "yellow")))) (term-yellow-inv-face ((t (:background "yellow")))) (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (text-cursor ((t (:bold t :background "Red3" :foreground "gray80")))) (toolbar ((t (:bold t :background "Gray80")))) (underline ((t (:underline t :bold t)))) (vc-annotate-face-0046FF ((t (nil)))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (:bold t :background "Gray80")))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-generic-/constant-face ((t (nil)))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-font-lock-type-face ((t (nil)))) (vhdl-font-lock-variable-face ((t (nil)))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) (vhdl-speedbar-subprogram-face ((t (nil)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (vm-xface ((t (:background "white" :foreground "black")))) (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) (vmpc-sig-face ((t (:foreground "steelblue")))) (vvb-face ((t (nil)))) (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) (white ((t (:foreground "white")))) (widget ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:bold t :foreground "red")))) (widget-documentation-face ((t (:bold t :foreground "dark green")))) (widget-field-face ((t (:bold t :background "gray85")))) (widget-inactive-face ((t (:bold t :foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (x-face ((t (:bold t :background "white" :foreground "black")))) (x-symbol-adobe-fontspecific-face ((t (nil)))) (x-symbol-face ((t (nil)))) (x-symbol-heading-face ((t (:bold t)))) (x-symbol-info-face ((t (nil)))) (x-symbol-invisible-face ((t (nil)))) (x-symbol-revealed-face ((t (nil)))) (xrdb-option-name-face ((t (:foreground "red")))) (xref-keyword-face ((t (:foreground "blue")))) (xref-list-default-face ((t (nil)))) (xref-list-pilot-face ((t (:foreground "navy")))) (xref-list-symbol-face ((t (:foreground "navy")))) (yellow ((t (:bold t :foreground "yellow")))) (zmacs-region ((t (:bold t :background "gray65"))))))) (defun color-theme-mistyday () "Color theme by K.C. Hari Kumar, created 2001-06-13. Black on mistyrose. Includes CUA, calendar, diary, font-latex and font-lock. Uses backgrounds on some font-lock faces." (interactive) (color-theme-install '(color-theme-mistyday ((background-color . "mistyrose") (background-mode . light) (border-color . "black") (cursor-color . "deep pink") (foreground-color . "Black") (mouse-color . "black")) ((goto-address-mail-face . italic) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . bold) (goto-address-url-mouse-face . highlight) (list-matching-lines-face . bold) (paren-match-face . paren-face-match) (paren-mismatch-face . paren-face-mismatch) (paren-no-match-face . paren-face-no-match)) (default ((t (nil)))) (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown")))) (custom-button-face ((t (:background "dark slate grey" :foreground "azure")))) (custom-documentation-face ((t (:background "white" :foreground "blue")))) (diary-face ((t (:background "navy" :foreground "yellow")))) (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen")))) (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen")))) (font-latex-math-face ((t (:foreground "navy")))) (font-latex-sedate-face ((t (:foreground "DimGray")))) (font-latex-string-face ((t (nil)))) (font-latex-warning-face ((t (nil)))) (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy")))) (font-lock-comment-face ((t (:italic t :foreground "royal blue")))) (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue")))) (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue")))) (font-lock-keyword-face ((t (:foreground "dark magenta")))) (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue")))) (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy")))) (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) (font-lock-type-face ((t (:background "steel blue" :foreground "khaki")))) (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red")))) (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red")))) (highlight ((t (:background "dark slate grey" :foreground "light cyan")))) (holiday-face ((t (:background "orangered" :foreground "lightyellow")))) (ido-first-match-face ((t (:bold t)))) (ido-only-match-face ((t (:foreground "ForestGreen")))) (ido-subdir-face ((t (:foreground "red")))) (italic ((t (:italic t)))) (isearch ((t (:background "sienna" :foreground "light cyan")))) (modeline ((t (:background "Royalblue4" :foreground "lawn green")))) (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green")))) (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green")))) (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green")))) (paren-face-match ((t (:background "turquoise")))) (paren-face-mismatch ((t (:background "purple" :foreground "white")))) (paren-face-no-match ((t (:background "yellow" :foreground "black")))) (primary-selection ((t (:background "sienna" :foreground "light cyan")))) (region ((t (:background "sienna" :foreground "light cyan")))) (secondary-selection ((t (:background "forest green" :foreground "white smoke")))) (underline ((t (:underline t)))) (zmacs-region ((t (:background "sienna" :foreground "light cyan"))))))) (defun color-theme-marine () "Color theme by Girish Bharadwaj, created 2001-06-22. Matches the MS Windows Marine color theme. Includes custom, font-lock, paren, widget." (interactive) (color-theme-install '(color-theme-marine ((background-color . "#9dcec9") (background-mode . light) (border-color . "black") (cursor-color . "yellow") (foreground-color . "darkslategray") (mouse-color . "sienna1")) ((buffers-tab-face . buffers-tab) (gnus-mouse-face . highlight) (smiley-mouse-face . highlight)) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (nil)))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "darkgreen")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (font-lock-builtin-face ((t (:foreground "SteelBlue")))) (font-lock-comment-face ((t (:foreground "cadetblue")))) (font-lock-constant-face ((t (:foreground "OrangeRed")))) (font-lock-doc-string-face ((t (:foreground "Salmon")))) (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue")))) (font-lock-keyword-face ((t (:bold t :foreground "purple")))) (font-lock-preprocessor-face ((t (:foreground "SteelBlue")))) (font-lock-reference-face ((t (:foreground "SteelBlue")))) (font-lock-string-face ((t (:foreground "royalblue")))) (font-lock-type-face ((t (:foreground "darkmagenta")))) (font-lock-variable-name-face ((t (:foreground "violetred")))) (font-lock-warning-face ((t (:bold t :foreground "red")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "#489088" :foreground "black")))) (highlight ((t (:background "darkolivegreen" :foreground "white")))) (isearch ((t (:background "blue")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (nil)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) (modeline ((t (:background "black" :foreground "white")))) (modeline-buffer-id ((t (:background "black" :foreground "white")))) (modeline-mousable ((t (:background "black" :foreground "white")))) (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) (paren-blink-off ((t (:foreground "black")))) (paren-match ((t (:background "darkolivegreen" :foreground "white")))) (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray")))) (pointer ((t (nil)))) (primary-selection ((t (:background "blue")))) (red ((t (:foreground "red")))) (region ((t (:background "blue")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "darkslateblue" :foreground "white")))) (template-message-face ((t (:bold t)))) (text-cursor ((t (:background "yellow" :foreground "#9dcec9")))) (toolbar ((t (nil)))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (widget ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "forestgreen")))) (widget-field-face ((t (:background "gray")))) (widget-inactive-face ((t (:foreground "dimgray")))) (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "blue"))))))) (defun color-theme-blue-erc () "Color theme for erc faces only. This is intended for other color themes to use (eg. `color-theme-gnome2')." (color-theme-install '(color-theme-blue-erc nil (erc-action-face ((t (nil)))) (erc-bold-face ((t (:bold t)))) (erc-current-nick-face ((t (:bold t :foreground "yellow")))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "pale green")))) (erc-error-face ((t (:bold t :foreground "IndianRed")))) (erc-highlight-face ((t (:bold t :foreground "pale green")))) (erc-input-face ((t (:foreground "light blue")))) (erc-inverse-face ((t (:background "steel blue")))) (erc-keyword-face ((t (:foreground "orange" :bold t)))) (erc-notice-face ((t (:foreground "light salmon")))) (erc-notice-face ((t (:foreground "MediumAquamarine")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:foreground "light blue" :bold t)))) (fg:erc-color-face0 ((t (:foreground "white")))) (fg:erc-color-face1 ((t (:foreground "beige")))) (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) (fg:erc-color-face3 ((t (:foreground "light cyan")))) (fg:erc-color-face4 ((t (:foreground "powder blue")))) (fg:erc-color-face5 ((t (:foreground "sky blue")))) (fg:erc-color-face6 ((t (:foreground "dark sea green")))) (fg:erc-color-face7 ((t (:foreground "pale green")))) (fg:erc-color-face8 ((t (:foreground "medium spring green")))) (fg:erc-color-face9 ((t (:foreground "khaki")))) (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) (fg:erc-color-face12 ((t (:foreground "light yellow")))) (fg:erc-color-face13 ((t (:foreground "yellow")))) (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) (fg:erc-color-face15 ((t (:foreground "lime green")))) (bg:erc-color-face0 ((t (nil)))) (bg:erc-color-face1 ((t (nil)))) (bg:erc-color-face2 ((t (nil)))) (bg:erc-color-face3 ((t (nil)))) (bg:erc-color-face4 ((t (nil)))) (bg:erc-color-face5 ((t (nil)))) (bg:erc-color-face6 ((t (nil)))) (bg:erc-color-face7 ((t (nil)))) (bg:erc-color-face8 ((t (nil)))) (bg:erc-color-face9 ((t (nil)))) (bg:erc-color-face10 ((t (nil)))) (bg:erc-color-face11 ((t (nil)))) (bg:erc-color-face12 ((t (nil)))) (bg:erc-color-face13 ((t (nil)))) (bg:erc-color-face14 ((t (nil)))) (bg:erc-color-face15 ((t (nil))))))) (defun color-theme-dark-erc () "Color theme for erc faces only. This is intended for other color themes to use (eg. `color-theme-late-night')." (interactive) (color-theme-install '(color-theme-dark-erc nil (erc-action-face ((t (nil)))) (erc-bold-face ((t (:bold t)))) (erc-current-nick-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (nil)))) (erc-error-face ((t (:bold t :foreground "IndianRed")))) (erc-highlight-face ((t (:bold t :foreground "pale green")))) (erc-input-face ((t (:foreground "#555")))) (erc-inverse-face ((t (:background "steel blue")))) (erc-keyword-face ((t (:foreground "#999" :bold t)))) (erc-nick-msg-face ((t (:foreground "#888")))) (erc-notice-face ((t (:foreground "#444")))) (erc-pal-face ((t (:foreground "#888")))) (erc-prompt-face ((t (:foreground "#777" :bold t)))) (erc-timestamp-face ((t (:foreground "#777" :bold t)))) (fg:erc-color-face0 ((t (:foreground "white")))) (fg:erc-color-face1 ((t (:foreground "beige")))) (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) (fg:erc-color-face3 ((t (:foreground "light cyan")))) (fg:erc-color-face4 ((t (:foreground "powder blue")))) (fg:erc-color-face5 ((t (:foreground "sky blue")))) (fg:erc-color-face6 ((t (:foreground "dark sea green")))) (fg:erc-color-face7 ((t (:foreground "pale green")))) (fg:erc-color-face8 ((t (:foreground "medium spring green")))) (fg:erc-color-face9 ((t (:foreground "khaki")))) (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) (fg:erc-color-face12 ((t (:foreground "light yellow")))) (fg:erc-color-face13 ((t (:foreground "yellow")))) (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) (fg:erc-color-face15 ((t (:foreground "lime green")))) (bg:erc-color-face0 ((t (nil)))) (bg:erc-color-face1 ((t (nil)))) (bg:erc-color-face2 ((t (nil)))) (bg:erc-color-face3 ((t (nil)))) (bg:erc-color-face4 ((t (nil)))) (bg:erc-color-face5 ((t (nil)))) (bg:erc-color-face6 ((t (nil)))) (bg:erc-color-face7 ((t (nil)))) (bg:erc-color-face8 ((t (nil)))) (bg:erc-color-face9 ((t (nil)))) (bg:erc-color-face10 ((t (nil)))) (bg:erc-color-face11 ((t (nil)))) (bg:erc-color-face12 ((t (nil)))) (bg:erc-color-face13 ((t (nil)))) (bg:erc-color-face14 ((t (nil)))) (bg:erc-color-face15 ((t (nil))))))) (defun color-theme-subtle-blue () "Color theme by Chris McMahan, created 2001-09-06. Light blue background. Includes bbdb, comint, cperl, custom, cvs, diary, dired, display-time, ecb, ediff, erc, eshell, font-lock, gnus, html-helper, info, isearch, jde, message, paren, semantic, sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml." (interactive) (color-theme-install '(color-theme-subtle-blue ((background-color . "#65889C") (background-mode . dark) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "black") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "white") (foreground-color . "#eedfcc") (mouse-color . "Grey") (top-toolbar-shadow-color . "#fffffbeeffff") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((blank-space-face . blank-space-face) (blank-tab-face . blank-tab-face) (ecb-source-in-directories-buffer-face . ecb-sources-face) (gnus-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight) (vm-highlight-url-face . my-url-face) (vm-highlighted-header-face . my-url-face) (vm-mime-button-face . gui-button-face) (vm-summary-highlight-face . my-summary-highlight-face)) (default ((t (nil)))) (bbdb-company ((t (:italic t)))) (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine")))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (blank-space-face ((t (:background "gray80")))) (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray")))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t :foreground "MediumAquamarine")))) (bold-italic ((t (:italic t :bold t :foreground "SkyBlue")))) (border ((t (:background "black")))) (border-glyph ((t (nil)))) (calendar-today-face ((t (:underline t)))) (comint-highlight-input ((t (:bold t)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (comint-input-face ((t (:foreground "deepskyblue")))) (cperl-array-face ((t (:bold t :foreground "Yellow")))) (cperl-hash-face ((t (:italic t :bold t :foreground "White")))) (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) (cursor ((t (:background "white")))) (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine")))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (:foreground "Grey")))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine")))) (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "yellow")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine")))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4")))) (cvs-marked-face ((t (:bold t :foreground "green3")))) (cvs-msg-face ((t (:italic t)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:bold t :foreground "cyan")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t :foreground "sky blue")))) (dired-face-executable ((t (:foreground "MediumAquaMarine")))) (dired-face-flagged ((t (:foreground "Cyan")))) (dired-face-marked ((t (:foreground "cyan")))) (dired-face-permissions ((t (:foreground "aquamarine")))) (dired-face-setuid ((t (:foreground "LightSalmon")))) (dired-face-socket ((t (:foreground "LightBlue")))) (dired-face-symlink ((t (:foreground "gray95")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ecb-sources-face ((t (:foreground "LightBlue1")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white")))) (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "LightSalmon")))) (erc-error-face ((t (:bold t :foreground "yellow")))) (erc-input-face ((t (:foreground "Beige")))) (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) (erc-notice-face ((t (:foreground "MediumAquamarine")))) (erc-pal-face ((t (:foreground "PaleGreen")))) (erc-prompt-face ((t (:foreground "MediumAquamarine")))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "wheat")))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:bold t :foreground "wheat")))) (eshell-ls-directory-face ((t (:bold t :foreground "Yellow")))) (eshell-ls-executable-face ((t (:bold t :foreground "wheat")))) (eshell-ls-missing-face ((t (:bold t :foreground "wheat")))) (eshell-ls-picture-face ((t (:foreground "wheat")))) (eshell-ls-product-face ((t (:foreground "wheat")))) (eshell-ls-readonly-face ((t (:foreground "wheat")))) (eshell-ls-special-face ((t (:bold t :foreground "wheat")))) (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) (eshell-ls-text-face ((t (:foreground "wheat")))) (eshell-ls-todo-face ((t (:foreground "wheat")))) (eshell-ls-unreadable-face ((t (:foreground "wheat3")))) (eshell-prompt-face ((t (:bold t :foreground "PaleGreen")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (excerpt ((t (:italic t)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (:foreground "Gray85")))) (font-latex-string-face ((t (:foreground "orange")))) (font-latex-warning-face ((t (:foreground "gold")))) (font-lock-builtin-face ((t (:foreground "PaleGreen")))) (font-lock-comment-face ((t (:italic t :foreground "Wheat3")))) (font-lock-constant-face ((t (:foreground "LightBlue")))) (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen")))) (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen")))) (font-lock-exit-face ((t (:foreground "green")))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan")))) (font-lock-keyword-face ((t (:bold t :foreground "LightBlue")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "PaleGreen")))) (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine")))) (font-lock-type-face ((t (:bold t :foreground "LightBlue")))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue")))) (font-lock-warning-face ((t (:bold t :foreground "LightSalmon")))) (fringe ((t (:background "darkslategrey")))) (gnus-cite-attribution-face ((t (:italic t :bold t)))) (gnus-cite-face-1 ((t (:foreground "LightBlue")))) (gnus-cite-face-10 ((t (:foreground "LightBlue")))) (gnus-cite-face-11 ((t (:foreground "LightBlue")))) (gnus-cite-face-2 ((t (:foreground "LightBlue")))) (gnus-cite-face-3 ((t (:foreground "LightBlue")))) (gnus-cite-face-4 ((t (:foreground "LightBlue")))) (gnus-cite-face-5 ((t (:foreground "LightBlue")))) (gnus-cite-face-6 ((t (:foreground "LightBlue")))) (gnus-cite-face-7 ((t (:foreground "LightBlue")))) (gnus-cite-face-8 ((t (:foreground "LightBlue")))) (gnus-cite-face-9 ((t (:foreground "LightBlue")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) (gnus-group-mail-2-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-mail-3-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) (gnus-group-mail-low-empty-face ((t (:foreground "gray80")))) (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue")))) (gnus-group-news-1-empty-face ((t (:foreground "gray80")))) (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) (gnus-group-news-2-empty-face ((t (:foreground "gray80")))) (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine")))) (gnus-group-news-3-empty-face ((t (:foreground "gray80")))) (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) (gnus-group-news-4-empty-face ((t (:foreground "gray80")))) (gnus-group-news-4-face ((t (:bold t :foreground "Wheat")))) (gnus-group-news-5-empty-face ((t (:foreground "gray80")))) (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-group-news-6-empty-face ((t (:foreground "gray80")))) (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) (gnus-group-news-low-empty-face ((t (:foreground "gray80")))) (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3")))) (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (:italic t :foreground "LightBlue")))) (gnus-splash ((t (:foreground "Brown")))) (gnus-splash-face ((t (:foreground "LightBlue")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "gray80")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green")))) (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue")))) (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) (gnus-summary-normal-ancient-face ((t (:foreground "gray80")))) (gnus-summary-normal-read-face ((t (:foreground "gray80")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown")))) (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat")))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "cyan" :foreground "#65889C")))) (gui-element ((t (:background "Gray")))) (header-line ((t (:background "grey20" :foreground "grey90")))) (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "SeaGreen")))) (holiday-face ((t (:background "DimGray")))) (html-helper-bold-face ((t (:foreground "DarkRed")))) (html-helper-italic-face ((t (:foreground "DarkBlue")))) (html-helper-underline-face ((t (:underline t :foreground "Black")))) (html-tag-face ((t (:foreground "Blue")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:underline t :italic t :bold t :foreground "light blue")))) (info-xref ((t (:bold t :foreground "light blue")))) (isearch ((t (:background "Aquamarine" :foreground "SteelBlue")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:italic t)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-bold-face ((t (:bold t)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-italic-face ((t (:italic t)))) (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue")))) (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (left-margin ((t (nil)))) (linemenu-face ((t (:background "gray30")))) (list-mode-item-selected ((t (nil)))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (:background "wheat" :foreground "gray30")))) (message-cited-text-face ((t (:foreground "White")))) (message-header-cc-face ((t (:bold t :foreground "light cyan")))) (message-header-name-face ((t (:foreground "LightBlue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) (message-header-other-face ((t (:foreground "LightSkyBlue3")))) (message-header-subject-face ((t (:bold t :foreground "light cyan")))) (message-header-to-face ((t (:bold t :foreground "light cyan")))) (message-header-xheader-face ((t (:foreground "LightBlue")))) (message-mml-face ((t (:bold t :foreground "LightBlue")))) (message-separator-face ((t (:foreground "LightBlue")))) (mmm-default-submode-face ((t (:background "#c0c0c5")))) (modeline ((t (:background "#4f657d" :foreground "gray80")))) (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80")))) (modeline-mousable ((t (:background "#4f657d" :foreground "gray80")))) (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80")))) (mouse ((t (:background "Grey")))) (my-summary-highlight-face ((t (:foreground "White")))) (my-url-face ((t (:foreground "PaleTurquoise")))) (nil ((t (nil)))) (paren-blink-off ((t (:foreground "gray")))) (paren-face-match ((t (:background "turquoise")))) (paren-face-mismatch ((t (:background "purple" :foreground "white")))) (paren-face-no-match ((t (:background "yellow" :foreground "black")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (paren-mismatch-face ((t (:bold t)))) (paren-no-match-face ((t (:bold t)))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "CadetBlue" :foreground "gray80")))) (right-margin ((t (nil)))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d")))) (semantic-dirty-token-face ((t (:background "gray10")))) (semantic-intangible-face ((t (:foreground "gray25")))) (semantic-read-only-face ((t (:background "gray25")))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray80")))) (senator-read-only-face ((t (:background "#664444")))) (sgml-comment-face ((t (:foreground "dark turquoise")))) (sgml-doctype-face ((t (:foreground "red")))) (sgml-end-tag-face ((t (:foreground "blue")))) (sgml-entity-face ((t (:foreground "magenta")))) (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) (sgml-ms-end-face ((t (:foreground "green")))) (sgml-ms-start-face ((t (:foreground "yellow")))) (sgml-pi-face ((t (:foreground "lime green")))) (sgml-sgml-face ((t (:foreground "brown")))) (sgml-short-ref-face ((t (:foreground "deep sky blue")))) (sgml-start-tag-face ((t (:foreground "dark green")))) (shell-option-face ((t (:foreground "blue")))) (shell-output-2-face ((t (:foreground "darkseagreen")))) (shell-output-3-face ((t (:foreground "slategray")))) (shell-output-face ((t (:foreground "palegreen")))) (shell-prompt-face ((t (:foreground "red")))) (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue")))) (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White")))) (speedbar-button-face ((t (:bold t :foreground "LightBlue")))) (speedbar-directory-face ((t (:bold t :foreground "yellow")))) (speedbar-file-face ((t (:bold t :foreground "wheat")))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:underline t)))) (speedbar-tag-face ((t (:foreground "LightBlue")))) (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) (template-message-face ((t (:bold t)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (text-cursor ((t (:background "Red3" :foreground "white")))) (tool-bar ((t (:background "grey75" :foreground "black")))) (toolbar ((t (:background "Gray")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (nil)))) (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (:background "Gray")))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Gray50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50")))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (vm-header-content-face ((t (:italic t :foreground "gray80")))) (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan")))) (vm-header-name-face ((t (:foreground "cyan")))) (vm-header-subject-face ((t (:foreground "cyan")))) (vm-header-to-face ((t (:italic t :foreground "cyan")))) (vm-message-cited-face ((t (:foreground "Gray80")))) (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) (vm-summary-highlight-face ((t (:foreground "White")))) (vmpc-pre-sig-face ((t (:foreground "Aquamarine")))) (vmpc-sig-face ((t (:foreground "LightBlue")))) (vvb-face ((t (:background "pink" :foreground "black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "cyan")))) (widget-documentation-face ((t (:foreground "LightBlue")))) (widget-field-face ((t (:foreground "LightBlue")))) (widget-inactive-face ((t (:foreground "Wheat3")))) (widget-single-line-field-face ((t (:foreground "LightBlue")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (xref-keyword-face ((t (:foreground "Cyan")))) (xref-list-pilot-face ((t (:foreground "navy")))) (xref-list-symbol-face ((t (:foreground "navy")))) (xxml-emph-1-face ((t (:background "lightyellow")))) (xxml-emph-2-face ((t (:background "lightyellow")))) (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) (xxml-header-3-face ((t (:background "seashell1")))) (xxml-header-4-face ((t (:background "seashell1")))) (xxml-interaction-face ((t (:background "lightcyan")))) (xxml-rug-face ((t (:background "cyan")))) (xxml-sparkle-face ((t (:background "yellow")))) (xxml-unbreakable-space-face ((t (:underline t :foreground "grey")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "#4f657d"))))))) (defun color-theme-dark-blue () "Color theme by Chris McMahan, created 2001-09-09. Based on `color-theme-subtle-blue' with a slightly darker background." (interactive) (color-theme-subtle-blue) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-dark-blue ((background-color . "#537182") (foreground-color . "AntiqueWhite2")) nil (default ((t (nil)))) (blank-space-face ((t (:background "LightGray")))) (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray")))) (cursor ((t (:background "LightGray")))) (dired-face-executable ((t (:foreground "green yellow")))) (dired-face-flagged ((t (:foreground "tomato")))) (dired-face-marked ((t (:foreground "light salmon")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (fixed ((t (:bold t)))) (font-lock-comment-face ((t (:italic t :foreground "Gray80")))) (font-lock-doc-face ((t (:bold t)))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow")))) (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen")))) (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) (gui-button-face ((t (:background "DarkSalmon" :foreground "white")))) (modeline ((t (:background "#c1ccd9" :foreground "#4f657d")))) (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d")))) (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d")))) (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d")))) (my-url-face ((t (:foreground "LightBlue")))) (region ((t (:background "PaleTurquoise4" :foreground "gray80")))) (secondary-selection ((t (:background "sea green" :foreground "yellow")))) (vm-header-content-face ((t (:italic t :foreground "wheat")))) (vm-header-from-face ((t (:italic t :foreground "wheat")))) (widget-button-pressed-face ((t (:foreground "red")))) (xref-keyword-face ((t (:foreground "blue")))) (zmacs-region ((t (:background "SlateGray")))))))) (defun color-theme-jonadabian-slate () "Another slate-and-wheat color theme by Jonadab the Unsightly One. Updated 2001-10-12." (interactive) (color-theme-install '(color-theme-jonadabian-slate ((background-color . "#305050") (background-mode . dark) (border-color . "black") (cursor-color . "medium turquoise") (foreground-color . "#CCBB77") (mouse-color . "black")) ((list-matching-lines-face . bold) (ued-mode-keyname-face . modeline) (view-highlight-face . highlight)) (default ((t (nil)))) (fringe ((t (:background "#007080")))) (bold ((t (:bold t :foreground "#EEDDAA")))) (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA")))) (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA")))) (bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) (calendar-today-face ((t (:underline t :background "darkslategrey")))) (cperl-array-face ((t (:background "#004060")))) (cperl-hash-face ((t (:background "#004400")))) (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00")))) (custom-documentation-face ((t (:foreground "#10D010")))) (custom-face-tag-face ((t (:underline t :foreground "goldenrod")))) (custom-group-tag-face ((t (:underline t :foreground "light blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:foreground "#6666dd")))) (custom-state-face ((t (:foreground "mediumaquamarine")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) (diary-face ((t (:foreground "red")))) (eshell-ls-archive-face ((t (:foreground "green")))) (eshell-ls-backup-face ((t (:foreground "grey60")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue")))) (eshell-ls-executable-face ((t (:foreground "white")))) (eshell-ls-missing-face ((t (:foreground "red")))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "indian red")))) (eshell-ls-special-face ((t (:foreground "yellow")))) (eshell-ls-symlink-face ((t (:foreground "#6666dd")))) (eshell-ls-unreadable-face ((t (:foreground "red")))) (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66")))) (font-lock-constant-face ((t (:foreground "indian red")))) (font-lock-function-name-face ((t (:foreground "#D0D000")))) (font-lock-keyword-face ((t (:foreground "#00BBBB")))) (font-lock-string-face ((t (:foreground "#10D010")))) (font-lock-type-face ((t (:bold t :foreground "#ff7788")))) (font-lock-variable-name-face ((t (:foreground "#eeddaa")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (header-line ((t (:box (:line-width 1 :style released-button))))) (highlight ((t (:background "#226644")))) (highlight-changes-delete-face ((t (:background "navy" :foreground "red")))) (highlight-changes-face ((t (:background "navy")))) (holiday-face ((t (:foreground "#ff7744")))) (italic ((t (:italic t :foreground "#AA0000")))) (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000")))) (modeline ((t (:background "#007080" :foreground "cyan")))) (modeline-buffer-id ((t (:background "#007080" :foreground "cyan")))) (modeline-mousable ((t (:background "#007080" :foreground "cyan")))) (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan")))) (region ((t (:background "#226644")))) (secondary-selection ((t (:background "darkslategrey")))) (sgml-comment-face ((t (:foreground "grey60")))) (sgml-doctype-face ((t (:foreground "red")))) (sgml-end-tag-face ((t (:foreground "#00D0D0")))) (sgml-entity-face ((t (:foreground "indian red")))) (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) (sgml-ms-end-face ((t (:foreground "green")))) (sgml-ms-start-face ((t (:foreground "green")))) (sgml-pi-face ((t (:foreground "lime green")))) (sgml-sgml-face ((t (:foreground "brown")))) (sgml-short-ref-face ((t (:foreground "deep sky blue")))) (sgml-start-tag-face ((t (:foreground "#D0D000")))) (show-paren-match-face ((t (:background "#400055" :foreground "cyan")))) (show-paren-mismatch-face ((t (:background "red")))) (special-string-face ((t (:foreground "light green")))) (term-black ((t (:background "#000055" :foreground "black")))) (term-blackbg ((t (:background "black" :foreground "#CCBB77")))) (term-blue ((t (:background "#000055" :foreground "blue")))) (term-bluebg ((t (:background "blue" :foreground "#CCBB77")))) (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77")))) (term-cyan ((t (:background "#000055" :foreground "cyan")))) (term-cyanbg ((t (:background "darkcyan")))) (term-default-bg ((t (:foreground "#CCBB77")))) (term-default-bg-inv ((t (:foreground "#CCBB77")))) (term-default-fg ((t (:background "#000055")))) (term-default-fg-inv ((t (:background "#000055")))) (term-green ((t (:background "#000055" :foreground "green")))) (term-greenbg ((t (:background "darkgreen")))) (term-invisible ((t (:foreground "#CCBB77")))) (term-invisible-inv ((t (:foreground "#CCBB77")))) (term-magenta ((t (:background "#000055" :foreground "magenta")))) (term-magentabg ((t (:background "darkmagenta")))) (term-red ((t (:background "#000055" :foreground "red")))) (term-redbg ((t (:background "darkred")))) (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77")))) (term-white ((t (:background "#000055" :foreground "white")))) (term-whitebg ((t (:background "grey50")))) (term-yellow ((t (:background "#000055" :foreground "yellow")))) (term-yellowbg ((t (:background "#997700")))) (trailing-whitespace ((t (:background "#23415A")))) (underline ((t (:underline t)))) (gnus-emphasis-underline ((t (:underline t)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "green")))) (widget-field-face ((t (:background "grey35" :foreground "black")))) (widget-inactive-face ((t (:foreground "gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-gray1 () "Color theme by Paul Pulli, created 2001-10-19." (interactive) (color-theme-install '(color-theme-gray1 ((background-color . "darkgray") (background-mode . light) (background-toolbar-color . "#949494949494") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#595959595959") (cursor-color . "Yellow") (foreground-color . "black") (top-toolbar-shadow-color . "#b2b2b2b2b2b2")) nil (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (cperl-here-face ((t (:background "gray68" :foreground "DeepPink")))) (font-lock-builtin-face ((t (:bold t :foreground "red3")))) (font-lock-comment-face ((t (:foreground "gray50")))) (font-lock-constant-face ((t (:bold t :foreground "blue3")))) (font-lock-doc-string-face ((t (:foreground "black")))) (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3")))) (font-lock-keyword-face ((t (:bold t :foreground "red")))) (font-lock-other-type-face ((t (:bold t :foreground "green4")))) (font-lock-preprocessor-face ((t (:bold t :foreground "blue3")))) (font-lock-reference-face ((t (:bold t :foreground "red3")))) (font-lock-string-face ((t (:foreground "red")))) (font-lock-type-face ((t (:bold t :foreground "white")))) (font-lock-variable-name-face ((t (:bold t :foreground "blue3")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (green ((t (:foreground "green4")))) (gui-button-face ((t (:background "black" :foreground "red")))) (gui-element ((t (:background "gray58")))) (highlight ((t (:background "magenta" :foreground "yellow")))) (isearch ((t (:background "red" :foreground "yellow")))) (italic ((t (:italic t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray90" :foreground "purple")))) (m4-face ((t (:background "gray90" :foreground "orange3")))) (message-cited-text ((t (nil)))) (message-header-contents ((t (nil)))) (message-headers ((t (nil)))) (message-highlighted-header-contents ((t (nil)))) (modeline ((t (:background "#aa80aa" :foreground "White")))) (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen")))) (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan")))) (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow")))) (paren-blink-off ((t (:foreground "gray58")))) (paren-blink-on ((t (:foreground "purple")))) (paren-match ((t (:background "gray68" :foreground "white")))) (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray")))) (red ((t (:foreground "red")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "Yellow" :foreground "darkgray")))) (toolbar ((t (:background "#aa80aa" :foreground "linen")))) (underline ((t (:underline t)))) (vertical-divider ((t (nil)))) (x-face ((t (:background "black" :foreground "lavenderblush")))) (yellow ((t (:foreground "yellow3")))) (zmacs-region ((t (:background "paleturquoise" :foreground "black"))))))) (defun color-theme-word-perfect () "White on blue background, based on WordPerfect 5.1. Color theme by Thomas Gehrlein, created 2001-10-21." (interactive) (color-theme-install '(color-theme-word-perfect ((background-color . "blue4") (background-mode . dark) (border-color . "black") (cursor-color . "gold") (foreground-color . "white") (mouse-color . "black")) ((ecb-source-in-directories-buffer-face . ecb-sources-face) (gnus-mouse-face . highlight) (goto-address-mail-face . italic) (goto-address-mail-mouse-face . secondary-selection) (goto-address-url-face . bold) (goto-address-url-mouse-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight)) (default ((t (nil)))) (bbdb-field-name ((t (:foreground "lime green")))) (bbdb-field-value ((t (:foreground "white")))) (bbdb-name ((t (:underline t :foreground "lime green")))) (bold ((t (:bold t :foreground "white")))) (bold-italic ((t (:italic t :bold t :foreground "yellow")))) (calendar-today-face ((t (:underline t :foreground "deep sky blue")))) (diary-face ((t (:foreground "gold")))) (ecb-sources-face ((t (:foreground "LightBlue1")))) (edb-inter-field-face ((t (:foreground "deep sky blue")))) (edb-normal-summary-face ((t (:foreground "gold")))) (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral")))) (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "deep sky blue")))) (font-lock-constant-face ((t (:foreground "lime green")))) (font-lock-doc-face ((t (:foreground "gold")))) (font-lock-doc-string-face ((t (:foreground "gold")))) (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed")))) (font-lock-keyword-face ((t (:foreground "lime green")))) (font-lock-preprocessor-face ((t (:foreground "lime green")))) (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) (font-lock-string-face ((t (:foreground "gold")))) (font-lock-type-face ((t (:foreground "lime green")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "firebrick")))) (gnus-emphasis-bold ((t (:foreground "yellow2")))) (gnus-emphasis-bold-italic ((t (:foreground "yellow2")))) (gnus-emphasis-italic ((t (:foreground "yellow2")))) (gnus-emphasis-underline ((t (:foreground "yellow2")))) (gnus-emphasis-underline-bold ((t (:foreground "yellow2")))) (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2")))) (gnus-emphasis-underline-italic ((t (:foreground "yellow2")))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue")))) (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue")))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:foreground "gold")))) (gnus-header-from-face ((t (:foreground "gold")))) (gnus-header-name-face ((t (:foreground "deep sky blue")))) (gnus-header-newsgroups-face ((t (:foreground "gold")))) (gnus-header-subject-face ((t (:foreground "gold")))) (gnus-signature-face ((t (:foreground "gold")))) (gnus-splash-face ((t (:foreground "firebrick")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue")))) (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green")))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue")))) (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green")))) (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue")))) (gnus-summary-normal-read-face ((t (:foreground "deep sky blue")))) (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue")))) (gnus-summary-normal-unread-face ((t (:foreground "lime green")))) (gnus-summary-selected-face ((t (:underline t :foreground "gold")))) (highlight ((t (:background "steel blue" :foreground "black")))) (holiday-face ((t (:background "blue4" :foreground "IndianRed1")))) (info-menu-5 ((t (:underline t :foreground "gold")))) (info-node ((t (:italic t :bold t :foreground "gold")))) (info-xref ((t (:bold t :foreground "gold")))) (isearch ((t (:background "firebrick" :foreground "white")))) (italic ((t (:italic t :foreground "yellow2")))) (message-cited-text-face ((t (:foreground "gold")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:foreground "deep sky blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) (message-header-other-face ((t (:foreground "gold")))) (message-header-subject-face ((t (:foreground "gold")))) (message-header-to-face ((t (:bold t :foreground "gold")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-separator-face ((t (:foreground "lime green")))) (modeline ((t (:foreground "white" :background "black")))) (modeline-buffer-id ((t (:foreground "white" :background "black")))) (modeline-mousable ((t (:foreground "white" :background "black")))) (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) (overlay-empty-face ((t (nil)))) (primary-selection ((t (:background "firebrick" :foreground "white")))) (region ((t (:background "firebrick" :foreground "white")))) (secondary-selection ((t (:background "yellow2" :foreground "black")))) (semantic-dirty-token-face ((t (:background "gray10")))) (show-paren-match-face ((t (:background "deep sky blue" :foreground "black")))) (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white")))) (underline ((t (:underline t :background "blue4" :foreground "white"))))))) ;; In order to produce this, follow these steps: ;; ;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related ;; entries. ;; ;; 1. cd into the Emacs lisp directory and run the following command: ;; ( for d in `find -type d`; \ ;; do grep --files-with-matches 'defface[ ]' $d/*.el; \ ;; done ) | sort | uniq ;; Put the result in a lisp block, using load-library calls. ;; ;; Repeat this for any directories on your load path which you want to ;; include in the standard. This might include W3, eshell, etc. ;; ;; Add some of the libraries that don't use defface: ;; ;; 2. Start emacs using the --no-init-file and --no-site-file command line ;; arguments. Evaluate the lisp block you prepared. ;; 3. Load color-theme and run color-theme-print. Save the output and use it ;; to define color-theme-standard. ;; ;; (progn ;; (load-library "add-log") ;; (load-library "calendar") ;; (load-library "comint") ;; (load-library "cus-edit") ;; (load-library "cus-face") ;; (load-library "custom") ;; (load-library "diff-mode") ;; (load-library "ediff-init") ;; (load-library "re-builder") ;; (load-library "viper-init") ;; (load-library "enriched") ;; (load-library "em-ls") ;; (load-library "em-prompt") ;; (load-library "esh-test") ;; (load-library "faces") ;; (load-library "font-lock") ;; (load-library "generic-x") ;; (load-library "gnus-art") ;; (load-library "gnus-cite") ;; (load-library "gnus") ;; (load-library "message") ;; (load-library "hilit-chg") ;; (load-library "hi-lock") ;; (load-library "info") ;; (load-library "isearch") ;; (load-library "log-view") ;; (load-library "paren") ;; (load-library "pcvs-info") ;; (load-library "antlr-mode") ;; (load-library "cperl-mode") ;; (load-library "ebrowse") ;; (load-library "idlwave") ;; (load-library "idlw-shell") ;; (load-library "make-mode") ;; (load-library "sh-script") ;; (load-library "vhdl-mode") ;; (load-library "smerge-mode") ;; (load-library "speedbar") ;; (load-library "strokes") ;; (load-library "artist") ;; (load-library "flyspell") ;; (load-library "texinfo") ;; (load-library "tex-mode") ;; (load-library "tooltip") ;; (load-library "vcursor") ;; (load-library "wid-edit") ;; (load-library "woman") ;; (load-library "term") ;; (load-library "man") ;; (load-file "/home/alex/elisp/color-theme.el") ;; (color-theme-print)) ;; ;; 4. Make the color theme usable on Xemacs (add more faces, resolve ;; :inherit attributes) ;; (defun color-theme-emacs-21 () "Color theme used by Emacs 21.1. Added and adapted for XEmacs by Alex Schroeder. Adaptation mostly consisted of resolving :inherit attributes and adding missing faces. This theme includes faces from the following Emacs libraries: add-log calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man" (interactive) (color-theme-install '(color-theme-emacs-21 ((background-color . "white") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "black") (mouse-color . "black")) ((Man-overstrike-face . bold) (Man-underline-face . underline) (cperl-here-face . font-lock-string-face) (cperl-invalid-face . underline) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (idlwave-class-arrow-face . bold) (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) (idlwave-shell-expression-face . secondary-selection) (idlwave-shell-stop-line-face . highlight) (ispell-highlight-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight) (viper-insert-state-cursor-color . "Green") (viper-replace-overlay-cursor-color . "Red") (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (calendar-today-face ((t (:underline t)))) (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) (change-log-date-face ((t (:foreground "RosyBrown")))) (change-log-email-face ((t (:foreground "DarkGoldenrod")))) (change-log-file-face ((t (:foreground "Blue")))) (change-log-function-face ((t (:foreground "DarkGoldenrod")))) (change-log-list-face ((t (:foreground "Purple")))) (change-log-name-face ((t (:foreground "CadetBlue")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) (cvs-msg-face ((t (:italic t :slant italic)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:foreground "red")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey50")))) (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) (diff-function-face ((t (:foreground "grey50")))) (diff-header-face ((t (:background "grey85")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :weight bold :background "grey70")))) (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "RosyBrown")))) (dired-face-directory ((t (:foreground "Blue")))) (dired-face-executable ((t (nil)))) (dired-face-flagged ((t (:foreground "Red" :weight bold)))) (dired-face-marked ((t (:foreground "Red" :weight bold)))) (dired-face-permissions ((t (nil)))) (dired-face-setuid ((t (nil)))) (dired-face-socket ((t (nil)))) (dired-face-symlink ((t (:foreground "Purple")))) (ebrowse-default-face ((t (nil)))) (ebrowse-file-name-face ((t (:italic t :slant italic)))) (ebrowse-member-attribute-face ((t (:foreground "red")))) (ebrowse-member-class-face ((t (:foreground "purple")))) (ebrowse-progress-face ((t (:background "blue")))) (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) (ebrowse-tree-mark-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) (excerpt ((t (:italic t :slant italic)))) (fixed ((t (:bold t :weight bold)))) (fixed-pitch ((t (:family "courier")))) (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-doc-face ((t (:foreground "RosyBrown")))) (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-keyword-face ((t (:foreground "Purple")))) (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) (font-lock-reference-face ((t (:foreground "Orchid")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "grey95")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) (hi-black-b ((t (:bold t :weight bold)))) (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) (hi-blue ((t (:background "light blue")))) (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) (hi-green ((t (:background "green")))) (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) (hi-pink ((t (:background "pink")))) (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) (hi-yellow ((t (:background "yellow")))) (highlight ((t (:background "darkseagreen2")))) (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) (highlight-changes-face ((t (:foreground "red")))) (holiday-face ((t (:background "pink")))) (idlwave-help-link-face ((t (:foreground "Blue")))) (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) (log-view-message-face ((t (:background "grey85")))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "lightgoldenrod2")))) (reb-match-0 ((t (:background "lightblue")))) (reb-match-1 ((t (:background "aquamarine")))) (reb-match-2 ((t (:background "springgreen")))) (reb-match-3 ((t (:background "yellow")))) (region ((t (:background "lightgoldenrod2")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "yellow")))) (sh-heredoc-face ((t (:foreground "tan")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (show-tabs-space-face ((t (:foreground "yellow")))) (show-tabs-tab-face ((t (:foreground "red")))) (smerge-base-face ((t (:foreground "red")))) (smerge-markers-face ((t (:background "grey85")))) (smerge-mine-face ((t (:foreground "blue")))) (smerge-other-face ((t (:foreground "darkgreen")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (strokes-char-face ((t (:background "lightgray")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (tex-math-face ((t (:foreground "RosyBrown")))) (texinfo-heading-face ((t (:foreground "Blue")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (woman-addition-face ((t (:foreground "orange")))) (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) (woman-unknown-face ((t (:foreground "brown")))) (zmacs-region ((t (:background "lightgoldenrod2"))))))) (defun color-theme-jsc-light2 () "Color theme by John S Cooper, created 2001-10-29. This builds on `color-theme-jsc-light'." (interactive) (color-theme-jsc-light) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-jsc-light2 ((vc-annotate-very-old-color . "#0046FF") (senator-eldoc-use-color . t)) nil (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (change-log-file-face ((t (:foreground "Blue")))) (change-log-name-face ((t (:foreground "Maroon")))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) (font-lock-constant-face ((t (:foreground "Maroon")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic)))) (fringe ((t (:background "grey88")))) (gnus-group-mail-1-empty-face ((t (:foreground "Blue2")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold)))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "Navy")))) (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) (highlight ((t (:background "darkseagreen2")))) (ido-subdir-face ((t (:foreground "red")))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button))))) (region ((t (:background "lightgoldenrod2")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "yellow")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (tooltip ((t (:background "lightyellow" :foreground "black")))))))) (defun color-theme-ld-dark () "Dark Color theme by Linh Dang, created 2001-11-06." (interactive) (color-theme-install '(color-theme-ld-dark ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "white") (mouse-color . "white")) ((align-highlight-change-face . highlight) (align-highlight-nochange-face . secondary-selection) (apropos-keybinding-face . underline) (apropos-label-face . italic) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . bold) (ebnf-except-border-color . "Black") (ebnf-line-color . "Black") (ebnf-non-terminal-border-color . "Black") (ebnf-repeat-border-color . "Black") (ebnf-special-border-color . "Black") (ebnf-terminal-border-color . "Black") (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-carpal-button-face . bold) (gnus-carpal-header-face . bold-italic) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-selected-tree-face . modeline) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (list-matching-lines-face . bold) (ps-line-number-color . "black") (ps-zebra-color . 0.95) (tags-tag-face . default) (vc-annotate-very-old-color . "#0046FF") (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (bbdb-company ((t (:italic t :slant italic)))) (bbdb-field-name ((t (:bold t :weight bold)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3")))) (change-log-conditionals-face ((t (:foreground "Aquamarine")))) (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) (change-log-email-face ((t (:foreground "Aquamarine")))) (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9)))) (change-log-function-face ((t (:foreground "Aquamarine")))) (change-log-list-face ((t (:foreground "LightSkyBlue")))) (change-log-name-face ((t (:bold t :weight bold :foreground "Gold")))) (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "yellow")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1)))) (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey70")))) (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) (diff-function-face ((t (:foreground "grey70")))) (diff-header-face ((t (:background "grey45")))) (diff-hunk-header-face ((t (:background "grey45")))) (diff-index-face ((t (:bold t :weight bold :background "grey60")))) (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) (diff-removed-face ((t (nil)))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "SteelBlue")))) (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold)))) (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana")))) (font-lock-keyword-face ((t (:foreground "LightSkyBlue")))) (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold)))) (font-lock-reference-face ((t (:foreground "SteelBlue")))) (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana")))) (font-lock-variable-name-face ((t (:foreground "Aquamarine")))) (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold)))) (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")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "light blue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) (gnus-header-from-face ((t (:foreground "spring green")))) (gnus-header-name-face ((t (:foreground "SeaGreen")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9)))) (highlight ((t (:background "darkolivegreen")))) (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) (isearch ((t (:background "palevioletred2")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) (mouse ((t (:background "white")))) (primary-selection ((t (:background "DarkSlateGray")))) (region ((t (:background "DarkSlateGray")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "SkyBlue4")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (trailing-whitespace ((t (:background "white")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (zmacs-region ((t (:background "DarkSlateGray"))))))) (defun color-theme-deep-blue () "Color theme by Tomas Cerha, created 2001-11-13." (interactive) (color-theme-install '(color-theme-deep-blue ((background-color . "#102e4e") (background-mode . dark) (border-color . "black") (cursor-color . "green") (foreground-color . "#eeeeee") (mouse-color . "white")) ((browse-kill-ring-separator-face . bold) (display-time-mail-face . mode-line) (help-highlight-face . underline) (list-matching-lines-face . secondary-selection) (vc-annotate-very-old-color . "#0046FF") (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (calendar-today-face ((t (:background "blue")))) (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue")))) (change-log-conditionals-face ((t (:foreground "SeaGreen2")))) (change-log-date-face ((t (:foreground "burlywood")))) (change-log-email-face ((t (:foreground "SeaGreen2")))) (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod")))) (change-log-function-face ((t (:foreground "SeaGreen2")))) (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1")))) (change-log-name-face ((t (:foreground "gold")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "green" :foreground "black")))) (cvs-filename-face ((t (:foreground "lightblue")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold)))) (cvs-marked-face ((t (:bold t :foreground "green" :weight bold)))) (cvs-msg-face ((t (:italic t :slant italic)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:foreground "orange red")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey70")))) (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) (diff-function-face ((t (:foreground "grey70")))) (diff-header-face ((t (:background "grey45")))) (diff-hunk-header-face ((t (:background "grey45")))) (diff-index-face ((t (:bold t :weight bold :background "grey60")))) (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) (diff-removed-face ((t (nil)))) (fixed-pitch ((t (:family "fixed")))) (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) (font-latex-math-face ((t (:foreground "burlywood")))) (font-latex-sedate-face ((t (:foreground "LightGray")))) (font-latex-string-face ((t (:foreground "LightSalmon")))) (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (font-lock-builtin-face ((t (:foreground "LightCoral")))) (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic)))) (font-lock-constant-face ((t (:foreground "gold")))) (font-lock-doc-face ((t (:foreground "BlanchedAlmond")))) (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond")))) (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold)))) (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold)))) (font-lock-preprocessor-face ((t (:foreground "gold")))) (font-lock-reference-face ((t (:foreground "LightCoral")))) (font-lock-string-face ((t (:foreground "burlywood")))) (font-lock-type-face ((t (:foreground "CadetBlue1")))) (font-lock-variable-name-face ((t (:foreground "SeaGreen2")))) (font-lock-warning-face ((t (:foreground "yellow")))) (fringe ((t (:background "#405060")))) (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkgreen")))) (holiday-face ((t (:foreground "green")))) (info-header-node ((t (:foreground "DeepSkyBlue1")))) (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2")))) (info-menu-5 ((t (:foreground "wheat")))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:foreground "DeepSkyBlue1")))) (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold)))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (menu ((t (:background "gray" :foreground "black" :family "helvetica")))) (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) (mouse ((t (:background "white")))) (region ((t (:background "DarkCyan")))) (scroll-bar ((t (:background "gray" :foreground "#506070")))) (secondary-selection ((t (:background "yellow" :foreground "gray10")))) (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold)))) (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold)))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "#102e4e")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-kingsajz () "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04. Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker. Used on Emacs 21.1 @ WinMe. Not tested on any other systems. Some faces uses Andale mono font (nice fixed-width font). It is available at: http://www.microsoft.com/typography/downloads/andale32.exe Hail Eris! All hail Discordia!" (interactive) (color-theme-install '(color-theme-kingsajz ((background-color . "darkslategrey") (background-mode . dark) (border-color . "black") (cursor-color . "LightGray") (foreground-color . "wheat") (mouse-color . "Grey")) ((apropos-keybinding-face . underline) (apropos-label-face face italic mouse-face highlight) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . info-xref) (display-time-mail-face . mode-line) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-carpal-button-face . bold) (gnus-carpal-header-face . bold-italic) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-selected-tree-face . modeline) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (gnus-treat-display-xface . head) (help-highlight-face . underline) (list-matching-lines-face . bold) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bbdb-field-name ((t (:foreground "green")))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (blue ((t (:foreground "cyan")))) (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial")))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial")))) (border ((t (:background "black")))) (calendar-today-face ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cperl-array-face ((t (:foreground "Yellow")))) (cperl-hash-face ((t (:foreground "White")))) (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) (cursor ((t (:background "LightGray")))) (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t)))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (:foreground "Grey")))) (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "Coral")))) (custom-variable-button-face ((t (:underline t)))) (custom-variable-tag-face ((t (:foreground "Aquamarine")))) (date ((t (:foreground "green")))) (diary-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) (dired-face-executable ((t (:foreground "green yellow")))) (dired-face-flagged ((t (:foreground "tomato")))) (dired-face-marked ((t (:foreground "light salmon")))) (dired-face-permissions ((t (:foreground "aquamarine")))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "pale green")))) (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-host-danger-face ((t (:foreground "red")))) (erc-input-face ((t (:foreground "light blue")))) (erc-inverse-face ((t (:background "steel blue")))) (erc-notice-face ((t (:foreground "light salmon")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold)))) (eshell-ls-picture-face ((t (:foreground "Violet")))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold)))) (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) (eshell-prompt-face ((t (:foreground "powder blue")))) (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono")))) (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono")))) (face-3 ((t (:stipple nil :foreground "NavajoWhite3")))) (fg:erc-color-face0 ((t (:foreground "white")))) (fg:erc-color-face1 ((t (:foreground "beige")))) (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) (fg:erc-color-face12 ((t (:foreground "light yellow")))) (fg:erc-color-face13 ((t (:foreground "yellow")))) (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) (fg:erc-color-face15 ((t (:foreground "lime green")))) (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) (fg:erc-color-face3 ((t (:foreground "light cyan")))) (fg:erc-color-face4 ((t (:foreground "powder blue")))) (fg:erc-color-face5 ((t (:foreground "sky blue")))) (fg:erc-color-face6 ((t (:foreground "dark sea green")))) (fg:erc-color-face7 ((t (:foreground "pale green")))) (fg:erc-color-face8 ((t (:foreground "medium spring green")))) (fg:erc-color-face9 ((t (:foreground "khaki")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (font-lock-comment-face ((t (:foreground "White")))) (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon")))) (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) (font-lock-keyword-face ((t (:foreground "Salmon")))) (font-lock-preprocessor-face ((t (:foreground "Salmon")))) (font-lock-reference-face ((t (:foreground "pale green")))) (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic)))) (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold)))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold)))) (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (fringe ((t (:background "darkslategrey")))) (gnus-cite-attribution-face ((t (:family "arial")))) (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3")))) (gnus-cite-face-10 ((t (nil)))) (gnus-cite-face-11 ((t (nil)))) (gnus-cite-face-2 ((t (:foreground "IndianRed3")))) (gnus-cite-face-3 ((t (:foreground "tomato")))) (gnus-cite-face-4 ((t (:foreground "yellow green")))) (gnus-cite-face-5 ((t (:foreground "SteelBlue3")))) (gnus-cite-face-6 ((t (:foreground "Azure3")))) (gnus-cite-face-7 ((t (:foreground "Azure4")))) (gnus-cite-face-8 ((t (:foreground "SpringGreen4")))) (gnus-cite-face-9 ((t (:foreground "SlateGray4")))) (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial")))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial")))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki")))) (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial")))) (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial")))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial")))) (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial")))) (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4")))) (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4")))) (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "Salmon4")))) (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "darkorange3")))) (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold)))) (gnus-group-news-3-empty-face ((t (:foreground "turquoise4")))) (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4")))) (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold)))) (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4")))) (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold)))) (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4")))) (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "wheat4")))) (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold)))) (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic)))) (gnus-splash-face ((t (:foreground "Firebrick1")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic)))) (gnus-summary-low-read-face ((t (:foreground "SeaGreen4")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "khaki4")))) (gnus-summary-normal-ticked-face ((t (:foreground "khaki3")))) (gnus-summary-normal-unread-face ((t (:foreground "khaki")))) (gnus-summary-selected-face ((t (:foreground "gold" :underline t)))) (green ((t (:foreground "green")))) (gui-button-face ((t (:foreground "red" :background "black")))) (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold)))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) (highline-face ((t (:background "SeaGreen")))) (holiday-face ((t (:background "DimGray")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold)))) (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) (isearch ((t (:background "sea green" :foreground "black")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :foreground "chocolate3" :slant italic)))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "White")))) (message-header-cc-face ((t (:foreground "light cyan")))) (message-header-name-face ((t (:foreground "DodgerBlue1")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "LightSkyBlue3")))) (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) (message-header-xheader-face ((t (:foreground "DodgerBlue3")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate")))) (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial")))) (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial")))) (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial")))) (mouse ((t (:background "Grey")))) (paren-blink-off ((t (:foreground "brown")))) (region ((t (:background "dark cyan" :foreground "cyan")))) (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")))) (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)))) (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))))) (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")))) (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")))) (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")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold)))) (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold)))) (text-cursor ((t (:background "Red" :foreground "white")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "Arial")))) (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier")))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:foreground "LightBlue")))) (widget-inactive-face ((t (:foreground "DimGray")))) (widget-single-line-field-face ((t (:foreground "LightBlue")))) (woman-bold-face ((t (:bold t :weight bold :family "Arial")))) (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))) (defun color-theme-comidia () "Color theme by Marcelo Dias de Toledo, created 2001-12-17. Steel blue on black." (interactive) (color-theme-install '(color-theme-comidia ((background-color . "Black") (background-mode . dark) (border-color . "black") (cursor-color . "SteelBlue") (foreground-color . "SteelBlue") (mouse-color . "SteelBlue")) ((display-time-mail-face . mode-line) (gnus-mouse-face . highlight) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (ispell-highlight-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "SteelBlue")))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-dangerous-host-face ((t (:foreground "red")))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:background "Red" :foreground "White")))) (erc-fool-face ((t (:foreground "dim gray")))) (erc-input-face ((t (:foreground "brown")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) (erc-underline-face ((t (:underline t)))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "chocolate1")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-face ((t (:foreground "LightSalmon")))) (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (fringe ((t (:background "grey10")))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) (mouse ((t (:background "SteelBlue")))) (primary-selection ((t (:background "blue3")))) (region ((t (:background "blue3")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "SkyBlue4")))) (speedbar-button-face ((t (:foreground "green3")))) (speedbar-directory-face ((t (:foreground "light blue")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "yellow")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (zmacs-region ((t (:background "blue3"))))))) (defun color-theme-katester () "Color theme by walterh@rocketmail.com, created 2001-12-12. A pastelly-mac like color-theme." (interactive) (color-theme-standard) (let ((color-theme-is-cumulative t)) (color-theme-install '(color-theme-katester ((background-color . "ivory") (cursor-color . "slateblue") (foreground-color . "black") (mouse-color . "slateblue")) (default ((t ((:background "ivory" :foreground "black"))))) (bold ((t (:bold t)))) (font-lock-string-face ((t (:foreground "maroon")))) (font-lock-keyword-face ((t (:foreground "blue")))) (font-lock-constant-face ((t (:foreground "darkblue")))) (font-lock-type-face ((t (:foreground "black")))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-function-name-face ((t (:bold t :underline t)))) (font-lock-comment-face ((t (:background "seashell")))) (highlight ((t (:background "lavender")))) (italic ((t (:italic t)))) (modeline ((t (:background "moccasin" :foreground "black")))) (region ((t (:background "lavender" )))) (underline ((t (:underline t)))))))) (defun color-theme-arjen () "Color theme by awiersma, created 2001-08-27." (interactive) (color-theme-install '(color-theme-arjen ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "White") (mouse-color . "sienna1")) ((buffers-tab-face . buffers-tab) (cperl-here-face . font-lock-string-face) (cperl-invalid-face quote underline) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (vc-mode-face . highlight)) (default ((t (:background "black" :foreground "white")))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:bold t)))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "black" :foreground "white")))) (calendar-today-face ((t (:underline t)))) (cperl-array-face ((t (:foreground "darkseagreen")))) (cperl-hash-face ((t (:foreground "darkseagreen")))) (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "light blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) (diary-face ((t (:foreground "IndianRed")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "sandybrown")))) (erc-error-face ((t (:bold t :foreground "IndianRed")))) (erc-input-face ((t (:foreground "Beige")))) (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) (erc-notice-face ((t (:foreground "MediumAquamarine")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:foreground "MediumAquamarine")))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) (eshell-ls-backup-face ((t (:foreground "Grey")))) (eshell-ls-clutter-face ((t (:foreground "DimGray")))) (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) (eshell-ls-executable-face ((t (:foreground "Coral")))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "Violet")))) (eshell-ls-product-face ((t (:foreground "sandybrown")))) (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) (eshell-ls-special-face ((t (:foreground "Gold")))) (eshell-ls-symlink-face ((t (:foreground "White")))) (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) (fl-comment-face ((t (:foreground "pink")))) (fl-doc-string-face ((t (:foreground "purple")))) (fl-function-name-face ((t (:foreground "red")))) (fl-keyword-face ((t (:foreground "cadetblue")))) (fl-string-face ((t (:foreground "green")))) (fl-type-face ((t (:foreground "yellow")))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "IndianRed")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-string-face ((t (:foreground "DarkOrange")))) (font-lock-function-name-face ((t (:foreground "YellowGreen")))) (font-lock-keyword-face ((t (:foreground "PaleYellow")))) (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) (font-lock-reference-face ((t (:foreground "SlateBlue")))) (font-lock-string-face ((t (:foreground "Orange")))) (font-lock-type-face ((t (:foreground "Green")))) (font-lock-variable-name-face ((t (:foreground "darkseagreen")))) (font-lock-warning-face ((t (:bold t :foreground "Pink")))) (qt-classes-face ((t (:foreground "Red")))) (gnus-cite-attribution-face ((t (nil)))) (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue")))) (gnus-cite-face-3 ((t (:bold nil :foreground "gold")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold nil)))) (gnus-emphasis-bold-italic ((t (:bold nil)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold nil)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil)))) (gnus-emphasis-underline-italic ((t (:underline t)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1")))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2")))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3")))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4")))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise")))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold nil)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold nil)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold nil)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold nil)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise")))) (gnus-header-content-face ((t (:foreground "forest green")))) (gnus-header-from-face ((t (:bold nil :foreground "spring green")))) (gnus-header-name-face ((t (:foreground "deep sky blue")))) (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple")))) (gnus-header-subject-face ((t (:bold nil :foreground "orange")))) (gnus-signature-face ((t (:bold nil :foreground "khaki")))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue")))) (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen")))) (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink")))) (gnus-summary-high-unread-face ((t (:bold nil)))) (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-low-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-low-ticked-face ((t (:foreground "pink")))) (gnus-summary-low-unread-face ((t (nil)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "#D4D0C8" :foreground "black")))) (highlight ((t (:background "darkolivegreen")))) (highline-face ((t (:background "SeaGreen")))) (holiday-face ((t (:background "DimGray")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) (info-xref ((t (:underline t :foreground "DodgerBlue1")))) (isearch ((t (:background "blue")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (nil)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68" :foreground "white")))) (message-cited-text-face ((t (:bold t :foreground "green")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:bold t :foreground "orange")))) (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) (message-header-other-face ((t (:bold t :foreground "chocolate")))) (message-header-subject-face ((t (:bold t :foreground "yellow")))) (message-header-to-face ((t (:bold t :foreground "cadetblue")))) (message-header-xheader-face ((t (:bold t :foreground "light blue")))) (message-mml-face ((t (:bold t :foreground "Green3")))) (message-separator-face ((t (:foreground "blue3")))) (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button))))) (modeline-buffer-id ((t (:background "DarkRed" :foreground "white")))) (modeline-mousable ((t (:background "DarkRed" :foreground "white")))) (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white")))) (p4-depot-added-face ((t (:foreground "blue")))) (p4-depot-deleted-face ((t (:foreground "red")))) (p4-depot-unmapped-face ((t (:foreground "grey30")))) (p4-diff-change-face ((t (:foreground "dark green")))) (p4-diff-del-face ((t (:foreground "red")))) (p4-diff-file-face ((t (:background "gray90")))) (p4-diff-head-face ((t (:background "gray95")))) (p4-diff-ins-face ((t (:foreground "blue")))) (pointer ((t (nil)))) (primary-selection ((t (:background "blue")))) (red ((t (:foreground "red")))) (region ((t (:background "blue")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "darkslateblue")))) (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) (text-cursor ((t (:background "yellow" :foreground "black")))) (toolbar ((t (nil)))) (underline ((nil (:underline nil)))) (vertical-divider ((t (nil)))) (widget ((t (nil)))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (woman-bold-face ((t (:bold t)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "snow" :foreground "blue"))))))) (defun color-theme-tty-dark () "Color theme by Oivvio Polite, created 2002-02-01. Good for tty display." (interactive) (color-theme-install '(color-theme-tty-dark ((background-color . "black") (background-mode . dark) (border-color . "blue") (cursor-color . "red") (foreground-color . "white") (mouse-color . "black")) ((ispell-highlight-face . highlight) (list-matching-lines-face . bold) (tinyreplace-:face . highlight) (view-highlight-face . highlight)) (default ((t (nil)))) (bold ((t (:underline t :background "black" :foreground "white")))) (bold-italic ((t (:underline t :foreground "white")))) (calendar-today-face ((t (:underline t)))) (diary-face ((t (:foreground "red")))) (font-lock-builtin-face ((t (:foreground "blue")))) (font-lock-comment-face ((t (:foreground "cyan")))) (font-lock-constant-face ((t (:foreground "magenta")))) (font-lock-function-name-face ((t (:foreground "cyan")))) (font-lock-keyword-face ((t (:foreground "red")))) (font-lock-string-face ((t (:foreground "green")))) (font-lock-type-face ((t (:foreground "yellow")))) (font-lock-variable-name-face ((t (:foreground "blue")))) (font-lock-warning-face ((t (:bold t :foreground "magenta")))) (highlight ((t (:background "blue" :foreground "yellow")))) (holiday-face ((t (:background "cyan")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (italic ((t (:underline t :background "red")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green")))) (message-header-name-face ((t (:foreground "green")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green")))) (message-header-to-face ((t (:bold t :foreground "green")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "green")))) (message-separator-face ((t (:foreground "blue")))) (modeline ((t (:background "white" :foreground "blue")))) (modeline-buffer-id ((t (:background "white" :foreground "red")))) (modeline-mousable ((t (:background "white" :foreground "magenta")))) (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow")))) (region ((t (:background "white" :foreground "black")))) (zmacs-region ((t (:background "cyan" :foreground "black")))) (secondary-selection ((t (:background "blue")))) (show-paren-match-face ((t (:background "red")))) (show-paren-mismatch-face ((t (:background "magenta" :foreground "white")))) (underline ((t (:underline t))))))) (defun color-theme-aliceblue () "Color theme by Girish Bharadwaj, created 2002-03-27. Includes comint prompt, custom, font-lock, isearch, jde, senator, speedbar, and widget." (interactive) (color-theme-install '(color-theme-aliceblue ((background-color . "AliceBlue") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "DarkSlateGray4") (mouse-color . "black")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (semantic-which-function-use-color . t) (senator-eldoc-use-color . t) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique)))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana")))) (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana")))) (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) (font-lock-reference-face ((t (:foreground "Orchid")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic)))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed)))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "DarkSlateBlue")))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) (highlight ((t (:background "darkseagreen2")))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "blue3")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (menu ((t (nil)))) (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:background "grey75" :foreground "black")))) (modeline-mousable ((t (:background "grey75" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black")))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "lightgoldenrod2")))) (region ((t (:background "lightgoldenrod2")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "yellow")))) (semantic-dirty-token-face ((t (:background "lightyellow")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray25")))) (senator-momentary-highlight-face ((t (:background "gray70")))) (senator-read-only-face ((t (:background "#CCBBBB")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (template-message-face ((t (:bold t :weight bold)))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (zmacs-region ((t (:background "lightgoldenrod2"))))))) (defun color-theme-black-on-gray () "Color theme by sbhojwani, created 2002-04-03. Includes ecb, font-lock, paren, semantic, and widget faces. Some of the font-lock faces are disabled, ie. they look just like the default face. This is for people that don't like the look of \"angry fruit salad\" when editing." (interactive) (color-theme-install '(color-theme-black-on-gray ((background-color . "white") (background-mode . light) (border-color . "blue") (foreground-color . "black")) ((buffers-tab-face . buffers-tab) (ecb-directories-general-face . ecb-default-general-face) (ecb-directory-face . ecb-default-highlight-face) (ecb-history-face . ecb-default-highlight-face) (ecb-history-general-face . ecb-default-general-face) (ecb-method-face . ecb-default-highlight-face) (ecb-methods-general-face . ecb-default-general-face) (ecb-source-face . ecb-default-highlight-face) (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face) (ecb-sources-general-face . ecb-default-general-face) (ecb-token-header-face . ecb-token-header-face)) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t :size "10pt")))) (bold-italic ((t (:italic t :bold t :size "10pt")))) (border-glyph ((t (:size "11pt")))) (buffers-tab ((t (:background "gray75")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ecb-bucket-token-face ((t (:bold t :size "10pt")))) (ecb-default-general-face ((t (nil)))) (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow")))) (ecb-directories-general-face ((t (nil)))) (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow")))) (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow")))) (ecb-history-general-face ((t (nil)))) (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow")))) (ecb-methods-general-face ((t (nil)))) (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow")))) (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue")))) (ecb-sources-general-face ((t (nil)))) (ecb-token-header-face ((t (:background "SeaGreen1")))) (ecb-type-token-class-face ((t (:bold t :size "10pt")))) (ecb-type-token-enum-face ((t (:bold t :size "10pt")))) (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray")))) (ecb-type-token-interface-face ((t (:bold t :size "10pt")))) (ecb-type-token-struct-face ((t (:bold t :size "10pt")))) (ecb-type-token-typedef-face ((t (:bold t :size "10pt")))) (font-lock-builtin-face ((t (:foreground "red3")))) (font-lock-constant-face ((t (:foreground "blue3")))) (font-lock-comment-face ((t (:foreground "blue")))) (font-lock-doc-face ((t (:foreground "green4")))) (font-lock-doc-string-face ((t (:foreground "green4")))) (font-lock-function-name-face ((t (nil)))) (font-lock-keyword-face ((t (nil)))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (nil)))) (font-lock-type-face ((t (nil)))) (font-lock-variable-name-face ((t (nil)))) (font-lock-warning-face ((t (nil)))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75")))) (gui-element ((t (:size "8pt" :background "gray75")))) (highlight ((t (:background "darkseagreen2")))) (isearch ((t (:background "paleturquoise")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:size "10pt")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (modeline ((t (:background "gray75")))) (modeline-buffer-id ((t (:background "gray75" :foreground "blue4")))) (modeline-mousable ((t (:background "gray75" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4")))) (paren-blink-off ((t (:foreground "gray")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (nil)))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (semantic-dirty-token-face ((t (nil)))) (semantic-unmatched-syntax-face ((t (nil)))) (text-cursor ((t (:background "red" :foreground "gray")))) (toolbar ((t (:background "gray75")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "gray75")))) (widget ((t (:size "8pt" :background "gray75")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (nil)))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-dark-blue2 () "Color theme by Chris McMahan, created 2002-04-12. Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff, dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock, gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde, message, mmm, paren, semantic, senator, sgml, smerge, speedbar, strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml. Yes, it is a large theme." (interactive) (color-theme-install '(color-theme-dark-blue2 ((background-color . "#233b5a") (background-mode . dark) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "black") (bottom-toolbar-shadow-color . "#79e77df779e7") (cursor-color . "Yellow") (foreground-color . "#fff8dc") (mouse-color . "Grey") (top-toolbar-shadow-color . "#fffffbeeffff") (viper-saved-cursor-color-in-replace-mode . "Red3")) ((blank-space-face . blank-space-face) (blank-tab-face . blank-tab-face) (cperl-invalid-face . underline) (ecb-directories-general-face . ecb-directories-general-face) (ecb-directory-face . ecb-directory-face) (ecb-history-face . ecb-history-face) (ecb-history-general-face . ecb-history-general-face) (ecb-method-face . ecb-method-face) (ecb-methods-general-face . ecb-methods-general-face) (ecb-source-face . ecb-source-face) (ecb-source-in-directories-buffer-face . ecb-sources-face) (ecb-sources-general-face . ecb-sources-general-face) (ecb-token-header-face . ecb-token-header-face) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (highline-face . highline-face) (highline-vertical-face . highline-vertical-face) (list-matching-lines-face . bold) (ps-zebra-color . 0.95) (senator-eldoc-use-color . t) (sgml-set-face . t) (tags-tag-face . default) (view-highlight-face . highlight) (vm-highlight-url-face . bold-italic) (vm-highlighted-header-face . bold) (vm-mime-button-face . gui-button-face) (vm-summary-highlight-face . bold) (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold)))) (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold)))) (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold)))) (antlr-font-lock-ruleref-face ((t (:foreground "Gray85")))) (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold)))) (antlr-font-lock-tokenref-face ((t (:foreground "Gray85")))) (bbdb-company ((t (:italic t :slant italic)))) (bbdb-field-name ((t (:bold t :weight bold)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (blank-space-face ((t (:background "LightGray")))) (blank-tab-face ((t (:background "Wheat")))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t :foreground "cyan" :weight bold)))) (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold)))) (border ((t (:background "black")))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue")))) (calendar-today-face ((t (:underline t)))) (change-log-acknowledgement-face ((t (:foreground "firebrick")))) (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki")))) (change-log-date-face ((t (:foreground "gold")))) (change-log-email-face ((t (:foreground "khaki" :underline t)))) (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold)))) (change-log-function-face ((t (:background "sienna" :foreground "khaki")))) (change-log-list-face ((t (:foreground "wheat")))) (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (comint-input-face ((t (:foreground "deepskyblue")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) (cperl-invalid-face ((t (:foreground "white")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cursor ((t (:background "Yellow")))) (custom-button-face ((t (:bold t :weight bold)))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30")))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:foreground "white")))) (custom-comment-tag-face ((t (:foreground "white")))) (custom-documentation-face ((t (:foreground "light blue")))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "gray30" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "gray85")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) (cvs-filename-face ((t (:foreground "white")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:foreground "green")))) (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) (cvs-msg-face ((t (:foreground "gray85")))) (cvs-need-action-face ((t (:foreground "yellow")))) (cvs-unknown-face ((t (:foreground "grey")))) (cyan ((t (:foreground "cyan")))) (diary-face ((t (:bold t :foreground "gray85" :weight bold)))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey50")))) (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) (diff-function-face ((t (:foreground "grey50")))) (diff-header-face ((t (:foreground "lemon chiffon")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t :weight bold)))) (dired-face-executable ((t (:foreground "gray85")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-header ((t (:background "grey75" :foreground "gray30")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "gray30")))) (dired-face-setuid ((t (:foreground "gray85")))) (dired-face-socket ((t (:foreground "gray85")))) (dired-face-symlink ((t (:foreground "cyan")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "gray85")))) (ebrowse-default-face ((t (nil)))) (ebrowse-file-name-face ((t (:italic t :slant italic)))) (ebrowse-member-attribute-face ((t (:foreground "red")))) (ebrowse-member-class-face ((t (:foreground "Gray85")))) (ebrowse-progress-face ((t (:background "blue")))) (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold)))) (ebrowse-tree-mark-face ((t (:foreground "Gray85")))) (ecb-bucket-token-face ((t (:bold t :weight bold)))) (ecb-default-general-face ((t (:height 1.0)))) (ecb-default-highlight-face ((t (:background "magenta" :height 1.0)))) (ecb-directories-general-face ((t (:height 0.9)))) (ecb-directory-face ((t (:background "Cyan4")))) (ecb-history-face ((t (:background "Cyan4")))) (ecb-history-general-face ((t (:height 0.9)))) (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal)))) (ecb-methods-general-face ((t (:slant normal)))) (ecb-source-face ((t (:background "Cyan4")))) (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1")))) (ecb-sources-face ((t (:foreground "LightBlue1")))) (ecb-sources-general-face ((t (:height 0.9)))) (ecb-token-header-face ((t (:background "Steelblue4")))) (ecb-type-token-class-face ((t (:bold t :weight bold)))) (ecb-type-token-enum-face ((t (:bold t :weight bold)))) (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold)))) (ecb-type-token-interface-face ((t (:bold t :weight bold)))) (ecb-type-token-struct-face ((t (:bold t :weight bold)))) (ecb-type-token-typedef-face ((t (:bold t :weight bold)))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-dangerous-host-face ((t (:foreground "red")))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "pale green")))) (erc-error-face ((t (:bold t :foreground "gray85" :weight bold)))) (erc-fool-face ((t (:foreground "Gray85")))) (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-input-face ((t (:foreground "light blue")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-notice-face ((t (:foreground "light salmon")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :weight bold)))) (eshell-ls-backup-face ((t (:foreground "gray85")))) (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :weight bold)))) (eshell-ls-missing-face ((t (:bold t :weight bold)))) (eshell-ls-picture-face ((t (:foreground "gray85")))) (eshell-ls-product-face ((t (:foreground "gray85")))) (eshell-ls-readonly-face ((t (:foreground "gray70")))) (eshell-ls-special-face ((t (:bold t :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :weight bold)))) (eshell-ls-text-face ((t (:foreground "gray85")))) (eshell-ls-todo-face ((t (:bold t :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "gray85")))) (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold)))) (eshell-test-failed-face ((t (:bold t :weight bold)))) (eshell-test-ok-face ((t (:bold t :weight bold)))) (excerpt ((t (:italic t :slant italic)))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold)))) (fg:black ((t (:foreground "black")))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed ((t (:bold t :weight bold)))) (fixed-pitch ((t (:family "outline-lucida console")))) (fl-comment-face ((t (:foreground "gray85")))) (fl-function-name-face ((t (:foreground "green")))) (fl-keyword-face ((t (:foreground "LightGreen")))) (fl-string-face ((t (:foreground "light coral")))) (fl-type-face ((t (:foreground "cyan")))) (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) (font-latex-bold-face ((t (nil)))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (:foreground "Gray85")))) (font-latex-string-face ((t (:foreground "orange")))) (font-latex-warning-face ((t (:foreground "gold")))) (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold)))) (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic)))) (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (font-lock-doc-face ((t (:bold t :weight bold)))) (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold)))) (font-lock-exit-face ((t (:foreground "green")))) (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold)))) (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold)))) (font-lock-preprocessor-face ((t (:foreground "Gray85")))) (font-lock-reference-face ((t (:foreground "cyan")))) (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic)))) (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold)))) (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold)))) (fringe ((t (:background "#3c5473")))) (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold)))) (gnus-cite-face-1 ((t (:foreground "gold")))) (gnus-cite-face-10 ((t (:foreground "coral")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "wheat")))) (gnus-cite-face-3 ((t (:foreground "light pink")))) (gnus-cite-face-4 ((t (:foreground "khaki")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold")))) (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic)))) (gnus-emphasis-underline ((t (:foreground "white" :underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold)))) (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic)))) (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold)))) (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold)))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold)))) (gnus-picons-face ((t (:background "white" :foreground "gray30")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30")))) (gnus-signature-face ((t (:italic t :foreground "white" :slant italic)))) (gnus-splash ((t (:foreground "Brown")))) (gnus-splash-face ((t (:foreground "orange")))) (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold)))) (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "gray70")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold)))) (gnus-summary-selected-face ((t (:foreground "white" :underline t)))) (gnus-x-face ((t (:background "white" :foreground "gray30")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "gray30")))) (gui-element ((t (:background "Gray80")))) (header-line ((t (:background "grey20" :foreground "grey90")))) (hi-black-b ((t (:bold t :weight bold)))) (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) (hi-blue ((t (:background "light blue")))) (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) (hi-green ((t (:background "green")))) (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) (hi-pink ((t (:background "pink")))) (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) (hi-yellow ((t (:background "yellow")))) (highlight ((t (:background "SkyBlue3")))) (highlight-changes-delete-face ((t (:foreground "gray85" :underline t)))) (highlight-changes-face ((t (:foreground "gray85")))) (highline-face ((t (:background "#3c5473")))) (highline-vertical-face ((t (:background "lightcyan")))) (holiday-face ((t (:background "pink" :foreground "gray30")))) (html-helper-bold-face ((t (:bold t :weight bold)))) (html-helper-bold-italic-face ((t (nil)))) (html-helper-builtin-face ((t (:foreground "gray85" :underline t)))) (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold)))) (html-helper-underline-face ((t (:underline t)))) (html-tag-face ((t (:bold t :weight bold)))) (hyper-apropos-documentation ((t (:foreground "white")))) (hyper-apropos-heading ((t (:bold t :weight bold)))) (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) (hyper-apropos-major-heading ((t (:bold t :weight bold)))) (hyper-apropos-section-heading ((t (:bold t :weight bold)))) (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold)))) (ibuffer-marked-face ((t (:foreground "gray85")))) (idlwave-help-link-face ((t (:foreground "Blue")))) (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) (info-menu-5 ((t (:underline t)))) (info-menu-6 ((t (nil)))) (info-menu-header ((t (:bold t :weight bold :family "helv")))) (info-node ((t (:italic t :bold t :slant italic :weight bold)))) (info-xref ((t (:bold t :weight bold)))) (isearch ((t (:background "LightSeaGreen")))) (isearch-lazy-highlight-face ((t (:background "cyan4")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:italic t :bold t :slant italic :weight bold)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t)))) (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) (jde-java-font-lock-operator-face ((t (:foreground "cyan3")))) (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold)))) (left-margin ((t (nil)))) (linemenu-face ((t (:background "gray30")))) (list-mode-item-selected ((t (:background "gray68")))) (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) (log-view-message-face ((t (:background "grey85")))) (magenta ((t (:foreground "gray85")))) (makefile-space-face ((t (:background "hotpink" :foreground "white")))) (man-bold ((t (:bold t :weight bold)))) (man-heading ((t (:bold t :weight bold)))) (man-italic ((t (:foreground "yellow")))) (man-xref ((t (:underline t)))) (menu ((t (:background "wheat" :foreground "gray30")))) (message-cited-text ((t (:foreground "orange")))) (message-cited-text-face ((t (:foreground "medium aquamarine")))) (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold)))) (message-header-contents ((t (:foreground "white")))) (message-header-name-face ((t (:foreground "gray85")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "gray85")))) (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-headers ((t (:bold t :foreground "orange" :weight bold)))) (message-highlighted-header-contents ((t (:bold t :weight bold)))) (message-mml-face ((t (:bold t :foreground "gray85" :weight bold)))) (message-separator-face ((t (:foreground "gray85")))) (message-url ((t (:bold t :foreground "pink" :weight bold)))) (mmm-default-submode-face ((t (:background "#c0c0c5")))) (mmm-face ((t (:background "black" :foreground "green")))) (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv"))))) (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana")))) (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) (mouse ((t (:background "Grey")))) (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White")))) (my-url-face ((t (:foreground "LightBlue")))) (nil ((t (nil)))) (paren-blink-off ((t (:foreground "gray80")))) (paren-face-match ((t (:background "turquoise")))) (paren-face-mismatch ((t (:background "purple" :foreground "white")))) (paren-face-no-match ((t (:background "yellow" :foreground "gray30")))) (paren-match ((t (:background "darkseagreen2")))) (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30")))) (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray40")))) (reb-match-0 ((t (:background "lightblue")))) (reb-match-1 ((t (:background "aquamarine")))) (reb-match-2 ((t (:background "springgreen")))) (reb-match-3 ((t (:background "yellow")))) (red ((t (:foreground "red")))) (region ((t (:background "Cyan4")))) (right-margin ((t (nil)))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "gray60")))) (semantic-dirty-token-face ((t (:background "gray10")))) (semantic-intangible-face ((t (:foreground "gray25")))) (semantic-read-only-face ((t (:background "gray25")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray70")))) (senator-read-only-face ((t (:background "#664444")))) (sgml-comment-face ((t (:foreground "dark turquoise")))) (sgml-doctype-face ((t (:foreground "turquoise")))) (sgml-end-tag-face ((t (:foreground "aquamarine")))) (sgml-entity-face ((t (:foreground "gray85")))) (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) (sgml-ms-end-face ((t (:foreground "green")))) (sgml-ms-start-face ((t (:foreground "yellow")))) (sgml-pi-face ((t (:foreground "lime green")))) (sgml-sgml-face ((t (:foreground "brown")))) (sgml-short-ref-face ((t (:foreground "deep sky blue")))) (sgml-start-tag-face ((t (:foreground "aquamarine")))) (sh-heredoc-face ((t (:foreground "tan")))) (shell-option-face ((t (:foreground "gray85")))) (shell-output-2-face ((t (:foreground "gray85")))) (shell-output-3-face ((t (:foreground "gray85")))) (shell-output-face ((t (:bold t :weight bold)))) (shell-prompt-face ((t (:foreground "yellow")))) (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold)))) (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold)))) (show-tabs-space-face ((t (:foreground "yellow")))) (show-tabs-tab-face ((t (:foreground "red")))) (smerge-base-face ((t (:foreground "red")))) (smerge-markers-face ((t (:background "grey85")))) (smerge-mine-face ((t (:foreground "Gray85")))) (smerge-other-face ((t (:foreground "darkgreen")))) (speedbar-button-face ((t (:bold t :weight bold)))) (speedbar-directory-face ((t (:bold t :weight bold)))) (speedbar-file-face ((t (:bold t :weight bold)))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:underline t)))) (speedbar-tag-face ((t (:foreground "yellow")))) (strokes-char-face ((t (:background "lightgray")))) (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold)))) (template-message-face ((t (:bold t :weight bold)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t :weight bold)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (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")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (tex-math-face ((t (:foreground "RosyBrown")))) (texinfo-heading-face ((t (:foreground "Blue")))) (text-cursor ((t (:background "Red3" :foreground "gray80")))) (tool-bar ((t (:background "grey75" :foreground "black")))) (toolbar ((t (:background "Gray80")))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) (vertical-divider ((t (:background "Gray80")))) (vhdl-font-lock-attribute-face ((t (:foreground "gray85")))) (vhdl-font-lock-directive-face ((t (:foreground "gray85")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85")))) (vhdl-font-lock-function-face ((t (:foreground "gray85")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold)))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold)))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "gray85")))) (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t)))) (vhdl-speedbar-configuration-face ((t (:foreground "gray85")))) (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t)))) (vhdl-speedbar-entity-face ((t (:foreground "gray85")))) (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t)))) (vhdl-speedbar-instantiation-face ((t (:foreground "gray85")))) (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t)))) (vhdl-speedbar-package-face ((t (:foreground "gray85")))) (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic)))) (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic)))) (vm-header-name-face ((t (:foreground "cyan")))) (vm-header-subject-face ((t (:foreground "cyan")))) (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic)))) (vm-message-cited-face ((t (:foreground "Gray80")))) (vm-monochrome-image ((t (:background "white" :foreground "gray30")))) (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) (vm-summary-highlight-face ((t (:foreground "White")))) (vm-xface ((t (:background "white" :foreground "gray30")))) (vmpc-pre-sig-face ((t (:foreground "gray85")))) (vmpc-sig-face ((t (:foreground "gray85")))) (vvb-face ((t (:background "pink" :foreground "gray30")))) (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) (white ((t (:foreground "white")))) (widget ((t (nil)))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "gray85")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85" :foreground "gray30")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) (woman-addition-face ((t (:foreground "orange")))) (woman-bold-face ((t (:bold t :weight bold)))) (woman-italic-face ((t (:foreground "beige")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (x-face ((t (:background "white" :foreground "gray30")))) (xrdb-option-name-face ((t (:foreground "gray85")))) (xref-keyword-face ((t (:foreground "gray85")))) (xref-list-default-face ((t (nil)))) (xref-list-pilot-face ((t (:foreground "gray85")))) (xref-list-symbol-face ((t (:foreground "navy")))) (xsl-fo-alternate-face ((t (:foreground "Yellow")))) (xsl-fo-main-face ((t (:foreground "PaleGreen")))) (xsl-other-element-face ((t (:foreground "Coral")))) (xsl-xslt-alternate-face ((t (:foreground "LightGray")))) (xsl-xslt-main-face ((t (:foreground "Wheat")))) (xxml-emph-1-face ((t (:background "lightyellow")))) (xxml-emph-2-face ((t (:background "lightyellow")))) (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) (xxml-header-3-face ((t (:background "seashell1")))) (xxml-header-4-face ((t (:background "seashell1")))) (xxml-interaction-face ((t (:background "lightcyan")))) (xxml-rug-face ((t (:background "cyan")))) (xxml-sparkle-face ((t (:background "yellow")))) (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t)))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "Cyan4"))))))) (defun color-theme-blue-mood () "Color theme by Nelson Loyola, created 2002-04-15. Includes cperl, custom, font-lock, p4, speedbar, widget." (interactive) (color-theme-install '(color-theme-blue-mood ((background-color . "DodgerBlue4") (background-mode . dark) (background-toolbar-color . "#bfbfbfbfbfbf") (border-color . "Blue") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#6c6c68686868") (cursor-color . "DarkGoldenrod1") (foreground-color . "white smoke") (mouse-color . "black") (top-toolbar-shadow-color . "#e5e5e0e0e1e1")) ((vc-annotate-very-old-color . "#0046FF")) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (nil)))) (border-glyph ((t (nil)))) (cmode-bracket-face ((t (:bold t)))) (cperl-array-face ((t (:bold t :foreground "wheat")))) (cperl-hash-face ((t (:bold t :foreground "chartreuse")))) (custom-button-face ((t (nil)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:bold t :foreground "cyan")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) (font-lock-builtin-face ((t (:bold t :foreground "wheat")))) (font-lock-comment-face ((t (:bold t :foreground "gray72")))) (font-lock-constant-face ((t (:bold t :foreground "cyan3")))) (font-lock-doc-string-face ((t (:foreground "#00C000")))) (font-lock-function-name-face ((t (:bold t :foreground "chartreuse")))) (font-lock-keyword-face ((t (:bold t :foreground "gold1")))) (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1")))) (font-lock-other-type-face ((t (:bold t :foreground "gold1")))) (font-lock-preprocessor-face ((t (:foreground "plum")))) (font-lock-reference-face ((t (:bold t :foreground "orangered")))) (font-lock-string-face ((t (:foreground "tomato")))) (font-lock-type-face ((t (:bold t :foreground "gold1")))) (font-lock-variable-name-face ((t (:foreground "light yellow")))) (font-lock-warning-face ((t (:foreground "tomato")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000")))) (highlight ((t (:background "red" :foreground "yellow")))) (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) (italic ((t (nil)))) (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow")))) (modeline ((t (:background "goldenrod" :foreground "darkblue")))) (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue")))) (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue")))) (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue")))) (my-tab-face ((t (:background "SlateBlue1")))) (p4-depot-added-face ((t (:foreground "steelblue1")))) (p4-depot-deleted-face ((t (:foreground "red")))) (p4-depot-unmapped-face ((t (:foreground "grey90")))) (p4-diff-change-face ((t (:foreground "dark green")))) (p4-diff-del-face ((t (:bold t :foreground "salmon")))) (p4-diff-file-face ((t (:background "blue")))) (p4-diff-head-face ((t (:background "blue")))) (p4-diff-ins-face ((t (:foreground "steelblue1")))) (paren-blink-off ((t (:foreground "DodgerBlue4")))) (paren-match ((t (:background "red" :foreground "yellow")))) (paren-mismatch ((t (:background "DeepPink")))) (pointer ((t (:background "white")))) (primary-selection ((t (:bold t :background "medium sea green")))) (red ((t (:foreground "red")))) (region ((t (:background "red" :foreground "yellow")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) (show-trailing-whitespace ((t (:background "red" :foreground "blue")))) (speedbar-button-face ((t (:foreground "white")))) (speedbar-directory-face ((t (:foreground "gray")))) (speedbar-file-face ((t (:foreground "gold1")))) (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "chartreuse")))) (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4")))) (toolbar ((t (:background "#e7e3d6" :foreground "#000000")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "white" :foreground "midnightblue"))))))) (defun color-theme-euphoria () "Color theme by oGLOWo, created 2000-04-19. Green on black theme including font-lock, speedbar, and widget." (interactive) (color-theme-install '(color-theme-euphoria ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "yellow") (foreground-color . "#00ff00") (mouse-color . "yellow")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (widget-mouse-face . highlight)) (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")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "yellow")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "magenta")))) (font-lock-comment-face ((t (:foreground "deeppink")))) (font-lock-constant-face ((t (:foreground "blue")))) (font-lock-doc-face ((t (:foreground "cyan")))) (font-lock-doc-string-face ((t (:foreground "cyan")))) (font-lock-function-name-face ((t (:foreground "purple")))) (font-lock-keyword-face ((t (:foreground "red")))) (font-lock-preprocessor-face ((t (:foreground "blue1")))) (font-lock-reference-face ((t (nil)))) (font-lock-string-face ((t (:foreground "cyan")))) (font-lock-type-face ((t (:foreground "yellow")))) (font-lock-variable-name-face ((t (:foreground "violet")))) (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) (fringe ((t (:background "gray16" :foreground "#00ff00")))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (horizontal-divider ((t (:background "gray16" :foreground "#00ff00")))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (menu ((t (:background "gray16" :foreground "green")))) (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00")))) (modeline-mousable ((t (:background "gray16" :foreground "#00ff00")))) (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00")))) (mouse ((t (:background "yellow")))) (primary-selection ((t (:background "#00ff00" :foreground "black")))) (region ((t (:background "steelblue" :foreground "white")))) (scroll-bar ((t (:background "gray16" :foreground "#00ff00")))) (secondary-selection ((t (:background "#00ff00" :foreground "black")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "#00ff00")))) (speedbar-directory-face ((t (:foreground "#00ff00")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple")))) (speedbar-selected-face ((t (:foreground "deeppink" :underline t)))) (speedbar-tag-face ((t (:foreground "yellow")))) (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "gray16" :foreground "#00ff00")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (vertical-divider ((t (:background "gray16" :foreground "#00ff00")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (zmacs-region ((t (:background "steelblue" :foreground "white"))))))) (defun color-theme-resolve () "Color theme by Damien Elmes, created 2002-04-24. A white smoke on blue color theme." (interactive) (color-theme-install '(color-theme-resolve ((background-color . "#00457f") (background-mode . dark) (border-color . "black") (cursor-color . "DarkGoldenrod1") (foreground-color . "white smoke") (mouse-color . "white")) ((display-time-mail-face . mode-line) (help-highlight-face . underline) (list-matching-lines-face . bold) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bold ((t (:bold t :foreground "snow2" :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (calendar-today-face ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold)))) (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold)))) (cursor ((t (:background "DarkGoldenrod1")))) (diary-face ((t (:foreground "yellow")))) (erc-input-face ((t (:foreground "lightblue2")))) (erc-notice-face ((t (:foreground "lightyellow3")))) (fixed-pitch ((t (:family "courier")))) (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) (font-latex-math-face ((t (:foreground "burlywood")))) (font-latex-sedate-face ((t (:foreground "LightGray")))) (font-latex-string-face ((t (:foreground "RosyBrown")))) (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (font-lock-builtin-face ((t (:foreground "wheat")))) (font-lock-comment-face ((t (:foreground "light steel blue")))) (font-lock-constant-face ((t (:foreground "seashell3")))) (font-lock-doc-face ((t (:foreground "plum")))) (font-lock-doc-string-face ((t (:foreground "#008000")))) (font-lock-function-name-face ((t (:foreground "thistle1")))) (font-lock-keyword-face ((t (:foreground "wheat")))) (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold)))) (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold)))) (font-lock-preprocessor-face ((t (:foreground "#800080")))) (font-lock-reference-face ((t (:foreground "wheat")))) (font-lock-string-face ((t (:foreground "plum")))) (font-lock-type-face ((t (:foreground "lawn green")))) (font-lock-variable-name-face ((t (:foreground "light yellow")))) (font-lock-warning-face ((t (:foreground "plum")))) (fringe ((t (:background "#000000")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "light blue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic)))) (gnus-header-from-face ((t (:foreground "spring green")))) (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold)))) (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold)))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:background "grey20" :foreground "grey90")))) (highlight ((t (:background "gray91" :foreground "firebrick")))) (highline-face ((t (:background "paleturquoise" :foreground "black")))) (holiday-face ((t (:background "chocolate4")))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "seashell3")))) (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold)))) (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold)))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "snow2")))) (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "misty rose")))) (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:foreground "white" :background "#001040")))) (modeline-mousable ((t (:foreground "white" :background "#001040")))) (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040")))) (mouse ((t (:background "white")))) (my-tab-face ((t (:background "SlateBlue1")))) (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold)))) (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4")))) (region ((t (:background "gray91" :foreground "DodgerBlue4")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) (tool-bar ((t (:background "grey75" :foreground "black")))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "steel blue")))) (widget-inactive-face ((t (:foreground "grey")))) (widget-single-line-field-face ((t (:background "gray85")))) (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4"))))))) (defun color-theme-xp () "Color theme by Girish Bharadwaj, created 2002-04-25. Includes custom, erc, font-lock, jde, semantic, speedbar, widget." (interactive) (color-theme-install '(color-theme-xp ((background-color . "lightyellow2") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "gray20") (mouse-color . "black")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (semantic-which-function-use-color . t) (senator-eldoc-use-color . t) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (button ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:background "Red" :foreground "White")))) (erc-input-face ((t (:foreground "brown")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) (erc-underline-face ((t (:underline t)))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9)))) (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9)))) (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9)))) (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold)))) (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold)))) (font-lock-string-face ((t (:foreground "red" :height 0.9)))) (font-lock-type-face ((t (:foreground "Royalblue")))) (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9)))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "dodgerblue")))) (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil)))) (highlight ((t (:background "darkseagreen2")))) (isearch ((t (:background "magenta2" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "blue3")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (menu ((t (nil)))) (minibuffer-prompt ((t (:foreground "dark blue")))) (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red")))) (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black")))) (modeline-mousable ((t (:background "dodgerblue" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black")))) (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "lightgoldenrod2")))) (region ((t (:background "lightgoldenrod2")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "yellow")))) (semantic-dirty-token-face ((t (:background "lightyellow")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray25")))) (senator-momentary-highlight-face ((t (:background "gray70")))) (senator-read-only-face ((t (:background "#CCBBBB")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (template-message-face ((t (:bold t :weight bold)))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (zmacs-region ((t (:background "lightgoldenrod2"))))))) (defun color-theme-gray30 () "Color theme by Girish Bharadwaj, created 2002-04-22." (interactive) (color-theme-install '(color-theme-gray30 ((background-color . "grey30") (background-mode . dark) (border-color . "black") (cursor-color . "black") (foreground-color . "gainsboro") (mouse-color . "black")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (semantic-which-function-use-color . t) (senator-eldoc-use-color . t) (widget-mouse-face . highlight)) (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")))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (button ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:background "Red" :foreground "White")))) (erc-input-face ((t (:foreground "brown")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "Pink")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t)))) (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique)))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05)))) (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05)))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "yellow" :height 1.05)))) (font-lock-variable-name-face ((t (:foreground "gold")))) (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (fringe ((t (:background "grey10")))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (menu ((t (nil)))) (minibuffer-prompt ((t (:foreground "cyan")))) (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light)))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "blue3")))) (region ((t (:background "blue3")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "SkyBlue4")))) (semantic-dirty-token-face ((t (:background "lightyellow")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray30")))) (senator-read-only-face ((t (:background "#664444")))) (show-paren-match-face ((t (:background "steelblue3")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green3")))) (speedbar-directory-face ((t (:foreground "light blue")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "yellow")))) (template-message-face ((t (:bold t :weight bold)))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (zmacs-region ((t (:background "blue3"))))))) (defun color-theme-dark-green () "Color theme by ces93, created 2002-03-30." (interactive) (color-theme-install '(color-theme-dark-green ((background-mode . light) (background-toolbar-color . "#e79ddf7ddf7d") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#8e3886178617") (top-toolbar-shadow-color . "#ffffffffffff")) nil (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (fringe ((t (nil)))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:background "#ffffff" :foreground "#000000")))) (highlight ((t (:background "gray" :foreground "darkred")))) (isearch ((t (:background "LightSlateGray" :foreground "red")))) (italic ((t (:italic t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (mode-line ((t (:background "LightSlateGray" :foreground "black")))) (modeline ((t (:background "LightSlateGray" :foreground "black")))) (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4")))) (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4")))) (pointer ((t (:background "#ffffff" :foreground "#000000")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65")))) (right-margin ((t (nil)))) (rpm-spec-dir-face ((t (:foreground "green")))) (rpm-spec-doc-face ((t (:foreground "magenta")))) (rpm-spec-ghost-face ((t (:foreground "red")))) (rpm-spec-macro-face ((t (:foreground "purple")))) (rpm-spec-package-face ((t (:foreground "red")))) (rpm-spec-tag-face ((t (:foreground "blue")))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray")))) (tool-bar ((t (nil)))) (toolbar ((t (:background "#ffffff" :foreground "#000000")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "#ffffff" :foreground "#000000")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "darkorange" :foreground "black"))))))) (defun color-theme-whateveryouwant () "Color theme by Fabien Penso, created 2002-05-02." (interactive) (color-theme-install '(color-theme-whateveryouwant ((background-color . "white") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "black") (mouse-color . "black")) ((cperl-here-face . font-lock-string-face) (cperl-invalid-face . underline) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (display-time-mail-face . mode-line) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-carpal-button-face . bold) (gnus-carpal-header-face . bold-italic) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-selected-tree-face . modeline) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (gnus-treat-display-xface . head) (help-highlight-face . underline) (ispell-highlight-face . flyspell-incorrect-face) (list-matching-lines-face . bold) (sgml-set-face . t) (view-highlight-face . highlight) (widget-mouse-face . highlight) (x-face-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) (bbdb-company ((t (:italic t :slant italic)))) (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (:underline t)))) (bold ((t (:bold t :foreground "gray40" :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (calendar-today-face ((t (:underline t)))) (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) (change-log-date-face ((t (:foreground "RosyBrown")))) (change-log-email-face ((t (:foreground "DarkGoldenrod")))) (change-log-file-face ((t (:foreground "Blue")))) (change-log-function-face ((t (:foreground "DarkGoldenrod")))) (change-log-list-face ((t (:foreground "Purple")))) (change-log-name-face ((t (:foreground "CadetBlue")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv")))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) (cvs-msg-face ((t (:italic t :slant italic)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:foreground "red")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey50")))) (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) (diff-function-face ((t (:foreground "grey50")))) (diff-header-face ((t (:background "grey85")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "RosyBrown")))) (dired-face-directory ((t (:foreground "Blue")))) (dired-face-executable ((t (nil)))) (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold)))) (dired-face-marked ((t (:bold t :foreground "Red" :weight bold)))) (dired-face-permissions ((t (nil)))) (dired-face-setuid ((t (nil)))) (dired-face-socket ((t (nil)))) (dired-face-symlink ((t (:foreground "Purple")))) (ebrowse-default-face ((t (nil)))) (ebrowse-file-name-face ((t (:italic t :slant italic)))) (ebrowse-member-attribute-face ((t (:foreground "red")))) (ebrowse-member-class-face ((t (:foreground "purple")))) (ebrowse-progress-face ((t (:background "blue")))) (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) (ebrowse-tree-mark-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "LightSalmon")))) (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (erc-input-face ((t (:foreground "Beige")))) (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) (erc-notice-face ((t (:foreground "MediumAquamarine")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:foreground "MediumAquamarine")))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-ls-picture-face ((t (:foreground "Violet")))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) (excerpt ((t (:italic t :slant italic)))) (fixed ((t (:bold t :weight bold)))) (fixed-pitch ((t (:family "courier")))) (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) (font-latex-math-face ((t (:foreground "SaddleBrown")))) (font-latex-sedate-face ((t (:foreground "DimGray")))) (font-latex-string-face ((t (:foreground "RosyBrown")))) (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (font-lock-builtin-face ((t (:foreground "dodgerblue3")))) (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-doc-face ((t (:foreground "RosyBrown")))) (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100)))) (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold)))) (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) (font-lock-reference-face ((t (:foreground "Orchid")))) (font-lock-string-face ((t (:foreground "navy")))) (font-lock-type-face ((t (:bold t :foreground "black" :weight bold)))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-warning-face ((t (:foreground "orange2")))) (fringe ((t (:background "white")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica")))) (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica")))) (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica")))) (gnus-picon-face ((t (:background "white" :foreground "black")))) (gnus-picon-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep")))) (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep")))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep")))) (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep")))) (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep")))) (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) (hi-black-b ((t (:bold t :weight bold)))) (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) (hi-blue ((t (:background "light blue")))) (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) (hi-green ((t (:background "green")))) (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) (hi-pink ((t (:background "pink")))) (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) (hi-yellow ((t (:background "yellow")))) (highlight ((t (:background "black" :foreground "white")))) (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "gray80")))) (holiday-face ((t (:background "pink")))) (idlwave-help-link-face ((t (:foreground "Blue")))) (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold t :weight bold :family "helv")))) (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) (log-view-message-face ((t (:background "grey85")))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep")))) (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold)))) (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "black")))) (mpg123-face-cur ((t (:background "#004080" :foreground "yellow")))) (mpg123-face-slider ((t (:background "yellow" :foreground "black")))) (primary-selection ((t (:background "lightgoldenrod2")))) (reb-match-0 ((t (:background "lightblue")))) (reb-match-1 ((t (:background "aquamarine")))) (reb-match-2 ((t (:background "springgreen")))) (reb-match-3 ((t (:background "yellow")))) (region ((t (:background "#aa0000" :foreground "white")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "yellow")))) (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic)))) (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold)))) (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")))) (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")))) (sgml-ignored-face ((t (nil)))) (sgml-ms-end-face ((t (nil)))) (sgml-ms-start-face ((t (nil)))) (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold)))) (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold)))) (sgml-short-ref-face ((t (nil)))) (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold)))) (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")))) (sh-heredoc-face ((t (:foreground "tan")))) (show-paren-match-face ((t (:background "gray80" :foreground "black")))) (show-paren-mismatch-face ((t (:background "red" :foreground "yellow")))) (show-tabs-space-face ((t (:foreground "yellow")))) (show-tabs-tab-face ((t (:foreground "red")))) (smerge-base-face ((t (:foreground "red")))) (smerge-markers-face ((t (:background "grey85")))) (smerge-mine-face ((t (:foreground "blue")))) (smerge-other-face ((t (:foreground "darkgreen")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (strokes-char-face ((t (:background "lightgray")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (tex-math-face ((t (:foreground "RosyBrown")))) (texinfo-heading-face ((t (:foreground "Blue")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:foreground "navy" :underline t)))) (variable-pitch ((t (:family "helv")))) (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (woman-addition-face ((t (:foreground "orange")))) (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) (woman-unknown-face ((t (:foreground "brown")))) (zmacs-region ((t (:background "lightgoldenrod2"))))))) (defun color-theme-bharadwaj-slate () "Color theme by Girish Bharadwaj, created 2002-05-06." (interactive) (color-theme-install '(color-theme-bharadwaj-slate ((background-color . "DarkSlateGray") (background-mode . dark) (border-color . "black") (cursor-color . "khaki") (foreground-color . "palegreen") (mouse-color . "black")) ((display-time-mail-face . mode-line) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-mouse-face . highlight) (help-highlight-face . underline) (ibuffer-deletion-face . font-lock-type-face) (ibuffer-filter-group-name-face . bold) (ibuffer-marked-face . font-lock-warning-face) (ibuffer-title-face . font-lock-type-face) (list-matching-lines-buffer-name-face . underline) (list-matching-lines-face . bold) (semantic-which-function-use-color . t) (senator-eldoc-use-color . t) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (button ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "khaki")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:background "Red" :foreground "White")))) (erc-input-face ((t (:foreground "lightblue")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold)))) (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold)))) (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-ls-product-face ((t (:foreground "LightSalmon")))) (eshell-ls-readonly-face ((t (:foreground "Pink")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold)))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) (font-lock-comment-face ((t (:foreground "violet" :height 1.0)))) (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold)))) (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold)))) (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) (font-lock-string-face ((t (:foreground "red" :height 1.0)))) (font-lock-type-face ((t (:foreground "lightblue3")))) (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0)))) (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (fringe ((t (:background "DarkSlateGray")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "light blue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "light cyan")))) (gnus-cite-face-3 ((t (:foreground "light yellow")))) (gnus-cite-face-4 ((t (:foreground "light pink")))) (gnus-cite-face-5 ((t (:foreground "pale green")))) (gnus-cite-face-6 ((t (:foreground "beige")))) (gnus-cite-face-7 ((t (:foreground "orange")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) (gnus-header-from-face ((t (:foreground "spring green")))) (gnus-header-name-face ((t (:foreground "SeaGreen")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold)))) (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic)))) (html-helper-underline-face ((t (:foreground "cornsilk" :underline t)))) (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold)))) (info-menu-6 ((t (nil)))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (minibuffer-prompt ((t (:foreground "cyan")))) (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "dimgray")))) (region ((t (:background "dimgray")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "SkyBlue4")))) (semantic-dirty-token-face ((t (:background "lightyellow")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray30")))) (senator-read-only-face ((t (:background "#664444")))) (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1)))) (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1)))) (show-tabs-space-face ((t (:foreground "yellow")))) (show-tabs-tab-face ((t (:foreground "red")))) (speedbar-button-face ((t (:foreground "green3")))) (speedbar-directory-face ((t (:foreground "light blue")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "yellow")))) (template-message-face ((t (:bold t :weight bold)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (:background "black")))) (term-blue ((t (:foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t :weight bold)))) (term-cyan ((t (:foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (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")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-green ((t (:foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue"))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray")))) (zmacs-region ((t (:background "dimgray"))))))) (defun color-theme-lethe () "Color theme by Ivica Loncar, created 2002-08-02. Some additional X resources as suggested by the author: Emacs*menubar.Foreground: Yellow Emacs*menubar.Background: #1a2b3c Emacs*menubar.topShadowColor: gray Emacs*menubar.bottomShadowColor: dimgray Some fonts I really like (note: this fonts are not highly available): Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2 Emacs*menubar*Font: -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1 Mouse fix: Emacs*dialog*XmPushButton.translations:#override\n\ : Arm()\n\ ,: Activate()\ Disarm()\n\ (2+): MultiArm()\n\ (2+): MultiActivate()\n\ : Activate()\ Disarm()\n\ osfSelect: ArmAndActivate()\n\ osfActivate: ArmAndActivate()\n\ osfHelp: Help()\n\ ~Shift ~Meta ~Alt Return: ArmAndActivate()\n\ : Enter()\n\ : Leave()\n Bonus: do not use 3D modeline." (interactive) (color-theme-install '(color-theme-lethe ((background-color . "black") (background-mode . dark) (background-toolbar-color . "#000000000000") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "red") (cursor-color . "red") (foreground-color . "peachpuff") (mouse-color . "red") (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) ((buffers-tab-face . buffers-tab) (cscope-use-face . t) (gnus-mouse-face . highlight)) (default ((t (nil)))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (nil)))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border ((t (nil)))) (border-glyph ((t (nil)))) (buffers-tab ((t (:bold t :foreground "red")))) (button ((t (:underline t)))) (calendar-today-face ((t (:underline t)))) (comint-highlight-input ((t (:bold t)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cscope-file-face ((t (:foreground "blue")))) (cscope-function-face ((t (:foreground "magenta")))) (cscope-line-face ((t (:foreground "green")))) (cscope-line-number-face ((t (:foreground "red")))) (cscope-mouse-face ((t (:background "blue" :foreground "white")))) (cursor ((t (nil)))) (custom-button-face ((t (nil)))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t)))) (custom-variable-tag-face ((t (:underline t :foreground "blue")))) (cyan ((t (:foreground "cyan")))) (diary-face ((t (:foreground "red")))) (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (erc-action-face ((t (:bold t)))) (erc-bold-face ((t (:bold t)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:background "Red" :foreground "White")))) (erc-input-face ((t (:foreground "brown")))) (erc-inverse-face ((t (:background "Black" :foreground "White")))) (erc-notice-face ((t (:bold t :foreground "SlateBlue")))) (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black")))) (erc-timestamp-face ((t (:bold t :foreground "green")))) (erc-underline-face ((t (:underline t)))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red")))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) (eshell-test-ok-face ((t (:bold t :foreground "Green")))) (excerpt ((t (:italic t)))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed ((t (:bold t)))) (fixed-pitch ((t (:size "16")))) (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:bold t :foreground "cyan")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-doc-face ((t (:bold t :foreground "red")))) (font-lock-doc-string-face ((t (:bold t :foreground "red")))) (font-lock-function-name-face ((t (:bold t :foreground "white")))) (font-lock-keyword-face ((t (:bold t :foreground "yellow")))) (font-lock-preprocessor-face ((t (:bold t :foreground "blue")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:bold t :foreground "magenta")))) (font-lock-type-face ((t (:bold t :foreground "lightgreen")))) (font-lock-variable-name-face ((t (:bold t :foreground "white")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (fringe ((t (:background "grey95")))) (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red")))) (gnus-cite-attribution-face ((t (:italic t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-highlight-words ((t (:foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-picons-face ((t (:background "white" :foreground "black")))) (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) (gnus-signature-face ((t (:italic t)))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) (header-line ((t (:background "grey20" :foreground "grey90")))) (highlight ((t (:bold t :background "yellow" :foreground "red")))) (highlight-changes-delete-face ((t (:underline t :foreground "red")))) (highlight-changes-face ((t (:foreground "red")))) (highline-face ((t (:background "paleturquoise")))) (holiday-face ((t (:background "pink")))) (hyper-apropos-documentation ((t (:foreground "#aaaaaa")))) (hyper-apropos-heading ((t (:bold t :foreground "#999999")))) (hyper-apropos-hyperlink ((t (:foreground "Violet")))) (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000")))) (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55")))) (hyper-apropos-warning ((t (:bold t :foreground "red")))) (info-menu-5 ((t (:underline t)))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "paleturquoise")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:italic t)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) (jde-java-font-lock-italic-face ((t (:italic t)))) (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue")))) (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (magenta ((t (:foreground "magenta")))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (nil)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:bold t :foreground "cyan")))) (message-separator-face ((t (:foreground "brown")))) (minibuffer-prompt ((t (:foreground "cyan")))) (mode-line ((t (:background "grey75" :foreground "black")))) (mode-line-inactive ((t (:background "grey30" :foreground "grey80")))) (modeline ((t (:bold t :background "red" :foreground "yellow")))) (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow")))) (modeline-mousable ((t (:background "red" :foreground "yellow")))) (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4")))) (mouse ((t (nil)))) (paren-blink-off ((t (:foreground "black")))) (paren-match ((t (:bold t :background "yellow" :foreground "red")))) (paren-mismatch ((t (:background "DeepPink")))) (pointer ((t (nil)))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray75")))) (right-margin ((t (nil)))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (semantic-dirty-token-face ((t (:background "lightyellow")))) (semantic-unmatched-syntax-face ((t (nil)))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray30")))) (senator-read-only-face ((t (:background "#664444")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:underline t :foreground "red")))) (speedbar-tag-face ((t (:foreground "brown")))) (template-message-face ((t (:bold t)))) (term-black ((t (:foreground "black")))) (term-blackbg ((t (nil)))) (term-blue ((t (:foreground "blue")))) (term-blue-bold-face ((t (:bold t :foreground "blue")))) (term-blue-face ((t (:foreground "blue")))) (term-blue-inv-face ((t (:background "blue")))) (term-blue-ul-face ((t (:underline t :foreground "blue")))) (term-bluebg ((t (:background "blue")))) (term-bold ((t (:bold t)))) (term-cyan ((t (:foreground "cyan")))) (term-cyan-bold-face ((t (:bold t :foreground "cyan")))) (term-cyan-face ((t (:foreground "cyan")))) (term-cyan-inv-face ((t (:background "cyan")))) (term-cyan-ul-face ((t (:underline t :foreground "cyan")))) (term-cyanbg ((t (:background "cyan")))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-bold-face ((t (:bold t)))) (term-default-face ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-default-inv-face ((t (:background "peachpuff" :foreground "black")))) (term-default-ul-face ((t (:underline t)))) (term-green ((t (:foreground "green")))) (term-green-bold-face ((t (:bold t :foreground "green")))) (term-green-face ((t (:foreground "green")))) (term-green-inv-face ((t (:background "green")))) (term-green-ul-face ((t (:underline t :foreground "green")))) (term-greenbg ((t (:background "green")))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (:foreground "magenta")))) (term-magenta-bold-face ((t (:bold t :foreground "magenta")))) (term-magenta-face ((t (:foreground "magenta")))) (term-magenta-inv-face ((t (:background "magenta")))) (term-magenta-ul-face ((t (:underline t :foreground "magenta")))) (term-magentabg ((t (:background "magenta")))) (term-red ((t (:foreground "red")))) (term-red-bold-face ((t (:bold t :foreground "red")))) (term-red-face ((t (:foreground "red")))) (term-red-inv-face ((t (:background "red")))) (term-red-ul-face ((t (:underline t :foreground "red")))) (term-redbg ((t (:background "red")))) (term-underline ((t (:underline t)))) (term-white ((t (:foreground "white")))) (term-white-bold-face ((t (:bold t :foreground "white")))) (term-white-face ((t (:foreground "white")))) (term-white-inv-face ((t (nil)))) (term-white-ul-face ((t (:underline t :foreground "white")))) (term-whitebg ((t (:background "white")))) (term-yellow ((t (:foreground "yellow")))) (term-yellow-bold-face ((t (:bold t :foreground "yellow")))) (term-yellow-face ((t (:foreground "yellow")))) (term-yellow-inv-face ((t (:background "yellow")))) (term-yellow-ul-face ((t (:underline t :foreground "yellow")))) (term-yellowbg ((t (:background "yellow")))) (text-cursor ((t (:background "red" :foreground "black")))) (tool-bar ((t (:background "grey75" :foreground "black")))) (toolbar ((t (:background "Gray80" :foreground "black")))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (nil)))) (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) (vertical-divider ((t (:background "Gray80" :foreground "black")))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (white ((t (:foreground "white")))) (widget ((t (:size "12" :background "Gray80" :foreground "black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (nil)))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (x-face ((t (:bold t :background "wheat" :foreground "black")))) (xrdb-option-name-face ((t (:bold t :foreground "yellow")))) (xrdb-option-value-face ((t (:bold t :foreground "magenta")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "white" :foreground "black"))))))) (defun color-theme-shaman () "Color theme by shaman, created 2002-11-11." (interactive) (color-theme-install '(color-theme-shaman ((background-color . "#456345") (background-mode . dark) (background-toolbar-color . "#cf3ccf3ccf3c") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#79e77df779e7") (foreground-color . "White") (top-toolbar-shadow-color . "#f7defbeef7de")) ((buffers-tab-face . buffers-tab)) (default ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t :size "12")))) (bold-italic ((t (:italic t :bold t :size "12")))) (border-glyph ((t (nil)))) (buffers-tab ((t (:background "Gray80" :foreground "black")))) (font-lock-builtin-face ((t (:foreground "cadetblue2")))) (font-lock-comment-face ((t (:foreground "gray80")))) (font-lock-constant-face ((t (:foreground "steelblue1")))) (font-lock-doc-face ((t (:foreground "light coral")))) (font-lock-doc-string-face ((t (:foreground "light coral")))) (font-lock-function-name-face ((t (:foreground "aquamarine")))) (font-lock-keyword-face ((t (:foreground "cyan")))) (font-lock-preprocessor-face ((t (:foreground "steelblue1")))) (font-lock-reference-face ((t (:foreground "cadetblue2")))) (font-lock-string-face ((t (:foreground "tan")))) (font-lock-type-face ((t (:foreground "wheat")))) (font-lock-variable-name-face ((t (:foreground "cyan3")))) (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink")))) (fringe ((t (nil)))) (gnus-x-face ((t (:background "white" :foreground "black")))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75" :foreground "black")))) (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) (highlight ((t (:background "darkseagreen2")))) (isearch ((t (:background "paleturquoise")))) (isearch-secondary ((t (:foreground "red3")))) (italic ((t (:italic t :size "12")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:bold t :foreground "green4")))) (message-header-name-face ((t (:foreground "DarkGreen")))) (message-header-newsgroups-face ((t (:bold t :foreground "yellow")))) (message-header-other-face ((t (:foreground "#b00000")))) (message-header-subject-face ((t (:foreground "green3")))) (message-header-to-face ((t (:bold t :foreground "green2")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "blue3")))) (mode-line ((t (:background "Gray80" :foreground "black")))) (modeline ((t (:background "Gray80" :foreground "black")))) (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) (pointer ((t (:foreground "White")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray65")))) (right-margin ((t (nil)))) (rpm-spec-dir-face ((t (:foreground "green")))) (rpm-spec-doc-face ((t (:foreground "magenta")))) (rpm-spec-ghost-face ((t (:foreground "red")))) (rpm-spec-macro-face ((t (:foreground "yellow")))) (rpm-spec-package-face ((t (:foreground "red")))) (rpm-spec-tag-face ((t (:foreground "blue")))) (rpm-spec-var-face ((t (:foreground "maroon")))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "Pink" :foreground "Black")))) (tool-bar ((t (nil)))) (toolbar ((t (:background "Gray80" :foreground "black")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "Gray80" :foreground "black")))) (widget ((t (:size "12" :background "Gray80" :foreground "black")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65"))))))) (defun color-theme-emacs-nw () "Follow emacs21's color-theme, with -nw getting 100% compatibility. Alex's `color-theme-emacs-21' follows emacs21's theme, but in the current scheme of things, that means that when it works on X, it won't work in -nw perfectly. The modeline and menuline will have same colors as the rest of emacs, which can be particularly disturbing when there are multiple windows. OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is 100% -nw compatibility, and in X; we shall try for decent color scheme, and as much compability default emacs21's X as possble. Bugs to deego@gnufans.org. TODO: Try to make this theme relative to color-theme-emacs-21 rather than absolute, viz: call that first and then tweak minor stuff." (interactive) (color-theme-install '(color-theme-emacs-nw ((background-color . "white") (background-mode . light) (border-color . "black") (cursor-color . "black") (foreground-color . "black") (mouse-color . "black")) ((Man-overstrike-face . bold) (Man-underline-face . underline) (cperl-here-face . font-lock-string-face) (cperl-invalid-face . underline) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (idlwave-class-arrow-face . bold) (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) (idlwave-shell-expression-face . secondary-selection) (idlwave-shell-stop-line-face . highlight) (ispell-highlight-face . highlight) (list-matching-lines-face . bold) (view-highlight-face . highlight) (viper-insert-state-cursor-color . "Green") (viper-replace-overlay-cursor-color . "Red") (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (calendar-today-face ((t (:underline t)))) (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) (change-log-date-face ((t (:foreground "RosyBrown")))) (change-log-email-face ((t (:foreground "DarkGoldenrod")))) (change-log-file-face ((t (:foreground "Blue")))) (change-log-function-face ((t (:foreground "DarkGoldenrod")))) (change-log-list-face ((t (:foreground "Purple")))) (change-log-name-face ((t (:foreground "CadetBlue")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) (cursor ((t (:background "black")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "gray85")))) (custom-comment-tag-face ((t (:foreground "blue4")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) (cvs-msg-face ((t (:italic t :slant italic)))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) (diary-face ((t (:foreground "red")))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (:foreground "grey50")))) (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) (diff-function-face ((t (:foreground "grey50")))) (diff-header-face ((t (:background "grey85")))) (diff-hunk-header-face ((t (:background "grey85")))) (diff-index-face ((t (:bold t :weight bold :background "grey70")))) (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (:foreground "RosyBrown")))) (dired-face-directory ((t (:foreground "Blue")))) (dired-face-executable ((t (nil)))) (dired-face-flagged ((t (:foreground "Red" :weight bold)))) (dired-face-marked ((t (:foreground "Red" :weight bold)))) (dired-face-permissions ((t (nil)))) (dired-face-setuid ((t (nil)))) (dired-face-socket ((t (nil)))) (dired-face-symlink ((t (:foreground "Purple")))) (ebrowse-default-face ((t (nil)))) (ebrowse-file-name-face ((t (:italic t :slant italic)))) (ebrowse-member-attribute-face ((t (:foreground "red")))) (ebrowse-member-class-face ((t (:foreground "purple")))) (ebrowse-progress-face ((t (:background "blue")))) (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) (ebrowse-tree-mark-face ((t (:foreground "red")))) (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-ls-product-face ((t (:foreground "OrangeRed")))) (eshell-ls-readonly-face ((t (:foreground "Brown")))) (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) (excerpt ((t (:italic t :slant italic)))) (fixed ((t (:bold t :weight bold)))) (fixed-pitch ((t (:family "courier")))) (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) (font-lock-builtin-face ((t (:foreground "Orchid")))) (font-lock-comment-face ((t (:foreground "Firebrick")))) (font-lock-constant-face ((t (:foreground "CadetBlue")))) (font-lock-doc-face ((t (:foreground "RosyBrown")))) (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) (font-lock-function-name-face ((t (:foreground "Blue")))) (font-lock-keyword-face ((t (:foreground "Purple")))) (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) (font-lock-reference-face ((t (:foreground "Orchid")))) (font-lock-string-face ((t (:foreground "RosyBrown")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "grey95")))) (gnus-cite-attribution-face ((t (:italic t :slant italic)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) (gnus-header-from-face ((t (:foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) (gnus-header-subject-face ((t (:foreground "red4")))) (gnus-signature-face ((t (:italic t :slant italic)))) (gnus-splash-face ((t (:foreground "Brown")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) (hi-black-b ((t (:bold t :weight bold)))) (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) (hi-blue ((t (:background "light blue")))) (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) (hi-green ((t (:background "green")))) (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) (hi-pink ((t (:background "pink")))) (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) (hi-yellow ((t (:background "yellow")))) (highlight ((t (:background "darkseagreen2")))) (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) (highlight-changes-face ((t (:foreground "red")))) (holiday-face ((t (:background "pink")))) (idlwave-help-link-face ((t (:foreground "Blue")))) (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) (log-view-message-face ((t (:background "grey85")))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) (message-header-xheader-face ((t (:foreground "blue")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "black")))) (primary-selection ((t (:background "lightgoldenrod2")))) (reb-match-0 ((t (:background "lightblue")))) (reb-match-1 ((t (:background "aquamarine")))) (reb-match-2 ((t (:background "springgreen")))) (reb-match-3 ((t (:background "yellow")))) (region ((t (:background "lightgoldenrod2")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "yellow")))) (sh-heredoc-face ((t (:foreground "tan")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (show-tabs-space-face ((t (:foreground "yellow")))) (show-tabs-tab-face ((t (:foreground "red")))) (smerge-base-face ((t (:foreground "red")))) (smerge-markers-face ((t (:background "grey85")))) (smerge-mine-face ((t (:foreground "blue")))) (smerge-other-face ((t (:foreground "darkgreen")))) (speedbar-button-face ((t (:foreground "green4")))) (speedbar-directory-face ((t (:foreground "blue4")))) (speedbar-file-face ((t (:foreground "cyan4")))) (speedbar-highlight-face ((t (:background "green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-tag-face ((t (:foreground "brown")))) (strokes-char-face ((t (:background "lightgray")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (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")))) (tex-math-face ((t (:foreground "RosyBrown")))) (texinfo-heading-face ((t (:foreground "Blue")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) (viper-search-face ((t (:background "khaki" :foreground "Black")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) (woman-addition-face ((t (:foreground "orange")))) (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) (woman-unknown-face ((t (:foreground "brown")))) (zmacs-region ((t (:background "lightgoldenrod2"))))))) (defun color-theme-late-night () "Color theme by Alex Schroeder, created 2003-08-07. This theme is for use late at night, with only little light in the room. The goal was to make something as dark and subtle as the text console in its default 80x25 state -- dark grey on black." (interactive) (let ((color-theme-is-cumulative t)) (color-theme-dark-erc) (color-theme-dark-gnus) ;; (color-theme-dark-diff) ;; (color-theme-dark-eshell) (color-theme-dark-info) (color-theme-dark-font-lock) (color-theme-install '(color-theme-late-night ((background-color . "#000") (background-mode . dark) (background-toolbar-color . "#000") (border-color . "#000") (bottom-toolbar-shadow-color . "#000") (cursor-color . "#888") (foreground-color . "#666") (top-toolbar-shadow-color . "#111")) (default ((t (nil)))) (bold ((t (:bold t)))) (button ((t (:bold t)))) (custom-button-face ((t (:bold t :foreground "#999")))) (fringe ((t (:background "#111" :foreground "#444")))) (header-line ((t (:background "#333" :foreground "#000")))) (highlight ((t (:background "dark slate blue" :foreground "light blue")))) (holiday-face ((t (:background "#000" :foreground "#777")))) (isearch ((t (:foreground "pink" :background "red")))) (isearch-lazy-highlight-face ((t (:foreground "red")))) (italic ((t (:bold t)))) (menu ((t (:background "#111" :foreground "#444")))) (minibuffer-prompt ((t (:foreground "555")))) (modeline ((t (:background "#111" :foreground "#444")))) (mode-line-inactive ((t (:background "#000" :foreground "#444")))) (modeline-buffer-id ((t (:background "#000" :foreground "#555")))) (modeline-mousable ((t (:background "#000" :foreground "#555")))) (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555")))) (region ((t (:background "dark cyan" :foreground "cyan")))) (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) (tool-bar ((t (:background "#111" :foreground "#777")))) (tooltip ((t (:background "#333" :foreground "#777")))) (underline ((t (:bold t)))) (variable-pitch ((t (nil)))) (widget-button-face ((t (:bold t :foreground "#888")))) (widget-field-face ((t (:bold t :foreground "#999")))))))) (defun color-theme-clarity () "White on black color theme by Richard Wellum, created 2003-01-16." (interactive) (color-theme-install '(color-theme-clarity ((background-color . "black") (background-mode . dark) (border-color . "white") (cursor-color . "yellow") (foreground-color . "white") (mouse-color . "white")) ((CUA-mode-global-mark-cursor-color . "cyan") (CUA-mode-normal-cursor-color . "yellow") (CUA-mode-overwrite-cursor-color . "red") (CUA-mode-read-only-cursor-color . "green") (help-highlight-face . underline) (ibuffer-dired-buffer-face . font-lock-function-name-face) (ibuffer-help-buffer-face . font-lock-comment-face) (ibuffer-hidden-buffer-face . font-lock-warning-face) (ibuffer-occur-match-face . font-lock-warning-face) (ibuffer-read-only-buffer-face . font-lock-type-face) (ibuffer-special-buffer-face . font-lock-keyword-face) (ibuffer-title-face . font-lock-type-face) (list-matching-lines-face . bold) (ps-line-number-color . "black") (ps-zebra-color . 0.95) (tags-tag-face . default) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (nil)))) (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "white")))) (clearcase-dired-checkedout-face ((t (:foreground "red")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cursor ((t (:background "yellow")))) (fixed-pitch ((t (:family "courier")))) (flash-paren-face-off ((t (nil)))) (flash-paren-face-on ((t (nil)))) (flash-paren-face-region ((t (nil)))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "OrangeRed")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (fringe ((t (:background "grey10")))) (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (ibuffer-deletion-face ((t (:foreground "red")))) (ibuffer-marked-face ((t (:foreground "green")))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (menu ((t (nil)))) (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "white")))) (region ((t (:background "blue")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "darkslateblue")))) (show-block-face1 ((t (:background "gray10")))) (show-block-face2 ((t (:background "gray15")))) (show-block-face3 ((t (:background "gray20")))) (show-block-face4 ((t (:background "gray25")))) (show-block-face5 ((t (:background "gray30")))) (show-block-face6 ((t (:background "gray35")))) (show-block-face7 ((t (:background "gray40")))) (show-block-face8 ((t (:background "gray45")))) (show-block-face9 ((t (:background "gray50")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-andreas () "Color theme by Andreas Busch, created 2003-02-06." (interactive) (color-theme-install '(color-theme-andreas ((background-mode . light) (background-color . "white") (background-toolbar-color . "#cccccccccccc") (border-color . "#000000000000") (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") (foreground-color . "black") (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) ((gnus-mouse-face . highlight) (ispell-highlight-face . highlight)) (default ((t (nil)))) (OrangeRed ((t (nil)))) (blue ((t (:foreground "blue")))) (bold ((t (:bold t)))) (bold-italic ((t (:italic t :bold t)))) (border-glyph ((t (nil)))) (calendar-today-face ((t (:underline t)))) (color-mode-face-@ ((t (:foreground "orange")))) (color-mode-face-a ((t (:foreground "blue")))) (color-mode-face-b ((t (:foreground "red")))) (color-mode-face-c ((t (:foreground "green3")))) (color-mode-face-d ((t (:background "red" :foreground "white")))) (color-mode-face-e ((t (:background "orange" :foreground "blue")))) (color-mode-face-f ((t (:background "blue" :foreground "yellow")))) (color-mode-face-g ((t (:background "lightblue" :foreground "brown")))) (color-mode-face-h ((t (:background "brown" :foreground "white")))) (custom-button-face ((t (:bold t)))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:underline t :foreground "blue")))) (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "dark green")))) (custom-variable-button-face ((t (:underline t :bold t :background "gray90")))) (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue")))) (diary-face ((t (:foreground "red")))) (display-time-mail-balloon-enhance-face ((t (:background "orange")))) (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) (display-time-time-balloon-face ((t (:foreground "red")))) (emacs-wiki-bad-link-face ((t (:bold t :foreground "red")))) (emacs-wiki-link-face ((t (:bold t :foreground "green")))) (font-lock-comment-face ((t (:foreground "orange1")))) (font-lock-doc-string-face ((t (:foreground "green4")))) (font-lock-function-name-face ((t (:foreground "blue3")))) (font-lock-keyword-face ((t (:foreground "red1")))) (font-lock-preprocessor-face ((t (:foreground "blue3")))) (font-lock-reference-face ((t (:foreground "red3")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:foreground "#6920ac")))) (font-lock-variable-name-face ((t (:foreground "blue3")))) (font-lock-warning-face ((t (:bold t :foreground "Red")))) (gnu-cite-face-3 ((t (nil)))) (gnu-cite-face-4 ((t (nil)))) (gnus-cite-attribution-face ((t (:underline t)))) (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) (gnus-cite-face-10 ((t (:foreground "medium purple")))) (gnus-cite-face-11 ((t (:foreground "turquoise")))) (gnus-cite-face-2 ((t (:foreground "firebrick")))) (gnus-cite-face-3 ((t (:foreground "dark green")))) (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "dark violet")))) (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) (gnus-cite-face-8 ((t (:foreground "magenta")))) (gnus-cite-face-9 ((t (:foreground "violet")))) (gnus-emphasis-bold ((t (:bold t)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) (gnus-emphasis-italic ((t (:italic t)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t)))) (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) (gnus-header-from-face ((t (:bold t :foreground "red3")))) (gnus-header-name-face ((t (:foreground "maroon")))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) (gnus-header-subject-face ((t (:bold t :foreground "red4")))) (gnus-splash-face ((t (:foreground "red")))) (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed")))) (gnus-summary-high-unread-face ((t (:bold t)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) (gnus-summary-low-unread-face ((t (:italic t)))) (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) (gnus-summary-normal-ticked-face ((t (:foreground "Red")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (gnus-x-face ((t (nil)))) (green ((t (:foreground "green")))) (gui-button-face ((t (:background "grey75")))) (gui-element ((t (:background "Gray80")))) (highlight ((t (nil)))) (holiday-face ((t (:background "pink")))) (hyper-apropos-documentation ((t (:foreground "darkred")))) (hyper-apropos-heading ((t (:bold t)))) (hyper-apropos-hyperlink ((t (:foreground "blue4")))) (hyper-apropos-major-heading ((t (:bold t)))) (hyper-apropos-section-heading ((t (:italic t :bold t)))) (hyper-apropos-warning ((t (:bold t :foreground "red")))) (info-node ((t (:italic t :bold t)))) (info-xref ((t (:bold t)))) (isearch ((t (:background "yellow" :foreground "red")))) (italic ((t (:italic t)))) (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4")))) (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2")))) (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3")))) (kai-gnus-group-mail-face ((t (:foreground "darkslategrey")))) (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed")))) (kai-gnus-group-starred-face ((t (:foreground "grey50")))) (left-margin ((t (nil)))) (list-mode-item-selected ((t (:background "gray68")))) (message-cited-text ((t (:italic t)))) (message-cited-text-face ((t (:foreground "red")))) (message-header-cc-face ((t (:foreground "MidnightBlue")))) (message-header-contents ((t (:italic t)))) (message-header-name-face ((t (:foreground "cornflower blue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) (message-header-other-face ((t (:foreground "steel blue")))) (message-header-subject-face ((t (:bold t :foreground "navy blue")))) (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) (message-header-xheader-face ((t (:foreground "blue")))) (message-headers ((t (:bold t)))) (message-highlighted-header-contents ((t (:italic t :bold t)))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "brown")))) (modeline ((t (:background "Gray75" :foreground "Black")))) (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4")))) (modeline-mousable ((t (:background "Gray75" :foreground "firebrick")))) (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) (paren-blink-off ((t (:foreground "gray80")))) (paren-match ((t (:background "red" :foreground "white")))) (paren-mismatch ((t (:background "DeepPink")))) (pointer ((t (:foreground "blue")))) (primary-selection ((t (:background "gray65")))) (red ((t (:foreground "red")))) (region ((t (:background "gray75")))) (right-margin ((t (nil)))) (secondary-selection ((t (:background "paleturquoise")))) (text-cursor ((t (:background "red" :foreground "LightYellow1")))) (toolbar ((t (:background "Gray80")))) (underline ((t (:underline t)))) (vertical-divider ((t (:background "Gray80")))) (widget-button-face ((t (:bold t)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (x-face ((t (:background "white")))) (yellow ((t (:foreground "yellow")))) (zmacs-region ((t (:background "gray65" :foreground "yellow"))))))) (defun color-theme-charcoal-black () "Color theme by Lars Chr. Hausmann, created 2003-03-24." (interactive) (color-theme-install '(color-theme-charcoal-black ((background-color . "Grey15") (background-mode . dark) (border-color . "Grey") (cursor-color . "Grey") (foreground-color . "Grey") (mouse-color . "Grey")) ((display-time-mail-face . mode-line) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-mouse-face . highlight) (gnus-server-agent-face . gnus-server-agent-face) (gnus-server-closed-face . gnus-server-closed-face) (gnus-server-denied-face . gnus-server-denied-face) (gnus-server-offline-face . gnus-server-offline-face) (gnus-server-opened-face . gnus-server-opened-face) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (help-highlight-face . underline) (list-matching-lines-face . bold) (mime-button-face . bold) (mime-button-mouse-face . highlight) (sgml-set-face . t) (tags-tag-face . default) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (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")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (bg:erc-color-face0 ((t (nil)))) (bg:erc-color-face1 ((t (nil)))) (bg:erc-color-face10 ((t (nil)))) (bg:erc-color-face11 ((t (nil)))) (bg:erc-color-face12 ((t (nil)))) (bg:erc-color-face13 ((t (nil)))) (bg:erc-color-face14 ((t (nil)))) (bg:erc-color-face15 ((t (nil)))) (bg:erc-color-face2 ((t (nil)))) (bg:erc-color-face3 ((t (nil)))) (bg:erc-color-face4 ((t (nil)))) (bg:erc-color-face5 ((t (nil)))) (bg:erc-color-face6 ((t (nil)))) (bg:erc-color-face7 ((t (nil)))) (bg:erc-color-face8 ((t (nil)))) (bg:erc-color-face9 ((t (nil)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:bold t :foreground "beige" :weight bold)))) (border ((t (:background "Grey")))) (calendar-today-face ((t (:underline t)))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold)))) (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) (cursor ((t (:background "Grey")))) (custom-button-face ((t (:foreground "gainsboro")))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (:foreground "light blue")))) (custom-face-tag-face ((t (:underline t)))) (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "light salmon")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold)))) (diary-face ((t (:foreground "red")))) (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) (dired-face-executable ((t (:foreground "green yellow")))) (dired-face-flagged ((t (:foreground "tomato")))) (dired-face-marked ((t (:foreground "light salmon")))) (dired-face-permissions ((t (:foreground "aquamarine")))) (erc-action-face ((t (nil)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "pale green")))) (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-input-face ((t (:foreground "light blue")))) (erc-inverse-face ((t (:background "steel blue")))) (erc-notice-face ((t (:foreground "light salmon")))) (erc-pal-face ((t (:foreground "pale green")))) (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold)))) (eshell-ls-backup-face ((t (:foreground "dim gray")))) (eshell-ls-clutter-face ((t (:foreground "dim gray")))) (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold)))) (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold)))) (eshell-ls-missing-face ((t (:foreground "black")))) (eshell-ls-picture-face ((t (:foreground "violet")))) (eshell-ls-product-face ((t (:foreground "light steel blue")))) (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) (eshell-ls-special-face ((t (:foreground "gold")))) (eshell-ls-symlink-face ((t (:foreground "white")))) (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold)))) (excerpt ((t (:italic t :slant italic)))) (fg:erc-color-face0 ((t (:foreground "white")))) (fg:erc-color-face1 ((t (:foreground "beige")))) (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) (fg:erc-color-face12 ((t (:foreground "light yellow")))) (fg:erc-color-face13 ((t (:foreground "yellow")))) (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) (fg:erc-color-face15 ((t (:foreground "lime green")))) (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) (fg:erc-color-face3 ((t (:foreground "light cyan")))) (fg:erc-color-face4 ((t (:foreground "powder blue")))) (fg:erc-color-face5 ((t (:foreground "sky blue")))) (fg:erc-color-face6 ((t (:foreground "dark sea green")))) (fg:erc-color-face7 ((t (:foreground "pale green")))) (fg:erc-color-face8 ((t (:foreground "medium spring green")))) (fg:erc-color-face9 ((t (:foreground "khaki")))) (fixed ((t (:bold t :weight bold)))) (fixed-pitch ((t (:family "courier")))) (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) (font-lock-builtin-face ((t (:foreground "aquamarine")))) (font-lock-comment-face ((t (:foreground "light blue")))) (font-lock-constant-face ((t (:foreground "pale green")))) (font-lock-doc-face ((t (:foreground "light sky blue")))) (font-lock-doc-string-face ((t (:foreground "sky blue")))) (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold)))) (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) (font-lock-reference-face ((t (:foreground "pale green")))) (font-lock-string-face ((t (:foreground "light sky blue")))) (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold)))) (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold)))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "Grey15")))) (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) (gnus-cite-face-2 ((t (:foreground "Khaki")))) (gnus-cite-face-3 ((t (:foreground "Coral")))) (gnus-cite-face-4 ((t (:foreground "yellow green")))) (gnus-cite-face-5 ((t (:foreground "dark khaki")))) (gnus-cite-face-6 ((t (:foreground "bisque")))) (gnus-cite-face-7 ((t (:foreground "peru")))) (gnus-cite-face-8 ((t (:foreground "light coral")))) (gnus-cite-face-9 ((t (:foreground "plum")))) (gnus-emphasis-bold ((t (:bold t :weight bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-strikethru ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (:foreground "White")))) (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold)))) (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (gnus-group-news-1-empty-face ((t (:foreground "White")))) (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold)))) (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold)))) (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold)))) (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold)))) (gnus-signature-face ((t (:foreground "Grey")))) (gnus-splash-face ((t (:foreground "ForestGreen")))) (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold)))) (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic)))) (gnus-summary-low-read-face ((t (:foreground "slate gray")))) (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:underline t)))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "dark slate blue" :foreground "light blue")))) (highline-face ((t (:background "DeepSkyBlue4")))) (holiday-face ((t (:background "pink")))) (info-header-node ((t (:bold t :weight bold)))) (info-header-xref ((t (:bold t :weight bold :foreground "sky blue")))) (info-menu-5 ((t (:underline t)))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:bold t :weight bold)))) (info-xref ((t (:bold t :foreground "sky blue" :weight bold)))) (isearch ((t (:background "slate blue")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:foreground "sky blue")))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (makefile-space-face ((t (:background "hotpink")))) (menu ((t (:background "MidnightBlue" :foreground "Grey")))) (message-cited-text-face ((t (:foreground "LightSalmon")))) (message-header-cc-face ((t (:foreground "light cyan")))) (message-header-name-face ((t (:foreground "LightBlue")))) (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) (message-header-other-face ((t (:foreground "MediumAquamarine")))) (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) (message-mml-face ((t (:foreground "ForestGreen")))) (message-separator-face ((t (:foreground "chocolate")))) (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "Grey")))) (region ((t (:background "DarkSlateBlue")))) (scroll-bar ((t (:background "grey75")))) (secondary-selection ((t (:background "steel blue")))) (semantic-dirty-token-face ((t (:background "gray10")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (show-paren-match-face ((t (:background "light slate blue" :foreground "white")))) (show-paren-mismatch-face ((t (:background "red" :foreground "white")))) (speedbar-button-face ((t (:foreground "seashell2")))) (speedbar-directory-face ((t (:foreground "seashell3")))) (speedbar-file-face ((t (:foreground "seashell4")))) (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) (speedbar-tag-face ((t (:foreground "antique white")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "light blue")))) (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold)))) (woman-italic-face ((t (:foreground "deep sky blue")))) (woman-unknown-face ((t (:foreground "LightSalmon")))) (zmacs-region ((t (:background "DarkSlateBlue"))))))) (defun color-theme-vim-colors () "Color theme by Michael Soulier, created 2003-03-26." (interactive) (color-theme-install '(color-theme-vim-colors ((background-color . "#ffffff") (background-mode . light) (border-color . "black") (cursor-color . "#000000") (foreground-color . "#000000") (mouse-color . "#000000")) ((Man-overstrike-face . bold) (Man-underline-face . underline) (apropos-keybinding-face . underline) (apropos-label-face . italic) (apropos-match-face . secondary-selection) (apropos-property-face . bold-italic) (apropos-symbol-face . bold) (cperl-here-face . font-lock-string-face) (cperl-invalid-face quote underline) (cperl-pod-face . font-lock-comment-face) (cperl-pod-head-face . font-lock-variable-name-face) (help-highlight-face . underline) (ispell-highlight-face . highlight) (list-matching-lines-face . bold) (rpm-spec-dir-face . rpm-spec-dir-face) (rpm-spec-doc-face . rpm-spec-doc-face) (rpm-spec-ghost-face . rpm-spec-ghost-face) (rpm-spec-macro-face . rpm-spec-macro-face) (rpm-spec-package-face . rpm-spec-package-face) (rpm-spec-tag-face . rpm-spec-tag-face) (tags-tag-face . default) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (:background "#ffffff" :foreground "#000000")))) (Info-title-1-face ((t (nil)))) (Info-title-2-face ((t (nil)))) (Info-title-3-face ((t (nil)))) (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold))))) (bold ((t (:bold (bold extra-bold ultra-bold))))) (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold))))) (border ((t (:background "black")))) (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold))))) (comint-highlight-prompt ((t (:foreground "dark blue")))) (cperl-array-face ((t (:foreground "brown")))) (cperl-hash-face ((t (:foreground "red")))) (cperl-nonoverridable-face ((t (:foreground "#008b8b")))) (cursor ((t (:background "#000000")))) (fixed-pitch ((t (nil)))) (font-lock-builtin-face ((t (:foreground "purple")))) (font-lock-comment-face ((t (:foreground "blue")))) (font-lock-constant-face ((t (:foreground "green4")))) (font-lock-doc-face ((t (:background "#f2f2f2")))) (font-lock-function-name-face ((t (:foreground "#008b8b")))) (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a")))) (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff")))) (font-lock-type-face ((t (:foreground "ForestGreen")))) (font-lock-variable-name-face ((t (:foreground "#008b8b")))) (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red")))) (fringe ((t (:background "#e5e5e5")))) (header-line ((t (:background "grey90" :foreground "grey20")))) (highlight ((t (:background "darkseagreen2")))) (info-header-node ((t (nil)))) (info-header-xref ((t (nil)))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold (bold extra-bold ultra-bold))))) (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown")))) (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4")))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic (italic oblique))))) (menu ((t (nil)))) (mode-line ((t (:background "grey75" :foreground "black")))) (mouse ((t (:background "#000000")))) (region ((t (:background "lightgoldenrod2")))) (rpm-spec-dir-face ((t (:foreground "green")))) (rpm-spec-doc-face ((t (:foreground "magenta")))) (rpm-spec-ghost-face ((t (:foreground "red")))) (rpm-spec-macro-face ((t (:foreground "purple")))) (rpm-spec-package-face ((t (:foreground "red")))) (rpm-spec-tag-face ((t (:foreground "blue")))) (scroll-bar ((t (:background "grey75" :foreground "#000000")))) (secondary-selection ((t (:background "yellow")))) (sh-heredoc-face ((t (:foreground "tan")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (tool-bar ((t (:background "grey75" :foreground "black")))) (tooltip ((t (:background "lightyellow" :foreground "black")))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (nil)))) (widget-button-face ((t (:bold (bold extra-bold ultra-bold))))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-calm-forest () "Color theme by Artur Hefczyc, created 2003-04-18." (interactive) (color-theme-install '(color-theme-calm-forest ((background-color . "gray12") (background-mode . dark) (border-color . "black") (cursor-color . "orange") (foreground-color . "green") (mouse-color . "yellow")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (senator-eldoc-use-color . t) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :family "outline-courier new")))) (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "cyan")))) (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold)))) (cparen-around-begin-face ((t (:foreground "maroon")))) (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold)))) (cparen-around-lambda-face ((t (:foreground "LightSeaGreen")))) (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold)))) (cparen-around-quote-face ((t (:foreground "SaddleBrown")))) (cparen-around-set!-face ((t (:foreground "OrangeRed")))) (cparen-around-syntax-rules-face ((t (:foreground "Magenta")))) (cparen-around-vector-face ((t (:foreground "chocolate")))) (cparen-binding-face ((t (:foreground "ForestGreen")))) (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) (cparen-conditional-clause-face ((t (:foreground "RoyalBlue")))) (cparen-normal-paren-face ((t (:foreground "grey50")))) (cursor ((t (:background "orange")))) (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-comment-face ((t (:background "dim gray")))) (custom-comment-tag-face ((t (:foreground "gray80")))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-saved-face ((t (:underline t)))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-state-face ((t (:foreground "lime green")))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) (eieio-custom-slot-tag-face ((t (:foreground "light blue")))) (extra-whitespace-face ((t (:background "pale green")))) (fixed-pitch ((t (:family "courier")))) (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) (font-latex-math-face ((t (:foreground "burlywood")))) (font-latex-sedate-face ((t (:foreground "LightGray")))) (font-latex-string-face ((t (:foreground "RosyBrown")))) (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) (font-lock-comment-face ((t (:foreground "chocolate1")))) (font-lock-constant-face ((t (:foreground "Aquamarine")))) (font-lock-doc-face ((t (:foreground "LightSalmon")))) (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) (font-lock-keyword-face ((t (:foreground "Cyan")))) (font-lock-string-face ((t (:foreground "LightSalmon")))) (font-lock-type-face ((t (:foreground "PaleGreen")))) (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) (fringe ((t (:background "grey10")))) (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) (highlight ((t (:background "darkolivegreen")))) (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) (info-menu-5 ((t (:foreground "red1")))) (info-menu-header ((t (:bold t :family "helv" :weight bold)))) (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) (isearch ((t (:background "palevioletred2" :foreground "brown4")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) (italic ((t (:italic t :slant italic)))) (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (:underline t)))) (menu ((t (nil)))) (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) (mouse ((t (:background "yellow")))) (region ((t (:background "blue3")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "SkyBlue4")))) (semantic-dirty-token-face ((t (:background "gray10")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (senator-intangible-face ((t (:foreground "gray75")))) (senator-momentary-highlight-face ((t (:background "gray30")))) (senator-read-only-face ((t (:background "#664444")))) (show-paren-match-face ((t (:background "turquoise")))) (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) (speedbar-button-face ((t (:foreground "green3")))) (speedbar-directory-face ((t (:foreground "light blue")))) (speedbar-file-face ((t (:foreground "cyan")))) (speedbar-highlight-face ((t (:background "sea green")))) (speedbar-selected-face ((t (:foreground "red" :underline t)))) (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) (speedbar-tag-face ((t (:foreground "yellow")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "lime green")))) (widget-field-face ((t (:background "dim gray")))) (widget-inactive-face ((t (:foreground "light gray")))) (widget-single-line-field-face ((t (:background "dim gray"))))))) (defun color-theme-lawrence () "Color theme by lawrence mitchell . Mainly shades of green. Contains faces for erc, gnus, most of jde." (interactive) (color-theme-install '(color-theme-lawrence ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "green") (foreground-color . "#00CC00") (mouse-color . "black")) ((erc-button-face . bold) (erc-button-mouse-face . highlight) (gnus-article-button-face . bold) (gnus-article-mouse-face . highlight) (gnus-cite-attribution-face . gnus-cite-attribution-face) (gnus-mouse-face . highlight) (gnus-server-agent-face . gnus-server-agent-face) (gnus-server-closed-face . gnus-server-closed-face) (gnus-server-denied-face . gnus-server-denied-face) (gnus-server-offline-face . gnus-server-offline-face) (gnus-server-opened-face . gnus-server-opened-face) (gnus-signature-face . gnus-signature-face) (gnus-summary-selected-face . gnus-summary-selected-face) (gnus-treat-display-face . head) (gnus-treat-display-xface . head) (list-matching-lines-buffer-name-face . underline) (list-matching-lines-face . bold) (paren-match-face . paren-face-match) (paren-mismatch-face . paren-face-mismatch) (paren-no-match-face . paren-face-no-match) (sgml-set-face . t) (tags-tag-face . default) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (nil)))) (Buffer-menu-buffer-face ((t (:bold t :weight bold)))) (bg:erc-color-face0 ((t (:background "White")))) (bg:erc-color-face1 ((t (:background "black")))) (bg:erc-color-face10 ((t (:background "lightblue1")))) (bg:erc-color-face11 ((t (:background "cyan")))) (bg:erc-color-face12 ((t (:background "blue")))) (bg:erc-color-face13 ((t (:background "deeppink")))) (bg:erc-color-face14 ((t (:background "gray50")))) (bg:erc-color-face15 ((t (:background "gray90")))) (bg:erc-color-face2 ((t (:background "blue4")))) (bg:erc-color-face3 ((t (:background "green4")))) (bg:erc-color-face4 ((t (:background "red")))) (bg:erc-color-face5 ((t (:background "brown")))) (bg:erc-color-face6 ((t (:background "purple")))) (bg:erc-color-face7 ((t (:background "orange")))) (bg:erc-color-face8 ((t (:background "yellow")))) (bg:erc-color-face9 ((t (:background "green")))) (bold ((t (:bold t :foreground "#00CC00" :background "black")))) (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold)))) (border ((t (:background "black")))) (button ((t (:underline t)))) (comint-highlight-input ((t (nil)))) (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (cursor ((t (:background "green")))) (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) (custom-button-pressed-face ((t (nil)))) (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) (custom-comment-face ((t (nil)))) (custom-comment-tag-face ((t (nil)))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (nil)))) (custom-group-tag-face ((t (nil)))) (custom-group-tag-face-1 ((t (nil)))) (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) (custom-modified-face ((t (nil)))) (custom-rogue-face ((t (nil)))) (custom-saved-face ((t (nil)))) (custom-set-face ((t (nil)))) (custom-state-face ((t (nil)))) (custom-variable-button-face ((t (nil)))) (custom-variable-tag-face ((t (nil)))) (erc-action-face ((t (:bold t :weight semi-bold)))) (erc-bold-face ((t (:bold t :weight bold)))) (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold)))) (erc-dangerous-host-face ((t (:foreground "red")))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (:foreground "IndianRed")))) (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) (erc-fool-face ((t (:foreground "dim gray")))) (erc-input-face ((t (:foreground "springgreen")))) (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold)))) (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) (erc-nick-default-face ((t (:bold t :weight semi-bold)))) (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold)))) (erc-notice-face ((t (:foreground "seagreen" :weight normal)))) (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold)))) (erc-timestamp-face ((t (:foreground "seagreen" :weight normal)))) (erc-underline-face ((t (:underline t)))) (fg:erc-color-face0 ((t (:foreground "White")))) (fg:erc-color-face1 ((t (:foreground "black")))) (fg:erc-color-face10 ((t (:foreground "lightblue1")))) (fg:erc-color-face11 ((t (:foreground "cyan")))) (fg:erc-color-face12 ((t (:foreground "blue")))) (fg:erc-color-face13 ((t (:foreground "deeppink")))) (fg:erc-color-face14 ((t (:foreground "gray50")))) (fg:erc-color-face15 ((t (:foreground "gray90")))) (fg:erc-color-face2 ((t (:foreground "blue4")))) (fg:erc-color-face3 ((t (:foreground "green4")))) (fg:erc-color-face4 ((t (:foreground "red")))) (fg:erc-color-face5 ((t (:foreground "brown")))) (fg:erc-color-face6 ((t (:foreground "purple")))) (fg:erc-color-face7 ((t (:foreground "orange")))) (fg:erc-color-face8 ((t (:foreground "yellow")))) (fg:erc-color-face9 ((t (:foreground "green")))) (fixed-pitch ((t (nil)))) (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black")))) (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) (font-lock-builtin-face ((t (:foreground "seagreen1")))) (font-lock-comment-face ((t (:background "black" :foreground "medium spring green")))) (font-lock-constant-face ((t (nil)))) (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black")))) (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold)))) (font-lock-preprocessor-face ((t (:foreground "#00ccdd")))) (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) (font-lock-type-face ((t (nil)))) (font-lock-variable-name-face ((t (nil)))) (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold)))) (fringe ((t (:foreground "#00CC00" :background "#151515")))) (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic)))) (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen")))) (gnus-cite-face-10 ((t (nil)))) (gnus-cite-face-11 ((t (nil)))) (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen")))) (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen")))) (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen")))) (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen")))) (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen")))) (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen")))) (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen")))) (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen")))) (gnus-emphasis-bold ((t (:bold t :weight semi-bold)))) (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold)))) (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold)))) (gnus-emphasis-italic ((t (:italic t :slant italic)))) (gnus-emphasis-strikethru ((t (nil)))) (gnus-emphasis-underline ((t (:underline t)))) (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold)))) (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold)))) (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) (gnus-group-mail-1-empty-face ((t (nil)))) (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-mail-2-empty-face ((t (nil)))) (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-mail-3-empty-face ((t (nil)))) (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-mail-low-empty-face ((t (nil)))) (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-1-empty-face ((t (nil)))) (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-2-empty-face ((t (nil)))) (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-group-news-low-empty-face ((t (nil)))) (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-header-content-face ((t (:background "black" :foreground "springgreen")))) (gnus-header-from-face ((t (nil)))) (gnus-header-name-face ((t (nil)))) (gnus-header-newsgroups-face ((t (nil)))) (gnus-header-subject-face ((t (nil)))) (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold)))) (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold)))) (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal)))) (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) (gnus-summary-high-ancient-face ((t (nil)))) (gnus-summary-high-read-face ((t (nil)))) (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen")))) (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold)))) (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-summary-low-ancient-face ((t (nil)))) (gnus-summary-low-read-face ((t (nil)))) (gnus-summary-low-ticked-face ((t (nil)))) (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal)))) (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) (gnus-summary-normal-ancient-face ((t (nil)))) (gnus-summary-normal-read-face ((t (nil)))) (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black")))) (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal)))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (:background "#101010")))) (gnus-x-face ((t (:background "white" :foreground "black")))) (header-line ((t (nil)))) (highlight ((t (:foreground "#00CC00" :background "darkgreen")))) (ido-first-match-face ((t (:bold t :weight bold)))) (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed)))) (ido-only-match-face ((t (:foreground "ForestGreen")))) (ido-subdir-face ((t (:foreground "red")))) (isearch ((t (:background "seagreen" :foreground "black")))) (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black")))) (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) (message-header-cc-face ((t (nil)))) (message-header-name-face ((t (nil)))) (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black")))) (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black")))) (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black")))) (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black")))) (message-header-xheader-face ((t (nil)))) (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) (message-separator-face ((t (nil)))) (minibuffer-prompt ((t (:background "black" :foreground "seagreen")))) (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010")))) (mouse ((t (:background "black")))) (paren-face ((t (:background "black" :foreground "darkgreen")))) (paren-face-match ((t (:background "black" :foreground "springgreen")))) (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t)))) (paren-face-no-match ((t (:background "black" :foreground "red")))) (region ((t (:background "seagreen" :foreground "black")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "darkseagreen" :foreground "black")))) (semantic-dirty-token-face ((t (:background "gray10")))) (semantic-unmatched-syntax-face ((t (:underline "red")))) (sgml-end-tag-face ((t (:foreground "seagreen")))) (sgml-start-tag-face ((t (:foreground "seagreen")))) (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button))))) (tabbar-default-face ((t (:background "black" :foreground "#00cc00")))) (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button))))) (tabbar-separator-face ((t (:foreground "#00cc00" :background "black")))) (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button))))) (tool-bar ((t (:box (:line-width 1 :style released-button))))) (tooltip ((t (nil)))) (trailing-whitespace ((t (:background "lightseagreen" :foreground "black")))) (underline ((t (:foreground "#00CC00" :background "black" :underline t)))) (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black")))) (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) (widget-button-pressed-face ((t (nil)))) (widget-documentation-face ((t (nil)))) (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) (widget-inactive-face ((t (nil)))) (widget-single-line-field-face ((t (nil))))))) (defun color-theme-matrix () "Color theme by walterh@rocketmail.com, created 2003-10-16." (interactive) (color-theme-install '(color-theme-matrix ((background-color . "black") (background-mode . dark) (background-toolbar-color . "bisque") (border-color . "orange") (bottom-toolbar-shadow-color . "#909099999999") (cursor-color . "#7eff00") (foreground-color . "#7eff00") (mouse-color . "#7eff00") (top-toolbar-shadow-color . "#ffffffffffff")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (rmail-highlight-face . font-lock-function-name-face) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (:stipple nil :background "black" :foreground "#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "outline-courier new")))) (Buffer-menu-buffer-face ((t (nil)))) (CUA-global-mark-face ((t (nil)))) (CUA-rectangle-face ((t (nil)))) (CUA-rectangle-noselect-face ((t (nil)))) (Info-title-1-face ((t (nil)))) (Info-title-2-face ((t (nil)))) (Info-title-3-face ((t (nil)))) (Info-title-4-face ((t (nil)))) (antlr-font-lock-keyword-face ((t (nil)))) (antlr-font-lock-literal-face ((t (nil)))) (antlr-font-lock-ruledef-face ((t (nil)))) (antlr-font-lock-ruleref-face ((t (nil)))) (antlr-font-lock-tokendef-face ((t (nil)))) (antlr-font-lock-tokenref-face ((t (nil)))) (bbdb-company ((t (nil)))) (bbdb-field-name ((t (nil)))) (bbdb-field-value ((t (nil)))) (bbdb-name ((t (nil)))) (bg:erc-color-face0 ((t (nil)))) (bg:erc-color-face1 ((t (nil)))) (bg:erc-color-face10 ((t (nil)))) (bg:erc-color-face11 ((t (nil)))) (bg:erc-color-face12 ((t (nil)))) (bg:erc-color-face13 ((t (nil)))) (bg:erc-color-face14 ((t (nil)))) (bg:erc-color-face15 ((t (nil)))) (bg:erc-color-face2 ((t (nil)))) (bg:erc-color-face3 ((t (nil)))) (bg:erc-color-face4 ((t (nil)))) (bg:erc-color-face5 ((t (nil)))) (bg:erc-color-face6 ((t (nil)))) (bg:erc-color-face7 ((t (nil)))) (bg:erc-color-face8 ((t (nil)))) (bg:erc-color-face9 ((t (nil)))) (blank-space-face ((t (nil)))) (blank-tab-face ((t (nil)))) (blue ((t (nil)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:bold t :weight bold)))) (border ((t (:background "orange")))) (border-glyph ((t (nil)))) (buffers-tab ((t (nil)))) (button ((t (nil)))) (calendar-today-face ((t (nil)))) (change-log-acknowledgement-face ((t (nil)))) (change-log-conditionals-face ((t (nil)))) (change-log-date-face ((t (nil)))) (change-log-email-face ((t (nil)))) (change-log-file-face ((t (nil)))) (change-log-function-face ((t (nil)))) (change-log-list-face ((t (nil)))) (change-log-name-face ((t (nil)))) (clearcase-dired-checkedout-face ((t (nil)))) (comint-highlight-input ((t (nil)))) (comint-highlight-prompt ((t (nil)))) (cparen-around-andor-face ((t (nil)))) (cparen-around-begin-face ((t (nil)))) (cparen-around-conditional-face ((t (nil)))) (cparen-around-define-face ((t (nil)))) (cparen-around-lambda-face ((t (nil)))) (cparen-around-letdo-face ((t (nil)))) (cparen-around-quote-face ((t (nil)))) (cparen-around-set!-face ((t (nil)))) (cparen-around-syntax-rules-face ((t (nil)))) (cparen-around-vector-face ((t (nil)))) (cparen-binding-face ((t (nil)))) (cparen-binding-list-face ((t (nil)))) (cparen-conditional-clause-face ((t (nil)))) (cparen-normal-paren-face ((t (nil)))) (cperl-array-face ((t (nil)))) (cperl-hash-face ((t (nil)))) (cperl-invalid-face ((t (nil)))) (cperl-nonoverridable-face ((t (nil)))) (cursor ((t (:background "#7eff00" :foreground "black")))) (custom-button-face ((t (nil)))) (custom-button-pressed-face ((t (nil)))) (custom-changed-face ((t (nil)))) (custom-comment-face ((t (nil)))) (custom-comment-tag-face ((t (nil)))) (custom-documentation-face ((t (nil)))) (custom-face-tag-face ((t (nil)))) (custom-group-tag-face ((t (nil)))) (custom-group-tag-face-1 ((t (nil)))) (custom-invalid-face ((t (nil)))) (custom-modified-face ((t (nil)))) (custom-rogue-face ((t (nil)))) (custom-saved-face ((t (nil)))) (custom-set-face ((t (nil)))) (custom-state-face ((t (nil)))) (custom-variable-button-face ((t (nil)))) (custom-variable-tag-face ((t (nil)))) (cvs-filename-face ((t (nil)))) (cvs-handled-face ((t (nil)))) (cvs-header-face ((t (nil)))) (cvs-marked-face ((t (nil)))) (cvs-msg-face ((t (nil)))) (cvs-need-action-face ((t (nil)))) (cvs-unknown-face ((t (nil)))) (cyan ((t (nil)))) (diary-face ((t (nil)))) (diff-added-face ((t (nil)))) (diff-changed-face ((t (nil)))) (diff-context-face ((t (nil)))) (diff-file-header-face ((t (nil)))) (diff-function-face ((t (nil)))) (diff-header-face ((t (nil)))) (diff-hunk-header-face ((t (nil)))) (diff-index-face ((t (nil)))) (diff-nonexistent-face ((t (nil)))) (diff-removed-face ((t (nil)))) (dired-face-boring ((t (nil)))) (dired-face-directory ((t (nil)))) (dired-face-executable ((t (nil)))) (dired-face-flagged ((t (nil)))) (dired-face-header ((t (nil)))) (dired-face-marked ((t (nil)))) (dired-face-permissions ((t (nil)))) (dired-face-setuid ((t (nil)))) (dired-face-socket ((t (nil)))) (dired-face-symlink ((t (nil)))) (display-time-mail-balloon-enhance-face ((t (nil)))) (display-time-mail-balloon-gnus-group-face ((t (nil)))) (display-time-time-balloon-face ((t (nil)))) (ebrowse-default-face ((t (nil)))) (ebrowse-file-name-face ((t (nil)))) (ebrowse-member-attribute-face ((t (nil)))) (ebrowse-member-class-face ((t (nil)))) (ebrowse-progress-face ((t (nil)))) (ebrowse-root-class-face ((t (nil)))) (ebrowse-tree-mark-face ((t (nil)))) (ecb-sources-face ((t (nil)))) (edb-inter-field-face ((t (nil)))) (edb-normal-summary-face ((t (nil)))) (ediff-current-diff-face-A ((t (nil)))) (ediff-current-diff-face-Ancestor ((t (nil)))) (ediff-current-diff-face-B ((t (nil)))) (ediff-current-diff-face-C ((t (nil)))) (ediff-even-diff-face-A ((t (nil)))) (ediff-even-diff-face-Ancestor ((t (nil)))) (ediff-even-diff-face-B ((t (nil)))) (ediff-even-diff-face-C ((t (nil)))) (ediff-fine-diff-face-A ((t (nil)))) (ediff-fine-diff-face-Ancestor ((t (nil)))) (ediff-fine-diff-face-B ((t (nil)))) (ediff-fine-diff-face-C ((t (nil)))) (ediff-odd-diff-face-A ((t (nil)))) (ediff-odd-diff-face-Ancestor ((t (nil)))) (ediff-odd-diff-face-B ((t (nil)))) (ediff-odd-diff-face-C ((t (nil)))) (eieio-custom-slot-tag-face ((t (nil)))) (emacs-wiki-bad-link-face ((t (nil)))) (emacs-wiki-link-face ((t (nil)))) (erc-action-face ((t (nil)))) (erc-bold-face ((t (nil)))) (erc-current-nick-face ((t (nil)))) (erc-dangerous-host-face ((t (nil)))) (erc-default-face ((t (nil)))) (erc-direct-msg-face ((t (nil)))) (erc-error-face ((t (nil)))) (erc-fool-face ((t (nil)))) (erc-highlight-face ((t (nil)))) (erc-input-face ((t (nil)))) (erc-inverse-face ((t (nil)))) (erc-keyword-face ((t (nil)))) (erc-nick-default-face ((t (nil)))) (erc-nick-msg-face ((t (nil)))) (erc-notice-face ((t (nil)))) (erc-pal-face ((t (nil)))) (erc-prompt-face ((t (nil)))) (erc-timestamp-face ((t (nil)))) (erc-underline-face ((t (nil)))) (eshell-ls-archive-face ((t (nil)))) (eshell-ls-backup-face ((t (nil)))) (eshell-ls-clutter-face ((t (nil)))) (eshell-ls-directory-face ((t (nil)))) (eshell-ls-executable-face ((t (nil)))) (eshell-ls-missing-face ((t (nil)))) (eshell-ls-picture-face ((t (nil)))) (eshell-ls-product-face ((t (nil)))) (eshell-ls-readonly-face ((t (nil)))) (eshell-ls-special-face ((t (nil)))) (eshell-ls-symlink-face ((t (nil)))) (eshell-ls-text-face ((t (nil)))) (eshell-ls-todo-face ((t (nil)))) (eshell-ls-unreadable-face ((t (nil)))) (eshell-prompt-face ((t (nil)))) (eshell-test-failed-face ((t (nil)))) (eshell-test-ok-face ((t (nil)))) (excerpt ((t (nil)))) (extra-whitespace-face ((t (nil)))) (ff-paths-non-existant-file-face ((t (nil)))) (fg:black ((t (nil)))) (fg:erc-color-face0 ((t (nil)))) (fg:erc-color-face1 ((t (nil)))) (fg:erc-color-face10 ((t (nil)))) (fg:erc-color-face11 ((t (nil)))) (fg:erc-color-face12 ((t (nil)))) (fg:erc-color-face13 ((t (nil)))) (fg:erc-color-face14 ((t (nil)))) (fg:erc-color-face15 ((t (nil)))) (fg:erc-color-face2 ((t (nil)))) (fg:erc-color-face3 ((t (nil)))) (fg:erc-color-face4 ((t (nil)))) (fg:erc-color-face5 ((t (nil)))) (fg:erc-color-face6 ((t (nil)))) (fg:erc-color-face7 ((t (nil)))) (fg:erc-color-face8 ((t (nil)))) (fg:erc-color-face9 ((t (nil)))) (fixed ((t (nil)))) (fixed-pitch ((t (nil)))) (fl-comment-face ((t (nil)))) (fl-function-name-face ((t (nil)))) (fl-keyword-face ((t (nil)))) (fl-string-face ((t (nil)))) (fl-type-face ((t (nil)))) (flash-paren-face-off ((t (nil)))) (flash-paren-face-on ((t (nil)))) (flash-paren-face-region ((t (nil)))) (flyspell-duplicate-face ((t (nil)))) (flyspell-incorrect-face ((t (nil)))) (font-latex-bold-face ((t (nil)))) (font-latex-italic-face ((t (nil)))) (font-latex-math-face ((t (nil)))) (font-latex-sedate-face ((t (nil)))) (font-latex-string-face ((t (nil)))) (font-latex-warning-face ((t (nil)))) (font-lock-builtin-face ((t (:foreground "pink2")))) (font-lock-comment-face ((t (:italic t :background "black" :slant italic)))) (font-lock-constant-face ((t (:foreground "magenta")))) (font-lock-doc-face ((t (nil)))) (font-lock-doc-string-face ((t (nil)))) (font-lock-exit-face ((t (nil)))) (font-lock-function-name-face ((t (:bold t :underline t :weight bold)))) (font-lock-keyword-face ((t (:foreground "yellow1")))) (font-lock-other-emphasized-face ((t (nil)))) (font-lock-other-type-face ((t (nil)))) (font-lock-preprocessor-face ((t (nil)))) (font-lock-reference-face ((t (nil)))) (font-lock-special-comment-face ((t (nil)))) (font-lock-special-keyword-face ((t (nil)))) (font-lock-string-face ((t (:foreground "yellow2")))) (font-lock-type-face ((t (:foreground "LightYellow1")))) (font-lock-variable-name-face ((t (:foreground "light green")))) (font-lock-warning-face ((t (nil)))) (fringe ((t (nil)))) (gnus-cite-attribution-face ((t (nil)))) (gnus-cite-face-1 ((t (nil)))) (gnus-cite-face-10 ((t (nil)))) (gnus-cite-face-11 ((t (nil)))) (gnus-cite-face-2 ((t (nil)))) (gnus-cite-face-3 ((t (nil)))) (gnus-cite-face-4 ((t (nil)))) (gnus-cite-face-5 ((t (nil)))) (gnus-cite-face-6 ((t (nil)))) (gnus-cite-face-7 ((t (nil)))) (gnus-cite-face-8 ((t (nil)))) (gnus-cite-face-9 ((t (nil)))) (gnus-emphasis-bold ((t (nil)))) (gnus-emphasis-bold-italic ((t (nil)))) (gnus-emphasis-highlight-words ((t (nil)))) (gnus-emphasis-italic ((t (nil)))) (gnus-emphasis-strikethru ((t (nil)))) (gnus-emphasis-underline ((t (nil)))) (gnus-emphasis-underline-bold ((t (nil)))) (gnus-emphasis-underline-bold-italic ((t (nil)))) (gnus-emphasis-underline-italic ((t (nil)))) (gnus-filterhist-face-1 ((t (nil)))) (gnus-group-mail-1-empty-face ((t (nil)))) (gnus-group-mail-1-face ((t (nil)))) (gnus-group-mail-2-empty-face ((t (nil)))) (gnus-group-mail-2-face ((t (nil)))) (gnus-group-mail-3-empty-face ((t (nil)))) (gnus-group-mail-3-face ((t (nil)))) (gnus-group-mail-low-empty-face ((t (nil)))) (gnus-group-mail-low-face ((t (nil)))) (gnus-group-news-1-empty-face ((t (nil)))) (gnus-group-news-1-face ((t (nil)))) (gnus-group-news-2-empty-face ((t (nil)))) (gnus-group-news-2-face ((t (nil)))) (gnus-group-news-3-empty-face ((t (nil)))) (gnus-group-news-3-face ((t (nil)))) (gnus-group-news-4-empty-face ((t (nil)))) (gnus-group-news-4-face ((t (nil)))) (gnus-group-news-5-empty-face ((t (nil)))) (gnus-group-news-5-face ((t (nil)))) (gnus-group-news-6-empty-face ((t (nil)))) (gnus-group-news-6-face ((t (nil)))) (gnus-group-news-low-empty-face ((t (nil)))) (gnus-group-news-low-face ((t (nil)))) (gnus-header-content-face ((t (nil)))) (gnus-header-from-face ((t (nil)))) (gnus-header-name-face ((t (nil)))) (gnus-header-newsgroups-face ((t (nil)))) (gnus-header-subject-face ((t (nil)))) (gnus-picon-face ((t (nil)))) (gnus-picon-xbm-face ((t (nil)))) (gnus-picons-face ((t (nil)))) (gnus-picons-xbm-face ((t (nil)))) (gnus-server-agent-face ((t (nil)))) (gnus-server-closed-face ((t (nil)))) (gnus-server-denied-face ((t (nil)))) (gnus-server-offline-face ((t (nil)))) (gnus-server-opened-face ((t (nil)))) (gnus-signature-face ((t (nil)))) (gnus-splash ((t (nil)))) (gnus-splash-face ((t (nil)))) (gnus-summary-cancelled-face ((t (nil)))) (gnus-summary-high-ancient-face ((t (nil)))) (gnus-summary-high-read-face ((t (nil)))) (gnus-summary-high-ticked-face ((t (nil)))) (gnus-summary-high-undownloaded-face ((t (nil)))) (gnus-summary-high-unread-face ((t (nil)))) (gnus-summary-low-ancient-face ((t (nil)))) (gnus-summary-low-read-face ((t (nil)))) (gnus-summary-low-ticked-face ((t (nil)))) (gnus-summary-low-undownloaded-face ((t (nil)))) (gnus-summary-low-unread-face ((t (nil)))) (gnus-summary-normal-ancient-face ((t (nil)))) (gnus-summary-normal-read-face ((t (nil)))) (gnus-summary-normal-ticked-face ((t (nil)))) (gnus-summary-normal-undownloaded-face ((t (nil)))) (gnus-summary-normal-unread-face ((t (nil)))) (gnus-summary-selected-face ((t (nil)))) (gnus-x-face ((t (nil)))) (green ((t (nil)))) (gui-button-face ((t (nil)))) (gui-element ((t (nil)))) (header-line ((t (nil)))) (hi-black-b ((t (nil)))) (hi-black-hb ((t (nil)))) (hi-blue ((t (nil)))) (hi-blue-b ((t (nil)))) (hi-green ((t (nil)))) (hi-green-b ((t (nil)))) (hi-pink ((t (nil)))) (hi-red-b ((t (nil)))) (hi-yellow ((t (nil)))) (highlight ((t (:background "#7eff00" :foreground "black")))) (highlight-changes-delete-face ((t (nil)))) (highlight-changes-face ((t (nil)))) (highline-face ((t (nil)))) (holiday-face ((t (nil)))) (html-helper-bold-face ((t (nil)))) (html-helper-bold-italic-face ((t (nil)))) (html-helper-builtin-face ((t (nil)))) (html-helper-italic-face ((t (nil)))) (html-helper-underline-face ((t (nil)))) (html-tag-face ((t (nil)))) (hyper-apropos-documentation ((t (nil)))) (hyper-apropos-heading ((t (nil)))) (hyper-apropos-hyperlink ((t (nil)))) (hyper-apropos-major-heading ((t (nil)))) (hyper-apropos-section-heading ((t (nil)))) (hyper-apropos-warning ((t (nil)))) (ibuffer-deletion-face ((t (nil)))) (ibuffer-marked-face ((t (nil)))) (idlwave-help-link-face ((t (nil)))) (idlwave-shell-bp-face ((t (nil)))) (ido-first-match-face ((t (nil)))) (ido-indicator-face ((t (nil)))) (ido-only-match-face ((t (nil)))) (ido-subdir-face ((t (nil)))) (info-header-node ((t (nil)))) (info-header-xref ((t (nil)))) (info-menu-5 ((t (nil)))) (info-menu-6 ((t (nil)))) (info-menu-header ((t (nil)))) (info-node ((t (nil)))) (info-xref ((t (nil)))) (isearch ((t (nil)))) (isearch-lazy-highlight-face ((t (nil)))) (isearch-secondary ((t (nil)))) (italic ((t (:underline t)))) (jde-bug-breakpoint-cursor ((t (nil)))) (jde-bug-breakpoint-marker ((t (nil)))) (jde-db-active-breakpoint-face ((t (nil)))) (jde-db-requested-breakpoint-face ((t (nil)))) (jde-db-spec-breakpoint-face ((t (nil)))) (jde-java-font-lock-api-face ((t (nil)))) (jde-java-font-lock-bold-face ((t (nil)))) (jde-java-font-lock-code-face ((t (nil)))) (jde-java-font-lock-constant-face ((t (nil)))) (jde-java-font-lock-doc-tag-face ((t (nil)))) (jde-java-font-lock-italic-face ((t (nil)))) (jde-java-font-lock-link-face ((t (nil)))) (jde-java-font-lock-modifier-face ((t (nil)))) (jde-java-font-lock-number-face ((t (nil)))) (jde-java-font-lock-operator-face ((t (nil)))) (jde-java-font-lock-package-face ((t (nil)))) (jde-java-font-lock-pre-face ((t (nil)))) (jde-java-font-lock-underline-face ((t (nil)))) (lazy-highlight-face ((t (nil)))) (left-margin ((t (nil)))) (linemenu-face ((t (nil)))) (list-mode-item-selected ((t (nil)))) (log-view-file-face ((t (nil)))) (log-view-message-face ((t (nil)))) (magenta ((t (nil)))) (makefile-space-face ((t (nil)))) (man-bold ((t (nil)))) (man-heading ((t (nil)))) (man-italic ((t (nil)))) (man-xref ((t (nil)))) (menu ((t (nil)))) (message-cited-text ((t (nil)))) (message-cited-text-face ((t (nil)))) (message-header-cc-face ((t (nil)))) (message-header-contents ((t (nil)))) (message-header-name-face ((t (nil)))) (message-header-newsgroups-face ((t (nil)))) (message-header-other-face ((t (nil)))) (message-header-subject-face ((t (nil)))) (message-header-to-face ((t (nil)))) (message-header-xheader-face ((t (nil)))) (message-headers ((t (nil)))) (message-highlighted-header-contents ((t (nil)))) (message-mml-face ((t (nil)))) (message-separator-face ((t (nil)))) (message-url ((t (nil)))) (minibuffer-prompt ((t (nil)))) (mmm-face ((t (nil)))) (mode-line ((t (:bold t :background "gray" :foreground "black" :weight bold)))) (mode-line-inactive ((t (nil)))) (modeline-buffer-id ((t (:background "orange" :foreground "black")))) (modeline-mousable ((t (:background "orange" :foreground "black")))) (modeline-mousable-minor-mode ((t (:background "orange" :foreground "black")))) (mouse ((t (nil)))) (mpg123-face-cur ((t (nil)))) (mpg123-face-slider ((t (nil)))) (my-tab-face ((t (nil)))) (nil ((t (nil)))) (overlay-empty-face ((t (nil)))) (p4-diff-del-face ((t (nil)))) (paren-blink-off ((t (nil)))) (paren-face ((t (nil)))) (paren-face-match ((t (nil)))) (paren-face-mismatch ((t (nil)))) (paren-face-no-match ((t (nil)))) (paren-match ((t (nil)))) (paren-mismatch ((t (nil)))) (paren-mismatch-face ((t (nil)))) (paren-no-match-face ((t (nil)))) (pointer ((t (nil)))) (primary-selection ((t (nil)))) (reb-match-0 ((t (nil)))) (reb-match-1 ((t (nil)))) (reb-match-2 ((t (nil)))) (reb-match-3 ((t (nil)))) (red ((t (nil)))) (region ((t (:background "#7eff00" :foreground "black")))) (right-margin ((t (nil)))) (rpm-spec-dir-face ((t (nil)))) (rpm-spec-doc-face ((t (nil)))) (rpm-spec-ghost-face ((t (nil)))) (rpm-spec-macro-face ((t (nil)))) (rpm-spec-package-face ((t (nil)))) (rpm-spec-tag-face ((t (nil)))) (rpm-spec-var-face ((t (nil)))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "orange" :foreground "black")))) (semantic-dirty-token-face ((t (nil)))) (semantic-intangible-face ((t (nil)))) (semantic-read-only-face ((t (nil)))) (semantic-unmatched-syntax-face ((t (nil)))) (senator-intangible-face ((t (nil)))) (senator-momentary-highlight-face ((t (nil)))) (senator-read-only-face ((t (nil)))) (sgml-comment-face ((t (nil)))) (sgml-doctype-face ((t (nil)))) (sgml-end-tag-face ((t (nil)))) (sgml-entity-face ((t (nil)))) (sgml-ignored-face ((t (nil)))) (sgml-ms-end-face ((t (nil)))) (sgml-ms-start-face ((t (nil)))) (sgml-pi-face ((t (nil)))) (sgml-sgml-face ((t (nil)))) (sgml-short-ref-face ((t (nil)))) (sgml-shortref-face ((t (nil)))) (sgml-start-tag-face ((t (nil)))) (sh-heredoc-face ((t (nil)))) (shell-option-face ((t (nil)))) (shell-output-2-face ((t (nil)))) (shell-output-3-face ((t (nil)))) (shell-output-face ((t (nil)))) (shell-prompt-face ((t (nil)))) (show-block-face1 ((t (nil)))) (show-block-face2 ((t (nil)))) (show-block-face3 ((t (nil)))) (show-block-face4 ((t (nil)))) (show-block-face5 ((t (nil)))) (show-block-face6 ((t (nil)))) (show-block-face7 ((t (nil)))) (show-block-face8 ((t (nil)))) (show-block-face9 ((t (nil)))) (show-paren-match-face ((t (:background "orange" :foreground "black")))) (show-paren-mismatch-face ((t (:underline t)))) (show-tabs-space-face ((t (nil)))) (show-tabs-tab-face ((t (nil)))) (smerge-base-face ((t (nil)))) (smerge-markers-face ((t (nil)))) (smerge-mine-face ((t (nil)))) (smerge-other-face ((t (nil)))) (speedbar-button-face ((t (nil)))) (speedbar-directory-face ((t (nil)))) (speedbar-file-face ((t (nil)))) (speedbar-highlight-face ((t (nil)))) (speedbar-selected-face ((t (nil)))) (speedbar-separator-face ((t (nil)))) (speedbar-tag-face ((t (nil)))) (strokes-char-face ((t (nil)))) (swbuff-current-buffer-face ((t (nil)))) (tabbar-button-face ((t (nil)))) (tabbar-default-face ((t (nil)))) (tabbar-selected-face ((t (nil)))) (tabbar-separator-face ((t (nil)))) (tabbar-unselected-face ((t (nil)))) (template-message-face ((t (nil)))) (term-black ((t (nil)))) (term-blackbg ((t (nil)))) (term-blue ((t (nil)))) (term-blue-bold-face ((t (nil)))) (term-blue-face ((t (nil)))) (term-blue-inv-face ((t (nil)))) (term-blue-ul-face ((t (nil)))) (term-bluebg ((t (nil)))) (term-bold ((t (nil)))) (term-cyan ((t (nil)))) (term-cyan-bold-face ((t (nil)))) (term-cyan-face ((t (nil)))) (term-cyan-inv-face ((t (nil)))) (term-cyan-ul-face ((t (nil)))) (term-cyanbg ((t (nil)))) (term-default ((t (nil)))) (term-default-bg ((t (nil)))) (term-default-bg-inv ((t (nil)))) (term-default-bold-face ((t (nil)))) (term-default-face ((t (nil)))) (term-default-fg ((t (nil)))) (term-default-fg-inv ((t (nil)))) (term-default-inv-face ((t (nil)))) (term-default-ul-face ((t (nil)))) (term-green ((t (nil)))) (term-green-bold-face ((t (nil)))) (term-green-face ((t (nil)))) (term-green-inv-face ((t (nil)))) (term-green-ul-face ((t (nil)))) (term-greenbg ((t (nil)))) (term-invisible ((t (nil)))) (term-invisible-inv ((t (nil)))) (term-magenta ((t (nil)))) (term-magenta-bold-face ((t (nil)))) (term-magenta-face ((t (nil)))) (term-magenta-inv-face ((t (nil)))) (term-magenta-ul-face ((t (nil)))) (term-magentabg ((t (nil)))) (term-red ((t (nil)))) (term-red-bold-face ((t (nil)))) (term-red-face ((t (nil)))) (term-red-inv-face ((t (nil)))) (term-red-ul-face ((t (nil)))) (term-redbg ((t (nil)))) (term-underline ((t (nil)))) (term-white ((t (nil)))) (term-white-bold-face ((t (nil)))) (term-white-face ((t (nil)))) (term-white-inv-face ((t (nil)))) (term-white-ul-face ((t (nil)))) (term-whitebg ((t (nil)))) (term-yellow ((t (nil)))) (term-yellow-bold-face ((t (nil)))) (term-yellow-face ((t (nil)))) (term-yellow-inv-face ((t (nil)))) (term-yellow-ul-face ((t (nil)))) (term-yellowbg ((t (nil)))) (tex-math-face ((t (nil)))) (texinfo-heading-face ((t (nil)))) (text-cursor ((t (nil)))) (tool-bar ((t (nil)))) (tooltip ((t (nil)))) (trailing-whitespace ((t (nil)))) (underline ((t (:underline t)))) (variable-pitch ((t (nil)))) (vc-annotate-face-0046FF ((t (nil)))) (vcursor ((t (nil)))) (vertical-divider ((t (nil)))) (vhdl-font-lock-attribute-face ((t (nil)))) (vhdl-font-lock-directive-face ((t (nil)))) (vhdl-font-lock-enumvalue-face ((t (nil)))) (vhdl-font-lock-function-face ((t (nil)))) (vhdl-font-lock-generic-/constant-face ((t (nil)))) (vhdl-font-lock-prompt-face ((t (nil)))) (vhdl-font-lock-reserved-words-face ((t (nil)))) (vhdl-font-lock-translate-off-face ((t (nil)))) (vhdl-font-lock-type-face ((t (nil)))) (vhdl-font-lock-variable-face ((t (nil)))) (vhdl-speedbar-architecture-face ((t (nil)))) (vhdl-speedbar-architecture-selected-face ((t (nil)))) (vhdl-speedbar-configuration-face ((t (nil)))) (vhdl-speedbar-configuration-selected-face ((t (nil)))) (vhdl-speedbar-entity-face ((t (nil)))) (vhdl-speedbar-entity-selected-face ((t (nil)))) (vhdl-speedbar-instantiation-face ((t (nil)))) (vhdl-speedbar-instantiation-selected-face ((t (nil)))) (vhdl-speedbar-package-face ((t (nil)))) (vhdl-speedbar-package-selected-face ((t (nil)))) (vhdl-speedbar-subprogram-face ((t (nil)))) (viper-minibuffer-emacs-face ((t (nil)))) (viper-minibuffer-insert-face ((t (nil)))) (viper-minibuffer-vi-face ((t (nil)))) (viper-replace-overlay-face ((t (nil)))) (viper-search-face ((t (nil)))) (vm-xface ((t (nil)))) (vmpc-pre-sig-face ((t (nil)))) (vmpc-sig-face ((t (nil)))) (w3m-anchor-face ((t (nil)))) (w3m-arrived-anchor-face ((t (nil)))) (w3m-header-line-location-content-face ((t (nil)))) (w3m-header-line-location-title-face ((t (nil)))) (white ((t (nil)))) (widget ((t (nil)))) (widget-button-face ((t (nil)))) (widget-button-pressed-face ((t (nil)))) (widget-documentation-face ((t (nil)))) (widget-field-face ((t (nil)))) (widget-inactive-face ((t (nil)))) (widget-single-line-field-face ((t (nil)))) (woman-addition-face ((t (nil)))) (woman-bold-face ((t (nil)))) (woman-italic-face ((t (nil)))) (woman-unknown-face ((t (nil)))) (x-face ((t (nil)))) (xrdb-option-name-face ((t (nil)))) (xref-keyword-face ((t (nil)))) (xref-list-default-face ((t (nil)))) (xref-list-pilot-face ((t (nil)))) (xref-list-symbol-face ((t (nil)))) (yellow ((t (nil)))) (zmacs-region ((t (nil))))))) (defun color-theme-feng-shui () "Color theme by walterh@rocketmail.com (www.xanadb.com), created 2003-10-16. Evolved from color-theme-katester" (interactive) (color-theme-install '(color-theme-feng-shui ((background-color . "ivory") (background-mode . light) (border-color . "black") (cursor-color . "slateblue") (foreground-color . "black") (mouse-color . "slateblue")) ((help-highlight-face . underline) (list-matching-lines-face . bold) (view-highlight-face . highlight) (widget-mouse-face . highlight)) (default ((t (:stipple nil :background "ivory" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "outline-courier new")))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (border ((t (:background "black")))) (cursor ((t (:background "slateblue" :foreground "black")))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:foreground "black")))) (font-lock-comment-face ((t (:italic t :background "seashell" :slant italic)))) (font-lock-constant-face ((t (:foreground "darkblue")))) (font-lock-doc-face ((t (:background "lemonChiffon")))) (font-lock-function-name-face ((t (:bold t :underline t :weight bold)))) (font-lock-keyword-face ((t (:foreground "blue")))) (font-lock-string-face ((t (:background "lemonChiffon")))) (font-lock-type-face ((t (:foreground "black")))) (font-lock-variable-name-face ((t (:foreground "black")))) (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) (fringe ((t (:background "grey95")))) (header-line ((t (:bold t :weight bold :underline t :background "grey90" :foreground "grey20" :box nil)))) (highlight ((t (:background "mistyRose" :foreground "black")))) (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) (italic ((t (:italic t :slant italic)))) (menu ((t (nil)))) (mode-line ((t (:bold t :background "mistyRose" :foreground "navy" :underline t :weight bold)))) (mouse ((t (:background "slateblue")))) (region ((t (:background "lavender" :foreground "black")))) (scroll-bar ((t (nil)))) (secondary-selection ((t (:background "yellow")))) (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv")))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85"))))))) (defun color-theme-renegade () "Renegade BBS styled color theme. Works well in X and terminals. Created by Dave Benjamin Dec 23 2005." (interactive) (color-theme-install '(color-theme-renegade ((background-color . "black") (background-mode . dark) (border-color . "black") (cursor-color . "black") (foreground-color . "cyan3") (mouse-color . "white")) (default ((t (nil)))) (bold ((t (:bold t :foreground "cyan" :weight bold)))) (bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) (fixed-pitch ((t (:family "courier")))) (font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold)))) (font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold)))) (font-lock-constant-face ((t (:foreground "magenta3")))) (font-lock-doc-face ((t (:bold t :weight bold :foreground "red")))) (font-lock-function-name-face ((t (:foreground "gray")))) (font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold)))) (font-lock-string-face ((t (:bold t :foreground "red" :weight bold)))) (font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold)))) (font-lock-variable-name-face ((t (:foreground "cyan3")))) (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) (fringe ((t (:background "gray32")))) (highlight ((t (:background "blue")))) (isearch ((t (:background "blue" :foreground "cyan3")))) (isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black")))) (menu ((t (nil)))) (mode-line ((t (:bold t :background "blue3" :foreground "white" :box (:line-width -1 :style released-button) :weight bold)))) (mouse ((t (:background "white")))) (region ((t (:bold t :background "white" :foreground "blue" :weight bold)))) (scroll-bar ((t (nil)))) (trailing-whitespace ((t (:background "red")))) (underline ((t (:underline t)))) (variable-pitch ((t (:family "helv"))))))) ;;; color-theme-library.el ends here