/vendor/color-theme/themes/color-theme-library.el
Emacs Lisp | 4450 lines | 4338 code | 77 blank | 35 comment | 38 complexity | cefa00572d65aabc7c2f88710c24435f MD5 | raw file
Possible License(s): GPL-2.0
- ;;; color-theme-library.el --- The real color theme functions
- ;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
- ;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
- ;; Version: 0.0.9
- ;; Keywords: faces
- ;; Author: Brian Palmer, Xavier Maillard
- ;; Maintainer: Xavier Maillard <zedek@gnu.org>
- ;; 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 <sfischme@nexus.lzk.tuwien.ac.at>"
- (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 <levanti@verbum.org>"
- (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 :foregro