From 503e99197f45d7142d138bc878f36868d580efa8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 11 Jun 2011 19:51:08 +0200
Subject: EMACS: init file is once again one big file

---
 emacs                                 |    45 -
 emacs.d/00-functions.el               |    40 -
 emacs.d/10-file-associations.el       |    12 -
 emacs.d/10-font-lock.el               |    30 -
 emacs.d/10-keys.el                    |     4 -
 emacs.d/10-modules.el                 |    16 -
 emacs.d/10-naquadah-theme.el          |    14 -
 emacs.d/10-settings.el                |    55 -
 emacs.d/20-autopair.el                |     2 -
 emacs.d/20-c-mode.el                  |     9 -
 emacs.d/20-cmake-mode.el              |     6 -
 emacs.d/20-column-marker.el           |     9 -
 emacs.d/20-git-commit.el              |     5 -
 emacs.d/20-html-mode.el               |     4 -
 emacs.d/20-ide-skel.el                |    10 -
 emacs.d/20-markdown-mode.el           |     6 -
 emacs.d/20-org.el                     |    38 -
 emacs.d/20-php-mode-improved.el       |     3 -
 emacs.d/20-rainbow-delimiters.el      |     6 -
 emacs.d/20-rainbow.el                 |     6 -
 emacs.d/20-uniquify.el                |     4 -
 emacs.d/30-frame-fonts.el             |    15 -
 emacs.d/50-org-projects.el            |    13 -
 emacs.d/50-skeletons.el               |    12 -
 emacs.d/themes/color-theme-example.el |    22 -
 emacs.d/themes/color-theme-library.el | 13539 --------------------------------
 emacs.el                              |   419 +
 27 files changed, 419 insertions(+), 13925 deletions(-)
 delete mode 100644 emacs
 delete mode 100644 emacs.d/00-functions.el
 delete mode 100644 emacs.d/10-file-associations.el
 delete mode 100644 emacs.d/10-font-lock.el
 delete mode 100644 emacs.d/10-keys.el
 delete mode 100644 emacs.d/10-modules.el
 delete mode 100644 emacs.d/10-naquadah-theme.el
 delete mode 100644 emacs.d/10-settings.el
 delete mode 100644 emacs.d/20-autopair.el
 delete mode 100644 emacs.d/20-c-mode.el
 delete mode 100644 emacs.d/20-cmake-mode.el
 delete mode 100644 emacs.d/20-column-marker.el
 delete mode 100644 emacs.d/20-git-commit.el
 delete mode 100644 emacs.d/20-html-mode.el
 delete mode 100644 emacs.d/20-ide-skel.el
 delete mode 100644 emacs.d/20-markdown-mode.el
 delete mode 100644 emacs.d/20-org.el
 delete mode 100644 emacs.d/20-php-mode-improved.el
 delete mode 100644 emacs.d/20-rainbow-delimiters.el
 delete mode 100644 emacs.d/20-rainbow.el
 delete mode 100644 emacs.d/20-uniquify.el
 delete mode 100644 emacs.d/30-frame-fonts.el
 delete mode 100644 emacs.d/50-org-projects.el
 delete mode 100644 emacs.d/50-skeletons.el
 delete mode 100644 emacs.d/themes/color-theme-example.el
 delete mode 100644 emacs.d/themes/color-theme-library.el
 create mode 100644 emacs.el

diff --git a/emacs b/emacs
deleted file mode 100644
index 3f6971b..0000000
--- a/emacs
+++ /dev/null
@@ -1,45 +0,0 @@
-;; -*- mode: Emacs-Lisp; -*-
-(add-to-list 'load-path "~/.emacs.d/elisp")
-(add-to-list 'load-path "~/.emacs.d/naquadah-theme")
-(add-to-list 'load-path "~/.emacs.d/elisp/markdown-mode")
-(add-to-list 'load-path "~/.emacs.d/elisp/git-commit-mode")
-
-(setq d-dir "~/.emacs.d/")
-(setq elisp-dir (concat d-dir "elisp/"))
-
-(setq d-el-files (directory-files d-dir nil "^[0-9]\\{2\\}-\.*el$"))
-(setq elisp-el-files (directory-files elisp-dir nil "\\.el$"))
-
-;; Compile 3rd party elisp files
-(byte-recompile-directory elisp-dir)
-(while elisp-el-files
-  (let ((my-elisp-file-name (concat elisp-dir (car elisp-el-files))))
-    (if (not (file-exists-p (concat my-elisp-file-name "c")))
-        (byte-compile-file my-elisp-file-name))
-    (setq elisp-el-files (cdr elisp-el-files))))
-
-;; Compile my elisp files
-(byte-recompile-directory d-dir)
-(while d-el-files
-  (let ((my-file-name (concat d-dir (car d-el-files))))
-    (if (not (file-exists-p (concat my-file-name "c")))
-        (byte-compile-file my-file-name))
-    (load (substring my-file-name 0 (- (length my-file-name) 3)))
-    (setq d-el-files (cdr d-el-files))))
-
-(add-to-list 'compilation-finish-functions 'my-comp-finish-function)
-
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(org-agenda-files (quote ("~/documents/org/main.org")))
- '(safe-local-variable-values (quote ((Mode . shell-script) (ispell-local-dictionary . nl)))))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )
-(put 'narrow-to-region 'disabled nil)
diff --git a/emacs.d/00-functions.el b/emacs.d/00-functions.el
deleted file mode 100644
index 20d75ff..0000000
--- a/emacs.d/00-functions.el
+++ /dev/null
@@ -1,40 +0,0 @@
-(defun what-face (pos)
-  "Find out which face the current position uses"
-  (interactive "d")
-  (let ((face (or (get-char-property (point) 'read-face-name)
-                  (get-char-property (point) 'face))))
-    (if face
-        (message "Face: %s" face)
-      (message "No face at %d" pos))))
-
-(defun my-comp-finish-function (buf str)
-  "Don't show compilation window if everything went ok"
-  (if (string-match "exited abnormally" str)
-      ;; there were errors
-      (message "compilation errors, press C-x ` to visit")
-    ;; no errors, make the compilation window go away in 0.5 seconds
-    (run-at-time 0.5 nil 'delete-windows-on buf)
-    (message "NO COMPILATION ERRORS!")))
-
-(defun show-whitespace ()
-  (interactive)
-  (whitespace-mode t))
-
-(defun fullscreen ()
-  (interactive)
-  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
-                         '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
-  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
-                         '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
-
-(defun c-toggle-header-source ()
-  (interactive)
-  (let ((ext (file-name-extension (buffer-file-name)))
-        (noext (file-name-sans-extension (buffer-file-name))))
-    (if (string= (substring ext 0 1) "c")
-        (find-file (concat noext ".h"))
-      (find-file (concat noext ".c")))))
-
-(defun browse-to-current-file ()
-  (interactive)
-  (browse-url buffer-file-name))
diff --git a/emacs.d/10-file-associations.el b/emacs.d/10-file-associations.el
deleted file mode 100644
index b82e0e3..0000000
--- a/emacs.d/10-file-associations.el
+++ /dev/null
@@ -1,12 +0,0 @@
-(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode))
-(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode))
-(add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
-(add-to-list 'auto-mode-alist '("\\.bat$" . batch-mode))
-(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
-(add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode))
-(add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . javascript-mode))
-(add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode))
-(add-to-list 'auto-mode-alist '("\\.markdown$" . markdown-mode))
-
-(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
-(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
diff --git a/emacs.d/10-font-lock.el b/emacs.d/10-font-lock.el
deleted file mode 100644
index af5f111..0000000
--- a/emacs.d/10-font-lock.el
+++ /dev/null
@@ -1,30 +0,0 @@
-;; Currently support for [ ] | & ! . + = - / % * , ( ) < > { } ? : ->
-(defun add-my-c-keywords (mode append)
-  ;; Add ! at the beginning of font lock
-  (font-lock-add-keywords
-   mode
-   '(("\\([!()]\\)" 1 font-lock-operator-face)))
-  ;; Add the rest at the end of font lock
-  (font-lock-add-keywords
-   mode
-   '(("\\(->\\|[\\[|.+=&/%*,{}:?<>-]\\|\\]\\)" 1 font-lock-operator-face)
-     ("\\(;\\)" 1 font-lock-end-statement)) append))
-
-(defun add-my-php-keywords (mode)
-  (add-my-c-keywords mode 1)
-  (font-lock-add-keywords
-   mode
-   ;; Currently support for =>
-   '(("\\(\\=>\\)" 1 font-lock-operator-face))))
-
-;(add-my-c-keywords 'c-mode 1)
-;(add-my-php-keywords 'php-mode)
-;(add-my-c-keywords 'javascript-mode nil)
-
-;(make-face 'font-lock-operator-face)
-;(make-face 'font-lock-end-statement)
-;(defvar font-lock-operator-face 'font-lock-operator-face)
-;(defvar font-lock-end-statement 'font-lock-end-statement)
-
-;(set-face-foreground 'font-lock-operator-face "#EDD400")
-;(set-face-foreground 'font-lock-end-statement "#888A85")
diff --git a/emacs.d/10-keys.el b/emacs.d/10-keys.el
deleted file mode 100644
index c3f312b..0000000
--- a/emacs.d/10-keys.el
+++ /dev/null
@@ -1,4 +0,0 @@
-(global-set-key "\C-m"          'newline-and-indent)
-                                        ; Automatically indent on newline
-(global-set-key (kbd "C-x n r") 'narrow-to-region)
-(global-set-key (kbd "<f9>")    'compile)
diff --git a/emacs.d/10-modules.el b/emacs.d/10-modules.el
deleted file mode 100644
index b6cd429..0000000
--- a/emacs.d/10-modules.el
+++ /dev/null
@@ -1,16 +0,0 @@
-(autoload 'vala-mode         "vala-mode"
-  "A Major mode for editing Vala files"         t)
-(autoload 'csharp-mode       "csharp-mode"
-  "A Major mode for editing C# files"           t)
-(autoload 'javascript-mode   "javascript"
-  "A Major mode for editing JavaScript files"   t)
-(autoload 'sqlplus-mode      "sqlplus"
-  "A Major mode for communicating with Oracle"  t)
-(autoload 'batch-mode        "batch-mode"
-  "A Major mode for editing Batch files"        t)
-(autoload 'lua-mode          "lua-mode"
-  "A Major mode for editing Lua files"          t)
-(autoload 'php-mode          "php-mode-improved"
-  "A Major mode for editing PHP files"          t)
-(autoload 'graphviz-dot-mode "graphviz-dot-mode"
-  "A Major mode for editing graphviz dot files" t)
diff --git a/emacs.d/10-naquadah-theme.el b/emacs.d/10-naquadah-theme.el
deleted file mode 100644
index 53ffc2c..0000000
--- a/emacs.d/10-naquadah-theme.el
+++ /dev/null
@@ -1,14 +0,0 @@
-(require 'naquadah-theme)
-
-;; Extension to the naquadah theme
-(naquadah-theme-set-faces
- 'naquadah
-
- ;; markdown-mode
- '(markdown-link-face (:inherit 'link))
- '(markdown-header-face-1 (:inherit 'org-level-1))
- '(markdown-header-face-2 (:inherit 'org-level-2))
- '(markdown-header-face-3 (:inherit 'org-level-3))
- '(markdown-header-face-4 (:inherit 'org-level-4))
- '(markdown-header-face-5 (:inherit 'org-level-5))
- '(markdown-header-face-6 (:inherit 'org-level-6)))
diff --git a/emacs.d/10-settings.el b/emacs.d/10-settings.el
deleted file mode 100644
index 1fb9029..0000000
--- a/emacs.d/10-settings.el
+++ /dev/null
@@ -1,55 +0,0 @@
-(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10:antialias=true"))
-
-(setq-default indent-tabs-mode nil)   ; spaces, no tabs
-(setq inhibit-startup-message t       ; don't show welcome screen
-      require-final-newline t         ; always append a newline to a
-                                        ; file, if it doesn't have one
-      font-lock-maximum-decoration t  ; denotes my interest in maximum
-                                        ; possible fontification
-      inhibit-default-init t            ; don't load default init
-      scroll-conservatively 10000       ; scroll only one line
-      browse-url-browser-function 'browse-url-generic
-      browse-url-generic-program "conkeror"
-      whitespace-style '(face trailing)
-      backup-directory-alist            ; backup file location
-      `((".*" .
-         ,temporary-file-directory))
-      auto-save-file-name-transforms    ; autosave file location
-      `((".*" ,temporary-file-directory
-         t)))
-
-(if (not window-system)
-    (setq linum-format "%d "))          ; add a space if we're in text
-                                        ; mode
-
-(fset 'yes-or-no-p 'y-or-n-p)           ; switch yes or no to y or n
-
-(tool-bar-mode -1)                      ; no toolbar
-(menu-bar-mode -1)                      ; no menubar
-(scroll-bar-mode -1)                    ; no scrollbars
-(line-number-mode -1)                   ; don't show line number in
-                                        ;   splitter
-(global-linum-mode t)                   ; Show line numbers in gutter
-(column-number-mode t)                  ; show column number in splitter
-(global-font-lock-mode t)               ; show syntax highlighting, old
-(delete-selection-mode t)               ; delete selection upon typing
-(show-paren-mode t)                     ; show the opposite paren
-
-(defun buffer-major-mode (buffer-or-string)
-  (with-current-buffer buffer-or-string major-mode))
-
-;; Byte-compile elisp files on save
-(add-hook 'before-save-hook
-          (lambda ()
-            (if (not (eq (buffer-major-mode (current-buffer))
-                        'markdown-mode))
-                (delete-trailing-whitespace))))
-(add-hook 'after-save-hook
-          (lambda ()
-            (let ((fname (buffer-file-name)))
-              (let ((suffix (file-name-extension fname)))
-              (if (string-equal suffix "el")
-                  (byte-compile-file fname))))))
-(add-hook 'emacs-startup-hook
-          (lambda ()
-            (fullscreen)))
diff --git a/emacs.d/20-autopair.el b/emacs.d/20-autopair.el
deleted file mode 100644
index 15ae07a..0000000
--- a/emacs.d/20-autopair.el
+++ /dev/null
@@ -1,2 +0,0 @@
-(require 'autopair)
-(autopair-global-mode)
diff --git a/emacs.d/20-c-mode.el b/emacs.d/20-c-mode.el
deleted file mode 100644
index fa78ea3..0000000
--- a/emacs.d/20-c-mode.el
+++ /dev/null
@@ -1,9 +0,0 @@
-(add-hook 'c-mode-hook
-          (lambda ()
-            (local-set-key [f8] 'c-toggle-header-source)
-            (local-set-key "\C-m"
-                           (lambda ()
-                             (interactive)
-                             (c-indent-new-comment-line)
-                             (c-indent-line-or-region)))
-            (local-set-key [C-return] 'newline)))
diff --git a/emacs.d/20-cmake-mode.el b/emacs.d/20-cmake-mode.el
deleted file mode 100644
index 09f00c5..0000000
--- a/emacs.d/20-cmake-mode.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(autoload 'cmake-mode "cmake-mode"
-  "A major-mode for editing CMake sources" t)
-(setq auto-mode-alist
-      (append '(("CMakeLists\\.txt\\'" . cmake-mode)
-                ("\\.cmake\\'" . cmake-mode))
-              auto-mode-alist))
diff --git a/emacs.d/20-column-marker.el b/emacs.d/20-column-marker.el
deleted file mode 100644
index fddad31..0000000
--- a/emacs.d/20-column-marker.el
+++ /dev/null
@@ -1,9 +0,0 @@
-(require 'column-marker)
-
-(defun set-column-marker ()
-  (column-marker-1 73)
-  (column-marker-2 81))
-
-(add-hook 'c-mode-hook          'set-column-marker)
-(add-hook 'emacs-lisp-mode-hook 'set-column-marker)
-(add-hook 'html-mode-hook       'set-column-marker)
diff --git a/emacs.d/20-git-commit.el b/emacs.d/20-git-commit.el
deleted file mode 100644
index 2b717e8..0000000
--- a/emacs.d/20-git-commit.el
+++ /dev/null
@@ -1,5 +0,0 @@
-(require 'git-commit)
-
-(add-hook 'git-commit-mode-hook
-          (lambda ()
-            (auto-fill-mode)))
diff --git a/emacs.d/20-html-mode.el b/emacs.d/20-html-mode.el
deleted file mode 100644
index e9084a5..0000000
--- a/emacs.d/20-html-mode.el
+++ /dev/null
@@ -1,4 +0,0 @@
-(add-hook 'html-mode-hook
-          (lambda ()
-            (local-set-key [f9] 'browse-to-current-file)
-            (auto-fill-mode)))
diff --git a/emacs.d/20-ide-skel.el b/emacs.d/20-ide-skel.el
deleted file mode 100644
index f1c06d4..0000000
--- a/emacs.d/20-ide-skel.el
+++ /dev/null
@@ -1,10 +0,0 @@
-(if window-system
-    (progn
-      (require 'tabbar)
-      (require 'ide-skel)
-
-      (global-set-key [f10] 'ide-skel-toggle-left-view-window)
-      (global-set-key [f11] 'ide-skel-toggle-bottom-view-window)
-      (global-set-key [f12] 'ide-skel-toggle-right-view-window)
-      (global-set-key [C-prior] 'tabbar-backward)
-      (global-set-key [C-next] 'tabbar-forward)))
diff --git a/emacs.d/20-markdown-mode.el b/emacs.d/20-markdown-mode.el
deleted file mode 100644
index 9058bb2..0000000
--- a/emacs.d/20-markdown-mode.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(autoload 'markdown-mode "markdown-mode"
-  "Major mode for editing Markdown files" t)
-
-(add-hook 'markdown-mode-hook (lambda ()
-                                (whitespace-mode)
-                                (auto-fill-mode)))
diff --git a/emacs.d/20-org.el b/emacs.d/20-org.el
deleted file mode 100644
index 267f853..0000000
--- a/emacs.d/20-org.el
+++ /dev/null
@@ -1,38 +0,0 @@
-(require 'org-crypt)
-
-(setq org-todo-keywords                 '((sequence "TODO(t)"
-						    "IN PROGRESS(p)"
-						    "WAITING(w@/!)"
-						    "|"
-						    "DONE(d!/!)"
-						    "CANCELLED(c@/!)")))
-(setq org-ditaa-jar-path                "/usr/share/java/ditaa/ditaa-0_9.jar")
-(setq org-babel-load-languages          '((ditaa . t)))
-(setq org-confirm-babel-evaluate        nil)
-(setq org-tags-exclude-from-inheritance '("crypt"))
-(setq org-crypt-key                     "33E8CC1CC4")
-                                        ; GPG key used for encryption
-(setq org-use-fast-todo-selection       t)
-(setq org-default-notes-file (concat org-directory "/notes.org"))
-(setq org-refile-targets '((org-agenda-files :maxlevel . 5)
-			   (nil :maxlevel . 5)))
-(setq org-outline-path-complete-in-steps t)
-
-(setq org-todo-keyword-faces
-      '(("TODO"        :foreground "red"          :weight bold)
-	("IN PROGRESS" :foreground "yellow"       :weight bold)
-	("DONE"        :foreground "forest green" :weight bold)
-	("WAITING"     :foreground "orange"       :weight bold)
-	("CANCELLED"   :foreground "orangered"    :weight bold)))
-
-(global-set-key "\C-cl" 'org-store-link)
-(global-set-key "\C-cc" 'org-capture)
-(global-set-key "\C-ca" 'org-agenda)
-
-;; Encrypt all entries before saving
-(org-crypt-use-before-save-magic)
-
-(add-hook 'org-mode-hook
-          (lambda ()
-            (flyspell-mode 1)
-            (auto-fill-mode 1)))
diff --git a/emacs.d/20-php-mode-improved.el b/emacs.d/20-php-mode-improved.el
deleted file mode 100644
index c26c152..0000000
--- a/emacs.d/20-php-mode-improved.el
+++ /dev/null
@@ -1,3 +0,0 @@
-(add-hook 'php-mode-hook
-          (lambda ()
-            (setq php-warn-if-mumamo-off nil)))
diff --git a/emacs.d/20-rainbow-delimiters.el b/emacs.d/20-rainbow-delimiters.el
deleted file mode 100644
index 0da134a..0000000
--- a/emacs.d/20-rainbow-delimiters.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(require 'rainbow-delimiters)
-
-(add-hook 'c-mode-hook                'rainbow-delimiters-mode)
-(add-hook 'emacs-lisp-mode-hook       'rainbow-delimiters-mode)
-(add-hook 'javascript-mode-hook       'rainbow-delimiters-mode)
-(add-hook 'python-mode-hook           'rainbow-delimiters-mode)
diff --git a/emacs.d/20-rainbow.el b/emacs.d/20-rainbow.el
deleted file mode 100644
index af635c8..0000000
--- a/emacs.d/20-rainbow.el
+++ /dev/null
@@ -1,6 +0,0 @@
-(autoload 'rainbow-mode "rainbow-mode"
-  "A Minor mode for showing colors inline" t)
-
-(add-hook 'css-mode-hook
-          (lambda ()
-            (rainbow-mode)))
diff --git a/emacs.d/20-uniquify.el b/emacs.d/20-uniquify.el
deleted file mode 100644
index 0c31a56..0000000
--- a/emacs.d/20-uniquify.el
+++ /dev/null
@@ -1,4 +0,0 @@
-(require 'uniquify)
-
-                                        ; reverse uniquify file names
-(setq uniquify-buffer-name-style 'reverse)
diff --git a/emacs.d/30-frame-fonts.el b/emacs.d/30-frame-fonts.el
deleted file mode 100644
index af4c9bf..0000000
--- a/emacs.d/30-frame-fonts.el
+++ /dev/null
@@ -1,15 +0,0 @@
-;; Test for frame fonts
-(defun setup-system-frame-colours (&rest frame)
-  (let ((f (if (car frame)
-               (car frame)
-             (selected-frame))))
-    (progn
-      (set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))))
-(require 'server)
-(defadvice server-create-window-system-frame
-  (after set-system-frame-colours ())
-  "Set custom frame colours when creating the first frame on a display"
-  (message "Running after frame-initialize")
-  (setup-system-frame-colours))
-(ad-activate 'server-create-window-system-frame)
-(add-hook 'after-make-frame-functions 'setup-system-frame-colours t)
diff --git a/emacs.d/50-org-projects.el b/emacs.d/50-org-projects.el
deleted file mode 100644
index 72c271d..0000000
--- a/emacs.d/50-org-projects.el
+++ /dev/null
@@ -1,13 +0,0 @@
-(require 'org-publish)
-(setq org-publish-project-alist
-      '(("lxcoding-docs"
-	 :base-directory "~/devel/lxcoding-docs/"
-	 :base-extension "org"
-	 :publishing-directory "~/lxcoding-docs-test/"
-	 :recursive t
-	 :publishing-function org-publish-org-to-html
-	 :headline-levels
-	 :auto-preamble t
-	 :auto-sitemap t
-	 :sitemap-filename "sitemap.org"
-	 :sitemap-title "docs sitemap")))
diff --git a/emacs.d/50-skeletons.el b/emacs.d/50-skeletons.el
deleted file mode 100644
index 6ba5d97..0000000
--- a/emacs.d/50-skeletons.el
+++ /dev/null
@@ -1,12 +0,0 @@
-(define-skeleton cmake-project-skeleton
-  "A cmake project template file"
-  "Name: "
-  "cmake_minimum_required(VERSION 2.6)\n"
-  "project(" str ")\n"
-  "\n"
-  "set(" str "_VERSION_MAJOR 0)\n"
-  "set(" str "_VERSION_MINOR 0)\n"
-  "set(" str "_VERSION_PATCH 0)\n"
-  "\n"
-  "set(CMAKE_MODULE_PATH ${CMAKE_MODULE_PATH} ${PROJECT_SOURCE_DIR})\n"
-  "add_subdirectory(src)")
diff --git a/emacs.d/themes/color-theme-example.el b/emacs.d/themes/color-theme-example.el
deleted file mode 100644
index f73b4f6..0000000
--- a/emacs.d/themes/color-theme-example.el
+++ /dev/null
@@ -1,22 +0,0 @@
-(eval-when-compile
-  (require 'color-theme))
-
-(defun color-theme-example ()
-  "Example theme. Carbon copy of color-theme-gnome contributed by Jonadab."
-  (interactive)
-  (color-theme-install
-   '(color-theme-example
-     ((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)))))))
diff --git a/emacs.d/themes/color-theme-library.el b/emacs.d/themes/color-theme-library.el
deleted file mode 100644
index d194708..0000000
--- a/emacs.d/themes/color-theme-library.el
+++ /dev/null
@@ -1,13539 +0,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 :foreground "red"))))
-    (dired-face-boring ((t (:foreground "Gray65"))))
-    (dired-face-directory ((t (:bold t :foreground "forestgreen"))))
-    (dired-face-executable ((t (:foreground "indianred"))))
-    (dired-face-flagged ((t (:background "SlateGray"))))
-    (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
-    (dired-face-permissions ((t (nil))))
-    (dired-face-setuid ((t (:foreground "Red"))))
-    (dired-face-socket ((t (:foreground "magenta"))))
-    (dired-face-symlink ((t (:foreground "grey95"))))
-    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-    (display-time-time-balloon-face ((t (:foreground "red"))))
-    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-    (erc-action-face ((t (:bold t))))
-    (erc-bold-face ((t (:bold t))))
-    (erc-default-face ((t (nil))))
-    (erc-direct-msg-face ((t (nil))))
-    (erc-error-face ((t (:bold t))))
-    (erc-input-face ((t (nil))))
-    (erc-inverse-face ((t (nil))))
-    (erc-notice-face ((t (nil))))
-    (erc-pal-face ((t (nil))))
-    (erc-prompt-face ((t (nil))))
-    (erc-underline-face ((t (nil))))
-    (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
-    (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-    (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
-    (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
-    (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
-    (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
-    (eshell-ls-picture-face ((t (nil))))
-    (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-    (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-    (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
-    (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
-    (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-    (eshell-prompt-face ((t (:bold t :foreground "Red"))))
-    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
-    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
-    (excerpt ((t (nil))))
-    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
-    (fg:black ((t (:foreground "black"))))
-    (fixed ((t (:bold t))))
-    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
-    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
-    (font-latex-bold-face ((t (nil))))
-    (font-latex-italic-face ((t (nil))))
-    (font-latex-math-face ((t (nil))))
-    (font-latex-sedate-face ((t (nil))))
-    (font-latex-string-face ((t (nil))))
-    (font-latex-warning-face ((t (nil))))
-    (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
-    (font-lock-comment-face ((t (:foreground "grey55"))))
-    (font-lock-constant-face ((t (:foreground "OliveDrab"))))
-    (font-lock-doc-string-face ((t (:bold t :foreground "blue4"))))
-    (font-lock-exit-face ((t (nil))))
-    (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue"))))
-    (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
-    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
-    (font-lock-reference-face ((t (:foreground "red3"))))
-    (font-lock-string-face ((t (:foreground "DarkRed"))))
-    (font-lock-type-face ((t (:foreground "SteelBlue4"))))
-    (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
-    (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
-    (fringe ((t (:background "grey95"))))
-    (gnus-cite-attribution-face ((t (:bold t))))
-    (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-    (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-    (gnus-cite-face-3 ((t (:foreground "dark green"))))
-    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-    (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-    (gnus-cite-face-8 ((t (:foreground "magenta"))))
-    (gnus-cite-face-9 ((t (:foreground "violet"))))
-    (gnus-emphasis-bold ((t (:bold t))))
-    (gnus-emphasis-bold-italic ((t (:bold t))))
-    (gnus-emphasis-highlight-words ((t (nil))))
-    (gnus-emphasis-italic ((t (nil))))
-    (gnus-emphasis-underline ((t (:underline t))))
-    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-    (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
-    (gnus-emphasis-underline-italic ((t (:underline t))))
-    (gnus-filterhist-face-1 ((t (nil))))
-    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
-    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
-    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
-    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
-    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
-    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
-    (gnus-group-news-3-empty-face ((t (nil))))
-    (gnus-group-news-3-face ((t (:bold t))))
-    (gnus-group-news-4-empty-face ((t (nil))))
-    (gnus-group-news-4-face ((t (:bold t))))
-    (gnus-group-news-5-empty-face ((t (nil))))
-    (gnus-group-news-5-face ((t (:bold t))))
-    (gnus-group-news-6-empty-face ((t (nil))))
-    (gnus-group-news-6-face ((t (:bold t))))
-    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
-    (gnus-header-content-face ((t (:foreground "indianred4"))))
-    (gnus-header-from-face ((t (:bold t :foreground "red3"))))
-    (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
-    (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue"))))
-    (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
-    (gnus-picons-face ((t (:background "white" :foreground "black"))))
-    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
-    (gnus-signature-face ((t (nil))))
-    (gnus-splash ((t (nil))))
-    (gnus-splash-face ((t (:foreground "ForestGreen"))))
-    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
-    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
-    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
-    (gnus-summary-high-unread-face ((t (:bold t))))
-    (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
-    (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
-    (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick"))))
-    (gnus-summary-low-unread-face ((t (nil))))
-    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
-    (gnus-summary-normal-unread-face ((t (:bold t))))
-    (gnus-summary-selected-face ((t (:underline t))))
-    (gnus-x-face ((t (:background "white" :foreground "black"))))
-    (green ((t (nil))))
-    (gui-button-face ((t (:background "grey75"))))
-    (gui-element ((t (:background "Gray80"))))
-    (highlight ((t (:background "LightSkyBlue"))))
-    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
-    (highlight-changes-face ((t (:foreground "red"))))
-    (highline-face ((t (:background "grey95"))))
-    (holiday-face ((t (:background "pink"))))
-    (html-helper-italic-face ((t (nil))))
-    (info-menu-5 ((t (:underline t))))
-    (info-node ((t (:bold t))))
-    (info-xref ((t (:bold t))))
-    (isearch ((t (:background "yellow"))))
-    (isearch-secondary ((t (:foreground "red3"))))
-    (italic ((t (nil))))
-    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
-    (left-margin ((t (nil))))
-    (linemenu-face ((t (nil))))
-    (list-mode-item-selected ((t (nil))))
-    (makefile-space-face ((t (:background "hotpink"))))
-    (message-cited-text-face ((t (:foreground "red"))))
-    (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
-    (message-header-name-face ((t (:foreground "cornflower blue"))))
-    (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
-    (message-header-other-face ((t (:foreground "steel blue"))))
-    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
-    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
-    (message-header-xheader-face ((t (:foreground "blue"))))
-    (message-mml-face ((t (:bold t))))
-    (message-separator-face ((t (:foreground "brown"))))
-    (modeline ((t (:background "white" :foreground "black"))))
-    (modeline-buffer-id ((t (:background "white" :foreground "black"))))
-    (modeline-mousable ((t (:background "white" :foreground "black"))))
-    (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
-    (paren-blink-off ((t (:foreground "gray80"))))
-    (paren-face-match ((t (:background "turquoise"))))
-    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
-    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
-    (paren-match ((t (:background "darkseagreen2"))))
-    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
-    (paren-mismatch-face ((t (:bold t))))
-    (paren-no-match-face ((t (:bold t))))
-    (pointer ((t (nil))))
-    (primary-selection ((t (nil))))
-    (red ((t (nil))))
-    (region ((t (:background "grey80"))))
-    (right-margin ((t (nil))))
-    (secondary-selection ((t (:background "grey55"))))
-    (sgml-comment-face ((t (:foreground "dark turquoise"))))
-    (sgml-doctype-face ((t (nil))))
-    (sgml-end-tag-face ((t (nil))))
-    (sgml-entity-face ((t (nil))))
-    (sgml-ignored-face ((t (nil))))
-    (sgml-ms-end-face ((t (:foreground "green"))))
-    (sgml-ms-start-face ((t (:foreground "green"))))
-    (sgml-pi-face ((t (:foreground "lime green"))))
-    (sgml-sgml-face ((t (nil))))
-    (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
-    (sgml-start-tag-face ((t (nil))))
-    (shell-option-face ((t (:foreground "blue"))))
-    (shell-output-2-face ((t (:foreground "darkseagreen"))))
-    (shell-output-3-face ((t (:foreground "slategrey"))))
-    (shell-output-face ((t (:foreground "palegreen"))))
-    (shell-prompt-face ((t (:foreground "red"))))
-    (show-paren-match-face ((t (:background "grey80"))))
-    (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
-    (speedbar-button-face ((t (:bold t :foreground "green4"))))
-    (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
-    (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
-    (speedbar-highlight-face ((t (:background "green"))))
-    (speedbar-selected-face ((t (:underline t :foreground "red"))))
-    (speedbar-tag-face ((t (:foreground "brown"))))
-    (swbuff-current-buffer-face ((t (:bold t))))
-    (template-message-face ((t (:bold t))))
-    (term-black ((t (:foreground "black"))))
-    (term-blackbg ((t (:background "black"))))
-    (term-blue ((t (:foreground "blue"))))
-    (term-bluebg ((t (:background "blue"))))
-    (term-bold ((t (:bold t))))
-    (term-cyan ((t (:foreground "cyan"))))
-    (term-cyanbg ((t (:background "cyan"))))
-    (term-default-bg ((t (nil))))
-    (term-default-bg-inv ((t (nil))))
-    (term-default-fg ((t (nil))))
-    (term-default-fg-inv ((t (nil))))
-    (term-green ((t (:foreground "green"))))
-    (term-greenbg ((t (:background "green"))))
-    (term-invisible ((t (nil))))
-    (term-invisible-inv ((t (nil))))
-    (term-magenta ((t (:foreground "magenta"))))
-    (term-magentabg ((t (:background "magenta"))))
-    (term-red ((t (:foreground "red"))))
-    (term-redbg ((t (:background "red"))))
-    (term-underline ((t (:underline t))))
-    (term-white ((t (:foreground "white"))))
-    (term-whitebg ((t (:background "white"))))
-    (term-yellow ((t (:foreground "yellow"))))
-    (term-yellowbg ((t (:background "yellow"))))
-    (text-cursor ((t (:background "grey15" :foreground "gainsboro"))))
-    (toolbar ((t (nil))))
-    (underline ((t (:underline t))))
-    (vc-annotate-face-0046FF ((t (nil))))
-    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
-    (vertical-divider ((t (nil))))
-    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
-    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
-    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
-    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
-    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
-    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
-    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-    (vvb-face ((t (:background "pink" :foreground "black"))))
-    (widget-button-face ((t (:bold t))))
-    (widget-button-pressed-face ((t (:foreground "red"))))
-    (widget-documentation-face ((t (:foreground "dark green"))))
-    (widget-field-face ((t (:background "navy" :foreground "white"))))
-    (widget-inactive-face ((t (:foreground "dim gray"))))
-    (widget-single-line-field-face ((t (:background "royalblue" :foreground "white"))))
-    (woman-bold-face ((t (:bold t))))
-    (woman-italic-face ((t (nil))))
-    (woman-unknown-face ((t (nil))))
-    (xref-keyword-face ((t (:foreground "blue"))))
-    (xref-list-pilot-face ((t (:foreground "navy"))))
-    (xref-list-symbol-face ((t (:foreground "navy"))))
-    (yellow ((t (nil))))
-    (zmacs-region ((t (:background "royalblue")))))))
-
-(defun color-theme-oswald ()
-  "Color theme by Tom Oswald, created 2001-04-18.
-Green on black, includes font-lock, show-paren, and ediff."
-  (interactive)
-  (color-theme-install
-   '(color-theme-oswald
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "green")
-      (mouse-color . "black"))
-     ((blank-space-face . blank-space-face)
-      (blank-tab-face . blank-tab-face)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight))
-    (default ((t (nil))))
-    (blank-space-face ((t (:background "LightGray"))))
-    (blank-tab-face ((t (:background "green" :foreground "black"))))
-    (bold ((t (:bold t))))
-    (bold-italic ((t (:italic t :bold t))))
-    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-    (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
-    (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4"))))
-    (font-lock-constant-face ((t (:italic t :foreground "HotPink"))))
-    (font-lock-doc-string-face ((t (:italic t :foreground "orange"))))
-    (font-lock-function-name-face ((t (:italic t :bold t :foreground "red"))))
-    (font-lock-keyword-face ((t (:foreground "red"))))
-    (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink"))))
-    (font-lock-string-face ((t (:italic t :foreground "orange"))))
-    (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
-    (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue"))))
-    (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod"))))
-    (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
-    (highlight ((t (:background "yellow" :foreground "red"))))
-    (isearch ((t (:background "dim gray" :foreground "aquamarine"))))
-    (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow"))))
-    (italic ((t (:italic t))))
-    (modeline ((t (:background "green" :foreground "black"))))
-    (modeline-buffer-id ((t (:background "green" :foreground "black"))))
-    (modeline-mousable ((t (:background "green" :foreground "black"))))
-    (modeline-mousable-minor-mode ((t (:background "green" :foreground "black"))))
-    (region ((t (:background "dim gray" :foreground "aquamarine"))))
-    (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod"))))
-    (show-paren-match-face ((t (:background "turquoise" :foreground "black"))))
-    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-    (underline ((t (:underline t))))
-    (zmacs-region ((t (:background "dim gray" :foreground "aquamarine")))))))
-
-(defun color-theme-salmon-diff ()
-  "Salmon and aquamarine faces for diff and change-log modes.
-This is intended for other color themes to use (eg. `color-theme-gnome2')."
-  (color-theme-install
-   '(color-theme-salmon-diff
-     nil
-     (change-log-acknowledgement-face ((t (:foreground "LightBlue"))))
-     (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
-     (change-log-date-face ((t (:foreground "LightSalmon"))))
-     (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
-     (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
-     (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
-     (change-log-list-face ((t (:foreground "Salmon"))))
-     (change-log-name-face ((t (:foreground "Aquamarine"))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey70"))))
-     (diff-file-header-face ((t (:bold t))))
-     (diff-function-face ((t (:foreground "grey70"))))
-     (diff-header-face ((t (:foreground "light salmon"))))
-     (diff-hunk-header-face ((t (:foreground "light salmon"))))
-     (diff-index-face ((t (:bold t))))
-     (diff-nonexistent-face ((t (:bold t))))
-     (diff-removed-face ((t (nil))))
-     (log-view-message-face ((t (:foreground "light salmon")))))))
-
-(defun color-theme-robin-hood ()
-  "`color-theme-gnome2' with navajo white on green.
-This theme tries to avoid underlined and italic faces, because
-the fonts either look ugly, or do not exist.  The author himself
-uses neep, for example."
-  (interactive)
-  (color-theme-gnome2)
-  (let ((color-theme-is-cumulative t))
-    (color-theme-install
-     '(color-theme-robin-hood
-       ((foreground-color . "navajo white")
-	(background-color . "#304020"))
-       ((CUA-mode-read-only-cursor-color . "white")
-	(help-highlight-face . info-xref)
-	(list-matching-lines-buffer-name-face . bold))
-       (default ((t (nil))))
-       (button ((t (:bold t))))
-       (calendar-today-face ((t (:foreground "lemon chiffon"))))
-       (custom-button-face ((t (:bold t :foreground "DodgerBlue1"))))
-       (diary-face ((t (:bold t :foreground "yellow"))))
-       (fringe ((t (:background "#003700"))))
-       (header-line ((t (:background "#030" :foreground "#AA7"))))
-       (holiday-face ((t (:bold t :foreground "peru"))))
-       (ido-subdir-face ((t (:foreground "MediumSlateBlue"))))
-       (isearch ((t (:foreground "pink" :background "red"))))
-       (isearch-lazy-highlight-face ((t (:foreground "red"))))
-       (menu ((t (:background "#304020" :foreground "navajo white"))))
-       (minibuffer-prompt ((t (:foreground "pale green"))))
-       (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button)))))
-       (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button)))))
-       (semantic-dirty-token-face ((t (:background "grey22"))))
-       (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button)))))
-       (tooltip ((t (:background "lemon chiffon" :foreground "black"))))))))
-
-(defun color-theme-snowish ()
-  "Color theme by Girish Bharadwaj, created 2001-05-17.
-Dark slate gray on snow2, lots of blue colors.
-Includes custom, eshell, font-lock, gnus, html-helper,
-hyper-apropos, jde, message, paren, semantic, speedbar,
-term, widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-snowish
-     ((background-color . "snow2")
-      (background-mode . light)
-      (cursor-color . "Red3")
-      (foreground-color . "darkslategray"))
-     ((buffers-tab-face . buffers-tab)
-      (gnus-mouse-face . highlight)
-      (sgml-set-face . t)
-      (smiley-mouse-face . highlight))
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t :foreground "peru"))))
-     (bold-italic ((t (:italic t :bold t))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "snow2" :foreground "darkslategray"))))
-     (custom-button-face ((t (:bold t))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
-     (cyan ((t (:foreground "cyan"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "red"))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
-     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
-     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan"))))
-     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Red"))))
-     (font-lock-builtin-face ((t (:underline t :foreground "blue"))))
-     (font-lock-comment-face ((t (:foreground "snow4"))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-doc-string-face ((t (:foreground "mediumblue"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "darkblue"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue"))))
-     (font-lock-preprocessor-face ((t (:underline t :foreground "blue3"))))
-     (font-lock-reference-face ((t (:foreground "red3"))))
-     (font-lock-string-face ((t (:foreground "darkviolet"))))
-     (font-lock-type-face ((t (:foreground "goldenrod"))))
-     (font-lock-variable-name-face ((t (:foreground "tomato"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-     (gnus-cite-attribution-face ((t (nil))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t))))
-     (gnus-emphasis-bold-italic ((t (nil))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (nil))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t))))
-     (gnus-emphasis-underline-italic ((t (:underline t))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-header-content-face ((t (:foreground "indianred4"))))
-     (gnus-header-from-face ((t (:foreground "red3"))))
-     (gnus-header-name-face ((t (:foreground "maroon"))))
-     (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
-     (gnus-header-subject-face ((t (:foreground "red4"))))
-     (gnus-picons-face ((t (:background "white" :foreground "black"))))
-     (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
-     (gnus-signature-face ((t (nil))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
-     (gnus-summary-high-unread-face ((t (:bold t))))
-     (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
-     (gnus-summary-low-unread-face ((t (nil))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (gnus-x-face ((t (:background "white" :foreground "black"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (html-helper-bold-face ((t (:bold t))))
-     (html-helper-bold-italic-face ((t (nil))))
-     (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
-     (html-helper-italic-face ((t (:foreground "medium sea green"))))
-     (html-helper-underline-face ((t (:underline t))))
-     (html-tag-face ((t (:bold t))))
-     (hyper-apropos-documentation ((t (:foreground "darkred"))))
-     (hyper-apropos-heading ((t (:bold t))))
-     (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
-     (hyper-apropos-major-heading ((t (:bold t))))
-     (hyper-apropos-section-heading ((t (nil))))
-     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
-     (info-menu-6 ((t (nil))))
-     (isearch ((t (:background "paleturquoise"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (nil))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
-     (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
-     (magenta ((t (:foreground "magenta"))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:foreground "blue4"))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
-     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (modeline ((t (nil))))
-     (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4"))))
-     (paren-blink-off ((t (:foreground "snow2"))))
-     (paren-match ((t (:background "darkseagreen2"))))
-     (paren-mismatch ((t (:background "snow2" :foreground "darkslategray"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (semantic-intangible-face ((t (:foreground "gray25"))))
-     (semantic-read-only-face ((t (:background "gray25"))))
-     (senator-momentary-highlight-face ((t (:background "gray70"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:underline t :foreground "red"))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (template-message-face ((t (:bold t))))
-     (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
-     (term-blue-face ((t (:foreground "blue"))))
-     (term-blue-inv-face ((t (:background "blue"))))
-     (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
-     (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
-     (term-cyan-face ((t (:foreground "cyan"))))
-     (term-cyan-inv-face ((t (:background "cyan"))))
-     (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
-     (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
-     (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
-     (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
-     (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
-     (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
-     (term-green-face ((t (:foreground "green"))))
-     (term-green-inv-face ((t (:background "green"))))
-     (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
-     (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
-     (term-magenta-face ((t (:foreground "magenta"))))
-     (term-magenta-inv-face ((t (:background "magenta"))))
-     (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
-     (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
-     (term-red-face ((t (:foreground "red"))))
-     (term-red-inv-face ((t (:background "red"))))
-     (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
-     (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
-     (term-white-face ((t (:foreground "white"))))
-     (term-white-inv-face ((t (:background "snow2"))))
-     (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
-     (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
-     (term-yellow-face ((t (:foreground "yellow"))))
-     (term-yellow-inv-face ((t (:background "yellow"))))
-     (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
-     (text-cursor ((t (:background "Red3" :foreground "snow2"))))
-     (toolbar ((t (nil))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (nil))))
-     (white ((t (:foreground "white"))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "gray65")))))))
-
-(defun color-theme-dark-laptop ()
-  "Color theme by Laurent Michel, created 2001-05-24.
-Includes custom, fl, font-lock, gnus, message, widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-dark-laptop
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "yellow")
-      (foreground-color . "white")
-      (mouse-color . "sienna1"))
-     ((gnus-mouse-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight))
-     (default ((t (nil))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:italic t :bold t))))
-     (custom-button-face ((t (nil))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
-     (fl-comment-face ((t (:foreground "pink"))))
-     (fl-doc-string-face ((t (:foreground "purple"))))
-     (fl-function-name-face ((t (:foreground "red"))))
-     (fl-keyword-face ((t (:foreground "cyan"))))
-     (fl-string-face ((t (:foreground "green"))))
-     (fl-type-face ((t (:foreground "yellow"))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "OrangeRed"))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
-     (font-lock-keyword-face ((t (:foreground "Cyan"))))
-     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
-     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-type-face ((t (:foreground "PaleGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
-     (gnus-cite-attribution-face ((t (:italic t))))
-     (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:bold t :foreground "cyan"))))
-     (gnus-cite-face-3 ((t (:bold t :foreground "gold"))))
-     (gnus-cite-face-4 ((t (:foreground "light pink"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:bold t :foreground "chocolate"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
-     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
-     (gnus-header-content-face ((t (:italic t :foreground "forest green"))))
-     (gnus-header-from-face ((t (:bold t :foreground "spring green"))))
-     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
-     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple"))))
-     (gnus-header-subject-face ((t (:bold t :foreground "orange"))))
-     (gnus-signature-face ((t (:bold t :foreground "khaki"))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
-     (gnus-summary-high-unread-face ((t (:bold t))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
-     (gnus-summary-low-unread-face ((t (:italic t))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (italic ((t (:italic t))))
-     (message-cited-text-face ((t (:bold t :foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4"))))
-     (message-header-name-face ((t (:bold t :foreground "orange"))))
-     (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
-     (message-header-other-face ((t (:bold t :foreground "chocolate"))))
-     (message-header-subject-face ((t (:bold t :foreground "yellow"))))
-     (message-header-to-face ((t (:bold t :foreground "cyan"))))
-     (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
-     (message-mml-face ((t (:bold t :background "Green3"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (modeline ((t (:background "white" :foreground "black"))))
-     (modeline-buffer-id ((t (:background "white" :foreground "black"))))
-     (modeline-mousable ((t (:background "white" :foreground "black"))))
-     (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
-     (region ((t (:background "blue"))))
-     (primary-selection ((t (:background "blue"))))
-     (isearch ((t (:background "blue"))))
-     (zmacs-region ((t (:background "blue"))))
-     (secondary-selection ((t (:background "darkslateblue"))))
-     (underline ((t (:underline t))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray")))))))
-
-(defun color-theme-taming-mr-arneson ()
-  "Color theme by Erik Arneson, created 2001-06-12.
-Light sky blue on black.  Includes bbdb, cperl, custom, cvs, diff,
-dired, font-lock, html-helper, hyper-apropos, info, isearch, man,
-message, paren, shell, and widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-taming-mr-arneson
-     ((background-color . "black")
-      (background-mode . light)
-      (background-toolbar-color . "#cf3ccf3ccf3c")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#79e77df779e7")
-      (cursor-color . "Red3")
-      (foreground-color . "LightSkyBlue")
-      (top-toolbar-shadow-color . "#fffffbeeffff"))
-     ((buffers-tab-face . buffers-tab)
-      (cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face quote default)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (ispell-highlight-face . highlight)
-      (vc-mode-face . highlight)
-      (vm-highlight-url-face . bold-italic)
-      (vm-highlighted-header-face . bold)
-      (vm-mime-button-face . gui-button-face)
-      (vm-summary-highlight-face . bold))
-     (default ((t (nil))))
-     (bbdb-company ((t (nil))))
-     (bbdb-field-name ((t (:bold t))))
-     (bbdb-field-value ((t (nil))))
-     (bbdb-name ((t (:underline t))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:bold t :foreground "yellow"))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
-     (cperl-array-face ((t (:bold t :foreground "SkyBlue2"))))
-     (cperl-hash-face ((t (:foreground "LightBlue2"))))
-     (cperl-invalid-face ((t (:foreground "white"))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (custom-button-face ((t (:bold t))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:foreground "white"))))
-     (custom-comment-tag-face ((t (:foreground "white"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "white"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
-     (cvs-filename-face ((t (:foreground "white"))))
-     (cvs-handled-face ((t (:foreground "pink"))))
-     (cvs-header-face ((t (:foreground "green"))))
-     (cvs-marked-face ((t (:bold t :foreground "green3"))))
-     (cvs-msg-face ((t (:foreground "red"))))
-     (cvs-need-action-face ((t (:foreground "yellow"))))
-     (cvs-unknown-face ((t (:foreground "grey"))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-file-header-face ((t (:bold t :background "grey70"))))
-     (diff-hunk-header-face ((t (:background "grey85"))))
-     (diff-index-face ((t (:bold t :background "grey70"))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (:foreground "Gray65"))))
-     (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
-     (dired-face-executable ((t (:foreground "Green"))))
-     (dired-face-flagged ((t (:background "LightSlateGray"))))
-     (dired-face-header ((t (:background "grey75" :foreground "black"))))
-     (dired-face-marked ((t (:background "PaleVioletRed"))))
-     (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
-     (dired-face-setuid ((t (:foreground "Red"))))
-     (dired-face-socket ((t (:foreground "magenta"))))
-     (dired-face-symlink ((t (:foreground "cyan"))))
-     (excerpt ((t (nil))))
-     (fixed ((t (:bold t))))
-     (font-lock-builtin-face ((t (:foreground "red3"))))
-     (font-lock-comment-face ((t (:foreground "red"))))
-     (font-lock-constant-face ((t (nil))))
-     (font-lock-doc-string-face ((t (:foreground "turquoise"))))
-     (font-lock-function-name-face ((t (:foreground "white"))))
-     (font-lock-keyword-face ((t (:foreground "green"))))
-     (font-lock-preprocessor-face ((t (:foreground "green3"))))
-     (font-lock-reference-face ((t (:foreground "red3"))))
-     (font-lock-string-face ((t (:foreground "turquoise"))))
-     (font-lock-type-face ((t (:foreground "steelblue"))))
-     (font-lock-variable-name-face ((t (:foreground "magenta2"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (nil))))
-     (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
-     (html-helper-bold-face ((t (:bold t))))
-     (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
-     (html-helper-underline-face ((t (:underline t))))
-     (hyper-apropos-documentation ((t (:foreground "white"))))
-     (hyper-apropos-heading ((t (:bold t))))
-     (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
-     (hyper-apropos-major-heading ((t (:bold t))))
-     (hyper-apropos-section-heading ((t (:bold t))))
-     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
-     (info-node ((t (:bold t :foreground "yellow"))))
-     (info-xref ((t (:bold t))))
-     (isearch ((t (:background "paleturquoise" :foreground "dark red"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (:bold t :foreground "yellow"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
-     (man-bold ((t (:bold t))))
-     (man-heading ((t (:bold t))))
-     (man-italic ((t (:foreground "yellow"))))
-     (man-xref ((t (:underline t))))
-     (message-cited-text ((t (:foreground "orange"))))
-     (message-header-contents ((t (:foreground "white"))))
-     (message-headers ((t (:bold t :foreground "orange"))))
-     (message-highlighted-header-contents ((t (:bold t))))
-     (message-url ((t (:bold t :foreground "pink"))))
-     (mmm-face ((t (:background "black" :foreground "green"))))
-     (modeline ((t (nil))))
-     (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
-     (paren-blink-off ((t (:foreground "gray80"))))
-     (paren-match ((t (:background "dark blue"))))
-     (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray65" :foreground "DarkBlue"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray65" :foreground "DarkBlue"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise" :foreground "black"))))
-     (shell-option-face ((t (:foreground "blue4"))))
-     (shell-output-2-face ((t (:foreground "green4"))))
-     (shell-output-3-face ((t (:foreground "green4"))))
-     (shell-output-face ((t (:bold t))))
-     (shell-prompt-face ((t (:foreground "red4"))))
-     (text-cursor ((t (:background "Red3" :foreground "black"))))
-     (toolbar ((t (:background "Gray80" :foreground "black"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (nil))))
-     (vm-xface ((t (:background "white" :foreground "black"))))
-     (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
-     (vmpc-sig-face ((t (:foreground "steelblue"))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85" :foreground "black"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (x-face ((t (:background "white" :foreground "black"))))
-     (xrdb-option-name-face ((t (:foreground "red"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "gray65")))))))
-
-(defun color-theme-digital-ofs1 ()
-  "Color theme by Gareth Owen, created 2001-06-13.
-This works well on an old, beat-up Digital Unix box with its 256 colour
-display, on which other color themes hog too much of the palette.
-Black on some shade of dark peach.  Includes bbdb, cperl, custom,
-cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus,
-highlight, hproperty, html-helper, hyper-apropos, info, jde, man,
-message, paren, searchm, semantic, sgml, shell, speedbar, term,
-vhdl, viper, w3m, widget, woman, x-symbol, xref."
-  (interactive)
-  (color-theme-install
-   '(color-theme-digital-ofs1
-     ((background-color . "#CA94AA469193")
-      (background-mode . light)
-      (background-toolbar-color . "#cf3ccf3ccf3c")
-      (border-color . "black")
-      (bottom-toolbar-shadow-color . "#79e77df779e7")
-      (cursor-color . "Black")
-      (foreground-color . "Black")
-      (mouse-color . "Black")
-      (top-toolbar-shadow-color . "#fffffbeeffff")
-      (viper-saved-cursor-color-in-replace-mode . "Red3"))
-     ((Man-overstrike-face . bold)
-      (Man-underline-face . underline)
-      (gnus-mouse-face . highlight)
-      (goto-address-mail-face . italic)
-      (goto-address-mail-mouse-face . secondary-selection)
-      (goto-address-url-face . bold)
-      (goto-address-url-mouse-face . highlight)
-      (ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (rmail-highlight-face . font-lock-function-name-face)
-      (view-highlight-face . highlight))
-    (default ((t (:bold t))))
-    (bbdb-company ((t (:italic t))))
-    (bbdb-field-name ((t (:bold t))))
-    (bbdb-field-value ((t (nil))))
-    (bbdb-name ((t (:underline t))))
-    (blank-space-face ((t (nil))))
-    (blank-tab-face ((t (nil))))
-    (blue ((t (:bold t :foreground "blue"))))
-    (bold ((t (:bold t))))
-    (bold-italic ((t (:italic t :bold t))))
-    (border-glyph ((t (:bold t))))
-    (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
-    (calendar-today-face ((t (:underline t :bold t :foreground "white"))))
-    (comint-input-face ((t (nil))))
-    (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
-    (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
-    (cperl-here-face ((t (nil))))
-    (cperl-invalid-face ((t (:foreground "white"))))
-    (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-    (cperl-pod-face ((t (nil))))
-    (cperl-pod-head-face ((t (nil))))
-    (custom-button-face ((t (:bold t))))
-    (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
-    (custom-comment-face ((t (:foreground "white"))))
-    (custom-comment-tag-face ((t (:foreground "white"))))
-    (custom-documentation-face ((t (:bold t))))
-    (custom-face-tag-face ((t (:underline t :bold t))))
-    (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue"))))
-    (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red"))))
-    (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
-    (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
-    (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
-    (custom-saved-face ((t (:underline t :bold t))))
-    (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
-    (custom-state-face ((t (:bold t :foreground "dark green"))))
-    (custom-variable-button-face ((t (:underline t :bold t))))
-    (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
-    (cvs-filename-face ((t (:foreground "white"))))
-    (cvs-handled-face ((t (:foreground "pink"))))
-    (cvs-header-face ((t (:bold t :foreground "green"))))
-    (cvs-marked-face ((t (:bold t :foreground "green3"))))
-    (cvs-msg-face ((t (:italic t :foreground "red"))))
-    (cvs-need-action-face ((t (:foreground "yellow"))))
-    (cvs-unknown-face ((t (:foreground "grey"))))
-    (cyan ((t (:foreground "cyan"))))
-    (diary-face ((t (:bold t :foreground "red"))))
-    (diff-added-face ((t (nil))))
-    (diff-changed-face ((t (nil))))
-    (diff-file-header-face ((t (:bold t :background "grey70"))))
-    (diff-hunk-header-face ((t (:background "grey85"))))
-    (diff-index-face ((t (:bold t :background "grey70"))))
-    (diff-removed-face ((t (nil))))
-    (dired-face-boring ((t (:foreground "Gray65"))))
-    (dired-face-directory ((t (:bold t))))
-    (dired-face-executable ((t (:foreground "SeaGreen"))))
-    (dired-face-flagged ((t (:background "LightSlateGray"))))
-    (dired-face-header ((t (:background "grey75" :foreground "black"))))
-    (dired-face-marked ((t (:background "PaleVioletRed"))))
-    (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
-    (dired-face-setuid ((t (:foreground "Red"))))
-    (dired-face-socket ((t (:foreground "magenta"))))
-    (dired-face-symlink ((t (:foreground "cyan"))))
-    (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange"))))
-    (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue"))))
-    (display-time-time-balloon-face ((t (:bold t :foreground "red"))))
-    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-    (erc-action-face ((t (:bold t))))
-    (erc-bold-face ((t (:bold t))))
-    (erc-default-face ((t (nil))))
-    (erc-direct-msg-face ((t (nil))))
-    (erc-error-face ((t (:bold t))))
-    (erc-input-face ((t (nil))))
-    (erc-inverse-face ((t (nil))))
-    (erc-notice-face ((t (nil))))
-    (erc-pal-face ((t (nil))))
-    (erc-prompt-face ((t (nil))))
-    (erc-underline-face ((t (nil))))
-    (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
-    (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-    (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
-    (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
-    (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
-    (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
-    (eshell-ls-picture-face ((t (:foreground "Violet"))))
-    (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-    (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-    (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
-    (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
-    (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
-    (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine"))))
-    (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-    (eshell-prompt-face ((t (:bold t :foreground "Red"))))
-    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
-    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
-    (excerpt ((t (:italic t))))
-    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
-    (fg:black ((t (:foreground "black"))))
-    (fixed ((t (:bold t))))
-    (fl-comment-face ((t (:foreground "medium purple"))))
-    (fl-doc-string-face ((t (nil))))
-    (fl-function-name-face ((t (:foreground "green"))))
-    (fl-keyword-face ((t (:foreground "LightGreen"))))
-    (fl-string-face ((t (:foreground "light coral"))))
-    (fl-type-face ((t (:foreground "cyan"))))
-    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
-    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
-    (font-latex-bold-face ((t (:bold t))))
-    (font-latex-italic-face ((t (:italic t))))
-    (font-latex-math-face ((t (nil))))
-    (font-latex-sedate-face ((t (nil))))
-    (font-latex-string-face ((t (nil))))
-    (font-latex-warning-face ((t (nil))))
-    (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid"))))
-    (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
-    (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue"))))
-    (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4"))))
-    (font-lock-emphasized-face ((t (:bold t))))
-    (font-lock-exit-face ((t (:foreground "green"))))
-    (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
-    (font-lock-keyword-face ((t (:bold t :foreground "dark olive green"))))
-    (font-lock-other-emphasized-face ((t (:italic t :bold t))))
-    (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue"))))
-    (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3"))))
-    (font-lock-reference-face ((t (:italic t :bold t :foreground "red3"))))
-    (font-lock-special-comment-face ((t (nil))))
-    (font-lock-special-keyword-face ((t (nil))))
-    (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue"))))
-    (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen"))))
-    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen"))))
-    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-    (fringe ((t (:background "grey95"))))
-    (gdb-arrow-face ((t (:bold t))))
-    (gnus-cite-attribution-face ((t (:italic t :bold t))))
-    (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue"))))
-    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-    (gnus-cite-face-2 ((t (:bold t :foreground "firebrick"))))
-    (gnus-cite-face-3 ((t (:bold t :foreground "dark green"))))
-    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-    (gnus-cite-face-6 ((t (:bold t :foreground "dark violet"))))
-    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-    (gnus-cite-face-8 ((t (:foreground "magenta"))))
-    (gnus-cite-face-9 ((t (:foreground "violet"))))
-    (gnus-cite-face-list ((t (nil))))
-    (gnus-emphasis-bold ((t (:bold t))))
-    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
-    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-    (gnus-emphasis-italic ((t (:italic t))))
-    (gnus-emphasis-underline ((t (:underline t))))
-    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
-    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
-    (gnus-filterhist-face-1 ((t (nil))))
-    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
-    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
-    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
-    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
-    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
-    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
-    (gnus-group-news-3-empty-face ((t (nil))))
-    (gnus-group-news-3-face ((t (:bold t))))
-    (gnus-group-news-4-empty-face ((t (nil))))
-    (gnus-group-news-4-face ((t (:bold t))))
-    (gnus-group-news-5-empty-face ((t (nil))))
-    (gnus-group-news-5-face ((t (:bold t))))
-    (gnus-group-news-6-empty-face ((t (nil))))
-    (gnus-group-news-6-face ((t (:bold t))))
-    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
-    (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
-    (gnus-header-from-face ((t (:bold t :foreground "red3"))))
-    (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
-    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
-    (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
-    (gnus-picons-face ((t (:background "white" :foreground "black"))))
-    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
-    (gnus-signature-face ((t (:italic t :bold t))))
-    (gnus-splash ((t (nil))))
-    (gnus-splash-face ((t (:foreground "Brown"))))
-    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
-    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
-    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
-    (gnus-summary-high-unread-face ((t (:italic t :bold t))))
-    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
-    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
-    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
-    (gnus-summary-low-unread-face ((t (:italic t))))
-    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
-    (gnus-summary-normal-unread-face ((t (:bold t))))
-    (gnus-summary-selected-face ((t (:underline t))))
-    (gnus-x-face ((t (:background "white" :foreground "black"))))
-    (green ((t (:bold t :foreground "green"))))
-    (gui-button-face ((t (:bold t :background "grey75" :foreground "black"))))
-    (gui-element ((t (:bold t :background "Gray80"))))
-    (highlight ((t (:bold t :background "darkseagreen2"))))
-    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
-    (highlight-changes-face ((t (:foreground "red"))))
-    (highline-face ((t (:background "black" :foreground "white"))))
-    (holiday-face ((t (:bold t :background "pink" :foreground "white"))))
-    (hproperty:but-face ((t (:bold t))))
-    (hproperty:flash-face ((t (:bold t))))
-    (hproperty:highlight-face ((t (:bold t))))
-    (hproperty:item-face ((t (:bold t))))
-    (html-helper-bold-face ((t (:bold t))))
-    (html-helper-bold-italic-face ((t (nil))))
-    (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
-    (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow"))))
-    (html-helper-underline-face ((t (:underline t))))
-    (html-tag-face ((t (:bold t))))
-    (hyper-apropos-documentation ((t (:foreground "white"))))
-    (hyper-apropos-heading ((t (:bold t))))
-    (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
-    (hyper-apropos-major-heading ((t (:bold t))))
-    (hyper-apropos-section-heading ((t (:bold t))))
-    (hyper-apropos-warning ((t (:bold t :foreground "red"))))
-    (ibuffer-marked-face ((t (:foreground "red"))))
-    (info-menu-5 ((t (:underline t :bold t))))
-    (info-menu-6 ((t (nil))))
-    (info-node ((t (:italic t :bold t))))
-    (info-xref ((t (:bold t))))
-    (isearch ((t (:bold t :background "paleturquoise"))))
-    (isearch-secondary ((t (:foreground "red3"))))
-    (ispell-face ((t (:bold t))))
-    (italic ((t (:italic t :bold t))))
-    (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-    (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
-    (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
-    (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
-    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
-    (left-margin ((t (:bold t))))
-    (linemenu-face ((t (nil))))
-    (list-mode-item-selected ((t (:bold t :background "gray68"))))
-    (magenta ((t (:foreground "magenta"))))
-    (makefile-space-face ((t (:background "hotpink"))))
-    (man-bold ((t (:bold t))))
-    (man-heading ((t (:bold t))))
-    (man-italic ((t (:foreground "yellow"))))
-    (man-xref ((t (:underline t))))
-    (message-cited-text ((t (:bold t :foreground "orange"))))
-    (message-cited-text-face ((t (:bold t :foreground "red"))))
-    (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
-    (message-header-contents ((t (:italic t :bold t :foreground "white"))))
-    (message-header-name-face ((t (:bold t :foreground "cornflower blue"))))
-    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
-    (message-header-other-face ((t (:bold t :foreground "steel blue"))))
-    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
-    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
-    (message-header-xheader-face ((t (:bold t :foreground "blue"))))
-    (message-headers ((t (:bold t :foreground "orange"))))
-    (message-highlighted-header-contents ((t (:bold t))))
-    (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
-    (message-separator-face ((t (:foreground "brown"))))
-    (message-url ((t (:bold t :foreground "pink"))))
-    (mmm-face ((t (:background "black" :foreground "green"))))
-    (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193"))))
-    (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4"))))
-    (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick"))))
-    (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4"))))
-    (my-tab-face ((t (nil))))
-    (nil ((t (nil))))
-    (p4-diff-del-face ((t (:bold t))))
-    (paren-blink-off ((t (:foreground "gray80"))))
-    (paren-face ((t (nil))))
-    (paren-face-match ((t (nil))))
-    (paren-face-mismatch ((t (nil))))
-    (paren-face-no-match ((t (nil))))
-    (paren-match ((t (:background "darkseagreen2"))))
-    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
-    (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white"))))
-    (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white"))))
-    (pointer ((t (:bold t))))
-    (primary-selection ((t (:bold t :background "gray65"))))
-    (red ((t (:bold t :foreground "red"))))
-    (region ((t (:bold t :background "gray"))))
-    (right-margin ((t (:bold t))))
-    (searchm-buffer ((t (:bold t))))
-    (searchm-button ((t (:bold t))))
-    (searchm-field ((t (nil))))
-    (searchm-field-label ((t (:bold t))))
-    (searchm-highlight ((t (:bold t))))
-    (secondary-selection ((t (:bold t :background "paleturquoise"))))
-    (semantic-intangible-face ((t (:foreground "gray25"))))
-    (semantic-read-only-face ((t (:background "gray25"))))
-    (senator-momentary-highlight-face ((t (:background "gray70"))))
-    (setnu-line-number-face ((t (:italic t :bold t))))
-    (sgml-comment-face ((t (:foreground "dark green"))))
-    (sgml-doctype-face ((t (:foreground "maroon"))))
-    (sgml-end-tag-face ((t (:foreground "blue2"))))
-    (sgml-entity-face ((t (:foreground "red2"))))
-    (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
-    (sgml-ms-end-face ((t (:foreground "maroon"))))
-    (sgml-ms-start-face ((t (:foreground "maroon"))))
-    (sgml-pi-face ((t (:foreground "maroon"))))
-    (sgml-sgml-face ((t (:foreground "maroon"))))
-    (sgml-short-ref-face ((t (:foreground "goldenrod"))))
-    (sgml-start-tag-face ((t (:foreground "blue2"))))
-    (shell-input-face ((t (:bold t))))
-    (shell-option-face ((t (:bold t :foreground "blue4"))))
-    (shell-output-2-face ((t (:bold t :foreground "green4"))))
-    (shell-output-3-face ((t (:bold t :foreground "green4"))))
-    (shell-output-face ((t (:bold t))))
-    (shell-prompt-face ((t (:bold t :foreground "red4"))))
-    (show-paren-match-face ((t (:bold t :background "turquoise"))))
-    (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
-    (speedbar-button-face ((t (:bold t :foreground "magenta"))))
-    (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
-    (speedbar-file-face ((t (:bold t :foreground "pink"))))
-    (speedbar-highlight-face ((t (:background "black"))))
-    (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
-    (speedbar-tag-face ((t (:foreground "yellow"))))
-    (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
-    (template-message-face ((t (:bold t))))
-    (term-black ((t (:foreground "black"))))
-    (term-blackbg ((t (:background "black"))))
-    (term-blue ((t (:foreground "blue"))))
-    (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
-    (term-blue-face ((t (:foreground "blue"))))
-    (term-blue-inv-face ((t (:background "blue"))))
-    (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
-    (term-bluebg ((t (:background "blue"))))
-    (term-bold ((t (:bold t))))
-    (term-cyan ((t (:foreground "cyan"))))
-    (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
-    (term-cyan-face ((t (:foreground "cyan"))))
-    (term-cyan-inv-face ((t (:background "cyan"))))
-    (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
-    (term-cyanbg ((t (:background "cyan"))))
-    (term-default-bg ((t (nil))))
-    (term-default-bg-inv ((t (nil))))
-    (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
-    (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
-    (term-default-fg ((t (nil))))
-    (term-default-fg-inv ((t (nil))))
-    (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
-    (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
-    (term-green ((t (:foreground "green"))))
-    (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
-    (term-green-face ((t (:foreground "green"))))
-    (term-green-inv-face ((t (:background "green"))))
-    (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
-    (term-greenbg ((t (:background "green"))))
-    (term-invisible ((t (nil))))
-    (term-invisible-inv ((t (nil))))
-    (term-magenta ((t (:foreground "magenta"))))
-    (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
-    (term-magenta-face ((t (:foreground "magenta"))))
-    (term-magenta-inv-face ((t (:background "magenta"))))
-    (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
-    (term-magentabg ((t (:background "magenta"))))
-    (term-red ((t (:foreground "red"))))
-    (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
-    (term-red-face ((t (:foreground "red"))))
-    (term-red-inv-face ((t (:background "red"))))
-    (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
-    (term-redbg ((t (:background "red"))))
-    (term-underline ((t (:underline t))))
-    (term-white ((t (:foreground "white"))))
-    (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
-    (term-white-face ((t (:foreground "white"))))
-    (term-white-inv-face ((t (:background "snow2"))))
-    (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
-    (term-whitebg ((t (:background "white"))))
-    (term-yellow ((t (:foreground "yellow"))))
-    (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
-    (term-yellow-face ((t (:foreground "yellow"))))
-    (term-yellow-inv-face ((t (:background "yellow"))))
-    (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
-    (term-yellowbg ((t (:background "yellow"))))
-    (text-cursor ((t (:bold t :background "Red3" :foreground "gray80"))))
-    (toolbar ((t (:bold t :background "Gray80"))))
-    (underline ((t (:underline t :bold t))))
-    (vc-annotate-face-0046FF ((t (nil))))
-    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
-    (vertical-divider ((t (:bold t :background "Gray80"))))
-    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-    (vhdl-font-lock-generic-/constant-face ((t (nil))))
-    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
-    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
-    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-    (vhdl-font-lock-type-face ((t (nil))))
-    (vhdl-font-lock-variable-face ((t (nil))))
-    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
-    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
-    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
-    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
-    (vhdl-speedbar-subprogram-face ((t (nil))))
-    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-    (vm-xface ((t (:background "white" :foreground "black"))))
-    (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
-    (vmpc-sig-face ((t (:foreground "steelblue"))))
-    (vvb-face ((t (nil))))
-    (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
-    (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
-    (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
-    (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
-    (white ((t (:foreground "white"))))
-    (widget ((t (nil))))
-    (widget-button-face ((t (:bold t))))
-    (widget-button-pressed-face ((t (:bold t :foreground "red"))))
-    (widget-documentation-face ((t (:bold t :foreground "dark green"))))
-    (widget-field-face ((t (:bold t :background "gray85"))))
-    (widget-inactive-face ((t (:bold t :foreground "dim gray"))))
-    (widget-single-line-field-face ((t (:background "gray85"))))
-    (woman-bold-face ((t (:bold t))))
-    (woman-italic-face ((t (:foreground "beige"))))
-    (woman-unknown-face ((t (:foreground "LightSalmon"))))
-    (x-face ((t (:bold t :background "white" :foreground "black"))))
-    (x-symbol-adobe-fontspecific-face ((t (nil))))
-    (x-symbol-face ((t (nil))))
-    (x-symbol-heading-face ((t (:bold t))))
-    (x-symbol-info-face ((t (nil))))
-    (x-symbol-invisible-face ((t (nil))))
-    (x-symbol-revealed-face ((t (nil))))
-    (xrdb-option-name-face ((t (:foreground "red"))))
-    (xref-keyword-face ((t (:foreground "blue"))))
-    (xref-list-default-face ((t (nil))))
-    (xref-list-pilot-face ((t (:foreground "navy"))))
-    (xref-list-symbol-face ((t (:foreground "navy"))))
-    (yellow ((t (:bold t :foreground "yellow"))))
-    (zmacs-region ((t (:bold t :background "gray65")))))))
-
-(defun color-theme-mistyday ()
-  "Color theme by K.C. Hari Kumar, created 2001-06-13.
-Black on mistyrose.  Includes CUA, calendar, diary, font-latex and
-font-lock.  Uses backgrounds on some font-lock faces."
-  (interactive)
-  (color-theme-install
-   '(color-theme-mistyday
-     ((background-color . "mistyrose")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "deep pink")
-      (foreground-color . "Black")
-      (mouse-color . "black"))
-     ((goto-address-mail-face . italic)
-      (goto-address-mail-mouse-face . secondary-selection)
-      (goto-address-url-face . bold)
-      (goto-address-url-mouse-face . highlight)
-      (list-matching-lines-face . bold)
-      (paren-match-face . paren-face-match)
-      (paren-mismatch-face . paren-face-mismatch)
-      (paren-no-match-face . paren-face-no-match))
-    (default ((t (nil))))
-    (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
-    (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
-    (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
-    (bold ((t (:bold t))))
-    (bold-italic ((t (:italic t :bold t))))
-    (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown"))))
-    (custom-button-face ((t (:background "dark slate grey" :foreground "azure"))))
-    (custom-documentation-face ((t (:background "white" :foreground "blue"))))
-    (diary-face ((t (:background "navy" :foreground "yellow"))))
-    (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen"))))
-    (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen"))))
-    (font-latex-math-face ((t (:foreground "navy"))))
-    (font-latex-sedate-face ((t (:foreground "DimGray"))))
-    (font-latex-string-face ((t (nil))))
-    (font-latex-warning-face ((t (nil))))
-    (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
-    (font-lock-comment-face ((t (:italic t :foreground "royal blue"))))
-    (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue"))))
-    (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
-    (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue"))))
-    (font-lock-keyword-face ((t (:foreground "dark magenta"))))
-    (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue"))))
-    (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
-    (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
-    (font-lock-type-face ((t (:background "steel blue" :foreground "khaki"))))
-    (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red"))))
-    (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red"))))
-    (highlight ((t (:background "dark slate grey" :foreground "light cyan"))))
-    (holiday-face ((t (:background "orangered" :foreground "lightyellow"))))
-    (ido-first-match-face ((t (:bold t))))
-    (ido-only-match-face ((t (:foreground "ForestGreen"))))
-    (ido-subdir-face ((t (:foreground "red"))))
-    (italic ((t (:italic t))))
-    (isearch ((t (:background "sienna" :foreground "light cyan"))))
-    (modeline ((t (:background "Royalblue4" :foreground "lawn green"))))
-    (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green"))))
-    (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green"))))
-    (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green"))))
-    (paren-face-match ((t (:background "turquoise"))))
-    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
-    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
-    (primary-selection ((t (:background "sienna" :foreground "light cyan"))))
-    (region ((t (:background "sienna" :foreground "light cyan"))))
-    (secondary-selection ((t (:background "forest green" :foreground "white smoke"))))
-    (underline ((t (:underline t))))
-    (zmacs-region ((t (:background "sienna" :foreground "light cyan")))))))
-
-(defun color-theme-marine ()
-  "Color theme by Girish Bharadwaj, created 2001-06-22.
-Matches the MS Windows Marine color theme.
-Includes custom, font-lock, paren, widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-marine
-     ((background-color . "#9dcec9")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "yellow")
-      (foreground-color . "darkslategray")
-      (mouse-color . "sienna1"))
-     ((buffers-tab-face . buffers-tab)
-      (gnus-mouse-face . highlight)
-      (smiley-mouse-face . highlight))
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (nil))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray"))))
-     (custom-button-face ((t (nil))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "darkgreen"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "red"))))
-     (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "cadetblue"))))
-     (font-lock-constant-face ((t (:foreground "OrangeRed"))))
-     (font-lock-doc-string-face ((t (:foreground "Salmon"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "purple"))))
-     (font-lock-preprocessor-face ((t (:foreground "SteelBlue"))))
-     (font-lock-reference-face ((t (:foreground "SteelBlue"))))
-     (font-lock-string-face ((t (:foreground "royalblue"))))
-     (font-lock-type-face ((t (:foreground "darkmagenta"))))
-     (font-lock-variable-name-face ((t (:foreground "violetred"))))
-     (font-lock-warning-face ((t (:bold t :foreground "red"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:background "#489088" :foreground "black"))))
-     (highlight ((t (:background "darkolivegreen" :foreground "white"))))
-     (isearch ((t (:background "blue"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (nil))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
-     (modeline ((t (:background "black" :foreground "white"))))
-     (modeline-buffer-id ((t (:background "black" :foreground "white"))))
-     (modeline-mousable ((t (:background "black" :foreground "white"))))
-     (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
-     (paren-blink-off ((t (:foreground "black"))))
-     (paren-match ((t (:background "darkolivegreen" :foreground "white"))))
-     (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "blue"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "blue"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "darkslateblue" :foreground "white"))))
-     (template-message-face ((t (:bold t))))
-     (text-cursor ((t (:background "yellow" :foreground "#9dcec9"))))
-     (toolbar ((t (nil))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (nil))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "forestgreen"))))
-     (widget-field-face ((t (:background "gray"))))
-     (widget-inactive-face ((t (:foreground "dimgray"))))
-     (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "blue")))))))
-
-(defun color-theme-blue-erc ()
-  "Color theme for erc faces only.
-This is intended for other color themes to use (eg. `color-theme-gnome2')."
-  (color-theme-install
-   '(color-theme-blue-erc
-     nil
-     (erc-action-face ((t (nil))))
-     (erc-bold-face ((t (:bold t))))
-     (erc-current-nick-face ((t (:bold t :foreground "yellow"))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "pale green"))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
-     (erc-highlight-face ((t (:bold t :foreground "pale green"))))
-     (erc-input-face ((t (:foreground "light blue"))))
-     (erc-inverse-face ((t (:background "steel blue"))))
-     (erc-keyword-face ((t (:foreground "orange" :bold t))))
-     (erc-notice-face ((t  (:foreground "light salmon"))))
-     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face  ((t  (:foreground "light blue" :bold t))))
-     (fg:erc-color-face0 ((t (:foreground "white"))))
-     (fg:erc-color-face1 ((t (:foreground "beige"))))
-     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
-     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
-     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
-     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
-     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
-     (fg:erc-color-face7 ((t (:foreground "pale green"))))
-     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
-     (fg:erc-color-face9 ((t (:foreground "khaki"))))
-     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
-     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
-     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
-     (fg:erc-color-face13 ((t (:foreground "yellow"))))
-     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
-     (fg:erc-color-face15 ((t (:foreground "lime green"))))
-     (bg:erc-color-face0 ((t (nil))))
-     (bg:erc-color-face1 ((t (nil))))
-     (bg:erc-color-face2 ((t (nil))))
-     (bg:erc-color-face3 ((t (nil))))
-     (bg:erc-color-face4 ((t (nil))))
-     (bg:erc-color-face5 ((t (nil))))
-     (bg:erc-color-face6 ((t (nil))))
-     (bg:erc-color-face7 ((t (nil))))
-     (bg:erc-color-face8 ((t (nil))))
-     (bg:erc-color-face9 ((t (nil))))
-     (bg:erc-color-face10 ((t (nil))))
-     (bg:erc-color-face11 ((t (nil))))
-     (bg:erc-color-face12 ((t (nil))))
-     (bg:erc-color-face13 ((t (nil))))
-     (bg:erc-color-face14 ((t (nil))))
-     (bg:erc-color-face15 ((t (nil)))))))
-
-(defun color-theme-dark-erc ()
-  "Color theme for erc faces only.
-This is intended for other color themes to use (eg. `color-theme-late-night')."
-  (interactive)
-  (color-theme-install
-   '(color-theme-dark-erc
-     nil
-     (erc-action-face ((t (nil))))
-     (erc-bold-face ((t (:bold t))))
-     (erc-current-nick-face ((t (:bold t))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (nil))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
-     (erc-highlight-face ((t (:bold t :foreground "pale green"))))
-     (erc-input-face ((t (:foreground "#555"))))
-     (erc-inverse-face ((t (:background "steel blue"))))
-     (erc-keyword-face ((t (:foreground "#999" :bold t))))
-     (erc-nick-msg-face ((t (:foreground "#888"))))
-     (erc-notice-face ((t (:foreground "#444"))))
-     (erc-pal-face ((t (:foreground "#888"))))
-     (erc-prompt-face ((t (:foreground "#777" :bold t))))
-     (erc-timestamp-face ((t (:foreground "#777" :bold t))))
-     (fg:erc-color-face0 ((t (:foreground "white"))))
-     (fg:erc-color-face1 ((t (:foreground "beige"))))
-     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
-     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
-     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
-     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
-     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
-     (fg:erc-color-face7 ((t (:foreground "pale green"))))
-     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
-     (fg:erc-color-face9 ((t (:foreground "khaki"))))
-     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
-     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
-     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
-     (fg:erc-color-face13 ((t (:foreground "yellow"))))
-     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
-     (fg:erc-color-face15 ((t (:foreground "lime green"))))
-     (bg:erc-color-face0 ((t (nil))))
-     (bg:erc-color-face1 ((t (nil))))
-     (bg:erc-color-face2 ((t (nil))))
-     (bg:erc-color-face3 ((t (nil))))
-     (bg:erc-color-face4 ((t (nil))))
-     (bg:erc-color-face5 ((t (nil))))
-     (bg:erc-color-face6 ((t (nil))))
-     (bg:erc-color-face7 ((t (nil))))
-     (bg:erc-color-face8 ((t (nil))))
-     (bg:erc-color-face9 ((t (nil))))
-     (bg:erc-color-face10 ((t (nil))))
-     (bg:erc-color-face11 ((t (nil))))
-     (bg:erc-color-face12 ((t (nil))))
-     (bg:erc-color-face13 ((t (nil))))
-     (bg:erc-color-face14 ((t (nil))))
-     (bg:erc-color-face15 ((t (nil)))))))
-
-(defun color-theme-subtle-blue ()
-  "Color theme by Chris McMahan, created 2001-09-06.
-Light blue background.  Includes bbdb, comint, cperl, custom, cvs,
-diary, dired, display-time, ecb, ediff, erc, eshell, font-lock,
-gnus, html-helper, info, isearch, jde, message, paren, semantic,
-sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml."
-  (interactive)
-  (color-theme-install
-   '(color-theme-subtle-blue
-     ((background-color . "#65889C")
-      (background-mode . dark)
-      (background-toolbar-color . "#cf3ccf3ccf3c")
-      (border-color . "black")
-      (bottom-toolbar-shadow-color . "#79e77df779e7")
-      (cursor-color . "white")
-      (foreground-color . "#eedfcc")
-      (mouse-color . "Grey")
-      (top-toolbar-shadow-color . "#fffffbeeffff")
-      (viper-saved-cursor-color-in-replace-mode . "Red3"))
-     ((blank-space-face . blank-space-face)
-      (blank-tab-face . blank-tab-face)
-      (ecb-source-in-directories-buffer-face . ecb-sources-face)
-      (gnus-mouse-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (vm-highlight-url-face . my-url-face)
-      (vm-highlighted-header-face . my-url-face)
-      (vm-mime-button-face . gui-button-face)
-      (vm-summary-highlight-face . my-summary-highlight-face))
-    (default ((t (nil))))
-    (bbdb-company ((t (:italic t))))
-    (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine"))))
-    (bbdb-field-value ((t (nil))))
-    (bbdb-name ((t (:underline t))))
-    (blank-space-face ((t (:background "gray80"))))
-    (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray"))))
-    (blue ((t (:foreground "blue"))))
-    (bold ((t (:bold t :foreground "MediumAquamarine"))))
-    (bold-italic ((t (:italic t :bold t :foreground "SkyBlue"))))
-    (border ((t (:background "black"))))
-    (border-glyph ((t (nil))))
-    (calendar-today-face ((t (:underline t))))
-    (comint-highlight-input ((t (:bold t))))
-    (comint-highlight-prompt ((t (:foreground "cyan"))))
-    (comint-input-face ((t (:foreground "deepskyblue"))))
-    (cperl-array-face ((t (:bold t :foreground "Yellow"))))
-    (cperl-hash-face ((t (:italic t :bold t :foreground "White"))))
-    (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
-    (cursor ((t (:background "white"))))
-    (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine"))))
-    (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
-    (custom-changed-face ((t (:background "blue" :foreground "white"))))
-    (custom-comment-face ((t (:background "dim gray"))))
-    (custom-comment-tag-face ((t (:foreground "gray80"))))
-    (custom-documentation-face ((t (:foreground "Grey"))))
-    (custom-face-tag-face ((t (:underline t))))
-    (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine"))))
-    (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine"))))
-    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-    (custom-modified-face ((t (:background "blue" :foreground "white"))))
-    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-    (custom-saved-face ((t (:underline t))))
-    (custom-set-face ((t (:background "white" :foreground "blue"))))
-    (custom-state-face ((t (:foreground "yellow"))))
-    (custom-variable-button-face ((t (:underline t :bold t))))
-    (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine"))))
-    (cvs-filename-face ((t (:foreground "blue4"))))
-    (cvs-handled-face ((t (:foreground "pink"))))
-    (cvs-header-face ((t (:bold t :foreground "blue4"))))
-    (cvs-marked-face ((t (:bold t :foreground "green3"))))
-    (cvs-msg-face ((t (:italic t))))
-    (cvs-need-action-face ((t (:foreground "orange"))))
-    (cvs-unknown-face ((t (:foreground "red"))))
-    (diary-face ((t (:bold t :foreground "cyan"))))
-    (dired-face-boring ((t (:foreground "Gray65"))))
-    (dired-face-directory ((t (:bold t :foreground "sky blue"))))
-    (dired-face-executable ((t (:foreground "MediumAquaMarine"))))
-    (dired-face-flagged ((t (:foreground "Cyan"))))
-    (dired-face-marked ((t (:foreground "cyan"))))
-    (dired-face-permissions ((t (:foreground "aquamarine"))))
-    (dired-face-setuid ((t (:foreground "LightSalmon"))))
-    (dired-face-socket ((t (:foreground "LightBlue"))))
-    (dired-face-symlink ((t (:foreground "gray95"))))
-    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-    (display-time-time-balloon-face ((t (:foreground "red"))))
-    (ecb-sources-face ((t (:foreground "LightBlue1"))))
-    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-    (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white"))))
-    (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black"))))
-    (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White"))))
-    (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White"))))
-    (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black"))))
-    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-    (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White"))))
-    (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black"))))
-    (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black"))))
-    (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White"))))
-    (erc-action-face ((t (:bold t))))
-    (erc-bold-face ((t (:bold t))))
-    (erc-default-face ((t (nil))))
-    (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
-    (erc-error-face ((t (:bold t :foreground "yellow"))))
-    (erc-input-face ((t (:foreground "Beige"))))
-    (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
-    (erc-notice-face ((t (:foreground "MediumAquamarine"))))
-    (erc-pal-face ((t (:foreground "PaleGreen"))))
-    (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
-    (erc-underline-face ((t (:underline t))))
-    (eshell-ls-archive-face ((t (:bold t :foreground "wheat"))))
-    (eshell-ls-backup-face ((t (:foreground "Grey"))))
-    (eshell-ls-clutter-face ((t (:bold t :foreground "wheat"))))
-    (eshell-ls-directory-face ((t (:bold t :foreground "Yellow"))))
-    (eshell-ls-executable-face ((t (:bold t :foreground "wheat"))))
-    (eshell-ls-missing-face ((t (:bold t :foreground "wheat"))))
-    (eshell-ls-picture-face ((t (:foreground "wheat"))))
-    (eshell-ls-product-face ((t (:foreground "wheat"))))
-    (eshell-ls-readonly-face ((t (:foreground "wheat"))))
-    (eshell-ls-special-face ((t (:bold t :foreground "wheat"))))
-    (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
-    (eshell-ls-text-face ((t (:foreground "wheat"))))
-    (eshell-ls-todo-face ((t (:foreground "wheat"))))
-    (eshell-ls-unreadable-face ((t (:foreground "wheat3"))))
-    (eshell-prompt-face ((t (:bold t :foreground "PaleGreen"))))
-    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
-    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
-    (excerpt ((t (:italic t))))
-    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
-    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
-    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
-    (font-latex-italic-face ((t (nil))))
-    (font-latex-math-face ((t (nil))))
-    (font-latex-sedate-face ((t (:foreground "Gray85"))))
-    (font-latex-string-face ((t (:foreground "orange"))))
-    (font-latex-warning-face ((t (:foreground "gold"))))
-    (font-lock-builtin-face ((t (:foreground "PaleGreen"))))
-    (font-lock-comment-face ((t (:italic t :foreground "Wheat3"))))
-    (font-lock-constant-face ((t (:foreground "LightBlue"))))
-    (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen"))))
-    (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen"))))
-    (font-lock-exit-face ((t (:foreground "green"))))
-    (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan"))))
-    (font-lock-keyword-face ((t (:bold t :foreground "LightBlue"))))
-    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
-    (font-lock-reference-face ((t (:foreground "PaleGreen"))))
-    (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine"))))
-    (font-lock-type-face ((t (:bold t :foreground "LightBlue"))))
-    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue"))))
-    (font-lock-warning-face ((t (:bold t :foreground "LightSalmon"))))
-    (fringe ((t (:background "darkslategrey"))))
-    (gnus-cite-attribution-face ((t (:italic t :bold t))))
-    (gnus-cite-face-1 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-10 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-11 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-2 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-3 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-4 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-5 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-6 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-7 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-8 ((t (:foreground "LightBlue"))))
-    (gnus-cite-face-9 ((t (:foreground "LightBlue"))))
-    (gnus-emphasis-bold ((t (:bold t))))
-    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
-    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-    (gnus-emphasis-italic ((t (:italic t))))
-    (gnus-emphasis-underline ((t (:underline t))))
-    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
-    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
-    (gnus-filterhist-face-1 ((t (nil))))
-    (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
-    (gnus-group-mail-2-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
-    (gnus-group-mail-3-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
-    (gnus-group-mail-low-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue"))))
-    (gnus-group-news-1-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
-    (gnus-group-news-2-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine"))))
-    (gnus-group-news-3-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
-    (gnus-group-news-4-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-4-face ((t (:bold t :foreground "Wheat"))))
-    (gnus-group-news-5-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
-    (gnus-group-news-6-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
-    (gnus-group-news-low-empty-face ((t (:foreground "gray80"))))
-    (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
-    (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3"))))
-    (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
-    (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
-    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
-    (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
-    (gnus-picons-face ((t (:background "white" :foreground "black"))))
-    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
-    (gnus-signature-face ((t (:italic t :foreground "LightBlue"))))
-    (gnus-splash ((t (:foreground "Brown"))))
-    (gnus-splash-face ((t (:foreground "LightBlue"))))
-    (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80"))))
-    (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue"))))
-    (gnus-summary-high-read-face ((t (:bold t :foreground "gray80"))))
-    (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
-    (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat"))))
-    (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue"))))
-    (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green"))))
-    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue"))))
-    (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
-    (gnus-summary-normal-ancient-face ((t (:foreground "gray80"))))
-    (gnus-summary-normal-read-face ((t (:foreground "gray80"))))
-    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown"))))
-    (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat"))))
-    (gnus-summary-selected-face ((t (:underline t))))
-    (gnus-x-face ((t (:background "white" :foreground "black"))))
-    (green ((t (:foreground "green"))))
-    (gui-button-face ((t (:background "cyan" :foreground "#65889C"))))
-    (gui-element ((t (:background "Gray"))))
-    (header-line ((t (:background "grey20" :foreground "grey90"))))
-    (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
-    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
-    (highlight-changes-face ((t (:foreground "red"))))
-    (highline-face ((t (:background "SeaGreen"))))
-    (holiday-face ((t (:background "DimGray"))))
-    (html-helper-bold-face ((t (:foreground "DarkRed"))))
-    (html-helper-italic-face ((t (:foreground "DarkBlue"))))
-    (html-helper-underline-face ((t (:underline t :foreground "Black"))))
-    (html-tag-face ((t (:foreground "Blue"))))
-    (info-menu-5 ((t (:underline t))))
-    (info-node ((t (:underline t :italic t :bold t :foreground "light blue"))))
-    (info-xref ((t (:bold t :foreground "light blue"))))
-    (isearch ((t (:background "Aquamarine" :foreground "SteelBlue"))))
-    (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-    (isearch-secondary ((t (:foreground "red3"))))
-    (italic ((t (:italic t))))
-    (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-    (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
-    (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-bold-face ((t (:bold t))))
-    (jde-java-font-lock-code-face ((t (nil))))
-    (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-italic-face ((t (:italic t))))
-    (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue"))))
-    (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-number-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
-    (jde-java-font-lock-pre-face ((t (nil))))
-    (jde-java-font-lock-underline-face ((t (:underline t))))
-    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
-    (left-margin ((t (nil))))
-    (linemenu-face ((t (:background "gray30"))))
-    (list-mode-item-selected ((t (nil))))
-    (makefile-space-face ((t (:background "hotpink"))))
-    (menu ((t (:background "wheat" :foreground "gray30"))))
-    (message-cited-text-face ((t (:foreground "White"))))
-    (message-header-cc-face ((t (:bold t :foreground "light cyan"))))
-    (message-header-name-face ((t (:foreground "LightBlue"))))
-    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
-    (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
-    (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
-    (message-header-to-face ((t (:bold t :foreground "light cyan"))))
-    (message-header-xheader-face ((t (:foreground "LightBlue"))))
-    (message-mml-face ((t (:bold t :foreground "LightBlue"))))
-    (message-separator-face ((t (:foreground "LightBlue"))))
-    (mmm-default-submode-face ((t (:background "#c0c0c5"))))
-    (modeline ((t (:background "#4f657d" :foreground "gray80"))))
-    (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80"))))
-    (modeline-mousable ((t (:background "#4f657d" :foreground "gray80"))))
-    (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80"))))
-    (mouse ((t (:background "Grey"))))
-    (my-summary-highlight-face ((t (:foreground "White"))))
-    (my-url-face ((t (:foreground "PaleTurquoise"))))
-    (nil ((t (nil))))
-    (paren-blink-off ((t (:foreground "gray"))))
-    (paren-face-match ((t (:background "turquoise"))))
-    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
-    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
-    (paren-match ((t (:background "darkseagreen2"))))
-    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
-    (paren-mismatch-face ((t (:bold t))))
-    (paren-no-match-face ((t (:bold t))))
-    (pointer ((t (nil))))
-    (primary-selection ((t (:background "gray65"))))
-    (red ((t (:foreground "red"))))
-    (region ((t (:background "CadetBlue" :foreground "gray80"))))
-    (right-margin ((t (nil))))
-    (scroll-bar ((t (nil))))
-    (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d"))))
-    (semantic-dirty-token-face ((t (:background "gray10"))))
-    (semantic-intangible-face ((t (:foreground "gray25"))))
-    (semantic-read-only-face ((t (:background "gray25"))))
-    (senator-intangible-face ((t (:foreground "gray75"))))
-    (senator-momentary-highlight-face ((t (:background "gray80"))))
-    (senator-read-only-face ((t (:background "#664444"))))
-    (sgml-comment-face ((t (:foreground "dark turquoise"))))
-    (sgml-doctype-face ((t (:foreground "red"))))
-    (sgml-end-tag-face ((t (:foreground "blue"))))
-    (sgml-entity-face ((t (:foreground "magenta"))))
-    (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
-    (sgml-ms-end-face ((t (:foreground "green"))))
-    (sgml-ms-start-face ((t (:foreground "yellow"))))
-    (sgml-pi-face ((t (:foreground "lime green"))))
-    (sgml-sgml-face ((t (:foreground "brown"))))
-    (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
-    (sgml-start-tag-face ((t (:foreground "dark green"))))
-    (shell-option-face ((t (:foreground "blue"))))
-    (shell-output-2-face ((t (:foreground "darkseagreen"))))
-    (shell-output-3-face ((t (:foreground "slategray"))))
-    (shell-output-face ((t (:foreground "palegreen"))))
-    (shell-prompt-face ((t (:foreground "red"))))
-    (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue"))))
-    (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White"))))
-    (speedbar-button-face ((t (:bold t :foreground "LightBlue"))))
-    (speedbar-directory-face ((t (:bold t :foreground "yellow"))))
-    (speedbar-file-face ((t (:bold t :foreground "wheat"))))
-    (speedbar-highlight-face ((t (:background "sea green"))))
-    (speedbar-selected-face ((t (:underline t))))
-    (speedbar-tag-face ((t (:foreground "LightBlue"))))
-    (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
-    (template-message-face ((t (:bold t))))
-    (term-black ((t (:foreground "black"))))
-    (term-blackbg ((t (:background "black"))))
-    (term-blue ((t (:foreground "blue"))))
-    (term-bluebg ((t (:background "blue"))))
-    (term-bold ((t (:bold t))))
-    (term-cyan ((t (:foreground "cyan"))))
-    (term-cyanbg ((t (:background "cyan"))))
-    (term-default-bg ((t (nil))))
-    (term-default-bg-inv ((t (nil))))
-    (term-default-fg ((t (nil))))
-    (term-default-fg-inv ((t (nil))))
-    (term-green ((t (:foreground "green"))))
-    (term-greenbg ((t (:background "green"))))
-    (term-invisible ((t (nil))))
-    (term-invisible-inv ((t (nil))))
-    (term-magenta ((t (:foreground "magenta"))))
-    (term-magentabg ((t (:background "magenta"))))
-    (term-red ((t (:foreground "red"))))
-    (term-redbg ((t (:background "red"))))
-    (term-underline ((t (:underline t))))
-    (term-white ((t (:foreground "white"))))
-    (term-whitebg ((t (:background "white"))))
-    (term-yellow ((t (:foreground "yellow"))))
-    (term-yellowbg ((t (:background "yellow"))))
-    (text-cursor ((t (:background "Red3" :foreground "white"))))
-    (tool-bar ((t (:background "grey75" :foreground "black"))))
-    (toolbar ((t (:background "Gray"))))
-    (trailing-whitespace ((t (:background "red"))))
-    (underline ((t (:underline t))))
-    (variable-pitch ((t (nil))))
-    (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
-    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
-    (vertical-divider ((t (:background "Gray"))))
-    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
-    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
-    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
-    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
-    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
-    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
-    (vhdl-speedbar-package-face ((t (:foreground "Gray50"))))
-    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50"))))
-    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-    (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen"))))
-    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-    (vm-header-content-face ((t (:italic t :foreground "gray80"))))
-    (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan"))))
-    (vm-header-name-face ((t (:foreground "cyan"))))
-    (vm-header-subject-face ((t (:foreground "cyan"))))
-    (vm-header-to-face ((t (:italic t :foreground "cyan"))))
-    (vm-message-cited-face ((t (:foreground "Gray80"))))
-    (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
-    (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
-    (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
-    (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
-    (vm-summary-highlight-face ((t (:foreground "White"))))
-    (vmpc-pre-sig-face ((t (:foreground "Aquamarine"))))
-    (vmpc-sig-face ((t (:foreground "LightBlue"))))
-    (vvb-face ((t (:background "pink" :foreground "black"))))
-    (widget-button-face ((t (:bold t))))
-    (widget-button-pressed-face ((t (:foreground "cyan"))))
-    (widget-documentation-face ((t (:foreground "LightBlue"))))
-    (widget-field-face ((t (:foreground "LightBlue"))))
-    (widget-inactive-face ((t (:foreground "Wheat3"))))
-    (widget-single-line-field-face ((t (:foreground "LightBlue"))))
-    (woman-bold-face ((t (:bold t))))
-    (woman-italic-face ((t (:foreground "beige"))))
-    (woman-unknown-face ((t (:foreground "LightSalmon"))))
-    (xref-keyword-face ((t (:foreground "Cyan"))))
-    (xref-list-pilot-face ((t (:foreground "navy"))))
-    (xref-list-symbol-face ((t (:foreground "navy"))))
-    (xxml-emph-1-face ((t (:background "lightyellow"))))
-    (xxml-emph-2-face ((t (:background "lightyellow"))))
-    (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
-    (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
-    (xxml-header-3-face ((t (:background "seashell1"))))
-    (xxml-header-4-face ((t (:background "seashell1"))))
-    (xxml-interaction-face ((t (:background "lightcyan"))))
-    (xxml-rug-face ((t (:background "cyan"))))
-    (xxml-sparkle-face ((t (:background "yellow"))))
-    (xxml-unbreakable-space-face ((t (:underline t :foreground "grey"))))
-    (yellow ((t (:foreground "yellow"))))
-    (zmacs-region ((t (:background "#4f657d")))))))
-
-(defun color-theme-dark-blue ()
-  "Color theme by Chris McMahan, created 2001-09-09.
-Based on `color-theme-subtle-blue' with a slightly darker background."
-  (interactive)
-  (color-theme-subtle-blue)
-  (let ((color-theme-is-cumulative t))
-    (color-theme-install
-     '(color-theme-dark-blue
-       ((background-color . "#537182")
-	(foreground-color . "AntiqueWhite2"))
-       nil
-       (default ((t (nil))))
-       (blank-space-face ((t (:background "LightGray"))))
-       (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray"))))
-       (cursor ((t (:background "LightGray"))))
-       (dired-face-executable ((t (:foreground "green yellow"))))
-       (dired-face-flagged ((t (:foreground "tomato"))))
-       (dired-face-marked ((t (:foreground "light salmon"))))
-       (dired-face-setuid ((t (:foreground "Red"))))
-       (dired-face-socket ((t (:foreground "magenta"))))
-       (fixed ((t (:bold t))))
-       (font-lock-comment-face ((t (:italic t :foreground "Gray80"))))
-       (font-lock-doc-face ((t (:bold t))))
-       (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow"))))
-       (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen"))))
-       (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
-       (gui-button-face ((t (:background "DarkSalmon" :foreground "white"))))
-       (modeline ((t (:background "#c1ccd9" :foreground "#4f657d"))))
-       (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d"))))
-       (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d"))))
-       (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d"))))
-       (my-url-face ((t (:foreground "LightBlue"))))
-       (region ((t (:background "PaleTurquoise4" :foreground "gray80"))))
-       (secondary-selection ((t (:background "sea green" :foreground "yellow"))))
-       (vm-header-content-face ((t (:italic t :foreground "wheat"))))
-       (vm-header-from-face ((t (:italic t :foreground "wheat"))))
-       (widget-button-pressed-face ((t (:foreground "red"))))
-       (xref-keyword-face ((t (:foreground "blue"))))
-       (zmacs-region ((t (:background "SlateGray"))))))))
-
-(defun color-theme-jonadabian-slate ()
-  "Another slate-and-wheat color theme by Jonadab the Unsightly One.
-Updated 2001-10-12."
-  (interactive)
-  (color-theme-install
-   '(color-theme-jonadabian-slate
-     ((background-color . "#305050")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "medium turquoise")
-      (foreground-color . "#CCBB77")
-      (mouse-color . "black"))
-     ((list-matching-lines-face . bold)
-      (ued-mode-keyname-face . modeline)
-      (view-highlight-face . highlight))
-     (default ((t (nil))))
-     (fringe ((t (:background "#007080"))))
-     (bold ((t (:bold t :foreground "#EEDDAA"))))
-     (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA"))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA"))))
-     (bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
-     (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
-     (calendar-today-face ((t (:underline t :background "darkslategrey"))))
-     (cperl-array-face ((t (:background "#004060"))))
-     (cperl-hash-face ((t (:background "#004400"))))
-     (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00"))))
-     (custom-documentation-face ((t (:foreground "#10D010"))))
-     (custom-face-tag-face ((t (:underline t :foreground "goldenrod"))))
-     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:foreground "#6666dd"))))
-     (custom-state-face ((t (:foreground "mediumaquamarine"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
-     (diary-face ((t (:foreground "red"))))
-     (eshell-ls-archive-face ((t (:foreground "green"))))
-     (eshell-ls-backup-face ((t (:foreground "grey60"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue"))))
-     (eshell-ls-executable-face ((t (:foreground "white"))))
-     (eshell-ls-missing-face ((t (:foreground "red"))))
-     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-readonly-face ((t (:foreground "indian red"))))
-     (eshell-ls-special-face ((t (:foreground "yellow"))))
-     (eshell-ls-symlink-face ((t (:foreground "#6666dd"))))
-     (eshell-ls-unreadable-face ((t (:foreground "red"))))
-     (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99"))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66"))))
-     (font-lock-constant-face ((t (:foreground "indian red"))))
-     (font-lock-function-name-face ((t (:foreground "#D0D000"))))
-     (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
-     (font-lock-string-face ((t (:foreground "#10D010"))))
-     (font-lock-type-face ((t (:bold t :foreground "#ff7788"))))
-     (font-lock-variable-name-face ((t (:foreground "#eeddaa"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
-     (header-line ((t (:box (:line-width 1 :style released-button)))))
-     (highlight ((t (:background "#226644"))))
-     (highlight-changes-delete-face ((t (:background "navy" :foreground "red"))))
-     (highlight-changes-face ((t (:background "navy"))))
-     (holiday-face ((t (:foreground "#ff7744"))))
-     (italic ((t (:italic t :foreground "#AA0000"))))
-     (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000"))))
-     (modeline ((t (:background "#007080" :foreground "cyan"))))
-     (modeline-buffer-id ((t (:background "#007080" :foreground "cyan"))))
-     (modeline-mousable ((t (:background "#007080" :foreground "cyan"))))
-     (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan"))))
-     (region ((t (:background "#226644"))))
-     (secondary-selection ((t (:background "darkslategrey"))))
-     (sgml-comment-face ((t (:foreground "grey60"))))
-     (sgml-doctype-face ((t (:foreground "red"))))
-     (sgml-end-tag-face ((t (:foreground "#00D0D0"))))
-     (sgml-entity-face ((t (:foreground "indian red"))))
-     (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
-     (sgml-ms-end-face ((t (:foreground "green"))))
-     (sgml-ms-start-face ((t (:foreground "green"))))
-     (sgml-pi-face ((t (:foreground "lime green"))))
-     (sgml-sgml-face ((t (:foreground "brown"))))
-     (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
-     (sgml-start-tag-face ((t (:foreground "#D0D000"))))
-     (show-paren-match-face ((t (:background "#400055" :foreground "cyan"))))
-     (show-paren-mismatch-face ((t (:background "red"))))
-     (special-string-face ((t (:foreground "light green"))))
-     (term-black ((t (:background "#000055" :foreground "black"))))
-     (term-blackbg ((t (:background "black" :foreground "#CCBB77"))))
-     (term-blue ((t (:background "#000055" :foreground "blue"))))
-     (term-bluebg ((t (:background "blue" :foreground "#CCBB77"))))
-     (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77"))))
-     (term-cyan ((t (:background "#000055" :foreground "cyan"))))
-     (term-cyanbg ((t (:background "darkcyan"))))
-     (term-default-bg ((t (:foreground "#CCBB77"))))
-     (term-default-bg-inv ((t (:foreground "#CCBB77"))))
-     (term-default-fg ((t (:background "#000055"))))
-     (term-default-fg-inv ((t (:background "#000055"))))
-     (term-green ((t (:background "#000055" :foreground "green"))))
-     (term-greenbg ((t (:background "darkgreen"))))
-     (term-invisible ((t (:foreground "#CCBB77"))))
-     (term-invisible-inv ((t (:foreground "#CCBB77"))))
-     (term-magenta ((t (:background "#000055" :foreground "magenta"))))
-     (term-magentabg ((t (:background "darkmagenta"))))
-     (term-red ((t (:background "#000055" :foreground "red"))))
-     (term-redbg ((t (:background "darkred"))))
-     (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77"))))
-     (term-white ((t (:background "#000055" :foreground "white"))))
-     (term-whitebg ((t (:background "grey50"))))
-     (term-yellow ((t (:background "#000055" :foreground "yellow"))))
-     (term-yellowbg ((t (:background "#997700"))))
-     (trailing-whitespace ((t (:background "#23415A"))))
-     (underline ((t (:underline t))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "green"))))
-     (widget-field-face ((t (:background "grey35" :foreground "black"))))
-     (widget-inactive-face ((t (:foreground "gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray")))))))
-
-(defun color-theme-gray1 ()
-  "Color theme by Paul Pulli, created 2001-10-19."
-  (interactive)
-  (color-theme-install
-   '(color-theme-gray1
-     ((background-color . "darkgray")
-      (background-mode . light)
-      (background-toolbar-color . "#949494949494")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#595959595959")
-      (cursor-color . "Yellow")
-      (foreground-color . "black")
-      (top-toolbar-shadow-color . "#b2b2b2b2b2b2"))
-     nil
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:italic t :bold t))))
-     (border-glyph ((t (nil))))
-     (cperl-here-face ((t (:background "gray68" :foreground "DeepPink"))))
-     (font-lock-builtin-face ((t (:bold t :foreground "red3"))))
-     (font-lock-comment-face ((t (:foreground "gray50"))))
-     (font-lock-constant-face ((t (:bold t :foreground "blue3"))))
-     (font-lock-doc-string-face ((t (:foreground "black"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "red"))))
-     (font-lock-other-type-face ((t (:bold t :foreground "green4"))))
-     (font-lock-preprocessor-face ((t (:bold t :foreground "blue3"))))
-     (font-lock-reference-face ((t (:bold t :foreground "red3"))))
-     (font-lock-string-face ((t (:foreground "red"))))
-     (font-lock-type-face ((t (:bold t :foreground "white"))))
-     (font-lock-variable-name-face ((t (:bold t :foreground "blue3"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-     (green ((t (:foreground "green4"))))
-     (gui-button-face ((t (:background "black" :foreground "red"))))
-     (gui-element ((t (:background "gray58"))))
-     (highlight ((t (:background "magenta" :foreground "yellow"))))
-     (isearch ((t (:background "red" :foreground "yellow"))))
-     (italic ((t (:italic t))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray90" :foreground "purple"))))
-     (m4-face ((t (:background "gray90" :foreground "orange3"))))
-     (message-cited-text ((t (nil))))
-     (message-header-contents ((t (nil))))
-     (message-headers ((t (nil))))
-     (message-highlighted-header-contents ((t (nil))))
-     (modeline ((t (:background "#aa80aa" :foreground "White"))))
-     (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen"))))
-     (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan"))))
-     (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow"))))
-     (paren-blink-off ((t (:foreground "gray58"))))
-     (paren-blink-on ((t (:foreground "purple"))))
-     (paren-match ((t (:background "gray68" :foreground "white"))))
-     (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray"))))
-     (red ((t (:foreground "red"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (text-cursor ((t (:background "Yellow" :foreground "darkgray"))))
-     (toolbar ((t (:background "#aa80aa" :foreground "linen"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (nil))))
-     (x-face ((t (:background "black" :foreground "lavenderblush"))))
-     (yellow ((t (:foreground "yellow3"))))
-     (zmacs-region ((t (:background "paleturquoise" :foreground "black")))))))
-
-(defun color-theme-word-perfect ()
-  "White on blue background, based on WordPerfect 5.1.
-Color theme by Thomas Gehrlein, created 2001-10-21."
-  (interactive)
-  (color-theme-install
-   '(color-theme-word-perfect
-     ((background-color . "blue4")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "gold")
-      (foreground-color . "white")
-      (mouse-color . "black"))
-     ((ecb-source-in-directories-buffer-face . ecb-sources-face)
-      (gnus-mouse-face . highlight)
-      (goto-address-mail-face . italic)
-      (goto-address-mail-mouse-face . secondary-selection)
-      (goto-address-url-face . bold)
-      (goto-address-url-mouse-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight))
-     (default ((t (nil))))
-     (bbdb-field-name ((t (:foreground "lime green"))))
-     (bbdb-field-value ((t (:foreground "white"))))
-     (bbdb-name ((t (:underline t :foreground "lime green"))))
-     (bold ((t (:bold t :foreground "white"))))
-     (bold-italic ((t (:italic t :bold t :foreground "yellow"))))
-     (calendar-today-face ((t (:underline t :foreground "deep sky blue"))))
-     (diary-face ((t (:foreground "gold"))))
-     (ecb-sources-face ((t (:foreground "LightBlue1"))))
-     (edb-inter-field-face ((t (:foreground "deep sky blue"))))
-     (edb-normal-summary-face ((t (:foreground "gold"))))
-     (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral"))))
-     (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan"))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "deep sky blue"))))
-     (font-lock-constant-face ((t (:foreground "lime green"))))
-     (font-lock-doc-face ((t (:foreground "gold"))))
-     (font-lock-doc-string-face ((t (:foreground "gold"))))
-     (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed"))))
-     (font-lock-keyword-face ((t (:foreground "lime green"))))
-     (font-lock-preprocessor-face ((t (:foreground "lime green"))))
-     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-string-face ((t (:foreground "gold"))))
-     (font-lock-type-face ((t (:foreground "lime green"))))
-     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "firebrick"))))
-     (gnus-emphasis-bold ((t (:foreground "yellow2"))))
-     (gnus-emphasis-bold-italic ((t (:foreground "yellow2"))))
-     (gnus-emphasis-italic ((t (:foreground "yellow2"))))
-     (gnus-emphasis-underline ((t (:foreground "yellow2"))))
-     (gnus-emphasis-underline-bold ((t (:foreground "yellow2"))))
-     (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2"))))
-     (gnus-emphasis-underline-italic ((t (:foreground "yellow2"))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
-     (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue"))))
-     (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue"))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
-     (gnus-header-content-face ((t (:foreground "gold"))))
-     (gnus-header-from-face ((t (:foreground "gold"))))
-     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
-     (gnus-header-newsgroups-face ((t (:foreground "gold"))))
-     (gnus-header-subject-face ((t (:foreground "gold"))))
-     (gnus-signature-face ((t (:foreground "gold"))))
-     (gnus-splash-face ((t (:foreground "firebrick"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue"))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue"))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue"))))
-     (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green"))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue"))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue"))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue"))))
-     (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green"))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "deep sky blue"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue"))))
-     (gnus-summary-normal-unread-face ((t (:foreground "lime green"))))
-     (gnus-summary-selected-face ((t (:underline t :foreground "gold"))))
-     (highlight ((t (:background "steel blue" :foreground "black"))))
-     (holiday-face ((t (:background "blue4" :foreground "IndianRed1"))))
-     (info-menu-5 ((t (:underline t :foreground "gold"))))
-     (info-node ((t (:italic t :bold t :foreground "gold"))))
-     (info-xref ((t (:bold t :foreground "gold"))))
-     (isearch ((t (:background "firebrick" :foreground "white"))))
-     (italic ((t (:italic t :foreground "yellow2"))))
-     (message-cited-text-face ((t (:foreground "gold"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4"))))
-     (message-header-name-face ((t (:foreground "deep sky blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
-     (message-header-other-face ((t (:foreground "gold"))))
-     (message-header-subject-face ((t (:foreground "gold"))))
-     (message-header-to-face ((t (:bold t :foreground "gold"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-separator-face ((t (:foreground "lime green"))))
-     (modeline ((t (:foreground "white" :background "black"))))
-     (modeline-buffer-id ((t (:foreground "white" :background "black"))))
-     (modeline-mousable ((t (:foreground "white" :background "black"))))
-     (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
-     (overlay-empty-face ((t (nil))))
-     (primary-selection ((t (:background "firebrick" :foreground "white"))))
-     (region ((t (:background "firebrick" :foreground "white"))))
-     (secondary-selection ((t (:background "yellow2" :foreground "black"))))
-     (semantic-dirty-token-face ((t (:background "gray10"))))
-     (show-paren-match-face ((t (:background "deep sky blue" :foreground "black"))))
-     (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white"))))
-     (underline ((t (:underline t :background "blue4" :foreground "white")))))))
-
-;; In order to produce this, follow these steps:
-;;
-;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related
-;;    entries.
-;;
-;; 1. cd into the Emacs lisp directory and run the following command:
-;;    ( for d in `find -type d`; \
-;;      do grep --files-with-matches 'defface[		]' $d/*.el; \
-;;      done ) | sort | uniq
-;;    Put the result in a lisp block, using load-library calls.
-;;
-;;    Repeat this for any directories on your load path which you want to
-;;    include in the standard.  This might include W3, eshell, etc.
-;;
-;;    Add some of the libraries that don't use defface:
-;;
-;; 2. Start emacs using the --no-init-file and --no-site-file command line
-;;    arguments.  Evaluate the lisp block you prepared.
-;; 3. Load color-theme and run color-theme-print.  Save the output and use it
-;;    to define color-theme-standard.
-;;
-;; (progn
-;; (load-library "add-log")
-;; (load-library "calendar")
-;; (load-library "comint")
-;; (load-library "cus-edit")
-;; (load-library "cus-face")
-;; (load-library "custom")
-;; (load-library "diff-mode")
-;; (load-library "ediff-init")
-;; (load-library "re-builder")
-;; (load-library "viper-init")
-;; (load-library "enriched")
-;; (load-library "em-ls")
-;; (load-library "em-prompt")
-;; (load-library "esh-test")
-;; (load-library "faces")
-;; (load-library "font-lock")
-;; (load-library "generic-x")
-;; (load-library "gnus-art")
-;; (load-library "gnus-cite")
-;; (load-library "gnus")
-;; (load-library "message")
-;; (load-library "hilit-chg")
-;; (load-library "hi-lock")
-;; (load-library "info")
-;; (load-library "isearch")
-;; (load-library "log-view")
-;; (load-library "paren")
-;; (load-library "pcvs-info")
-;; (load-library "antlr-mode")
-;; (load-library "cperl-mode")
-;; (load-library "ebrowse")
-;; (load-library "idlwave")
-;; (load-library "idlw-shell")
-;; (load-library "make-mode")
-;; (load-library "sh-script")
-;; (load-library "vhdl-mode")
-;; (load-library "smerge-mode")
-;; (load-library "speedbar")
-;; (load-library "strokes")
-;; (load-library "artist")
-;; (load-library "flyspell")
-;; (load-library "texinfo")
-;; (load-library "tex-mode")
-;; (load-library "tooltip")
-;; (load-library "vcursor")
-;; (load-library "wid-edit")
-;; (load-library "woman")
-;; (load-library "term")
-;; (load-library "man")
-;; (load-file "/home/alex/elisp/color-theme.el")
-;; (color-theme-print))
-;;
-;; 4. Make the color theme usable on Xemacs (add more faces, resolve
-;;    :inherit attributes)
-;;
-(defun color-theme-emacs-21 ()
-  "Color theme used by Emacs 21.1.
-Added and adapted for XEmacs by Alex Schroeder.  Adaptation mostly
-consisted of resolving :inherit attributes and adding missing faces.
-This theme includes faces from the following Emacs libraries: add-log
-calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder
-viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x
-gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view
-paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell
-make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist
-flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man"
-  (interactive)
-  (color-theme-install
-   '(color-theme-emacs-21
-     ((background-color . "white")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "black")
-      (mouse-color . "black"))
-     ((Man-overstrike-face . bold)
-      (Man-underline-face . underline)
-      (cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face . underline)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (idlwave-class-arrow-face . bold)
-      (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
-      (idlwave-shell-expression-face . secondary-selection)
-      (idlwave-shell-stop-line-face . highlight)
-      (ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (viper-insert-state-cursor-color . "Green")
-      (viper-replace-overlay-cursor-color . "Red")
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
-     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
-     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
-     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (calendar-today-face ((t (:underline t))))
-     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
-     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-date-face ((t (:foreground "RosyBrown"))))
-     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-file-face ((t (:foreground "Blue"))))
-     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-list-face ((t (:foreground "Purple"))))
-     (change-log-name-face ((t (:foreground "CadetBlue"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
-     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
-     (cvs-filename-face ((t (:foreground "blue4"))))
-     (cvs-handled-face ((t (:foreground "pink"))))
-     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
-     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
-     (cvs-msg-face ((t (:italic t :slant italic))))
-     (cvs-need-action-face ((t (:foreground "orange"))))
-     (cvs-unknown-face ((t (:foreground "red"))))
-     (diary-face ((t (:foreground "red"))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey50"))))
-     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-function-face ((t (:foreground "grey50"))))
-     (diff-header-face ((t (:background "grey85"))))
-     (diff-hunk-header-face ((t (:background "grey85"))))
-     (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
-     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (:foreground "RosyBrown"))))
-     (dired-face-directory ((t (:foreground "Blue"))))
-     (dired-face-executable ((t (nil))))
-     (dired-face-flagged ((t (:foreground "Red" :weight bold))))
-     (dired-face-marked ((t (:foreground "Red" :weight bold))))
-     (dired-face-permissions ((t (nil))))
-     (dired-face-setuid ((t (nil))))
-     (dired-face-socket ((t (nil))))
-     (dired-face-symlink ((t (:foreground "Purple"))))
-     (ebrowse-default-face ((t (nil))))
-     (ebrowse-file-name-face ((t (:italic t :slant italic))))
-     (ebrowse-member-attribute-face ((t (:foreground "red"))))
-     (ebrowse-member-class-face ((t (:foreground "purple"))))
-     (ebrowse-progress-face ((t (:background "blue"))))
-     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
-     (ebrowse-tree-mark-face ((t (:foreground "red"))))
-     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
-     (excerpt ((t (:italic t :slant italic))))
-     (fixed ((t (:bold t :weight bold))))
-     (fixed-pitch ((t (:family "courier"))))
-     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
-     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "Orchid"))))
-     (font-lock-comment-face ((t (:foreground "Firebrick"))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
-     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-function-name-face ((t (:foreground "Blue"))))
-     (font-lock-keyword-face ((t (:foreground "Purple"))))
-     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
-     (font-lock-reference-face ((t (:foreground "Orchid"))))
-     (font-lock-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-type-face ((t (:foreground "ForestGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (fringe ((t (:background "grey95"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
-     (gnus-header-from-face ((t (:foreground "red3"))))
-     (gnus-header-name-face ((t (:foreground "maroon"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
-     (gnus-header-subject-face ((t (:foreground "red4"))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
-     (hi-black-b ((t (:bold t :weight bold))))
-     (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
-     (hi-blue ((t (:background "light blue"))))
-     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
-     (hi-green ((t (:background "green"))))
-     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
-     (hi-pink ((t (:background "pink"))))
-     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
-     (hi-yellow ((t (:background "yellow"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
-     (highlight-changes-face ((t (:foreground "red"))))
-     (holiday-face ((t (:background "pink"))))
-     (idlwave-help-link-face ((t (:foreground "Blue"))))
-     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
-     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
-     (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
-     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
-     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
-     (log-view-message-face ((t (:background "grey85"))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "lightgoldenrod2"))))
-     (reb-match-0 ((t (:background "lightblue"))))
-     (reb-match-1 ((t (:background "aquamarine"))))
-     (reb-match-2 ((t (:background "springgreen"))))
-     (reb-match-3 ((t (:background "yellow"))))
-     (region ((t (:background "lightgoldenrod2"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "yellow"))))
-     (sh-heredoc-face ((t (:foreground "tan"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (show-tabs-space-face ((t (:foreground "yellow"))))
-     (show-tabs-tab-face ((t (:foreground "red"))))
-     (smerge-base-face ((t (:foreground "red"))))
-     (smerge-markers-face ((t (:background "grey85"))))
-     (smerge-mine-face ((t (:foreground "blue"))))
-     (smerge-other-face ((t (:foreground "darkgreen"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (strokes-char-face ((t (:background "lightgray"))))
-     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
-     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (tex-math-face ((t (:foreground "RosyBrown"))))
-     (texinfo-heading-face ((t (:foreground "Blue"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
-     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
-     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
-     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
-     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
-     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
-     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
-     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
-     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (woman-addition-face ((t (:foreground "orange"))))
-     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
-     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
-     (woman-unknown-face ((t (:foreground "brown"))))
-     (zmacs-region ((t (:background "lightgoldenrod2")))))))
-
-(defun color-theme-jsc-light2 ()
-  "Color theme by John S Cooper, created 2001-10-29.
-This builds on `color-theme-jsc-light'."
-  (interactive)
-  (color-theme-jsc-light)
-  (let ((color-theme-is-cumulative t))
-    (color-theme-install
-     '(color-theme-jsc-light2
-       ((vc-annotate-very-old-color . "#0046FF")
-	(senator-eldoc-use-color . t))
-       nil
-       (bold ((t (:bold t :weight bold))))
-       (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-       (change-log-file-face ((t (:foreground "Blue"))))
-       (change-log-name-face ((t (:foreground "Maroon"))))
-       (comint-highlight-prompt ((t (:foreground "dark blue"))))
-       (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-       (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-       (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-       (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
-       (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
-       (font-lock-constant-face ((t (:foreground "Maroon"))))
-       (font-lock-function-name-face ((t (:foreground "Blue"))))
-       (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic))))
-       (fringe ((t (:background "grey88"))))
-       (gnus-group-mail-1-empty-face ((t (:foreground "Blue2"))))
-       (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-       (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-       (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
-       (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold))))
-       (gnus-header-subject-face ((t (:foreground "red4"))))
-       (gnus-signature-face ((t (:italic t :slant italic))))
-       (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-       (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-       (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-       (gnus-summary-normal-ticked-face ((t (:foreground "Navy"))))
-       (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-       (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
-       (highlight ((t (:background "darkseagreen2"))))
-       (ido-subdir-face ((t (:foreground "red"))))
-       (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-       (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button)))))
-       (region ((t (:background "lightgoldenrod2"))))
-       (scroll-bar ((t (nil))))
-       (secondary-selection ((t (:background "yellow"))))
-       (show-paren-match-face ((t (:background "turquoise"))))
-       (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-       (tooltip ((t (:background "lightyellow" :foreground "black"))))))))
-
-(defun color-theme-ld-dark ()
-  "Dark Color theme by Linh Dang, created 2001-11-06."
-  (interactive)
-  (color-theme-install
-   '(color-theme-ld-dark
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "yellow")
-      (foreground-color . "white")
-      (mouse-color . "white"))
-     ((align-highlight-change-face . highlight)
-      (align-highlight-nochange-face . secondary-selection)
-      (apropos-keybinding-face . underline)
-      (apropos-label-face . italic)
-      (apropos-match-face . secondary-selection)
-      (apropos-property-face . bold-italic)
-      (apropos-symbol-face . bold)
-      (ebnf-except-border-color . "Black")
-      (ebnf-line-color . "Black")
-      (ebnf-non-terminal-border-color . "Black")
-      (ebnf-repeat-border-color . "Black")
-      (ebnf-special-border-color . "Black")
-      (ebnf-terminal-border-color . "Black")
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-carpal-button-face . bold)
-      (gnus-carpal-header-face . bold-italic)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-selected-tree-face . modeline)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (ps-line-number-color . "black")
-      (ps-zebra-color . 0.95)
-      (tags-tag-face . default)
-      (vc-annotate-very-old-color . "#0046FF")
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
-     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-     (bbdb-company ((t (:italic t :slant italic))))
-     (bbdb-field-name ((t (:bold t :weight bold))))
-     (bbdb-field-value ((t (nil))))
-     (bbdb-name ((t (:underline t))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
-     (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
-     (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
-     (change-log-email-face ((t (:foreground "Aquamarine"))))
-     (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
-     (change-log-function-face ((t (:foreground "Aquamarine"))))
-     (change-log-list-face ((t (:foreground "LightSkyBlue"))))
-     (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
-     (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "yellow"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
-     (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey70"))))
-     (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
-     (diff-function-face ((t (:foreground "grey70"))))
-     (diff-header-face ((t (:background "grey45"))))
-     (diff-hunk-header-face ((t (:background "grey45"))))
-     (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
-     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
-     (diff-removed-face ((t (nil))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
-     (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique))))
-     (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold))))
-     (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
-     (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana"))))
-     (font-lock-keyword-face ((t (:foreground "LightSkyBlue"))))
-     (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold))))
-     (font-lock-reference-face ((t (:foreground "SteelBlue"))))
-     (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique))))
-     (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana"))))
-     (font-lock-variable-name-face ((t (:foreground "Aquamarine"))))
-     (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold))))
-     (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "light blue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
-     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
-     (gnus-cite-face-4 ((t (:foreground "light pink"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:foreground "beige"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
-     (gnus-header-from-face ((t (:foreground "spring green"))))
-     (gnus-header-name-face ((t (:foreground "SeaGreen"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
-     (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
-     (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-     (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
-     (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
-     (isearch ((t (:background "palevioletred2"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
-     (message-header-name-face ((t (:foreground "DarkGreen"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "#b00000"))))
-     (message-header-subject-face ((t (:foreground "green3"))))
-     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
-     (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
-     (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
-     (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
-     (mouse ((t (:background "white"))))
-     (primary-selection ((t (:background "DarkSlateGray"))))
-     (region ((t (:background "DarkSlateGray"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "SkyBlue4"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (trailing-whitespace ((t (:background "white"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (zmacs-region ((t (:background "DarkSlateGray")))))))
-
-(defun color-theme-deep-blue ()
-   "Color theme by Tomas Cerha, created 2001-11-13."
-   (interactive)
-   (color-theme-install
-    '(color-theme-deep-blue
-      ((background-color . "#102e4e")
-       (background-mode . dark)
-       (border-color . "black")
-       (cursor-color . "green")
-       (foreground-color . "#eeeeee")
-       (mouse-color . "white"))
-      ((browse-kill-ring-separator-face . bold)
-       (display-time-mail-face . mode-line)
-       (help-highlight-face . underline)
-       (list-matching-lines-face . secondary-selection)
-       (vc-annotate-very-old-color . "#0046FF")
-       (view-highlight-face . highlight)
-       (widget-mouse-face . highlight))
-      (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
-      (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-      (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-      (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-      (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-      (bold ((t (:bold t :weight bold))))
-      (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-      (border ((t (:background "black"))))
-      (calendar-today-face ((t (:background "blue"))))
-      (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
-      (change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
-      (change-log-date-face ((t (:foreground "burlywood"))))
-      (change-log-email-face ((t (:foreground "SeaGreen2"))))
-      (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
-      (change-log-function-face ((t (:foreground "SeaGreen2"))))
-      (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1"))))
-      (change-log-name-face ((t (:foreground "gold"))))
-      (comint-highlight-input ((t (:bold t :weight bold))))
-      (comint-highlight-prompt ((t (:foreground "cyan"))))
-      (cursor ((t (:background "green" :foreground "black"))))
-      (cvs-filename-face ((t (:foreground "lightblue"))))
-      (cvs-handled-face ((t (:foreground "pink"))))
-      (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
-      (cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
-      (cvs-msg-face ((t (:italic t :slant italic))))
-      (cvs-need-action-face ((t (:foreground "orange"))))
-      (cvs-unknown-face ((t (:foreground "red"))))
-      (diary-face ((t (:foreground "orange red"))))
-      (diff-added-face ((t (nil))))
-      (diff-changed-face ((t (nil))))
-      (diff-context-face ((t (:foreground "grey70"))))
-      (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
-      (diff-function-face ((t (:foreground "grey70"))))
-      (diff-header-face ((t (:background "grey45"))))
-      (diff-hunk-header-face ((t (:background "grey45"))))
-      (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
-      (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
-      (diff-removed-face ((t (nil))))
-      (fixed-pitch ((t (:family "fixed"))))
-      (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
-      (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
-      (font-latex-math-face ((t (:foreground "burlywood"))))
-      (font-latex-sedate-face ((t (:foreground "LightGray"))))
-      (font-latex-string-face ((t (:foreground "LightSalmon"))))
-      (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-      (font-lock-builtin-face ((t (:foreground "LightCoral"))))
-      (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
-      (font-lock-constant-face ((t (:foreground "gold"))))
-      (font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
-      (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
-      (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
-      (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold))))
-      (font-lock-preprocessor-face ((t (:foreground "gold"))))
-      (font-lock-reference-face ((t (:foreground "LightCoral"))))
-      (font-lock-string-face ((t (:foreground "burlywood"))))
-      (font-lock-type-face ((t (:foreground "CadetBlue1"))))
-      (font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
-      (font-lock-warning-face ((t (:foreground "yellow"))))
-      (fringe ((t (:background "#405060"))))
-      (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-      (highlight ((t (:background "darkgreen"))))
-      (holiday-face ((t (:foreground "green"))))
-      (info-header-node ((t (:foreground "DeepSkyBlue1"))))
-      (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
-      (info-menu-5 ((t (:foreground "wheat"))))
-      (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-      (info-node ((t (:foreground "DeepSkyBlue1"))))
-      (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
-      (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-      (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-      (italic ((t (:italic t :slant italic))))
-      (menu ((t (:background "gray" :foreground "black" :family "helvetica"))))
-      (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
-      (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
-      (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
-      (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
-      (mouse ((t (:background "white"))))
-      (region ((t (:background "DarkCyan"))))
-      (scroll-bar ((t (:background "gray" :foreground "#506070"))))
-      (secondary-selection ((t (:background "yellow" :foreground "gray10"))))
-      (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
-      (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
-      (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-      (tooltip ((t (:background "lightyellow" :foreground "black"))))
-      (trailing-whitespace ((t (:background "#102e4e"))))
-      (underline ((t (:underline t))))
-      (variable-pitch ((t (:family "helv"))))
-      (widget-button-face ((t (:bold t :weight bold))))
-      (widget-button-pressed-face ((t (:foreground "red"))))
-      (widget-documentation-face ((t (:foreground "lime green"))))
-      (widget-field-face ((t (:background "dim gray"))))
-      (widget-inactive-face ((t (:foreground "light gray"))))
-      (widget-single-line-field-face ((t (:background "dim gray")))))))
-
-(defun color-theme-kingsajz ()
-  "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04.
-Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker. 
-Used on Emacs 21.1 @ WinMe. Not tested on any other systems. 
-
-Some faces uses Andale mono font (nice fixed-width font). 
-It is available at:  http://www.microsoft.com/typography/downloads/andale32.exe
-
-Hail Eris! All hail Discordia!"
-  (interactive)
-  (color-theme-install
-   '(color-theme-kingsajz
-     ((background-color . "darkslategrey")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "LightGray")
-      (foreground-color . "wheat")
-      (mouse-color . "Grey"))
-     ((apropos-keybinding-face . underline)
-      (apropos-label-face face italic mouse-face highlight)
-      (apropos-match-face . secondary-selection)
-      (apropos-property-face . bold-italic)
-      (apropos-symbol-face . info-xref)
-      (display-time-mail-face . mode-line)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-carpal-button-face . bold)
-      (gnus-carpal-header-face . bold-italic)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-selected-tree-face . modeline)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (gnus-treat-display-xface . head)
-      (help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono"))))
-     (bbdb-field-name ((t (:foreground "green"))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (blue ((t (:foreground "cyan"))))
-     (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial"))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial"))))
-     (border ((t (:background "black"))))
-     (calendar-today-face ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cperl-array-face ((t (:foreground "Yellow"))))
-     (cperl-hash-face ((t (:foreground "White"))))
-     (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
-     (cursor ((t (:background "LightGray"))))
-     (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (:foreground "Grey"))))
-     (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
-     (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "Coral"))))
-     (custom-variable-button-face ((t (:underline t))))
-     (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
-     (date ((t (:foreground "green"))))
-     (diary-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
-     (dired-face-executable ((t (:foreground "green yellow"))))
-     (dired-face-flagged ((t (:foreground "tomato"))))
-     (dired-face-marked ((t (:foreground "light salmon"))))
-     (dired-face-permissions ((t (:foreground "aquamarine"))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "pale green"))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-host-danger-face ((t (:foreground "red"))))
-     (erc-input-face ((t (:foreground "light blue"))))
-     (erc-inverse-face ((t (:background "steel blue"))))
-     (erc-notice-face ((t (:foreground "light salmon"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "Grey"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold))))
-     (eshell-ls-picture-face ((t (:foreground "Violet"))))
-     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold))))
-     (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
-     (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
-     (eshell-prompt-face ((t (:foreground "powder blue"))))
-     (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono"))))
-     (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono"))))
-     (face-3 ((t (:stipple nil :foreground "NavajoWhite3"))))
-     (fg:erc-color-face0 ((t (:foreground "white"))))
-     (fg:erc-color-face1 ((t (:foreground "beige"))))
-     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
-     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
-     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
-     (fg:erc-color-face13 ((t (:foreground "yellow"))))
-     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
-     (fg:erc-color-face15 ((t (:foreground "lime green"))))
-     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
-     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
-     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
-     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
-     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
-     (fg:erc-color-face7 ((t (:foreground "pale green"))))
-     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
-     (fg:erc-color-face9 ((t (:foreground "khaki"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (font-lock-comment-face ((t (:foreground "White"))))
-     (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon"))))
-     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
-     (font-lock-keyword-face ((t (:foreground "Salmon"))))
-     (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
-     (font-lock-reference-face ((t (:foreground "pale green"))))
-     (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic))))
-     (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold))))
-     (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold))))
-     (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (fringe ((t (:background "darkslategrey"))))
-     (gnus-cite-attribution-face ((t (:family "arial"))))
-     (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3"))))
-     (gnus-cite-face-10 ((t (nil))))
-     (gnus-cite-face-11 ((t (nil))))
-     (gnus-cite-face-2 ((t (:foreground "IndianRed3"))))
-     (gnus-cite-face-3 ((t (:foreground "tomato"))))
-     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
-     (gnus-cite-face-5 ((t (:foreground "SteelBlue3"))))
-     (gnus-cite-face-6 ((t (:foreground "Azure3"))))
-     (gnus-cite-face-7 ((t (:foreground "Azure4"))))
-     (gnus-cite-face-8 ((t (:foreground "SpringGreen4"))))
-     (gnus-cite-face-9 ((t (:foreground "SlateGray4"))))
-     (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial"))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial"))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki"))))
-     (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial"))))
-     (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial"))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial"))))
-     (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial"))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "Salmon4"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "darkorange3"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (:foreground "turquoise4"))))
-     (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4"))))
-     (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold))))
-     (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4"))))
-     (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold))))
-     (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4"))))
-     (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "wheat4"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold))))
-     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
-     (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
-     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
-     (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic))))
-     (gnus-splash-face ((t (:foreground "Firebrick1"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic))))
-     (gnus-summary-low-read-face ((t (:foreground "SeaGreen4"))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "khaki4"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "khaki3"))))
-     (gnus-summary-normal-unread-face ((t (:foreground "khaki"))))
-     (gnus-summary-selected-face ((t (:foreground "gold" :underline t))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:foreground "red" :background "black"))))
-     (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
-     (highline-face ((t (:background "SeaGreen"))))
-     (holiday-face ((t (:background "DimGray"))))
-     (info-menu-5 ((t (:underline t))))
-     (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold))))
-     (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
-     (isearch ((t (:background "sea green" :foreground "black"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :foreground "chocolate3" :slant italic))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "White"))))
-     (message-header-cc-face ((t (:foreground "light cyan"))))
-     (message-header-name-face ((t (:foreground "DodgerBlue1"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
-     (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate"))))
-     (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial"))))
-     (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial"))))
-     (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial"))))
-     (mouse ((t (:background "Grey"))))
-     (paren-blink-off ((t (:foreground "brown"))))
-     (region ((t (:background "dark cyan" :foreground "cyan"))))
-     (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black"))))
-     (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold))))
-     (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button)))))
-     (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red"))))
-     (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64"))))
-     (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
-     (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold))))
-     (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
-     (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold))))
-     (text-cursor ((t (:background "Red" :foreground "white"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "Arial"))))
-     (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
-     (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
-     (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
-     (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
-     (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier"))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:foreground "LightBlue"))))
-     (widget-inactive-face ((t (:foreground "DimGray"))))
-     (widget-single-line-field-face ((t (:foreground "LightBlue"))))
-     (woman-bold-face ((t (:bold t :weight bold :family "Arial"))))
-     (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial"))))
-     (woman-unknown-face ((t (:foreground "LightSalmon"))))
-     (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))
-
-(defun color-theme-comidia ()
-  "Color theme by Marcelo Dias de Toledo, created 2001-12-17.
-Steel blue on black."
-  (interactive)
-  (color-theme-install
-   '(color-theme-comidia
-     ((background-color . "Black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "SteelBlue")
-      (foreground-color . "SteelBlue")
-      (mouse-color . "SteelBlue"))
-     ((display-time-mail-face . mode-line)
-      (gnus-mouse-face . highlight)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "SteelBlue"))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-dangerous-host-face ((t (:foreground "red"))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:background "Red" :foreground "White"))))
-     (erc-fool-face ((t (:foreground "dim gray"))))
-     (erc-input-face ((t (:foreground "brown"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
-     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
-     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "chocolate1"))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
-     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
-     (font-lock-keyword-face ((t (:foreground "Cyan"))))
-     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
-     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-type-face ((t (:foreground "PaleGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fringe ((t (:background "grey10"))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
-     (message-header-name-face ((t (:foreground "DarkGreen"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "#b00000"))))
-     (message-header-subject-face ((t (:foreground "green3"))))
-     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
-     (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
-     (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
-     (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
-     (mouse ((t (:background "SteelBlue"))))
-     (primary-selection ((t (:background "blue3"))))
-     (region ((t (:background "blue3"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "SkyBlue4"))))
-     (speedbar-button-face ((t (:foreground "green3"))))
-     (speedbar-directory-face ((t (:foreground "light blue"))))
-     (speedbar-file-face ((t (:foreground "cyan"))))
-     (speedbar-highlight-face ((t (:background "sea green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (zmacs-region ((t (:background "blue3")))))))
-
-(defun color-theme-katester ()
-  "Color theme by walterh@rocketmail.com, created 2001-12-12.
-A pastelly-mac like color-theme."
-  (interactive)
-  (color-theme-standard)
-  (let ((color-theme-is-cumulative t))
-    (color-theme-install
-     '(color-theme-katester
-       ((background-color . "ivory")
-	(cursor-color . "slateblue")
-	(foreground-color . "black")
-	(mouse-color . "slateblue"))
-       (default ((t ((:background "ivory" :foreground "black")))))
-       (bold ((t (:bold t))))
-       (font-lock-string-face ((t (:foreground "maroon"))))
-       (font-lock-keyword-face ((t (:foreground "blue"))))
-       (font-lock-constant-face ((t  (:foreground "darkblue"))))
-       (font-lock-type-face ((t (:foreground "black"))))
-       (font-lock-variable-name-face ((t (:foreground "black"))))
-       (font-lock-function-name-face ((t (:bold t :underline t))))
-       (font-lock-comment-face ((t (:background "seashell"))))
-       (highlight ((t (:background "lavender"))))
-       (italic ((t (:italic t))))
-       (modeline ((t (:background "moccasin" :foreground "black"))))
-       (region ((t (:background "lavender" ))))
-       (underline ((t (:underline t))))))))
-
-(defun color-theme-arjen ()
-  "Color theme by awiersma, created 2001-08-27."
-  (interactive)
-  (color-theme-install
-   '(color-theme-arjen
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "yellow")
-      (foreground-color . "White")
-      (mouse-color . "sienna1"))
-     ((buffers-tab-face . buffers-tab)
-      (cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face quote underline)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (vc-mode-face . highlight))
-     (default ((t (:background "black" :foreground "white"))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:bold t))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "black" :foreground "white"))))
-     (calendar-today-face ((t (:underline t))))
-     (cperl-array-face ((t (:foreground "darkseagreen"))))
-     (cperl-hash-face ((t (:foreground "darkseagreen"))))
-     (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
-     (custom-button-face ((t (nil))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
-     (diary-face ((t (:foreground "IndianRed"))))
-     (erc-action-face ((t (:bold t))))
-     (erc-bold-face ((t (:bold t))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "sandybrown"))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
-     (erc-input-face ((t (:foreground "Beige"))))
-     (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
-     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
-     (eshell-ls-backup-face ((t (:foreground "Grey"))))
-     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
-     (eshell-ls-executable-face ((t (:foreground "Coral"))))
-     (eshell-ls-missing-face ((t (:foreground "black"))))
-     (eshell-ls-picture-face ((t (:foreground "Violet"))))
-     (eshell-ls-product-face ((t (:foreground "sandybrown"))))
-     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
-     (eshell-ls-special-face ((t (:foreground "Gold"))))
-     (eshell-ls-symlink-face ((t (:foreground "White"))))
-     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
-     (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
-     (fl-comment-face ((t (:foreground "pink"))))
-     (fl-doc-string-face ((t (:foreground "purple"))))
-     (fl-function-name-face ((t (:foreground "red"))))
-     (fl-keyword-face ((t (:foreground "cadetblue"))))
-     (fl-string-face ((t (:foreground "green"))))
-     (fl-type-face ((t (:foreground "yellow"))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "IndianRed"))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
-     (font-lock-function-name-face ((t (:foreground "YellowGreen"))))
-     (font-lock-keyword-face ((t (:foreground "PaleYellow"))))
-     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
-     (font-lock-reference-face ((t (:foreground "SlateBlue"))))
-     (font-lock-string-face ((t (:foreground "Orange"))))
-     (font-lock-type-face ((t (:foreground "Green"))))
-     (font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
-     (qt-classes-face ((t (:foreground "Red"))))
-     (gnus-cite-attribution-face ((t (nil))))
-     (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue"))))
-     (gnus-cite-face-3 ((t (:bold nil :foreground "gold"))))
-     (gnus-cite-face-4 ((t (:foreground "light pink"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold nil))))
-     (gnus-emphasis-bold-italic ((t (:bold nil))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (nil))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold nil))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil))))
-     (gnus-emphasis-underline-italic ((t (:underline t))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise"))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold nil))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold nil))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold nil))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold nil))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise"))))
-     (gnus-header-content-face ((t (:foreground "forest green"))))
-     (gnus-header-from-face ((t (:bold nil :foreground "spring green"))))
-     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
-     (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple"))))
-     (gnus-header-subject-face ((t (:bold nil :foreground "orange"))))
-     (gnus-signature-face ((t (:bold nil :foreground "khaki"))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue"))))
-     (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen"))))
-     (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink"))))
-     (gnus-summary-high-unread-face ((t (:bold nil))))
-     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-low-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-low-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-low-unread-face ((t (nil))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (highline-face ((t (:background "SeaGreen"))))
-     (holiday-face ((t (:background "DimGray"))))
-     (info-menu-5 ((t (:underline t))))
-     (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
-     (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
-     (isearch ((t (:background "blue"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (nil))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
-     (message-cited-text-face ((t (:bold t :foreground "green"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4"))))
-     (message-header-name-face ((t (:bold t :foreground "orange"))))
-     (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
-     (message-header-other-face ((t (:bold t :foreground "chocolate"))))
-     (message-header-subject-face ((t (:bold t :foreground "yellow"))))
-     (message-header-to-face ((t (:bold t :foreground "cadetblue"))))
-     (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
-     (message-mml-face ((t (:bold t :foreground "Green3"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
-     (modeline-buffer-id ((t (:background "DarkRed" :foreground "white"))))
-     (modeline-mousable ((t (:background "DarkRed" :foreground "white"))))
-     (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
-     (p4-depot-added-face ((t (:foreground "blue"))))
-     (p4-depot-deleted-face ((t (:foreground "red"))))
-     (p4-depot-unmapped-face ((t (:foreground "grey30"))))
-     (p4-diff-change-face ((t (:foreground "dark green"))))
-     (p4-diff-del-face ((t (:foreground "red"))))
-     (p4-diff-file-face ((t (:background "gray90"))))
-     (p4-diff-head-face ((t (:background "gray95"))))
-     (p4-diff-ins-face ((t (:foreground "blue"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "blue"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "blue"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "darkslateblue"))))
-     (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
-     (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
-     (text-cursor ((t (:background "yellow" :foreground "black"))))
-     (toolbar ((t (nil))))
-     (underline ((nil (:underline nil))))
-     (vertical-divider ((t (nil))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (woman-bold-face ((t (:bold t))))
-     (woman-italic-face ((t (:foreground "beige"))))
-     (woman-unknown-face ((t (:foreground "LightSalmon"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "snow" :foreground "blue")))))))
-
-(defun color-theme-tty-dark ()
-  "Color theme by Oivvio Polite, created 2002-02-01.  Good for tty display."
-  (interactive)
-  (color-theme-install
-   '(color-theme-tty-dark
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "blue")
-      (cursor-color . "red")
-      (foreground-color . "white")
-      (mouse-color . "black"))
-     ((ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (tinyreplace-:face . highlight)
-      (view-highlight-face . highlight))
-     (default ((t (nil))))
-     (bold ((t (:underline t :background "black" :foreground "white"))))
-     (bold-italic ((t (:underline t :foreground "white"))))
-     (calendar-today-face ((t (:underline t))))
-     (diary-face ((t (:foreground "red"))))
-     (font-lock-builtin-face ((t (:foreground "blue"))))
-     (font-lock-comment-face ((t (:foreground "cyan"))))
-     (font-lock-constant-face ((t (:foreground "magenta"))))
-     (font-lock-function-name-face ((t (:foreground "cyan"))))
-     (font-lock-keyword-face ((t (:foreground "red"))))
-     (font-lock-string-face ((t (:foreground "green"))))
-     (font-lock-type-face ((t (:foreground "yellow"))))
-     (font-lock-variable-name-face ((t (:foreground "blue"))))
-     (font-lock-warning-face ((t (:bold t :foreground "magenta"))))
-     (highlight ((t (:background "blue" :foreground "yellow"))))
-     (holiday-face ((t (:background "cyan"))))
-     (info-menu-5 ((t (:underline t))))
-     (info-node ((t (:italic t :bold t))))
-     (info-xref ((t (:bold t))))
-     (italic ((t (:underline t :background "red"))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green"))))
-     (message-header-name-face ((t (:foreground "green"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
-     (message-header-other-face ((t (:foreground "#b00000"))))
-     (message-header-subject-face ((t (:foreground "green"))))
-     (message-header-to-face ((t (:bold t :foreground "green"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "green"))))
-     (message-separator-face ((t (:foreground "blue"))))
-
-     (modeline ((t (:background "white" :foreground "blue"))))
-     (modeline-buffer-id ((t (:background "white" :foreground "red"))))
-     (modeline-mousable ((t (:background "white" :foreground "magenta"))))
-     (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow"))))
-     (region ((t (:background "white" :foreground "black"))))
-     (zmacs-region ((t (:background "cyan" :foreground "black"))))
-     (secondary-selection ((t (:background "blue"))))
-     (show-paren-match-face ((t (:background "red"))))
-     (show-paren-mismatch-face ((t (:background "magenta" :foreground "white"))))
-     (underline ((t (:underline t)))))))
-
-(defun color-theme-aliceblue ()
-  "Color theme by Girish Bharadwaj, created 2002-03-27.
-Includes comint prompt, custom, font-lock, isearch,
-jde, senator, speedbar, and widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-aliceblue
-     ((background-color . "AliceBlue")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "DarkSlateGray4")
-      (mouse-color . "black"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (semantic-which-function-use-color . t)
-      (senator-eldoc-use-color . t)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "Orchid"))))
-     (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana"))))
-     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
-     (font-lock-reference-face ((t (:foreground "Orchid"))))
-     (font-lock-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic))))
-     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (fringe ((t (:background "DarkSlateBlue"))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
-     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (menu ((t (nil))))
-     (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:background "grey75" :foreground "black"))))
-     (modeline-mousable ((t (:background "grey75" :foreground "black"))))
-     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black"))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "lightgoldenrod2"))))
-     (region ((t (:background "lightgoldenrod2"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "yellow"))))
-     (semantic-dirty-token-face ((t (:background "lightyellow"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray25"))))
-     (senator-momentary-highlight-face ((t (:background "gray70"))))
-     (senator-read-only-face ((t (:background "#CCBBBB"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (template-message-face ((t (:bold t :weight bold))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (zmacs-region ((t (:background "lightgoldenrod2")))))))
-
-(defun color-theme-black-on-gray ()
-  "Color theme by sbhojwani, created 2002-04-03.
-Includes ecb, font-lock, paren, semantic, and widget faces.
-Some of the font-lock faces are disabled, ie. they look just
-like the default face.  This is for people that don't like
-the look of \"angry fruit salad\" when editing."
-  (interactive)
-  (color-theme-install
-   '(color-theme-black-on-gray
-     ((background-color . "white")
-      (background-mode . light)
-      (border-color . "blue")
-      (foreground-color . "black"))
-     ((buffers-tab-face . buffers-tab)
-      (ecb-directories-general-face . ecb-default-general-face)
-      (ecb-directory-face . ecb-default-highlight-face)
-      (ecb-history-face . ecb-default-highlight-face)
-      (ecb-history-general-face . ecb-default-general-face)
-      (ecb-method-face . ecb-default-highlight-face)
-      (ecb-methods-general-face . ecb-default-general-face)
-      (ecb-source-face . ecb-default-highlight-face)
-      (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face)
-      (ecb-sources-general-face . ecb-default-general-face)
-      (ecb-token-header-face . ecb-token-header-face))
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t :size "10pt"))))
-     (bold-italic ((t (:italic t :bold t :size "10pt"))))
-     (border-glyph ((t (:size "11pt"))))
-     (buffers-tab ((t (:background "gray75"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "red"))))
-     (ecb-bucket-token-face ((t (:bold t :size "10pt"))))
-     (ecb-default-general-face ((t (nil))))
-     (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow"))))
-     (ecb-directories-general-face ((t (nil))))
-     (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow"))))
-     (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow"))))
-     (ecb-history-general-face ((t (nil))))
-     (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow"))))
-     (ecb-methods-general-face ((t (nil))))
-     (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow"))))
-     (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue"))))
-     (ecb-sources-general-face ((t (nil))))
-     (ecb-token-header-face ((t (:background "SeaGreen1"))))
-     (ecb-type-token-class-face ((t (:bold t :size "10pt"))))
-     (ecb-type-token-enum-face ((t (:bold t :size "10pt"))))
-     (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray"))))
-     (ecb-type-token-interface-face ((t (:bold t :size "10pt"))))
-     (ecb-type-token-struct-face ((t (:bold t :size "10pt"))))
-     (ecb-type-token-typedef-face ((t (:bold t :size "10pt"))))
-     (font-lock-builtin-face ((t (:foreground "red3"))))
-     (font-lock-constant-face ((t (:foreground "blue3"))))
-     (font-lock-comment-face ((t (:foreground "blue"))))
-     (font-lock-doc-face ((t (:foreground "green4"))))
-     (font-lock-doc-string-face ((t (:foreground "green4"))))
-     (font-lock-function-name-face ((t (nil))))
-     (font-lock-keyword-face ((t (nil))))
-     (font-lock-preprocessor-face ((t (:foreground "blue3"))))
-     (font-lock-reference-face ((t (:foreground "red3"))))
-     (font-lock-string-face ((t (nil))))
-     (font-lock-type-face ((t (nil))))
-     (font-lock-variable-name-face ((t (nil))))
-     (font-lock-warning-face ((t (nil))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75"))))
-     (gui-element ((t (:size "8pt" :background "gray75"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (isearch ((t (:background "paleturquoise"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (:size "10pt"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (modeline ((t (:background "gray75"))))
-     (modeline-buffer-id ((t (:background "gray75" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "gray75" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4"))))
-     (paren-blink-off ((t (:foreground "gray"))))
-     (paren-match ((t (:background "darkseagreen2"))))
-     (paren-mismatch ((t (nil))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray65"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (semantic-dirty-token-face ((t (nil))))
-     (semantic-unmatched-syntax-face ((t (nil))))
-     (text-cursor ((t (:background "red" :foreground "gray"))))
-     (toolbar ((t (:background "gray75"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (:background "gray75"))))
-     (widget ((t (:size "8pt" :background "gray75"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (nil))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "gray65")))))))
-
-(defun color-theme-dark-blue2 ()
-  "Color theme by Chris McMahan, created 2002-04-12.
-Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff,
-dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock,
-gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde,
-message, mmm, paren, semantic, senator, sgml, smerge, speedbar,
-strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml.  Yes, it is
-a large theme."
-  (interactive)
-  (color-theme-install
-   '(color-theme-dark-blue2
-     ((background-color . "#233b5a")
-      (background-mode . dark)
-      (background-toolbar-color . "#cf3ccf3ccf3c")
-      (border-color . "black")
-      (bottom-toolbar-shadow-color . "#79e77df779e7")
-      (cursor-color . "Yellow")
-      (foreground-color . "#fff8dc")
-      (mouse-color . "Grey")
-      (top-toolbar-shadow-color . "#fffffbeeffff")
-      (viper-saved-cursor-color-in-replace-mode . "Red3"))
-     ((blank-space-face . blank-space-face)
-      (blank-tab-face . blank-tab-face)
-      (cperl-invalid-face . underline)
-      (ecb-directories-general-face . ecb-directories-general-face)
-      (ecb-directory-face . ecb-directory-face)
-      (ecb-history-face . ecb-history-face)
-      (ecb-history-general-face . ecb-history-general-face)
-      (ecb-method-face . ecb-method-face)
-      (ecb-methods-general-face . ecb-methods-general-face)
-      (ecb-source-face . ecb-source-face)
-      (ecb-source-in-directories-buffer-face . ecb-sources-face)
-      (ecb-sources-general-face . ecb-sources-general-face)
-      (ecb-token-header-face . ecb-token-header-face)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (highline-face . highline-face)
-      (highline-vertical-face . highline-vertical-face)
-      (list-matching-lines-face . bold)
-      (ps-zebra-color . 0.95)
-      (senator-eldoc-use-color . t)
-      (sgml-set-face . t)
-      (tags-tag-face . default)
-      (view-highlight-face . highlight)
-      (vm-highlight-url-face . bold-italic)
-      (vm-highlighted-header-face . bold)
-      (vm-mime-button-face . gui-button-face)
-      (vm-summary-highlight-face . bold)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
-     (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
-     (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
-     (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
-     (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
-     (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (antlr-font-lock-ruleref-face ((t (:foreground "Gray85"))))
-     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (antlr-font-lock-tokenref-face ((t (:foreground "Gray85"))))
-     (bbdb-company ((t (:italic t :slant italic))))
-     (bbdb-field-name ((t (:bold t :weight bold))))
-     (bbdb-field-value ((t (nil))))
-     (bbdb-name ((t (:underline t))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (blank-space-face ((t (:background "LightGray"))))
-     (blank-tab-face ((t (:background "Wheat"))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t :foreground "cyan" :weight bold))))
-     (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue"))))
-     (calendar-today-face ((t (:underline t))))
-     (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
-     (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki"))))
-     (change-log-date-face ((t (:foreground "gold"))))
-     (change-log-email-face ((t (:foreground "khaki" :underline t))))
-     (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold))))
-     (change-log-function-face ((t (:background "sienna" :foreground "khaki"))))
-     (change-log-list-face ((t (:foreground "wheat"))))
-     (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (comint-input-face ((t (:foreground "deepskyblue"))))
-     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
-     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
-     (cperl-invalid-face ((t (:foreground "white"))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (cursor ((t (:background "Yellow"))))
-     (custom-button-face ((t (:bold t :weight bold))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30"))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:foreground "white"))))
-     (custom-comment-tag-face ((t (:foreground "white"))))
-     (custom-documentation-face ((t (:foreground "light blue"))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
-     (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "gray30" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "gray85"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
-     (cvs-filename-face ((t (:foreground "white"))))
-     (cvs-handled-face ((t (:foreground "pink"))))
-     (cvs-header-face ((t (:foreground "green"))))
-     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
-     (cvs-msg-face ((t (:foreground "gray85"))))
-     (cvs-need-action-face ((t (:foreground "yellow"))))
-     (cvs-unknown-face ((t (:foreground "grey"))))
-     (cyan ((t (:foreground "cyan"))))
-     (diary-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey50"))))
-     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-function-face ((t (:foreground "grey50"))))
-     (diff-header-face ((t (:foreground "lemon chiffon"))))
-     (diff-hunk-header-face ((t (:background "grey85"))))
-     (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (:foreground "Gray65"))))
-     (dired-face-directory ((t (:bold t :weight bold))))
-     (dired-face-executable ((t (:foreground "gray85"))))
-     (dired-face-flagged ((t (:background "LightSlateGray"))))
-     (dired-face-header ((t (:background "grey75" :foreground "gray30"))))
-     (dired-face-marked ((t (:background "PaleVioletRed"))))
-     (dired-face-permissions ((t (:background "grey75" :foreground "gray30"))))
-     (dired-face-setuid ((t (:foreground "gray85"))))
-     (dired-face-socket ((t (:foreground "gray85"))))
-     (dired-face-symlink ((t (:foreground "cyan"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "gray85"))))
-     (ebrowse-default-face ((t (nil))))
-     (ebrowse-file-name-face ((t (:italic t :slant italic))))
-     (ebrowse-member-attribute-face ((t (:foreground "red"))))
-     (ebrowse-member-class-face ((t (:foreground "Gray85"))))
-     (ebrowse-progress-face ((t (:background "blue"))))
-     (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (ebrowse-tree-mark-face ((t (:foreground "Gray85"))))
-     (ecb-bucket-token-face ((t (:bold t :weight bold))))
-     (ecb-default-general-face ((t (:height 1.0))))
-     (ecb-default-highlight-face ((t (:background "magenta" :height 1.0))))
-     (ecb-directories-general-face ((t (:height 0.9))))
-     (ecb-directory-face ((t (:background "Cyan4"))))
-     (ecb-history-face ((t (:background "Cyan4"))))
-     (ecb-history-general-face ((t (:height 0.9))))
-     (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal))))
-     (ecb-methods-general-face ((t (:slant normal))))
-     (ecb-source-face ((t (:background "Cyan4"))))
-     (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1"))))
-     (ecb-sources-face ((t (:foreground "LightBlue1"))))
-     (ecb-sources-general-face ((t (:height 0.9))))
-     (ecb-token-header-face ((t (:background "Steelblue4"))))
-     (ecb-type-token-class-face ((t (:bold t :weight bold))))
-     (ecb-type-token-enum-face ((t (:bold t :weight bold))))
-     (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold))))
-     (ecb-type-token-interface-face ((t (:bold t :weight bold))))
-     (ecb-type-token-struct-face ((t (:bold t :weight bold))))
-     (ecb-type-token-typedef-face ((t (:bold t :weight bold))))
-     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30"))))
-     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30"))))
-     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30"))))
-     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30"))))
-     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30"))))
-     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30"))))
-     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30"))))
-     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30"))))
-     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-dangerous-host-face ((t (:foreground "red"))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "pale green"))))
-     (erc-error-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (erc-fool-face ((t (:foreground "Gray85"))))
-     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-input-face ((t (:foreground "light blue"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-notice-face ((t (:foreground "light salmon"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
-     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "gray85"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :weight bold))))
-     (eshell-ls-picture-face ((t (:foreground "gray85"))))
-     (eshell-ls-product-face ((t (:foreground "gray85"))))
-     (eshell-ls-readonly-face ((t (:foreground "gray70"))))
-     (eshell-ls-special-face ((t (:bold t :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :weight bold))))
-     (eshell-ls-text-face ((t (:foreground "gray85"))))
-     (eshell-ls-todo-face ((t (:bold t :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "gray85"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold))))
-     (eshell-test-failed-face ((t (:bold t :weight bold))))
-     (eshell-test-ok-face ((t (:bold t :weight bold))))
-     (excerpt ((t (:italic t :slant italic))))
-     (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (fg:black ((t (:foreground "black"))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed ((t (:bold t :weight bold))))
-     (fixed-pitch ((t (:family "outline-lucida console"))))
-     (fl-comment-face ((t (:foreground "gray85"))))
-     (fl-function-name-face ((t (:foreground "green"))))
-     (fl-keyword-face ((t (:foreground "LightGreen"))))
-     (fl-string-face ((t (:foreground "light coral"))))
-     (fl-type-face ((t (:foreground "cyan"))))
-     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
-     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
-     (font-latex-bold-face ((t (nil))))
-     (font-latex-italic-face ((t (nil))))
-     (font-latex-math-face ((t (nil))))
-     (font-latex-sedate-face ((t (:foreground "Gray85"))))
-     (font-latex-string-face ((t (:foreground "orange"))))
-     (font-latex-warning-face ((t (:foreground "gold"))))
-     (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
-     (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
-     (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (font-lock-doc-face ((t (:bold t :weight bold))))
-     (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
-     (font-lock-exit-face ((t (:foreground "green"))))
-     (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
-     (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
-     (font-lock-preprocessor-face ((t (:foreground "Gray85"))))
-     (font-lock-reference-face ((t (:foreground "cyan"))))
-     (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
-     (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
-     (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
-     (fringe ((t (:background "#3c5473"))))
-     (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold))))
-     (gnus-cite-face-1 ((t (:foreground "gold"))))
-     (gnus-cite-face-10 ((t (:foreground "coral"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "wheat"))))
-     (gnus-cite-face-3 ((t (:foreground "light pink"))))
-     (gnus-cite-face-4 ((t (:foreground "khaki"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:foreground "beige"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold"))))
-     (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic))))
-     (gnus-emphasis-underline ((t (:foreground "white" :underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic))))
-     (gnus-filterhist-face-1 ((t (nil))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
-     (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold))))
-     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic))))
-     (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold))))
-     (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold))))
-     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
-     (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold))))
-     (gnus-picons-face ((t (:background "white" :foreground "gray30"))))
-     (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30"))))
-     (gnus-signature-face ((t (:italic t :foreground "white" :slant italic))))
-     (gnus-splash ((t (:foreground "Brown"))))
-     (gnus-splash-face ((t (:foreground "orange"))))
-     (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold))))
-     (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "gray70"))))
-     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
-     (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (gnus-summary-selected-face ((t (:foreground "white" :underline t))))
-     (gnus-x-face ((t (:background "white" :foreground "gray30"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "gray30"))))
-     (gui-element ((t (:background "Gray80"))))
-     (header-line ((t (:background "grey20" :foreground "grey90"))))
-     (hi-black-b ((t (:bold t :weight bold))))
-     (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
-     (hi-blue ((t (:background "light blue"))))
-     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
-     (hi-green ((t (:background "green"))))
-     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
-     (hi-pink ((t (:background "pink"))))
-     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
-     (hi-yellow ((t (:background "yellow"))))
-     (highlight ((t (:background "SkyBlue3"))))
-     (highlight-changes-delete-face ((t (:foreground "gray85" :underline t))))
-     (highlight-changes-face ((t (:foreground "gray85"))))
-     (highline-face ((t (:background "#3c5473"))))
-     (highline-vertical-face ((t (:background "lightcyan"))))
-     (holiday-face ((t (:background "pink" :foreground "gray30"))))
-     (html-helper-bold-face ((t (:bold t :weight bold))))
-     (html-helper-bold-italic-face ((t (nil))))
-     (html-helper-builtin-face ((t (:foreground "gray85" :underline t))))
-     (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
-     (html-helper-underline-face ((t (:underline t))))
-     (html-tag-face ((t (:bold t :weight bold))))
-     (hyper-apropos-documentation ((t (:foreground "white"))))
-     (hyper-apropos-heading ((t (:bold t :weight bold))))
-     (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
-     (hyper-apropos-major-heading ((t (:bold t :weight bold))))
-     (hyper-apropos-section-heading ((t (:bold t :weight bold))))
-     (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold))))
-     (ibuffer-marked-face ((t (:foreground "gray85"))))
-     (idlwave-help-link-face ((t (:foreground "Blue"))))
-     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
-     (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
-     (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
-     (info-menu-5 ((t (:underline t))))
-     (info-menu-6 ((t (nil))))
-     (info-menu-header ((t (:bold t :weight bold :family "helv"))))
-     (info-node ((t (:italic t :bold t :slant italic :weight bold))))
-     (info-xref ((t (:bold t :weight bold))))
-     (isearch ((t (:background "LightSeaGreen"))))
-     (isearch-lazy-highlight-face ((t (:background "cyan4"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
-     (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "cyan3"))))
-     (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold))))
-     (left-margin ((t (nil))))
-     (linemenu-face ((t (:background "gray30"))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
-     (log-view-message-face ((t (:background "grey85"))))
-     (magenta ((t (:foreground "gray85"))))
-     (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
-     (man-bold ((t (:bold t :weight bold))))
-     (man-heading ((t (:bold t :weight bold))))
-     (man-italic ((t (:foreground "yellow"))))
-     (man-xref ((t (:underline t))))
-     (menu ((t (:background "wheat" :foreground "gray30"))))
-     (message-cited-text ((t (:foreground "orange"))))
-     (message-cited-text-face ((t (:foreground "medium aquamarine"))))
-     (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (message-header-contents ((t (:foreground "white"))))
-     (message-header-name-face ((t (:foreground "gray85"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "gray85"))))
-     (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-headers ((t (:bold t :foreground "orange" :weight bold))))
-     (message-highlighted-header-contents ((t (:bold t :weight bold))))
-     (message-mml-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (message-separator-face ((t (:foreground "gray85"))))
-     (message-url ((t (:bold t :foreground "pink" :weight bold))))
-     (mmm-default-submode-face ((t (:background "#c0c0c5"))))
-     (mmm-face ((t (:background "black" :foreground "green"))))
-     (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv")))))
-     (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana"))))
-     (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
-     (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
-     (mouse ((t (:background "Grey"))))
-     (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White"))))
-     (my-url-face ((t (:foreground "LightBlue"))))
-     (nil ((t (nil))))
-     (paren-blink-off ((t (:foreground "gray80"))))
-     (paren-face-match ((t (:background "turquoise"))))
-     (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
-     (paren-face-no-match ((t (:background "yellow" :foreground "gray30"))))
-     (paren-match ((t (:background "darkseagreen2"))))
-     (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30"))))
-     (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
-     (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray40"))))
-     (reb-match-0 ((t (:background "lightblue"))))
-     (reb-match-1 ((t (:background "aquamarine"))))
-     (reb-match-2 ((t (:background "springgreen"))))
-     (reb-match-3 ((t (:background "yellow"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "Cyan4"))))
-     (right-margin ((t (nil))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "gray60"))))
-     (semantic-dirty-token-face ((t (:background "gray10"))))
-     (semantic-intangible-face ((t (:foreground "gray25"))))
-     (semantic-read-only-face ((t (:background "gray25"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray75"))))
-     (senator-momentary-highlight-face ((t (:background "gray70"))))
-     (senator-read-only-face ((t (:background "#664444"))))
-     (sgml-comment-face ((t (:foreground "dark turquoise"))))
-     (sgml-doctype-face ((t (:foreground "turquoise"))))
-     (sgml-end-tag-face ((t (:foreground "aquamarine"))))
-     (sgml-entity-face ((t (:foreground "gray85"))))
-     (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
-     (sgml-ms-end-face ((t (:foreground "green"))))
-     (sgml-ms-start-face ((t (:foreground "yellow"))))
-     (sgml-pi-face ((t (:foreground "lime green"))))
-     (sgml-sgml-face ((t (:foreground "brown"))))
-     (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
-     (sgml-start-tag-face ((t (:foreground "aquamarine"))))
-     (sh-heredoc-face ((t (:foreground "tan"))))
-     (shell-option-face ((t (:foreground "gray85"))))
-     (shell-output-2-face ((t (:foreground "gray85"))))
-     (shell-output-3-face ((t (:foreground "gray85"))))
-     (shell-output-face ((t (:bold t :weight bold))))
-     (shell-prompt-face ((t (:foreground "yellow"))))
-     (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold))))
-     (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold))))
-     (show-tabs-space-face ((t (:foreground "yellow"))))
-     (show-tabs-tab-face ((t (:foreground "red"))))
-     (smerge-base-face ((t (:foreground "red"))))
-     (smerge-markers-face ((t (:background "grey85"))))
-     (smerge-mine-face ((t (:foreground "Gray85"))))
-     (smerge-other-face ((t (:foreground "darkgreen"))))
-     (speedbar-button-face ((t (:bold t :weight bold))))
-     (speedbar-directory-face ((t (:bold t :weight bold))))
-     (speedbar-file-face ((t (:bold t :weight bold))))
-     (speedbar-highlight-face ((t (:background "sea green"))))
-     (speedbar-selected-face ((t (:underline t))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (strokes-char-face ((t (:background "lightgray"))))
-     (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (template-message-face ((t (:bold t :weight bold))))
-     (term-black ((t (:foreground "black"))))
-     (term-blackbg ((t (:background "black"))))
-     (term-blue ((t (:foreground "blue"))))
-     (term-bluebg ((t (:background "blue"))))
-     (term-bold ((t (:bold t :weight bold))))
-     (term-cyan ((t (:foreground "cyan"))))
-     (term-cyanbg ((t (:background "cyan"))))
-     (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
-     (term-default-bg ((t (nil))))
-     (term-default-bg-inv ((t (nil))))
-     (term-default-fg ((t (nil))))
-     (term-default-fg-inv ((t (nil))))
-     (term-green ((t (:foreground "green"))))
-     (term-greenbg ((t (:background "green"))))
-     (term-invisible ((t (nil))))
-     (term-invisible-inv ((t (nil))))
-     (term-magenta ((t (:foreground "magenta"))))
-     (term-magentabg ((t (:background "magenta"))))
-     (term-red ((t (:foreground "red"))))
-     (term-redbg ((t (:background "red"))))
-     (term-underline ((t (:underline t))))
-     (term-white ((t (:foreground "white"))))
-     (term-whitebg ((t (:background "white"))))
-     (term-yellow ((t (:foreground "yellow"))))
-     (term-yellowbg ((t (:background "yellow"))))
-     (tex-math-face ((t (:foreground "RosyBrown"))))
-     (texinfo-heading-face ((t (:foreground "Blue"))))
-     (text-cursor ((t (:background "Red3" :foreground "gray80"))))
-     (tool-bar ((t (:background "grey75" :foreground "black"))))
-     (toolbar ((t (:background "Gray80"))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
-     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
-     (vertical-divider ((t (:background "Gray80"))))
-     (vhdl-font-lock-attribute-face ((t (:foreground "gray85"))))
-     (vhdl-font-lock-directive-face ((t (:foreground "gray85"))))
-     (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85"))))
-     (vhdl-font-lock-function-face ((t (:foreground "gray85"))))
-     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-     (vhdl-speedbar-architecture-face ((t (:foreground "gray85"))))
-     (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t))))
-     (vhdl-speedbar-configuration-face ((t (:foreground "gray85"))))
-     (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t))))
-     (vhdl-speedbar-entity-face ((t (:foreground "gray85"))))
-     (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t))))
-     (vhdl-speedbar-instantiation-face ((t (:foreground "gray85"))))
-     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t))))
-     (vhdl-speedbar-package-face ((t (:foreground "gray85"))))
-     (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t))))
-     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-     (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic))))
-     (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic))))
-     (vm-header-name-face ((t (:foreground "cyan"))))
-     (vm-header-subject-face ((t (:foreground "cyan"))))
-     (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic))))
-     (vm-message-cited-face ((t (:foreground "Gray80"))))
-     (vm-monochrome-image ((t (:background "white" :foreground "gray30"))))
-     (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
-     (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
-     (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
-     (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
-     (vm-summary-highlight-face ((t (:foreground "White"))))
-     (vm-xface ((t (:background "white" :foreground "gray30"))))
-     (vmpc-pre-sig-face ((t (:foreground "gray85"))))
-     (vmpc-sig-face ((t (:foreground "gray85"))))
-     (vvb-face ((t (:background "pink" :foreground "gray30"))))
-     (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
-     (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
-     (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
-     (white ((t (:foreground "white"))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "gray85"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85" :foreground "gray30"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
-     (woman-addition-face ((t (:foreground "orange"))))
-     (woman-bold-face ((t (:bold t :weight bold))))
-     (woman-italic-face ((t (:foreground "beige"))))
-     (woman-unknown-face ((t (:foreground "LightSalmon"))))
-     (x-face ((t (:background "white" :foreground "gray30"))))
-     (xrdb-option-name-face ((t (:foreground "gray85"))))
-     (xref-keyword-face ((t (:foreground "gray85"))))
-     (xref-list-default-face ((t (nil))))
-     (xref-list-pilot-face ((t (:foreground "gray85"))))
-     (xref-list-symbol-face ((t (:foreground "navy"))))
-     (xsl-fo-alternate-face ((t (:foreground "Yellow"))))
-     (xsl-fo-main-face ((t (:foreground "PaleGreen"))))
-     (xsl-other-element-face ((t (:foreground "Coral"))))
-     (xsl-xslt-alternate-face ((t (:foreground "LightGray"))))
-     (xsl-xslt-main-face ((t (:foreground "Wheat"))))
-     (xxml-emph-1-face ((t (:background "lightyellow"))))
-     (xxml-emph-2-face ((t (:background "lightyellow"))))
-     (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
-     (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
-     (xxml-header-3-face ((t (:background "seashell1"))))
-     (xxml-header-4-face ((t (:background "seashell1"))))
-     (xxml-interaction-face ((t (:background "lightcyan"))))
-     (xxml-rug-face ((t (:background "cyan"))))
-     (xxml-sparkle-face ((t (:background "yellow"))))
-     (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "Cyan4")))))))
-
-(defun color-theme-blue-mood ()
-  "Color theme by Nelson Loyola, created 2002-04-15.
-Includes cperl, custom, font-lock, p4, speedbar, widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-blue-mood
-     ((background-color . "DodgerBlue4")
-      (background-mode . dark)
-      (background-toolbar-color . "#bfbfbfbfbfbf")
-      (border-color . "Blue")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#6c6c68686868")
-      (cursor-color . "DarkGoldenrod1")
-      (foreground-color . "white smoke")
-      (mouse-color . "black")
-      (top-toolbar-shadow-color . "#e5e5e0e0e1e1"))
-     ((vc-annotate-very-old-color . "#0046FF"))
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (nil))))
-     (border-glyph ((t (nil))))
-     (cmode-bracket-face ((t (:bold t))))
-     (cperl-array-face ((t (:bold t :foreground "wheat"))))
-     (cperl-hash-face ((t (:bold t :foreground "chartreuse"))))
-     (custom-button-face ((t (nil))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:bold t :foreground "cyan"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
-     (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
-     (font-lock-builtin-face ((t (:bold t :foreground "wheat"))))
-     (font-lock-comment-face ((t (:bold t :foreground "gray72"))))
-     (font-lock-constant-face ((t (:bold t :foreground "cyan3"))))
-     (font-lock-doc-string-face ((t (:foreground "#00C000"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "chartreuse"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "gold1"))))
-     (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1"))))
-     (font-lock-other-type-face ((t (:bold t :foreground "gold1"))))
-     (font-lock-preprocessor-face ((t (:foreground "plum"))))
-     (font-lock-reference-face ((t (:bold t :foreground "orangered"))))
-     (font-lock-string-face ((t (:foreground "tomato"))))
-     (font-lock-type-face ((t (:bold t :foreground "gold1"))))
-     (font-lock-variable-name-face ((t (:foreground "light yellow"))))
-     (font-lock-warning-face ((t (:foreground "tomato"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000"))))
-     (highlight ((t (:background "red" :foreground "yellow"))))
-     (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
-     (italic ((t (nil))))
-     (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow"))))
-     (modeline ((t (:background "goldenrod" :foreground "darkblue"))))
-     (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue"))))
-     (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue"))))
-     (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue"))))
-     (my-tab-face ((t (:background "SlateBlue1"))))
-     (p4-depot-added-face ((t (:foreground "steelblue1"))))
-     (p4-depot-deleted-face ((t (:foreground "red"))))
-     (p4-depot-unmapped-face ((t (:foreground "grey90"))))
-     (p4-diff-change-face ((t (:foreground "dark green"))))
-     (p4-diff-del-face ((t (:bold t :foreground "salmon"))))
-     (p4-diff-file-face ((t (:background "blue"))))
-     (p4-diff-head-face ((t (:background "blue"))))
-     (p4-diff-ins-face ((t (:foreground "steelblue1"))))
-     (paren-blink-off ((t (:foreground "DodgerBlue4"))))
-     (paren-match ((t (:background "red" :foreground "yellow"))))
-     (paren-mismatch ((t (:background "DeepPink"))))
-     (pointer ((t (:background "white"))))
-     (primary-selection ((t (:bold t :background "medium sea green"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "red" :foreground "yellow"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
-     (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
-     (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
-     (show-trailing-whitespace ((t (:background "red" :foreground "blue"))))
-     (speedbar-button-face ((t (:foreground "white"))))
-     (speedbar-directory-face ((t (:foreground "gray"))))
-     (speedbar-file-face ((t (:foreground "gold1"))))
-     (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1"))))
-     (speedbar-selected-face ((t (:underline t :foreground "red"))))
-     (speedbar-tag-face ((t (:foreground "chartreuse"))))
-     (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4"))))
-     (toolbar ((t (:background "#e7e3d6" :foreground "#000000"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "white" :foreground "midnightblue")))))))
-
-(defun color-theme-euphoria ()
-  "Color theme by oGLOWo, created 2000-04-19.
-Green on black theme including font-lock, speedbar, and widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-euphoria
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "yellow")
-      (foreground-color . "#00ff00")
-      (mouse-color . "yellow"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "black" :foreground "#00ff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "yellow"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "magenta"))))
-     (font-lock-comment-face ((t (:foreground "deeppink"))))
-     (font-lock-constant-face ((t (:foreground "blue"))))
-     (font-lock-doc-face ((t (:foreground "cyan"))))
-     (font-lock-doc-string-face ((t (:foreground "cyan"))))
-     (font-lock-function-name-face ((t (:foreground "purple"))))
-     (font-lock-keyword-face ((t (:foreground "red"))))
-     (font-lock-preprocessor-face ((t (:foreground "blue1"))))
-     (font-lock-reference-face ((t (nil))))
-     (font-lock-string-face ((t (:foreground "cyan"))))
-     (font-lock-type-face ((t (:foreground "yellow"))))
-     (font-lock-variable-name-face ((t (:foreground "violet"))))
-     (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
-     (fringe ((t (:background "gray16" :foreground "#00ff00"))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (horizontal-divider ((t (:background "gray16" :foreground "#00ff00"))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (menu ((t (:background "gray16" :foreground "green"))))
-     (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00"))))
-     (modeline-mousable ((t (:background "gray16" :foreground "#00ff00"))))
-     (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00"))))
-     (mouse ((t (:background "yellow"))))
-     (primary-selection ((t (:background "#00ff00" :foreground "black"))))
-     (region ((t (:background "steelblue" :foreground "white"))))
-     (scroll-bar ((t (:background "gray16" :foreground "#00ff00"))))
-     (secondary-selection ((t (:background "#00ff00" :foreground "black"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "#00ff00"))))
-     (speedbar-directory-face ((t (:foreground "#00ff00"))))
-     (speedbar-file-face ((t (:foreground "cyan"))))
-     (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple"))))
-     (speedbar-selected-face ((t (:foreground "deeppink" :underline t))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "gray16" :foreground "#00ff00"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (vertical-divider ((t (:background "gray16" :foreground "#00ff00"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (zmacs-region ((t (:background "steelblue" :foreground "white")))))))
-
-(defun color-theme-resolve ()
-  "Color theme by Damien Elmes, created 2002-04-24.
-A white smoke on blue color theme."
-  (interactive)
-  (color-theme-install
-   '(color-theme-resolve
-     ((background-color . "#00457f")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "DarkGoldenrod1")
-      (foreground-color . "white smoke")
-      (mouse-color . "white"))
-     ((display-time-mail-face . mode-line)
-      (help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "#00457f" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "b&h-lucidatypewriter"))))
-     (bold ((t (:bold t :foreground "snow2" :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (calendar-today-face ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold))))
-     (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold))))
-     (cursor ((t (:background "DarkGoldenrod1"))))
-     (diary-face ((t (:foreground "yellow"))))
-     (erc-input-face ((t (:foreground "lightblue2"))))
-     (erc-notice-face ((t (:foreground "lightyellow3"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
-     (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
-     (font-latex-math-face ((t (:foreground "burlywood"))))
-     (font-latex-sedate-face ((t (:foreground "LightGray"))))
-     (font-latex-string-face ((t (:foreground "RosyBrown"))))
-     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "wheat"))))
-     (font-lock-comment-face ((t (:foreground "light steel blue"))))
-     (font-lock-constant-face ((t (:foreground "seashell3"))))
-     (font-lock-doc-face ((t (:foreground "plum"))))
-     (font-lock-doc-string-face ((t (:foreground "#008000"))))
-     (font-lock-function-name-face ((t (:foreground "thistle1"))))
-     (font-lock-keyword-face ((t (:foreground "wheat"))))
-     (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold))))
-     (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold))))
-     (font-lock-preprocessor-face ((t (:foreground "#800080"))))
-     (font-lock-reference-face ((t (:foreground "wheat"))))
-     (font-lock-string-face ((t (:foreground "plum"))))
-     (font-lock-type-face ((t (:foreground "lawn green"))))
-     (font-lock-variable-name-face ((t (:foreground "light yellow"))))
-     (font-lock-warning-face ((t (:foreground "plum"))))
-     (fringe ((t (:background "#000000"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "light blue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
-     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
-     (gnus-cite-face-4 ((t (:foreground "light pink"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:foreground "beige"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic))))
-     (gnus-header-from-face ((t (:foreground "spring green"))))
-     (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
-     (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:background "grey20" :foreground "grey90"))))
-     (highlight ((t (:background "gray91" :foreground "firebrick"))))
-     (highline-face ((t (:background "paleturquoise" :foreground "black"))))
-     (holiday-face ((t (:background "chocolate4"))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "seashell3"))))
-     (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold))))
-     (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "snow2"))))
-     (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "misty rose"))))
-     (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:foreground "white" :background "#001040"))))
-     (modeline-mousable ((t (:foreground "white" :background "#001040"))))
-     (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040"))))
-     (mouse ((t (:background "white"))))
-     (my-tab-face ((t (:background "SlateBlue1"))))
-     (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold))))
-     (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4"))))
-     (region ((t (:background "gray91" :foreground "DodgerBlue4"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
-     (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
-     (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
-     (tool-bar ((t (:background "grey75" :foreground "black"))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "steel blue"))))
-     (widget-inactive-face ((t (:foreground "grey"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4")))))))
-
-(defun color-theme-xp ()
-  "Color theme by Girish Bharadwaj, created 2002-04-25.
-Includes custom, erc, font-lock, jde, semantic, speedbar, widget."
-  (interactive)
-  (color-theme-install
-   '(color-theme-xp
-     ((background-color . "lightyellow2")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "gray20")
-      (mouse-color . "black"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (semantic-which-function-use-color . t)
-      (senator-eldoc-use-color . t)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (button ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:background "Red" :foreground "White"))))
-     (erc-input-face ((t (:foreground "brown"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
-     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
-     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9))))
-     (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9))))
-     (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9))))
-     (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold))))
-     (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold))))
-     (font-lock-string-face ((t (:foreground "red" :height 0.9))))
-     (font-lock-type-face ((t (:foreground "Royalblue"))))
-     (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (fringe ((t (:background "dodgerblue"))))
-     (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (isearch ((t (:background "magenta2" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
-     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (menu ((t (nil))))
-     (minibuffer-prompt ((t (:foreground "dark blue"))))
-     (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red"))))
-     (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black"))))
-     (modeline-mousable ((t (:background "dodgerblue" :foreground "black"))))
-     (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black"))))
-     (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "lightgoldenrod2"))))
-     (region ((t (:background "lightgoldenrod2"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "yellow"))))
-     (semantic-dirty-token-face ((t (:background "lightyellow"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray25"))))
-     (senator-momentary-highlight-face ((t (:background "gray70"))))
-     (senator-read-only-face ((t (:background "#CCBBBB"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (template-message-face ((t (:bold t :weight bold))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (zmacs-region ((t (:background "lightgoldenrod2")))))))
-
-(defun color-theme-gray30 ()
-  "Color theme by Girish Bharadwaj, created 2002-04-22."
-  (interactive)
-  (color-theme-install
-   '(color-theme-gray30
-     ((background-color . "grey30")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "gainsboro")
-      (mouse-color . "black"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (semantic-which-function-use-color . t)
-      (senator-eldoc-use-color . t)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "grey30" :foreground "gainsboro" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (button ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:background "Red" :foreground "White"))))
-     (erc-input-face ((t (:foreground "brown"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
-     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
-     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t))))
-     (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05))))
-     (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05))))
-     (font-lock-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-type-face ((t (:foreground "yellow" :height 1.05))))
-     (font-lock-variable-name-face ((t (:foreground "gold"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fringe ((t (:background "grey10"))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (menu ((t (nil))))
-     (minibuffer-prompt ((t (:foreground "cyan"))))
-     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "blue3"))))
-     (region ((t (:background "blue3"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "SkyBlue4"))))
-     (semantic-dirty-token-face ((t (:background "lightyellow"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray75"))))
-     (senator-momentary-highlight-face ((t (:background "gray30"))))
-     (senator-read-only-face ((t (:background "#664444"))))
-     (show-paren-match-face ((t (:background "steelblue3"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "green3"))))
-     (speedbar-directory-face ((t (:foreground "light blue"))))
-     (speedbar-file-face ((t (:foreground "cyan"))))
-     (speedbar-highlight-face ((t (:background "sea green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (template-message-face ((t (:bold t :weight bold))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (zmacs-region ((t (:background "blue3")))))))
-
-(defun color-theme-dark-green ()
-  "Color theme by ces93, created 2002-03-30."
-  (interactive)
-  (color-theme-install
-   '(color-theme-dark-green
-     ((background-mode . light)
-      (background-toolbar-color . "#e79ddf7ddf7d")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#8e3886178617")
-      (top-toolbar-shadow-color . "#ffffffffffff"))
-     nil
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:italic t :bold t))))
-     (border-glyph ((t (nil))))
-     (fringe ((t (nil))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:background "#ffffff" :foreground "#000000"))))
-     (highlight ((t (:background "gray" :foreground "darkred"))))
-     (isearch ((t (:background "LightSlateGray" :foreground "red"))))
-     (italic ((t (:italic t))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (mode-line ((t (:background "LightSlateGray" :foreground "black"))))
-     (modeline ((t (:background "LightSlateGray" :foreground "black"))))
-     (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4"))))
-     (pointer ((t (:background "#ffffff" :foreground "#000000"))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray65"))))
-     (right-margin ((t (nil))))
-     (rpm-spec-dir-face ((t (:foreground "green"))))
-     (rpm-spec-doc-face ((t (:foreground "magenta"))))
-     (rpm-spec-ghost-face ((t (:foreground "red"))))
-     (rpm-spec-macro-face ((t (:foreground "purple"))))
-     (rpm-spec-package-face ((t (:foreground "red"))))
-     (rpm-spec-tag-face ((t (:foreground "blue"))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray"))))
-     (tool-bar ((t (nil))))
-     (toolbar ((t (:background "#ffffff" :foreground "#000000"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (:background "#ffffff" :foreground "#000000"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "darkorange" :foreground "black")))))))
-
-(defun color-theme-whateveryouwant ()
-  "Color theme by Fabien Penso, created 2002-05-02."
-  (interactive)
-  (color-theme-install
-   '(color-theme-whateveryouwant
-     ((background-color . "white")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "black")
-      (mouse-color . "black"))
-     ((cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face . underline)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (display-time-mail-face . mode-line)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-carpal-button-face . bold)
-      (gnus-carpal-header-face . bold-italic)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-selected-tree-face . modeline)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (gnus-treat-display-xface . head)
-      (help-highlight-face . underline)
-      (ispell-highlight-face . flyspell-incorrect-face)
-      (list-matching-lines-face . bold)
-      (sgml-set-face . t)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight)
-      (x-face-mouse-face . highlight))
-     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
-     (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
-     (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
-     (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
-     (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
-     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
-     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
-     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
-     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
-     (bbdb-company ((t (:italic t :slant italic))))
-     (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold))))
-     (bbdb-field-value ((t (nil))))
-     (bbdb-name ((t (:underline t))))
-     (bold ((t (:bold t :foreground "gray40" :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (calendar-today-face ((t (:underline t))))
-     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
-     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-date-face ((t (:foreground "RosyBrown"))))
-     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-file-face ((t (:foreground "Blue"))))
-     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-list-face ((t (:foreground "Purple"))))
-     (change-log-name-face ((t (:foreground "CadetBlue"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
-     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
-     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv"))))
-     (cvs-filename-face ((t (:foreground "blue4"))))
-     (cvs-handled-face ((t (:foreground "pink"))))
-     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
-     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
-     (cvs-msg-face ((t (:italic t :slant italic))))
-     (cvs-need-action-face ((t (:foreground "orange"))))
-     (cvs-unknown-face ((t (:foreground "red"))))
-     (diary-face ((t (:foreground "red"))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey50"))))
-     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-function-face ((t (:foreground "grey50"))))
-     (diff-header-face ((t (:background "grey85"))))
-     (diff-hunk-header-face ((t (:background "grey85"))))
-     (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (:foreground "RosyBrown"))))
-     (dired-face-directory ((t (:foreground "Blue"))))
-     (dired-face-executable ((t (nil))))
-     (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold))))
-     (dired-face-marked ((t (:bold t :foreground "Red" :weight bold))))
-     (dired-face-permissions ((t (nil))))
-     (dired-face-setuid ((t (nil))))
-     (dired-face-socket ((t (nil))))
-     (dired-face-symlink ((t (:foreground "Purple"))))
-     (ebrowse-default-face ((t (nil))))
-     (ebrowse-file-name-face ((t (:italic t :slant italic))))
-     (ebrowse-member-attribute-face ((t (:foreground "red"))))
-     (ebrowse-member-class-face ((t (:foreground "purple"))))
-     (ebrowse-progress-face ((t (:background "blue"))))
-     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
-     (ebrowse-tree-mark-face ((t (:foreground "red"))))
-     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     (erc-action-face ((t (:bold t :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (erc-input-face ((t (:foreground "Beige"))))
-     (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
-     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-ls-picture-face ((t (:foreground "Violet"))))
-     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-     (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt"))))
-     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
-     (excerpt ((t (:italic t :slant italic))))
-     (fixed ((t (:bold t :weight bold))))
-     (fixed-pitch ((t (:family "courier"))))
-     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
-     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
-     (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
-     (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
-     (font-latex-math-face ((t (:foreground "SaddleBrown"))))
-     (font-latex-sedate-face ((t (:foreground "DimGray"))))
-     (font-latex-string-face ((t (:foreground "RosyBrown"))))
-     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "dodgerblue3"))))
-     (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica"))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
-     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100))))
-     (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold))))
-     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
-     (font-lock-reference-face ((t (:foreground "Orchid"))))
-     (font-lock-string-face ((t (:foreground "navy"))))
-     (font-lock-type-face ((t (:bold t :foreground "black" :weight bold))))
-     (font-lock-variable-name-face ((t (:foreground "black"))))
-     (font-lock-warning-face ((t (:foreground "orange2"))))
-     (fringe ((t (:background "white"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
-     (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica"))))
-     (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica"))))
-     (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
-     (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica"))))
-     (gnus-picon-face ((t (:background "white" :foreground "black"))))
-     (gnus-picon-xbm-face ((t (:background "white" :foreground "black"))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep"))))
-     (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep"))))
-     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep"))))
-     (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep"))))
-     (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep"))))
-     (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
-     (hi-black-b ((t (:bold t :weight bold))))
-     (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
-     (hi-blue ((t (:background "light blue"))))
-     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
-     (hi-green ((t (:background "green"))))
-     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
-     (hi-pink ((t (:background "pink"))))
-     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
-     (hi-yellow ((t (:background "yellow"))))
-     (highlight ((t (:background "black" :foreground "white"))))
-     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
-     (highlight-changes-face ((t (:foreground "red"))))
-     (highline-face ((t (:background "gray80"))))
-     (holiday-face ((t (:background "pink"))))
-     (idlwave-help-link-face ((t (:foreground "Blue"))))
-     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
-     (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
-     (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold t :weight bold :family "helv"))))
-     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
-     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
-     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
-     (log-view-message-face ((t (:background "grey85"))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica"))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep"))))
-     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold))))
-     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (mouse ((t (:background "black"))))
-     (mpg123-face-cur ((t (:background "#004080" :foreground "yellow"))))
-     (mpg123-face-slider ((t (:background "yellow" :foreground "black"))))
-     (primary-selection ((t (:background "lightgoldenrod2"))))
-     (reb-match-0 ((t (:background "lightblue"))))
-     (reb-match-1 ((t (:background "aquamarine"))))
-     (reb-match-2 ((t (:background "springgreen"))))
-     (reb-match-3 ((t (:background "yellow"))))
-     (region ((t (:background "#aa0000" :foreground "white"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "yellow"))))
-     (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic))))
-     (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold))))
-     (sgml-end-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
-     (sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
-     (sgml-ignored-face ((t (nil))))
-     (sgml-ms-end-face ((t (nil))))
-     (sgml-ms-start-face ((t (nil))))
-     (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold))))
-     (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold))))
-     (sgml-short-ref-face ((t (nil))))
-     (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold))))
-     (sgml-start-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
-     (sh-heredoc-face ((t (:foreground "tan"))))
-     (show-paren-match-face ((t (:background "gray80" :foreground "black"))))
-     (show-paren-mismatch-face ((t (:background "red" :foreground "yellow"))))
-     (show-tabs-space-face ((t (:foreground "yellow"))))
-     (show-tabs-tab-face ((t (:foreground "red"))))
-     (smerge-base-face ((t (:foreground "red"))))
-     (smerge-markers-face ((t (:background "grey85"))))
-     (smerge-mine-face ((t (:foreground "blue"))))
-     (smerge-other-face ((t (:foreground "darkgreen"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (strokes-char-face ((t (:background "lightgray"))))
-     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
-     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (tex-math-face ((t (:foreground "RosyBrown"))))
-     (texinfo-heading-face ((t (:foreground "Blue"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:foreground "navy" :underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
-     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
-     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
-     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
-     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
-     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
-     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
-     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
-     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (woman-addition-face ((t (:foreground "orange"))))
-     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
-     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
-     (woman-unknown-face ((t (:foreground "brown"))))
-     (zmacs-region ((t (:background "lightgoldenrod2")))))))
-
-(defun color-theme-bharadwaj-slate ()
-  "Color theme by Girish Bharadwaj, created 2002-05-06."
-  (interactive)
-  (color-theme-install
-   '(color-theme-bharadwaj-slate
-     ((background-color . "DarkSlateGray")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "khaki")
-      (foreground-color . "palegreen")
-      (mouse-color . "black"))
-     ((display-time-mail-face . mode-line)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-mouse-face . highlight)
-      (help-highlight-face . underline)
-      (ibuffer-deletion-face . font-lock-type-face)
-      (ibuffer-filter-group-name-face . bold)
-      (ibuffer-marked-face . font-lock-warning-face)
-      (ibuffer-title-face . font-lock-type-face)
-      (list-matching-lines-buffer-name-face . underline)
-      (list-matching-lines-face . bold)
-      (semantic-which-function-use-color . t)
-      (senator-eldoc-use-color . t)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (button ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "khaki"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
-     (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:background "Red" :foreground "White"))))
-     (erc-input-face ((t (:foreground "lightblue"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold))))
-     (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold))))
-     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
-     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
-     (font-lock-comment-face ((t (:foreground "violet" :height 1.0))))
-     (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
-     (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold))))
-     (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
-     (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
-     (font-lock-string-face ((t (:foreground "red" :height 1.0))))
-     (font-lock-type-face ((t (:foreground "lightblue3"))))
-     (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fringe ((t (:background "DarkSlateGray"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "light blue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
-     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
-     (gnus-cite-face-4 ((t (:foreground "light pink"))))
-     (gnus-cite-face-5 ((t (:foreground "pale green"))))
-     (gnus-cite-face-6 ((t (:foreground "beige"))))
-     (gnus-cite-face-7 ((t (:foreground "orange"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
-     (gnus-header-from-face ((t (:foreground "spring green"))))
-     (gnus-header-name-face ((t (:foreground "SeaGreen"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
-     (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold))))
-     (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic))))
-     (html-helper-underline-face ((t (:foreground "cornsilk" :underline t))))
-     (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold))))
-     (info-menu-6 ((t (nil))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
-     (message-header-name-face ((t (:foreground "DarkGreen"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "#b00000"))))
-     (message-header-subject-face ((t (:foreground "green3"))))
-     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (minibuffer-prompt ((t (:foreground "cyan"))))
-     (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
-     (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
-     (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
-     (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
-     (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
-     (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "dimgray"))))
-     (region ((t (:background "dimgray"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "SkyBlue4"))))
-     (semantic-dirty-token-face ((t (:background "lightyellow"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray75"))))
-     (senator-momentary-highlight-face ((t (:background "gray30"))))
-     (senator-read-only-face ((t (:background "#664444"))))
-     (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1))))
-     (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1))))
-     (show-tabs-space-face ((t (:foreground "yellow"))))
-     (show-tabs-tab-face ((t (:foreground "red"))))
-     (speedbar-button-face ((t (:foreground "green3"))))
-     (speedbar-directory-face ((t (:foreground "light blue"))))
-     (speedbar-file-face ((t (:foreground "cyan"))))
-     (speedbar-highlight-face ((t (:background "sea green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (template-message-face ((t (:bold t :weight bold))))
-     (term-black ((t (:foreground "black"))))
-     (term-blackbg ((t (:background "black"))))
-     (term-blue ((t (:foreground "blue"))))
-     (term-bluebg ((t (:background "blue"))))
-     (term-bold ((t (:bold t :weight bold))))
-     (term-cyan ((t (:foreground "cyan"))))
-     (term-cyanbg ((t (:background "cyan"))))
-     (term-default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
-     (term-default-bg ((t (nil))))
-     (term-default-bg-inv ((t (nil))))
-     (term-default-fg ((t (nil))))
-     (term-default-fg-inv ((t (nil))))
-     (term-green ((t (:foreground "green"))))
-     (term-greenbg ((t (:background "green"))))
-     (term-invisible ((t (nil))))
-     (term-invisible-inv ((t (nil))))
-     (term-magenta ((t (:foreground "magenta"))))
-     (term-magentabg ((t (:background "magenta"))))
-     (term-red ((t (:foreground "red"))))
-     (term-redbg ((t (:background "red"))))
-     (term-underline ((t (:underline t))))
-     (term-white ((t (:foreground "white"))))
-     (term-whitebg ((t (:background "white"))))
-     (term-yellow ((t (:foreground "yellow"))))
-     (term-yellowbg ((t (:background "yellow"))))
-     (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue")))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray"))))
-     (zmacs-region ((t (:background "dimgray")))))))
-
-(defun color-theme-lethe ()
-  "Color theme by Ivica Loncar, created 2002-08-02.
-Some additional X resources as suggested by the author:
-
-Emacs*menubar.Foreground:		Yellow
-Emacs*menubar.Background:		#1a2b3c
-Emacs*menubar.topShadowColor:		gray
-Emacs*menubar.bottomShadowColor:	dimgray
-
-Some fonts I really like (note: this fonts are not highly
-available):
-
-Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2
-Emacs*menubar*Font:  -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1
-
-Mouse fix:
-
-Emacs*dialog*XmPushButton.translations:#override\n\
-	  <Btn1Down>:         Arm()\n\
- <Btn1Down>,<Btn1Up>: Activate()\
-			 Disarm()\n\
-      <Btn1Down>(2+):     MultiArm()\n\
-	<Btn1Up>(2+):       MultiActivate()\n\
-	    <Btn1Up>:           Activate()\
-			 Disarm()\n\
-      <Key>osfSelect:    ArmAndActivate()\n\
-    <Key>osfActivate:   ArmAndActivate()\n\
-	<Key>osfHelp:    Help()\n\
- ~Shift ~Meta ~Alt <Key>Return:  ArmAndActivate()\n\
-       <EnterWindow>:      Enter()\n\
-       <LeaveWindow>:      Leave()\n
-
-Bonus: do not use 3D modeline."
-  (interactive)
-  (color-theme-install
-   '(color-theme-lethe
-     ((background-color . "black")
-      (background-mode . dark)
-      (background-toolbar-color . "#000000000000")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "red")
-      (cursor-color . "red")
-      (foreground-color . "peachpuff")
-      (mouse-color . "red")
-      (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
-     ((buffers-tab-face . buffers-tab)
-      (cscope-use-face . t)
-      (gnus-mouse-face . highlight))
-     (default ((t (nil))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (nil))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:italic t :bold t))))
-     (border ((t (nil))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:bold t :foreground "red"))))
-     (button ((t (:underline t))))
-     (calendar-today-face ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
-     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (cscope-file-face ((t (:foreground "blue"))))
-     (cscope-function-face ((t (:foreground "magenta"))))
-     (cscope-line-face ((t (:foreground "green"))))
-     (cscope-line-number-face ((t (:foreground "red"))))
-     (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
-     (cursor ((t (nil))))
-     (custom-button-face ((t (nil))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:underline t :bold t))))
-     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
-     (cyan ((t (:foreground "cyan"))))
-     (diary-face ((t (:foreground "red"))))
-     (dired-face-boring ((t (:foreground "Gray65"))))
-     (dired-face-directory ((t (:bold t))))
-     (dired-face-executable ((t (:foreground "SeaGreen"))))
-     (dired-face-flagged ((t (:background "LightSlateGray"))))
-     (dired-face-marked ((t (:background "PaleVioletRed"))))
-     (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
-     (dired-face-setuid ((t (:foreground "Red"))))
-     (dired-face-socket ((t (:foreground "magenta"))))
-     (dired-face-symlink ((t (:foreground "cyan"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "red"))))
-     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     (erc-action-face ((t (:bold t))))
-     (erc-bold-face ((t (:bold t))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:background "Red" :foreground "White"))))
-     (erc-input-face ((t (:foreground "brown"))))
-     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
-     (erc-notice-face ((t (:bold t :foreground "SlateBlue"))))
-     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black"))))
-     (erc-timestamp-face ((t (:bold t :foreground "green"))))
-     (erc-underline-face ((t (:underline t))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
-     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
-     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
-     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Red"))))
-     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
-     (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
-     (excerpt ((t (:italic t))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed ((t (:bold t))))
-     (fixed-pitch ((t (:size "16"))))
-     (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
-     (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
-     (font-lock-builtin-face ((t (:foreground "Orchid"))))
-     (font-lock-comment-face ((t (:bold t :foreground "cyan"))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-doc-face ((t (:bold t :foreground "red"))))
-     (font-lock-doc-string-face ((t (:bold t :foreground "red"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "white"))))
-     (font-lock-keyword-face ((t (:bold t :foreground "yellow"))))
-     (font-lock-preprocessor-face ((t (:bold t :foreground "blue"))))
-     (font-lock-reference-face ((t (:foreground "red3"))))
-     (font-lock-string-face ((t (:bold t :foreground "magenta"))))
-     (font-lock-type-face ((t (:bold t :foreground "lightgreen"))))
-     (font-lock-variable-name-face ((t (:bold t :foreground "white"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-     (fringe ((t (:background "grey95"))))
-     (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red"))))
-     (gnus-cite-attribution-face ((t (:italic t))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
-     (gnus-emphasis-highlight-words ((t (:foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
-     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
-     (gnus-header-from-face ((t (:foreground "red3"))))
-     (gnus-header-name-face ((t (:foreground "maroon"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
-     (gnus-header-subject-face ((t (:foreground "red4"))))
-     (gnus-picons-face ((t (:background "white" :foreground "black"))))
-     (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
-     (gnus-signature-face ((t (:italic t))))
-     (gnus-splash-face ((t (:foreground "ForestGreen"))))
-     (gnus-summary-cancelled-face ((t (:foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
-     (gnus-summary-high-unread-face ((t (:bold t))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
-     (gnus-summary-low-unread-face ((t (:italic t))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (gnus-x-face ((t (:background "white" :foreground "black"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
-     (header-line ((t (:background "grey20" :foreground "grey90"))))
-     (highlight ((t (:bold t :background "yellow" :foreground "red"))))
-     (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
-     (highlight-changes-face ((t (:foreground "red"))))
-     (highline-face ((t (:background "paleturquoise"))))
-     (holiday-face ((t (:background "pink"))))
-     (hyper-apropos-documentation ((t (:foreground "#aaaaaa"))))
-     (hyper-apropos-heading ((t (:bold t :foreground "#999999"))))
-     (hyper-apropos-hyperlink ((t (:foreground "Violet"))))
-     (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000"))))
-     (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55"))))
-     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
-     (info-menu-5 ((t (:underline t))))
-     (info-node ((t (:italic t :bold t))))
-     (info-xref ((t (:bold t))))
-     (isearch ((t (:background "paleturquoise"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (:italic t))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
-     (jde-java-font-lock-italic-face ((t (:italic t))))
-     (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue"))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (magenta ((t (:foreground "magenta"))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (nil))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
-     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:bold t :foreground "cyan"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (minibuffer-prompt ((t (:foreground "cyan"))))
-     (mode-line ((t (:background "grey75" :foreground "black"))))
-     (mode-line-inactive ((t (:background "grey30" :foreground "grey80"))))
-     (modeline ((t (:bold t :background "red" :foreground "yellow"))))
-     (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow"))))
-     (modeline-mousable ((t (:background "red" :foreground "yellow"))))
-     (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4"))))
-     (mouse ((t (nil))))
-     (paren-blink-off ((t (:foreground "black"))))
-     (paren-match ((t (:bold t :background "yellow" :foreground "red"))))
-     (paren-mismatch ((t (:background "DeepPink"))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray75"))))
-     (right-margin ((t (nil))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (semantic-dirty-token-face ((t (:background "lightyellow"))))
-     (semantic-unmatched-syntax-face ((t (nil))))
-     (senator-intangible-face ((t (:foreground "gray75"))))
-     (senator-momentary-highlight-face ((t (:background "gray30"))))
-     (senator-read-only-face ((t (:background "#664444"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:underline t :foreground "red"))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (template-message-face ((t (:bold t))))
-     (term-black ((t (:foreground "black"))))
-     (term-blackbg ((t (nil))))
-     (term-blue ((t (:foreground "blue"))))
-     (term-blue-bold-face ((t (:bold t :foreground "blue"))))
-     (term-blue-face ((t (:foreground "blue"))))
-     (term-blue-inv-face ((t (:background "blue"))))
-     (term-blue-ul-face ((t (:underline t :foreground "blue"))))
-     (term-bluebg ((t (:background "blue"))))
-     (term-bold ((t (:bold t))))
-     (term-cyan ((t (:foreground "cyan"))))
-     (term-cyan-bold-face ((t (:bold t :foreground "cyan"))))
-     (term-cyan-face ((t (:foreground "cyan"))))
-     (term-cyan-inv-face ((t (:background "cyan"))))
-     (term-cyan-ul-face ((t (:underline t :foreground "cyan"))))
-     (term-cyanbg ((t (:background "cyan"))))
-     (term-default-bg ((t (nil))))
-     (term-default-bg-inv ((t (nil))))
-     (term-default-bold-face ((t (:bold t))))
-     (term-default-face ((t (nil))))
-     (term-default-fg ((t (nil))))
-     (term-default-fg-inv ((t (nil))))
-     (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
-     (term-default-ul-face ((t (:underline t))))
-     (term-green ((t (:foreground "green"))))
-     (term-green-bold-face ((t (:bold t :foreground "green"))))
-     (term-green-face ((t (:foreground "green"))))
-     (term-green-inv-face ((t (:background "green"))))
-     (term-green-ul-face ((t (:underline t :foreground "green"))))
-     (term-greenbg ((t (:background "green"))))
-     (term-invisible ((t (nil))))
-     (term-invisible-inv ((t (nil))))
-     (term-magenta ((t (:foreground "magenta"))))
-     (term-magenta-bold-face ((t (:bold t :foreground "magenta"))))
-     (term-magenta-face ((t (:foreground "magenta"))))
-     (term-magenta-inv-face ((t (:background "magenta"))))
-     (term-magenta-ul-face ((t (:underline t :foreground "magenta"))))
-     (term-magentabg ((t (:background "magenta"))))
-     (term-red ((t (:foreground "red"))))
-     (term-red-bold-face ((t (:bold t :foreground "red"))))
-     (term-red-face ((t (:foreground "red"))))
-     (term-red-inv-face ((t (:background "red"))))
-     (term-red-ul-face ((t (:underline t :foreground "red"))))
-     (term-redbg ((t (:background "red"))))
-     (term-underline ((t (:underline t))))
-     (term-white ((t (:foreground "white"))))
-     (term-white-bold-face ((t (:bold t :foreground "white"))))
-     (term-white-face ((t (:foreground "white"))))
-     (term-white-inv-face ((t (nil))))
-     (term-white-ul-face ((t (:underline t :foreground "white"))))
-     (term-whitebg ((t (:background "white"))))
-     (term-yellow ((t (:foreground "yellow"))))
-     (term-yellow-bold-face ((t (:bold t :foreground "yellow"))))
-     (term-yellow-face ((t (:foreground "yellow"))))
-     (term-yellow-inv-face ((t (:background "yellow"))))
-     (term-yellow-ul-face ((t (:underline t :foreground "yellow"))))
-     (term-yellowbg ((t (:background "yellow"))))
-     (text-cursor ((t (:background "red" :foreground "black"))))
-     (tool-bar ((t (:background "grey75" :foreground "black"))))
-     (toolbar ((t (:background "Gray80" :foreground "black"))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (nil))))
-     (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
-     (vertical-divider ((t (:background "Gray80" :foreground "black"))))
-     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
-     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
-     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-     (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
-     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-     (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
-     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-     (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
-     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-     (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
-     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-     (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
-     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-     (white ((t (:foreground "white"))))
-     (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (nil))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (x-face ((t (:bold t :background "wheat" :foreground "black"))))
-     (xrdb-option-name-face ((t (:bold t :foreground "yellow"))))
-     (xrdb-option-value-face ((t (:bold t :foreground "magenta"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "white" :foreground "black")))))))
-
-(defun color-theme-shaman ()
-  "Color theme by shaman, created 2002-11-11."
-  (interactive)
-  (color-theme-install
-   '(color-theme-shaman
-     ((background-color . "#456345")
-      (background-mode . dark)
-      (background-toolbar-color . "#cf3ccf3ccf3c")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#79e77df779e7")
-      (foreground-color . "White")
-      (top-toolbar-shadow-color . "#f7defbeef7de"))
-     ((buffers-tab-face . buffers-tab))
-     (default ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t :size "12"))))
-     (bold-italic ((t (:italic t :bold t :size "12"))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "Gray80" :foreground "black"))))
-     (font-lock-builtin-face ((t (:foreground "cadetblue2"))))
-     (font-lock-comment-face ((t (:foreground "gray80"))))
-     (font-lock-constant-face ((t (:foreground "steelblue1"))))
-     (font-lock-doc-face ((t (:foreground "light coral"))))
-     (font-lock-doc-string-face ((t (:foreground "light coral"))))
-     (font-lock-function-name-face ((t (:foreground "aquamarine"))))
-     (font-lock-keyword-face ((t (:foreground "cyan"))))
-     (font-lock-preprocessor-face ((t (:foreground "steelblue1"))))
-     (font-lock-reference-face ((t (:foreground "cadetblue2"))))
-     (font-lock-string-face ((t (:foreground "tan"))))
-     (font-lock-type-face ((t (:foreground "wheat"))))
-     (font-lock-variable-name-face ((t (:foreground "cyan3"))))
-     (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink"))))
-     (fringe ((t (nil))))
-     (gnus-x-face ((t (:background "white" :foreground "black"))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75" :foreground "black"))))
-     (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (isearch ((t (:background "paleturquoise"))))
-     (isearch-secondary ((t (:foreground "red3"))))
-     (italic ((t (:italic t :size "12"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:bold t :foreground "green4"))))
-     (message-header-name-face ((t (:foreground "DarkGreen"))))
-     (message-header-newsgroups-face ((t (:bold t :foreground "yellow"))))
-     (message-header-other-face ((t (:foreground "#b00000"))))
-     (message-header-subject-face ((t (:foreground "green3"))))
-     (message-header-to-face ((t (:bold t :foreground "green2"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "blue3"))))
-     (mode-line ((t (:background "Gray80" :foreground "black"))))
-     (modeline ((t (:background "Gray80" :foreground "black"))))
-     (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
-     (pointer ((t (:foreground "White"))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray65"))))
-     (right-margin ((t (nil))))
-     (rpm-spec-dir-face ((t (:foreground "green"))))
-     (rpm-spec-doc-face ((t (:foreground "magenta"))))
-     (rpm-spec-ghost-face ((t (:foreground "red"))))
-     (rpm-spec-macro-face ((t (:foreground "yellow"))))
-     (rpm-spec-package-face ((t (:foreground "red"))))
-     (rpm-spec-tag-face ((t (:foreground "blue"))))
-     (rpm-spec-var-face ((t (:foreground "maroon"))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (text-cursor ((t (:background "Pink" :foreground "Black"))))
-     (tool-bar ((t (nil))))
-     (toolbar ((t (:background "Gray80" :foreground "black"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (:background "Gray80" :foreground "black"))))
-     (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "gray65")))))))
-
-(defun color-theme-emacs-nw ()
-  "Follow emacs21's color-theme, with -nw getting 100% compatibility. 
-
-Alex's `color-theme-emacs-21' follows emacs21's theme, but in the
-current scheme of things, that means that when it works on X, it won't
-work in -nw perfectly.  The modeline and menuline will have same
-colors as the rest of emacs, which can be particularly disturbing when
-there are multiple windows.
-
-OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is
-100% -nw compatibility, and in X; we shall try for decent color
-scheme, and as much compability default emacs21's X as possble. 
-Bugs to deego@gnufans.org.
-
-TODO: Try to make this theme relative to color-theme-emacs-21 rather
-than absolute, viz: call that first and then tweak minor stuff."
-  (interactive)
-  (color-theme-install
-   '(color-theme-emacs-nw
-     ((background-color . "white")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "black")
-      (foreground-color . "black")
-      (mouse-color . "black"))
-     ((Man-overstrike-face . bold)
-      (Man-underline-face . underline)
-      (cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face . underline)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (idlwave-class-arrow-face . bold)
-      (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
-      (idlwave-shell-expression-face . secondary-selection)
-      (idlwave-shell-stop-line-face . highlight)
-      (ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (viper-insert-state-cursor-color . "Green")
-      (viper-replace-overlay-cursor-color . "Red")
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
-     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
-     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
-     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
-     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (calendar-today-face ((t (:underline t))))
-     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
-     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-date-face ((t (:foreground "RosyBrown"))))
-     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-file-face ((t (:foreground "Blue"))))
-     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
-     (change-log-list-face ((t (:foreground "Purple"))))
-     (change-log-name-face ((t (:foreground "CadetBlue"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
-     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
-     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
-     (cursor ((t (:background "black"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "gray85"))))
-     (custom-comment-tag-face ((t (:foreground "blue4"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
-     (cvs-filename-face ((t (:foreground "blue4"))))
-     (cvs-handled-face ((t (:foreground "pink"))))
-     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
-     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
-     (cvs-msg-face ((t (:italic t :slant italic))))
-     (cvs-need-action-face ((t (:foreground "orange"))))
-     (cvs-unknown-face ((t (:foreground "red"))))
-     (diary-face ((t (:foreground "red"))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (:foreground "grey50"))))
-     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
-     (diff-function-face ((t (:foreground "grey50"))))
-     (diff-header-face ((t (:background "grey85"))))
-     (diff-hunk-header-face ((t (:background "grey85"))))
-     (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
-     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (:foreground "RosyBrown"))))
-     (dired-face-directory ((t (:foreground "Blue"))))
-     (dired-face-executable ((t (nil))))
-     (dired-face-flagged ((t (:foreground "Red" :weight bold))))
-     (dired-face-marked ((t (:foreground "Red" :weight bold))))
-     (dired-face-permissions ((t (nil))))
-     (dired-face-setuid ((t (nil))))
-     (dired-face-socket ((t (nil))))
-     (dired-face-symlink ((t (:foreground "Purple"))))
-     (ebrowse-default-face ((t (nil))))
-     (ebrowse-file-name-face ((t (:italic t :slant italic))))
-     (ebrowse-member-attribute-face ((t (:foreground "red"))))
-     (ebrowse-member-class-face ((t (:foreground "purple"))))
-     (ebrowse-progress-face ((t (:background "blue"))))
-     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
-     (ebrowse-tree-mark-face ((t (:foreground "red"))))
-     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
-     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
-     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
-     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
-     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
-     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
-     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
-     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
-     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
-     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
-     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
-     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
-     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
-     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
-     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
-     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
-     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
-     (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
-     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
-     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
-     (excerpt ((t (:italic t :slant italic))))
-     (fixed ((t (:bold t :weight bold))))
-     (fixed-pitch ((t (:family "courier"))))
-     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
-     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "Orchid"))))
-     (font-lock-comment-face ((t (:foreground "Firebrick"))))
-     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
-     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
-     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-function-name-face ((t (:foreground "Blue"))))
-     (font-lock-keyword-face ((t (:foreground "Purple"))))
-     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
-     (font-lock-reference-face ((t (:foreground "Orchid"))))
-     (font-lock-string-face ((t (:foreground "RosyBrown"))))
-     (font-lock-type-face ((t (:foreground "ForestGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (fringe ((t (:background "grey95"))))
-     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
-     (gnus-header-from-face ((t (:foreground "red3"))))
-     (gnus-header-name-face ((t (:foreground "maroon"))))
-     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
-     (gnus-header-subject-face ((t (:foreground "red4"))))
-     (gnus-signature-face ((t (:italic t :slant italic))))
-     (gnus-splash-face ((t (:foreground "Brown"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
-     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
-     (hi-black-b ((t (:bold t :weight bold))))
-     (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
-     (hi-blue ((t (:background "light blue"))))
-     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
-     (hi-green ((t (:background "green"))))
-     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
-     (hi-pink ((t (:background "pink"))))
-     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
-     (hi-yellow ((t (:background "yellow"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
-     (highlight-changes-face ((t (:foreground "red"))))
-     (holiday-face ((t (:background "pink"))))
-     (idlwave-help-link-face ((t (:foreground "Blue"))))
-     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
-     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
-     (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
-     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
-     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
-     (log-view-message-face ((t (:background "grey85"))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
-     (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
-     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (mouse ((t (:background "black"))))
-     (primary-selection ((t (:background "lightgoldenrod2"))))
-     (reb-match-0 ((t (:background "lightblue"))))
-     (reb-match-1 ((t (:background "aquamarine"))))
-     (reb-match-2 ((t (:background "springgreen"))))
-     (reb-match-3 ((t (:background "yellow"))))
-     (region ((t (:background "lightgoldenrod2"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "yellow"))))
-     (sh-heredoc-face ((t (:foreground "tan"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (show-tabs-space-face ((t (:foreground "yellow"))))
-     (show-tabs-tab-face ((t (:foreground "red"))))
-     (smerge-base-face ((t (:foreground "red"))))
-     (smerge-markers-face ((t (:background "grey85"))))
-     (smerge-mine-face ((t (:foreground "blue"))))
-     (smerge-other-face ((t (:foreground "darkgreen"))))
-     (speedbar-button-face ((t (:foreground "green4"))))
-     (speedbar-directory-face ((t (:foreground "blue4"))))
-     (speedbar-file-face ((t (:foreground "cyan4"))))
-     (speedbar-highlight-face ((t (:background "green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-tag-face ((t (:foreground "brown"))))
-     (strokes-char-face ((t (:background "lightgray"))))
-     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
-     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
-     (tex-math-face ((t (:foreground "RosyBrown"))))
-     (texinfo-heading-face ((t (:foreground "Blue"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
-     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
-     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
-     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
-     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
-     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
-     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
-     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
-     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
-     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
-     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
-     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
-     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
-     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
-     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
-     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
-     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
-     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
-     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
-     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
-     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
-     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85"))))
-     (woman-addition-face ((t (:foreground "orange"))))
-     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
-     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
-     (woman-unknown-face ((t (:foreground "brown"))))
-     (zmacs-region ((t (:background "lightgoldenrod2")))))))
-
-(defun color-theme-late-night ()
-  "Color theme by Alex Schroeder, created 2003-08-07.
-This theme is for use late at night, with only little light in the room.
-The goal was to make something as dark and subtle as the text console in
-its default 80x25 state -- dark grey on black."
-  (interactive)
-  (let ((color-theme-is-cumulative t))
-    (color-theme-dark-erc)
-    (color-theme-dark-gnus)
-    ;; (color-theme-dark-diff)
-    ;; (color-theme-dark-eshell)
-    (color-theme-dark-info)
-    (color-theme-dark-font-lock)
-    (color-theme-install
-     '(color-theme-late-night
-       ((background-color . "#000")
-	(background-mode . dark)
-	(background-toolbar-color . "#000")
-	(border-color . "#000")
-	(bottom-toolbar-shadow-color . "#000")
-	(cursor-color	. "#888")
-	(foreground-color . "#666")
-	(top-toolbar-shadow-color . "#111"))
-       (default ((t (nil))))
-       (bold ((t (:bold t))))
-       (button ((t (:bold t))))
-       (custom-button-face ((t (:bold t :foreground "#999"))))
-       (fringe ((t (:background "#111" :foreground "#444"))))
-       (header-line ((t (:background "#333" :foreground "#000"))))
-       (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
-       (holiday-face ((t (:background "#000" :foreground "#777"))))
-       (isearch ((t (:foreground "pink" :background "red"))))
-       (isearch-lazy-highlight-face ((t (:foreground "red"))))
-       (italic ((t (:bold t))))
-       (menu ((t (:background "#111" :foreground "#444"))))
-       (minibuffer-prompt ((t (:foreground "555"))))
-       (modeline ((t (:background "#111" :foreground "#444"))))
-       (mode-line-inactive ((t (:background "#000" :foreground "#444"))))
-       (modeline-buffer-id ((t (:background "#000" :foreground "#555"))))
-       (modeline-mousable ((t (:background "#000" :foreground "#555"))))
-       (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555"))))
-       (region ((t (:background "dark cyan" :foreground "cyan"))))
-       (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
-       (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
-       (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
-       (tool-bar ((t (:background "#111" :foreground "#777"))))
-       (tooltip ((t (:background "#333" :foreground "#777"))))
-       (underline ((t (:bold t))))
-       (variable-pitch ((t (nil))))
-       (widget-button-face ((t (:bold t :foreground "#888"))))
-       (widget-field-face ((t (:bold t :foreground "#999"))))))))
-
-(defun color-theme-clarity ()
-  "White on black color theme by Richard Wellum, created 2003-01-16."
-  (interactive)
-  (color-theme-install
-   '(color-theme-clarity
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "white")
-      (cursor-color . "yellow")
-      (foreground-color . "white")
-      (mouse-color . "white"))
-     ((CUA-mode-global-mark-cursor-color . "cyan")
-      (CUA-mode-normal-cursor-color . "yellow")
-      (CUA-mode-overwrite-cursor-color . "red")
-      (CUA-mode-read-only-cursor-color . "green")
-      (help-highlight-face . underline)
-      (ibuffer-dired-buffer-face . font-lock-function-name-face)
-      (ibuffer-help-buffer-face . font-lock-comment-face)
-      (ibuffer-hidden-buffer-face . font-lock-warning-face)
-      (ibuffer-occur-match-face . font-lock-warning-face)
-      (ibuffer-read-only-buffer-face . font-lock-type-face)
-      (ibuffer-special-buffer-face . font-lock-keyword-face)
-      (ibuffer-title-face . font-lock-type-face)
-      (list-matching-lines-face . bold)
-      (ps-line-number-color . "black")
-      (ps-zebra-color . 0.95)
-      (tags-tag-face . default)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (nil))))
-     (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
-     (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
-     (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "white"))))
-     (clearcase-dired-checkedout-face ((t (:foreground "red"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cursor ((t (:background "yellow"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (flash-paren-face-off ((t (nil))))
-     (flash-paren-face-on ((t (nil))))
-     (flash-paren-face-region ((t (nil))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "OrangeRed"))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
-     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
-     (font-lock-keyword-face ((t (:foreground "Cyan"))))
-     (font-lock-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-type-face ((t (:foreground "PaleGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fringe ((t (:background "grey10"))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (ibuffer-deletion-face ((t (:foreground "red"))))
-     (ibuffer-marked-face ((t (:foreground "green"))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (menu ((t (nil))))
-     (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button)))))
-     (mouse ((t (:background "white"))))
-     (region ((t (:background "blue"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "darkslateblue"))))
-     (show-block-face1 ((t (:background "gray10"))))
-     (show-block-face2 ((t (:background "gray15"))))
-     (show-block-face3 ((t (:background "gray20"))))
-     (show-block-face4 ((t (:background "gray25"))))
-     (show-block-face5 ((t (:background "gray30"))))
-     (show-block-face6 ((t (:background "gray35"))))
-     (show-block-face7 ((t (:background "gray40"))))
-     (show-block-face8 ((t (:background "gray45"))))
-     (show-block-face9 ((t (:background "gray50"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray")))))))
-
-(defun color-theme-andreas ()
-  "Color theme by Andreas Busch, created 2003-02-06."
-  (interactive)
-  (color-theme-install
-   '(color-theme-andreas
-     ((background-mode . light)
-      (background-color . "white")
-      (background-toolbar-color . "#cccccccccccc")
-      (border-color . "#000000000000")
-      (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
-      (foreground-color . "black")
-      (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
-     ((gnus-mouse-face . highlight)
-      (ispell-highlight-face . highlight))
-     (default ((t (nil))))
-     (OrangeRed ((t (nil))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:italic t :bold t))))
-     (border-glyph ((t (nil))))
-     (calendar-today-face ((t (:underline t))))
-     (color-mode-face-@ ((t (:foreground "orange"))))
-     (color-mode-face-a ((t (:foreground "blue"))))
-     (color-mode-face-b ((t (:foreground "red"))))
-     (color-mode-face-c ((t (:foreground "green3"))))
-     (color-mode-face-d ((t (:background "red" :foreground "white"))))
-     (color-mode-face-e ((t (:background "orange" :foreground "blue"))))
-     (color-mode-face-f ((t (:background "blue" :foreground "yellow"))))
-     (color-mode-face-g ((t (:background "lightblue" :foreground "brown"))))
-     (color-mode-face-h ((t (:background "brown" :foreground "white"))))
-     (custom-button-face ((t (:bold t))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
-     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "dark green"))))
-     (custom-variable-button-face ((t (:underline t :bold t :background "gray90"))))
-     (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue"))))
-     (diary-face ((t (:foreground "red"))))
-     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
-     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
-     (display-time-time-balloon-face ((t (:foreground "red"))))
-     (emacs-wiki-bad-link-face ((t (:bold t :foreground "red"))))
-     (emacs-wiki-link-face ((t (:bold t :foreground "green"))))
-     (font-lock-comment-face ((t (:foreground "orange1"))))
-     (font-lock-doc-string-face ((t (:foreground "green4"))))
-     (font-lock-function-name-face ((t (:foreground "blue3"))))
-     (font-lock-keyword-face ((t (:foreground "red1"))))
-     (font-lock-preprocessor-face ((t (:foreground "blue3"))))
-     (font-lock-reference-face ((t (:foreground "red3"))))
-     (font-lock-string-face ((t (:foreground "green4"))))
-     (font-lock-type-face ((t (:foreground "#6920ac"))))
-     (font-lock-variable-name-face ((t (:foreground "blue3"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
-     (gnu-cite-face-3 ((t (nil))))
-     (gnu-cite-face-4 ((t (nil))))
-     (gnus-cite-attribution-face ((t (:underline t))))
-     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
-     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
-     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
-     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
-     (gnus-cite-face-3 ((t (:foreground "dark green"))))
-     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
-     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
-     (gnus-cite-face-8 ((t (:foreground "magenta"))))
-     (gnus-cite-face-9 ((t (:foreground "violet"))))
-     (gnus-emphasis-bold ((t (:bold t))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
-     (gnus-emphasis-italic ((t (:italic t))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
-     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
-     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
-     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
-     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t))))
-     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
-     (gnus-header-from-face ((t (:bold t :foreground "red3"))))
-     (gnus-header-name-face ((t (:foreground "maroon"))))
-     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
-     (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
-     (gnus-splash-face ((t (:foreground "red"))))
-     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed"))))
-     (gnus-summary-high-unread-face ((t (:bold t))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
-     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
-     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
-     (gnus-summary-low-unread-face ((t (:italic t))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
-     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "Red"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (gnus-x-face ((t (nil))))
-     (green ((t (:foreground "green"))))
-     (gui-button-face ((t (:background "grey75"))))
-     (gui-element ((t (:background "Gray80"))))
-     (highlight ((t (nil))))
-     (holiday-face ((t (:background "pink"))))
-     (hyper-apropos-documentation ((t (:foreground "darkred"))))
-     (hyper-apropos-heading ((t (:bold t))))
-     (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
-     (hyper-apropos-major-heading ((t (:bold t))))
-     (hyper-apropos-section-heading ((t (:italic t :bold t))))
-     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
-     (info-node ((t (:italic t :bold t))))
-     (info-xref ((t (:bold t))))
-     (isearch ((t (:background "yellow" :foreground "red"))))
-     (italic ((t (:italic t))))
-     (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4"))))
-     (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2"))))
-     (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3"))))
-     (kai-gnus-group-mail-face ((t (:foreground "darkslategrey"))))
-     (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed"))))
-     (kai-gnus-group-starred-face ((t (:foreground "grey50"))))
-     (left-margin ((t (nil))))
-     (list-mode-item-selected ((t (:background "gray68"))))
-     (message-cited-text ((t (:italic t))))
-     (message-cited-text-face ((t (:foreground "red"))))
-     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
-     (message-header-contents ((t (:italic t))))
-     (message-header-name-face ((t (:foreground "cornflower blue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
-     (message-header-other-face ((t (:foreground "steel blue"))))
-     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
-     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
-     (message-header-xheader-face ((t (:foreground "blue"))))
-     (message-headers ((t (:bold t))))
-     (message-highlighted-header-contents ((t (:italic t :bold t))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "brown"))))
-     (modeline ((t (:background "Gray75" :foreground "Black"))))
-     (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4"))))
-     (modeline-mousable ((t (:background "Gray75" :foreground "firebrick"))))
-     (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
-     (paren-blink-off ((t (:foreground "gray80"))))
-     (paren-match ((t (:background "red" :foreground "white"))))
-     (paren-mismatch ((t (:background "DeepPink"))))
-     (pointer ((t (:foreground "blue"))))
-     (primary-selection ((t (:background "gray65"))))
-     (red ((t (:foreground "red"))))
-     (region ((t (:background "gray75"))))
-     (right-margin ((t (nil))))
-     (secondary-selection ((t (:background "paleturquoise"))))
-     (text-cursor ((t (:background "red" :foreground "LightYellow1"))))
-     (toolbar ((t (:background "Gray80"))))
-     (underline ((t (:underline t))))
-     (vertical-divider ((t (:background "Gray80"))))
-     (widget-button-face ((t (:bold t))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (x-face ((t (:background "white"))))
-     (yellow ((t (:foreground "yellow"))))
-     (zmacs-region ((t (:background "gray65" :foreground "yellow")))))))
-
-(defun color-theme-charcoal-black ()
-  "Color theme by Lars Chr. Hausmann, created 2003-03-24."
-  (interactive)
-  (color-theme-install
-   '(color-theme-charcoal-black
-     ((background-color . "Grey15")
-      (background-mode . dark)
-      (border-color . "Grey")
-      (cursor-color . "Grey")
-      (foreground-color . "Grey")
-      (mouse-color . "Grey"))
-     ((display-time-mail-face . mode-line)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-mouse-face . highlight)
-      (gnus-server-agent-face . gnus-server-agent-face)
-      (gnus-server-closed-face . gnus-server-closed-face)
-      (gnus-server-denied-face . gnus-server-denied-face)
-      (gnus-server-offline-face . gnus-server-offline-face)
-      (gnus-server-opened-face . gnus-server-opened-face)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (mime-button-face . bold)
-      (mime-button-mouse-face . highlight)
-      (sgml-set-face . t)
-      (tags-tag-face . default)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "Grey15" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed"))))
-     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-     (bg:erc-color-face0 ((t (nil))))
-     (bg:erc-color-face1 ((t (nil))))
-     (bg:erc-color-face10 ((t (nil))))
-     (bg:erc-color-face11 ((t (nil))))
-     (bg:erc-color-face12 ((t (nil))))
-     (bg:erc-color-face13 ((t (nil))))
-     (bg:erc-color-face14 ((t (nil))))
-     (bg:erc-color-face15 ((t (nil))))
-     (bg:erc-color-face2 ((t (nil))))
-     (bg:erc-color-face3 ((t (nil))))
-     (bg:erc-color-face4 ((t (nil))))
-     (bg:erc-color-face5 ((t (nil))))
-     (bg:erc-color-face6 ((t (nil))))
-     (bg:erc-color-face7 ((t (nil))))
-     (bg:erc-color-face8 ((t (nil))))
-     (bg:erc-color-face9 ((t (nil))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:bold t :foreground "beige" :weight bold))))
-     (border ((t (:background "Grey"))))
-     (calendar-today-face ((t (:underline t))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold))))
-     (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
-     (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
-     (cursor ((t (:background "Grey"))))
-     (custom-button-face ((t (:foreground "gainsboro"))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (:foreground "light blue"))))
-     (custom-face-tag-face ((t (:underline t))))
-     (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
-     (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "light salmon"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (diary-face ((t (:foreground "red"))))
-     (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
-     (dired-face-executable ((t (:foreground "green yellow"))))
-     (dired-face-flagged ((t (:foreground "tomato"))))
-     (dired-face-marked ((t (:foreground "light salmon"))))
-     (dired-face-permissions ((t (:foreground "aquamarine"))))
-     (erc-action-face ((t (nil))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "pale green"))))
-     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
-     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-input-face ((t (:foreground "light blue"))))
-     (erc-inverse-face ((t (:background "steel blue"))))
-     (erc-notice-face ((t (:foreground "light salmon"))))
-     (erc-pal-face ((t (:foreground "pale green"))))
-     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
-     (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold))))
-     (eshell-ls-backup-face ((t (:foreground "dim gray"))))
-     (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
-     (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold))))
-     (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold))))
-     (eshell-ls-missing-face ((t (:foreground "black"))))
-     (eshell-ls-picture-face ((t (:foreground "violet"))))
-     (eshell-ls-product-face ((t (:foreground "light steel blue"))))
-     (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
-     (eshell-ls-special-face ((t (:foreground "gold"))))
-     (eshell-ls-symlink-face ((t (:foreground "white"))))
-     (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
-     (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold))))
-     (excerpt ((t (:italic t :slant italic))))
-     (fg:erc-color-face0 ((t (:foreground "white"))))
-     (fg:erc-color-face1 ((t (:foreground "beige"))))
-     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
-     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
-     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
-     (fg:erc-color-face13 ((t (:foreground "yellow"))))
-     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
-     (fg:erc-color-face15 ((t (:foreground "lime green"))))
-     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
-     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
-     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
-     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
-     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
-     (fg:erc-color-face7 ((t (:foreground "pale green"))))
-     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
-     (fg:erc-color-face9 ((t (:foreground "khaki"))))
-     (fixed ((t (:bold t :weight bold))))
-     (fixed-pitch ((t (:family "courier"))))
-     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
-     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "aquamarine"))))
-     (font-lock-comment-face ((t (:foreground "light blue"))))
-     (font-lock-constant-face ((t (:foreground "pale green"))))
-     (font-lock-doc-face ((t (:foreground "light sky blue"))))
-     (font-lock-doc-string-face ((t (:foreground "sky blue"))))
-     (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold))))
-     (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
-     (font-lock-reference-face ((t (:foreground "pale green"))))
-     (font-lock-string-face ((t (:foreground "light sky blue"))))
-     (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold))))
-     (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (fringe ((t (:background "Grey15"))))
-     (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
-     (gnus-cite-face-2 ((t (:foreground "Khaki"))))
-     (gnus-cite-face-3 ((t (:foreground "Coral"))))
-     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
-     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
-     (gnus-cite-face-6 ((t (:foreground "bisque"))))
-     (gnus-cite-face-7 ((t (:foreground "peru"))))
-     (gnus-cite-face-8 ((t (:foreground "light coral"))))
-     (gnus-cite-face-9 ((t (:foreground "plum"))))
-     (gnus-emphasis-bold ((t (:bold t :weight bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-strikethru ((t (nil))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (:foreground "White"))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
-     (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
-     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
-     (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
-     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
-     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
-     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
-     (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold))))
-     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
-     (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
-     (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
-     (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold))))
-     (gnus-signature-face ((t (:foreground "Grey"))))
-     (gnus-splash-face ((t (:foreground "ForestGreen"))))
-     (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
-     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
-     (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
-     (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
-     (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic))))
-     (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
-     (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
-     (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
-     (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
-     (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
-     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:underline t))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
-     (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
-     (highline-face ((t (:background "DeepSkyBlue4"))))
-     (holiday-face ((t (:background "pink"))))
-     (info-header-node ((t (:bold t :weight bold))))
-     (info-header-xref ((t (:bold t :weight bold :foreground "sky blue"))))
-     (info-menu-5 ((t (:underline t))))
-     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-     (info-node ((t (:bold t :weight bold))))
-     (info-xref ((t (:bold t :foreground "sky blue" :weight bold))))
-     (isearch ((t (:background "slate blue"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:foreground "sky blue"))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
-     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
-     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (makefile-space-face ((t (:background "hotpink"))))
-     (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
-     (message-cited-text-face ((t (:foreground "LightSalmon"))))
-     (message-header-cc-face ((t (:foreground "light cyan"))))
-     (message-header-name-face ((t (:foreground "LightBlue"))))
-     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
-     (message-header-other-face ((t (:foreground "MediumAquamarine"))))
-     (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
-     (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
-     (message-mml-face ((t (:foreground "ForestGreen"))))
-     (message-separator-face ((t (:foreground "chocolate"))))
-     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
-     (mouse ((t (:background "Grey"))))
-     (region ((t (:background "DarkSlateBlue"))))
-     (scroll-bar ((t (:background "grey75"))))
-     (secondary-selection ((t (:background "steel blue"))))
-     (semantic-dirty-token-face ((t (:background "gray10"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (show-paren-match-face ((t (:background "light slate blue" :foreground "white"))))
-     (show-paren-mismatch-face ((t (:background "red" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "seashell2"))))
-     (speedbar-directory-face ((t (:foreground "seashell3"))))
-     (speedbar-file-face ((t (:foreground "seashell4"))))
-     (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
-     (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
-     (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
-     (speedbar-tag-face ((t (:foreground "antique white"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "light blue"))))
-     (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
-     (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold))))
-     (woman-italic-face ((t (:foreground "deep sky blue"))))
-     (woman-unknown-face ((t (:foreground "LightSalmon"))))
-     (zmacs-region ((t (:background "DarkSlateBlue")))))))
-
-(defun color-theme-vim-colors ()
-  "Color theme by Michael Soulier, created 2003-03-26."
-  (interactive)
-  (color-theme-install
-   '(color-theme-vim-colors
-     ((background-color . "#ffffff")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "#000000")
-      (foreground-color . "#000000")
-      (mouse-color . "#000000"))
-     ((Man-overstrike-face . bold)
-      (Man-underline-face . underline)
-      (apropos-keybinding-face . underline)
-      (apropos-label-face . italic)
-      (apropos-match-face . secondary-selection)
-      (apropos-property-face . bold-italic)
-      (apropos-symbol-face . bold)
-      (cperl-here-face . font-lock-string-face)
-      (cperl-invalid-face quote underline)
-      (cperl-pod-face . font-lock-comment-face)
-      (cperl-pod-head-face . font-lock-variable-name-face)
-      (help-highlight-face . underline)
-      (ispell-highlight-face . highlight)
-      (list-matching-lines-face . bold)
-      (rpm-spec-dir-face . rpm-spec-dir-face)
-      (rpm-spec-doc-face . rpm-spec-doc-face)
-      (rpm-spec-ghost-face . rpm-spec-ghost-face)
-      (rpm-spec-macro-face . rpm-spec-macro-face)
-      (rpm-spec-package-face . rpm-spec-package-face)
-      (rpm-spec-tag-face . rpm-spec-tag-face)
-      (tags-tag-face . default)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:background "#ffffff" :foreground "#000000"))))
-     (Info-title-1-face ((t (nil))))
-     (Info-title-2-face ((t (nil))))
-     (Info-title-3-face ((t (nil))))
-     (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold)))))
-     (bold ((t (:bold (bold extra-bold ultra-bold)))))
-     (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold)))))
-     (border ((t (:background "black"))))
-     (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold)))))
-     (comint-highlight-prompt ((t (:foreground "dark blue"))))
-     (cperl-array-face ((t (:foreground "brown"))))
-     (cperl-hash-face ((t (:foreground "red"))))
-     (cperl-nonoverridable-face ((t (:foreground "#008b8b"))))
-     (cursor ((t (:background "#000000"))))
-     (fixed-pitch ((t (nil))))
-     (font-lock-builtin-face ((t (:foreground "purple"))))
-     (font-lock-comment-face ((t (:foreground "blue"))))
-     (font-lock-constant-face ((t (:foreground "green4"))))
-     (font-lock-doc-face ((t (:background "#f2f2f2"))))
-     (font-lock-function-name-face ((t (:foreground "#008b8b"))))
-     (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a"))))
-     (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff"))))
-     (font-lock-type-face ((t (:foreground "ForestGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "#008b8b"))))
-     (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red"))))
-     (fringe ((t (:background "#e5e5e5"))))
-     (header-line ((t (:background "grey90" :foreground "grey20"))))
-     (highlight ((t (:background "darkseagreen2"))))
-     (info-header-node ((t (nil))))
-     (info-header-xref ((t (nil))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold (bold extra-bold ultra-bold)))))
-     (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown"))))
-     (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4"))))
-     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic (italic oblique)))))
-     (menu ((t (nil))))
-     (mode-line ((t (:background "grey75" :foreground "black"))))
-     (mouse ((t (:background "#000000"))))
-     (region ((t (:background "lightgoldenrod2"))))
-     (rpm-spec-dir-face ((t (:foreground "green"))))
-     (rpm-spec-doc-face ((t (:foreground "magenta"))))
-     (rpm-spec-ghost-face ((t (:foreground "red"))))
-     (rpm-spec-macro-face ((t (:foreground "purple"))))
-     (rpm-spec-package-face ((t (:foreground "red"))))
-     (rpm-spec-tag-face ((t (:foreground "blue"))))
-     (scroll-bar ((t (:background "grey75" :foreground "#000000"))))
-     (secondary-selection ((t (:background "yellow"))))
-     (sh-heredoc-face ((t (:foreground "tan"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (tool-bar ((t (:background "grey75" :foreground "black"))))
-     (tooltip ((t (:background "lightyellow" :foreground "black"))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (nil))))
-     (widget-button-face ((t (:bold (bold extra-bold ultra-bold)))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85")))))))
-
-(defun color-theme-calm-forest ()
-  "Color theme by Artur Hefczyc, created 2003-04-18."
-  (interactive)
-  (color-theme-install
-   '(color-theme-calm-forest
-     ((background-color . "gray12")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "orange")
-      (foreground-color . "green")
-      (mouse-color . "yellow"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (senator-eldoc-use-color . t)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil
-:strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width
-normal :family "outline-courier new"))))
-     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
-     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
-     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
-     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (comint-highlight-input ((t (:bold t :weight bold))))
-     (comint-highlight-prompt ((t (:foreground "cyan"))))
-     (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold))))
-     (cparen-around-begin-face ((t (:foreground "maroon"))))
-     (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
-     (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold))))
-     (cparen-around-lambda-face ((t (:foreground "LightSeaGreen"))))
-     (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold))))
-     (cparen-around-quote-face ((t (:foreground "SaddleBrown"))))
-     (cparen-around-set!-face ((t (:foreground "OrangeRed"))))
-     (cparen-around-syntax-rules-face ((t (:foreground "Magenta"))))
-     (cparen-around-vector-face ((t (:foreground "chocolate"))))
-     (cparen-binding-face ((t (:foreground "ForestGreen"))))
-     (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
-     (cparen-conditional-clause-face ((t (:foreground "RoyalBlue"))))
-     (cparen-normal-paren-face ((t (:foreground "grey50"))))
-     (cursor ((t (:background "orange"))))
-     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style
-released-button)))))
-     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width
-2 :style pressed-button)))))
-     (custom-changed-face ((t (:background "blue" :foreground "white"))))
-     (custom-comment-face ((t (:background "dim gray"))))
-     (custom-comment-tag-face ((t (:foreground "gray80"))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
-     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
-     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height
-1.2))))
-     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
-     (custom-modified-face ((t (:background "blue" :foreground "white"))))
-     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
-     (custom-saved-face ((t (:underline t))))
-     (custom-set-face ((t (:background "white" :foreground "blue"))))
-     (custom-state-face ((t (:foreground "lime green"))))
-     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
-     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold
-:height 1.2))))
-     (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
-     (extra-whitespace-face ((t (:background "pale green"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
-     (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
-     (font-latex-math-face ((t (:foreground "burlywood"))))
-     (font-latex-sedate-face ((t (:foreground "LightGray"))))
-     (font-latex-string-face ((t (:foreground "RosyBrown"))))
-     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
-     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
-     (font-lock-comment-face ((t (:foreground "chocolate1"))))
-     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
-     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
-     (font-lock-keyword-face ((t (:foreground "Cyan"))))
-     (font-lock-string-face ((t (:foreground "LightSalmon"))))
-     (font-lock-type-face ((t (:foreground "PaleGreen"))))
-     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
-     (fringe ((t (:background "grey10"))))
-     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground
-"grey90" :box nil))))
-     (highlight ((t (:background "darkolivegreen"))))
-     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
-     (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
-     (info-menu-5 ((t (:foreground "red1"))))
-     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
-     (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
-     (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
-     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
-     (italic ((t (:italic t :slant italic))))
-     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
-     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
-     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
-     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
-     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
-     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
-     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
-     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
-     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
-     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
-     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
-     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
-     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (:underline t))))
-     (menu ((t (nil))))
-     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style
-released-button)))))
-     (mouse ((t (:background "yellow"))))
-     (region ((t (:background "blue3"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "SkyBlue4"))))
-     (semantic-dirty-token-face ((t (:background "gray10"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (senator-intangible-face ((t (:foreground "gray75"))))
-     (senator-momentary-highlight-face ((t (:background "gray30"))))
-     (senator-read-only-face ((t (:background "#664444"))))
-     (show-paren-match-face ((t (:background "turquoise"))))
-     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
-     (speedbar-button-face ((t (:foreground "green3"))))
-     (speedbar-directory-face ((t (:foreground "light blue"))))
-     (speedbar-file-face ((t (:foreground "cyan"))))
-     (speedbar-highlight-face ((t (:background "sea green"))))
-     (speedbar-selected-face ((t (:foreground "red" :underline t))))
-     (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
-     (speedbar-tag-face ((t (:foreground "yellow"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style
-released-button)))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "lime green"))))
-     (widget-field-face ((t (:background "dim gray"))))
-     (widget-inactive-face ((t (:foreground "light gray"))))
-     (widget-single-line-field-face ((t (:background "dim gray")))))))
-
-(defun color-theme-lawrence ()
-  "Color theme by lawrence mitchell <wence@gmx.li>.
-Mainly shades of green.
-Contains faces for erc, gnus, most of jde."
-  (interactive)
-  (color-theme-install
-   '(color-theme-lawrence
-     ((background-color . "black")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "green")
-      (foreground-color . "#00CC00")
-      (mouse-color . "black"))
-     ((erc-button-face . bold)
-      (erc-button-mouse-face . highlight)
-      (gnus-article-button-face . bold)
-      (gnus-article-mouse-face . highlight)
-      (gnus-cite-attribution-face . gnus-cite-attribution-face)
-      (gnus-mouse-face . highlight)
-      (gnus-server-agent-face . gnus-server-agent-face)
-      (gnus-server-closed-face . gnus-server-closed-face)
-      (gnus-server-denied-face . gnus-server-denied-face)
-      (gnus-server-offline-face . gnus-server-offline-face)
-      (gnus-server-opened-face . gnus-server-opened-face)
-      (gnus-signature-face . gnus-signature-face)
-      (gnus-summary-selected-face . gnus-summary-selected-face)
-      (gnus-treat-display-face . head)
-      (gnus-treat-display-xface . head)
-      (list-matching-lines-buffer-name-face . underline)
-      (list-matching-lines-face . bold)
-      (paren-match-face . paren-face-match)
-      (paren-mismatch-face . paren-face-mismatch)
-      (paren-no-match-face . paren-face-no-match)
-      (sgml-set-face . t)
-      (tags-tag-face . default)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (nil))))
-     (Buffer-menu-buffer-face ((t (:bold t :weight bold))))
-     (bg:erc-color-face0 ((t (:background "White"))))
-     (bg:erc-color-face1 ((t (:background "black"))))
-     (bg:erc-color-face10 ((t (:background "lightblue1"))))
-     (bg:erc-color-face11 ((t (:background "cyan"))))
-     (bg:erc-color-face12 ((t (:background "blue"))))
-     (bg:erc-color-face13 ((t (:background "deeppink"))))
-     (bg:erc-color-face14 ((t (:background "gray50"))))
-     (bg:erc-color-face15 ((t (:background "gray90"))))
-     (bg:erc-color-face2 ((t (:background "blue4"))))
-     (bg:erc-color-face3 ((t (:background "green4"))))
-     (bg:erc-color-face4 ((t (:background "red"))))
-     (bg:erc-color-face5 ((t (:background "brown"))))
-     (bg:erc-color-face6 ((t (:background "purple"))))
-     (bg:erc-color-face7 ((t (:background "orange"))))
-     (bg:erc-color-face8 ((t (:background "yellow"))))
-     (bg:erc-color-face9 ((t (:background "green"))))
-     (bold ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold))))
-     (border ((t (:background "black"))))
-     (button ((t (:underline t))))
-     (comint-highlight-input ((t (nil))))
-     (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (cursor ((t (:background "green"))))
-     (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (custom-button-pressed-face ((t (nil))))
-     (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
-     (custom-comment-face ((t (nil))))
-     (custom-comment-tag-face ((t (nil))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (nil))))
-     (custom-group-tag-face ((t (nil))))
-     (custom-group-tag-face-1 ((t (nil))))
-     (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
-     (custom-modified-face ((t (nil))))
-     (custom-rogue-face ((t (nil))))
-     (custom-saved-face ((t (nil))))
-     (custom-set-face ((t (nil))))
-     (custom-state-face ((t (nil))))
-     (custom-variable-button-face ((t (nil))))
-     (custom-variable-tag-face ((t (nil))))
-     (erc-action-face ((t (:bold t :weight semi-bold))))
-     (erc-bold-face ((t (:bold t :weight bold))))
-     (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold))))
-     (erc-dangerous-host-face ((t (:foreground "red"))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
-     (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
-     (erc-fool-face ((t (:foreground "dim gray"))))
-     (erc-input-face ((t (:foreground "springgreen"))))
-     (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold))))
-     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
-     (erc-nick-default-face ((t (:bold t :weight semi-bold))))
-     (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold))))
-     (erc-notice-face ((t (:foreground "seagreen" :weight normal))))
-     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
-     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold))))
-     (erc-timestamp-face ((t (:foreground "seagreen" :weight normal))))
-     (erc-underline-face ((t (:underline t))))
-     (fg:erc-color-face0 ((t (:foreground "White"))))
-     (fg:erc-color-face1 ((t (:foreground "black"))))
-     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
-     (fg:erc-color-face11 ((t (:foreground "cyan"))))
-     (fg:erc-color-face12 ((t (:foreground "blue"))))
-     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
-     (fg:erc-color-face14 ((t (:foreground "gray50"))))
-     (fg:erc-color-face15 ((t (:foreground "gray90"))))
-     (fg:erc-color-face2 ((t (:foreground "blue4"))))
-     (fg:erc-color-face3 ((t (:foreground "green4"))))
-     (fg:erc-color-face4 ((t (:foreground "red"))))
-     (fg:erc-color-face5 ((t (:foreground "brown"))))
-     (fg:erc-color-face6 ((t (:foreground "purple"))))
-     (fg:erc-color-face7 ((t (:foreground "orange"))))
-     (fg:erc-color-face8 ((t (:foreground "yellow"))))
-     (fg:erc-color-face9 ((t (:foreground "green"))))
-     (fixed-pitch ((t (nil))))
-     (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black"))))
-     (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
-     (font-lock-builtin-face ((t (:foreground "seagreen1"))))
-     (font-lock-comment-face ((t (:background "black" :foreground "medium spring green"))))
-     (font-lock-constant-face ((t (nil))))
-     (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
-     (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold))))
-     (font-lock-preprocessor-face ((t (:foreground "#00ccdd"))))
-     (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
-     (font-lock-type-face ((t (nil))))
-     (font-lock-variable-name-face ((t (nil))))
-     (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold))))
-     (fringe ((t (:foreground "#00CC00" :background "#151515"))))
-     (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic))))
-     (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-cite-face-10 ((t (nil))))
-     (gnus-cite-face-11 ((t (nil))))
-     (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen"))))
-     (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen"))))
-     (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen"))))
-     (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen"))))
-     (gnus-emphasis-bold ((t (:bold t :weight semi-bold))))
-     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold))))
-     (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold))))
-     (gnus-emphasis-italic ((t (:italic t :slant italic))))
-     (gnus-emphasis-strikethru ((t (nil))))
-     (gnus-emphasis-underline ((t (:underline t))))
-     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold))))
-     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold))))
-     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
-     (gnus-group-mail-1-empty-face ((t (nil))))
-     (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-mail-2-empty-face ((t (nil))))
-     (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-mail-3-empty-face ((t (nil))))
-     (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-mail-low-empty-face ((t (nil))))
-     (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-1-empty-face ((t (nil))))
-     (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-2-empty-face ((t (nil))))
-     (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-group-news-low-empty-face ((t (nil))))
-     (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-header-content-face ((t (:background "black" :foreground "springgreen"))))
-     (gnus-header-from-face ((t (nil))))
-     (gnus-header-name-face ((t (nil))))
-     (gnus-header-newsgroups-face ((t (nil))))
-     (gnus-header-subject-face ((t (nil))))
-     (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
-     (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
-     (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold))))
-     (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
-     (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold))))
-     (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal))))
-     (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
-     (gnus-summary-high-ancient-face ((t (nil))))
-     (gnus-summary-high-read-face ((t (nil))))
-     (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen"))))
-     (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold))))
-     (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-summary-low-ancient-face ((t (nil))))
-     (gnus-summary-low-read-face ((t (nil))))
-     (gnus-summary-low-ticked-face ((t (nil))))
-     (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal))))
-     (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
-     (gnus-summary-normal-ancient-face ((t (nil))))
-     (gnus-summary-normal-read-face ((t (nil))))
-     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (:background "#101010"))))
-     (gnus-x-face ((t (:background "white" :foreground "black"))))
-     (header-line ((t (nil))))
-     (highlight ((t (:foreground "#00CC00" :background "darkgreen"))))
-     (ido-first-match-face ((t (:bold t :weight bold))))
-     (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed))))
-     (ido-only-match-face ((t (:foreground "ForestGreen"))))
-     (ido-subdir-face ((t (:foreground "red"))))
-     (isearch ((t (:background "seagreen" :foreground "black"))))
-     (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black"))))
-     (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
-     (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
-     (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
-     (message-header-cc-face ((t (nil))))
-     (message-header-name-face ((t (nil))))
-     (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (message-header-xheader-face ((t (nil))))
-     (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
-     (message-separator-face ((t (nil))))
-     (minibuffer-prompt ((t (:background "black" :foreground "seagreen"))))
-     (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
-     (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010"))))
-     (mouse ((t (:background "black"))))
-     (paren-face ((t (:background "black" :foreground "darkgreen"))))
-     (paren-face-match ((t (:background "black" :foreground "springgreen"))))
-     (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t))))
-     (paren-face-no-match ((t (:background "black" :foreground "red"))))
-     (region ((t (:background "seagreen" :foreground "black"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "darkseagreen" :foreground "black"))))
-     (semantic-dirty-token-face ((t (:background "gray10"))))
-     (semantic-unmatched-syntax-face ((t (:underline "red"))))
-     (sgml-end-tag-face ((t (:foreground "seagreen"))))
-     (sgml-start-tag-face ((t (:foreground "seagreen"))))
-     (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button)))))
-     (tabbar-default-face ((t (:background "black" :foreground "#00cc00"))))
-     (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button)))))
-     (tabbar-separator-face ((t (:foreground "#00cc00" :background "black"))))
-     (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button)))))
-     (tool-bar ((t (:box (:line-width 1 :style released-button)))))
-     (tooltip ((t (nil))))
-     (trailing-whitespace ((t (:background "lightseagreen" :foreground "black"))))
-     (underline ((t (:foreground "#00CC00" :background "black" :underline t))))
-     (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black"))))
-     (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
-     (widget-button-pressed-face ((t (nil))))
-     (widget-documentation-face ((t (nil))))
-     (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
-     (widget-inactive-face ((t (nil))))
-     (widget-single-line-field-face ((t (nil)))))))
-
-(defun color-theme-matrix ()
-  "Color theme by walterh@rocketmail.com, created 2003-10-16."
-  (interactive)
-  (color-theme-install
-   '(color-theme-matrix
-     ((background-color . "black")
-      (background-mode . dark)
-      (background-toolbar-color . "bisque")
-      (border-color . "orange")
-      (bottom-toolbar-shadow-color . "#909099999999")
-      (cursor-color . "#7eff00")
-      (foreground-color . "#7eff00")
-      (mouse-color . "#7eff00")
-      (top-toolbar-shadow-color . "#ffffffffffff"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (rmail-highlight-face . font-lock-function-name-face)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "black" :foreground
-"#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil
-:underline nil :slant normal :weight normal :height 90 :width normal
-:family "outline-courier new"))))
-     (Buffer-menu-buffer-face ((t (nil))))
-     (CUA-global-mark-face ((t (nil))))
-     (CUA-rectangle-face ((t (nil))))
-     (CUA-rectangle-noselect-face ((t (nil))))
-     (Info-title-1-face ((t (nil))))
-     (Info-title-2-face ((t (nil))))
-     (Info-title-3-face ((t (nil))))
-     (Info-title-4-face ((t (nil))))
-     (antlr-font-lock-keyword-face ((t (nil))))
-     (antlr-font-lock-literal-face ((t (nil))))
-     (antlr-font-lock-ruledef-face ((t (nil))))
-     (antlr-font-lock-ruleref-face ((t (nil))))
-     (antlr-font-lock-tokendef-face ((t (nil))))
-     (antlr-font-lock-tokenref-face ((t (nil))))
-     (bbdb-company ((t (nil))))
-     (bbdb-field-name ((t (nil))))
-     (bbdb-field-value ((t (nil))))
-     (bbdb-name ((t (nil))))
-     (bg:erc-color-face0 ((t (nil))))
-     (bg:erc-color-face1 ((t (nil))))
-     (bg:erc-color-face10 ((t (nil))))
-     (bg:erc-color-face11 ((t (nil))))
-     (bg:erc-color-face12 ((t (nil))))
-     (bg:erc-color-face13 ((t (nil))))
-     (bg:erc-color-face14 ((t (nil))))
-     (bg:erc-color-face15 ((t (nil))))
-     (bg:erc-color-face2 ((t (nil))))
-     (bg:erc-color-face3 ((t (nil))))
-     (bg:erc-color-face4 ((t (nil))))
-     (bg:erc-color-face5 ((t (nil))))
-     (bg:erc-color-face6 ((t (nil))))
-     (bg:erc-color-face7 ((t (nil))))
-     (bg:erc-color-face8 ((t (nil))))
-     (bg:erc-color-face9 ((t (nil))))
-     (blank-space-face ((t (nil))))
-     (blank-tab-face ((t (nil))))
-     (blue ((t (nil))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:bold t :weight bold))))
-     (border ((t (:background "orange"))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (nil))))
-     (button ((t (nil))))
-     (calendar-today-face ((t (nil))))
-     (change-log-acknowledgement-face ((t (nil))))
-     (change-log-conditionals-face ((t (nil))))
-     (change-log-date-face ((t (nil))))
-     (change-log-email-face ((t (nil))))
-     (change-log-file-face ((t (nil))))
-     (change-log-function-face ((t (nil))))
-     (change-log-list-face ((t (nil))))
-     (change-log-name-face ((t (nil))))
-     (clearcase-dired-checkedout-face ((t (nil))))
-     (comint-highlight-input ((t (nil))))
-     (comint-highlight-prompt ((t (nil))))
-     (cparen-around-andor-face ((t (nil))))
-     (cparen-around-begin-face ((t (nil))))
-     (cparen-around-conditional-face ((t (nil))))
-     (cparen-around-define-face ((t (nil))))
-     (cparen-around-lambda-face ((t (nil))))
-     (cparen-around-letdo-face ((t (nil))))
-     (cparen-around-quote-face ((t (nil))))
-     (cparen-around-set!-face ((t (nil))))
-     (cparen-around-syntax-rules-face ((t (nil))))
-     (cparen-around-vector-face ((t (nil))))
-     (cparen-binding-face ((t (nil))))
-     (cparen-binding-list-face ((t (nil))))
-     (cparen-conditional-clause-face ((t (nil))))
-     (cparen-normal-paren-face ((t (nil))))
-     (cperl-array-face ((t (nil))))
-     (cperl-hash-face ((t (nil))))
-     (cperl-invalid-face ((t (nil))))
-     (cperl-nonoverridable-face ((t (nil))))
-     (cursor ((t (:background "#7eff00" :foreground "black"))))
-     (custom-button-face ((t (nil))))
-     (custom-button-pressed-face ((t (nil))))
-     (custom-changed-face ((t (nil))))
-     (custom-comment-face ((t (nil))))
-     (custom-comment-tag-face ((t (nil))))
-     (custom-documentation-face ((t (nil))))
-     (custom-face-tag-face ((t (nil))))
-     (custom-group-tag-face ((t (nil))))
-     (custom-group-tag-face-1 ((t (nil))))
-     (custom-invalid-face ((t (nil))))
-     (custom-modified-face ((t (nil))))
-     (custom-rogue-face ((t (nil))))
-     (custom-saved-face ((t (nil))))
-     (custom-set-face ((t (nil))))
-     (custom-state-face ((t (nil))))
-     (custom-variable-button-face ((t (nil))))
-     (custom-variable-tag-face ((t (nil))))
-     (cvs-filename-face ((t (nil))))
-     (cvs-handled-face ((t (nil))))
-     (cvs-header-face ((t (nil))))
-     (cvs-marked-face ((t (nil))))
-     (cvs-msg-face ((t (nil))))
-     (cvs-need-action-face ((t (nil))))
-     (cvs-unknown-face ((t (nil))))
-     (cyan ((t (nil))))
-     (diary-face ((t (nil))))
-     (diff-added-face ((t (nil))))
-     (diff-changed-face ((t (nil))))
-     (diff-context-face ((t (nil))))
-     (diff-file-header-face ((t (nil))))
-     (diff-function-face ((t (nil))))
-     (diff-header-face ((t (nil))))
-     (diff-hunk-header-face ((t (nil))))
-     (diff-index-face ((t (nil))))
-     (diff-nonexistent-face ((t (nil))))
-     (diff-removed-face ((t (nil))))
-     (dired-face-boring ((t (nil))))
-     (dired-face-directory ((t (nil))))
-     (dired-face-executable ((t (nil))))
-     (dired-face-flagged ((t (nil))))
-     (dired-face-header ((t (nil))))
-     (dired-face-marked ((t (nil))))
-     (dired-face-permissions ((t (nil))))
-     (dired-face-setuid ((t (nil))))
-     (dired-face-socket ((t (nil))))
-     (dired-face-symlink ((t (nil))))
-     (display-time-mail-balloon-enhance-face ((t (nil))))
-     (display-time-mail-balloon-gnus-group-face ((t (nil))))
-     (display-time-time-balloon-face ((t (nil))))
-     (ebrowse-default-face ((t (nil))))
-     (ebrowse-file-name-face ((t (nil))))
-     (ebrowse-member-attribute-face ((t (nil))))
-     (ebrowse-member-class-face ((t (nil))))
-     (ebrowse-progress-face ((t (nil))))
-     (ebrowse-root-class-face ((t (nil))))
-     (ebrowse-tree-mark-face ((t (nil))))
-     (ecb-sources-face ((t (nil))))
-     (edb-inter-field-face ((t (nil))))
-     (edb-normal-summary-face ((t (nil))))
-     (ediff-current-diff-face-A ((t (nil))))
-     (ediff-current-diff-face-Ancestor ((t (nil))))
-     (ediff-current-diff-face-B ((t (nil))))
-     (ediff-current-diff-face-C ((t (nil))))
-     (ediff-even-diff-face-A ((t (nil))))
-     (ediff-even-diff-face-Ancestor ((t (nil))))
-     (ediff-even-diff-face-B ((t (nil))))
-     (ediff-even-diff-face-C ((t (nil))))
-     (ediff-fine-diff-face-A ((t (nil))))
-     (ediff-fine-diff-face-Ancestor ((t (nil))))
-     (ediff-fine-diff-face-B ((t (nil))))
-     (ediff-fine-diff-face-C ((t (nil))))
-     (ediff-odd-diff-face-A ((t (nil))))
-     (ediff-odd-diff-face-Ancestor ((t (nil))))
-     (ediff-odd-diff-face-B ((t (nil))))
-     (ediff-odd-diff-face-C ((t (nil))))
-     (eieio-custom-slot-tag-face ((t (nil))))
-     (emacs-wiki-bad-link-face ((t (nil))))
-     (emacs-wiki-link-face ((t (nil))))
-     (erc-action-face ((t (nil))))
-     (erc-bold-face ((t (nil))))
-     (erc-current-nick-face ((t (nil))))
-     (erc-dangerous-host-face ((t (nil))))
-     (erc-default-face ((t (nil))))
-     (erc-direct-msg-face ((t (nil))))
-     (erc-error-face ((t (nil))))
-     (erc-fool-face ((t (nil))))
-     (erc-highlight-face ((t (nil))))
-     (erc-input-face ((t (nil))))
-     (erc-inverse-face ((t (nil))))
-     (erc-keyword-face ((t (nil))))
-     (erc-nick-default-face ((t (nil))))
-     (erc-nick-msg-face ((t (nil))))
-     (erc-notice-face ((t (nil))))
-     (erc-pal-face ((t (nil))))
-     (erc-prompt-face ((t (nil))))
-     (erc-timestamp-face ((t (nil))))
-     (erc-underline-face ((t (nil))))
-     (eshell-ls-archive-face ((t (nil))))
-     (eshell-ls-backup-face ((t (nil))))
-     (eshell-ls-clutter-face ((t (nil))))
-     (eshell-ls-directory-face ((t (nil))))
-     (eshell-ls-executable-face ((t (nil))))
-     (eshell-ls-missing-face ((t (nil))))
-     (eshell-ls-picture-face ((t (nil))))
-     (eshell-ls-product-face ((t (nil))))
-     (eshell-ls-readonly-face ((t (nil))))
-     (eshell-ls-special-face ((t (nil))))
-     (eshell-ls-symlink-face ((t (nil))))
-     (eshell-ls-text-face ((t (nil))))
-     (eshell-ls-todo-face ((t (nil))))
-     (eshell-ls-unreadable-face ((t (nil))))
-     (eshell-prompt-face ((t (nil))))
-     (eshell-test-failed-face ((t (nil))))
-     (eshell-test-ok-face ((t (nil))))
-     (excerpt ((t (nil))))
-     (extra-whitespace-face ((t (nil))))
-     (ff-paths-non-existant-file-face ((t (nil))))
-     (fg:black ((t (nil))))
-     (fg:erc-color-face0 ((t (nil))))
-     (fg:erc-color-face1 ((t (nil))))
-     (fg:erc-color-face10 ((t (nil))))
-     (fg:erc-color-face11 ((t (nil))))
-     (fg:erc-color-face12 ((t (nil))))
-     (fg:erc-color-face13 ((t (nil))))
-     (fg:erc-color-face14 ((t (nil))))
-     (fg:erc-color-face15 ((t (nil))))
-     (fg:erc-color-face2 ((t (nil))))
-     (fg:erc-color-face3 ((t (nil))))
-     (fg:erc-color-face4 ((t (nil))))
-     (fg:erc-color-face5 ((t (nil))))
-     (fg:erc-color-face6 ((t (nil))))
-     (fg:erc-color-face7 ((t (nil))))
-     (fg:erc-color-face8 ((t (nil))))
-     (fg:erc-color-face9 ((t (nil))))
-     (fixed ((t (nil))))
-     (fixed-pitch ((t (nil))))
-     (fl-comment-face ((t (nil))))
-     (fl-function-name-face ((t (nil))))
-     (fl-keyword-face ((t (nil))))
-     (fl-string-face ((t (nil))))
-     (fl-type-face ((t (nil))))
-     (flash-paren-face-off ((t (nil))))
-     (flash-paren-face-on ((t (nil))))
-     (flash-paren-face-region ((t (nil))))
-     (flyspell-duplicate-face ((t (nil))))
-     (flyspell-incorrect-face ((t (nil))))
-     (font-latex-bold-face ((t (nil))))
-     (font-latex-italic-face ((t (nil))))
-     (font-latex-math-face ((t (nil))))
-     (font-latex-sedate-face ((t (nil))))
-     (font-latex-string-face ((t (nil))))
-     (font-latex-warning-face ((t (nil))))
-     (font-lock-builtin-face ((t (:foreground "pink2"))))
-     (font-lock-comment-face ((t (:italic t :background "black" :slant
-italic))))
-     (font-lock-constant-face ((t (:foreground "magenta"))))
-     (font-lock-doc-face ((t (nil))))
-     (font-lock-doc-string-face ((t (nil))))
-     (font-lock-exit-face ((t (nil))))
-     (font-lock-function-name-face ((t (:bold t :underline t :weight
-bold))))
-     (font-lock-keyword-face ((t (:foreground "yellow1"))))
-     (font-lock-other-emphasized-face ((t (nil))))
-     (font-lock-other-type-face ((t (nil))))
-     (font-lock-preprocessor-face ((t (nil))))
-     (font-lock-reference-face ((t (nil))))
-     (font-lock-special-comment-face ((t (nil))))
-     (font-lock-special-keyword-face ((t (nil))))
-     (font-lock-string-face ((t (:foreground "yellow2"))))
-     (font-lock-type-face ((t (:foreground "LightYellow1"))))
-     (font-lock-variable-name-face ((t (:foreground "light green"))))
-     (font-lock-warning-face ((t (nil))))
-     (fringe ((t (nil))))
-     (gnus-cite-attribution-face ((t (nil))))
-     (gnus-cite-face-1 ((t (nil))))
-     (gnus-cite-face-10 ((t (nil))))
-     (gnus-cite-face-11 ((t (nil))))
-     (gnus-cite-face-2 ((t (nil))))
-     (gnus-cite-face-3 ((t (nil))))
-     (gnus-cite-face-4 ((t (nil))))
-     (gnus-cite-face-5 ((t (nil))))
-     (gnus-cite-face-6 ((t (nil))))
-     (gnus-cite-face-7 ((t (nil))))
-     (gnus-cite-face-8 ((t (nil))))
-     (gnus-cite-face-9 ((t (nil))))
-     (gnus-emphasis-bold ((t (nil))))
-     (gnus-emphasis-bold-italic ((t (nil))))
-     (gnus-emphasis-highlight-words ((t (nil))))
-     (gnus-emphasis-italic ((t (nil))))
-     (gnus-emphasis-strikethru ((t (nil))))
-     (gnus-emphasis-underline ((t (nil))))
-     (gnus-emphasis-underline-bold ((t (nil))))
-     (gnus-emphasis-underline-bold-italic ((t (nil))))
-     (gnus-emphasis-underline-italic ((t (nil))))
-     (gnus-filterhist-face-1 ((t (nil))))
-     (gnus-group-mail-1-empty-face ((t (nil))))
-     (gnus-group-mail-1-face ((t (nil))))
-     (gnus-group-mail-2-empty-face ((t (nil))))
-     (gnus-group-mail-2-face ((t (nil))))
-     (gnus-group-mail-3-empty-face ((t (nil))))
-     (gnus-group-mail-3-face ((t (nil))))
-     (gnus-group-mail-low-empty-face ((t (nil))))
-     (gnus-group-mail-low-face ((t (nil))))
-     (gnus-group-news-1-empty-face ((t (nil))))
-     (gnus-group-news-1-face ((t (nil))))
-     (gnus-group-news-2-empty-face ((t (nil))))
-     (gnus-group-news-2-face ((t (nil))))
-     (gnus-group-news-3-empty-face ((t (nil))))
-     (gnus-group-news-3-face ((t (nil))))
-     (gnus-group-news-4-empty-face ((t (nil))))
-     (gnus-group-news-4-face ((t (nil))))
-     (gnus-group-news-5-empty-face ((t (nil))))
-     (gnus-group-news-5-face ((t (nil))))
-     (gnus-group-news-6-empty-face ((t (nil))))
-     (gnus-group-news-6-face ((t (nil))))
-     (gnus-group-news-low-empty-face ((t (nil))))
-     (gnus-group-news-low-face ((t (nil))))
-     (gnus-header-content-face ((t (nil))))
-     (gnus-header-from-face ((t (nil))))
-     (gnus-header-name-face ((t (nil))))
-     (gnus-header-newsgroups-face ((t (nil))))
-     (gnus-header-subject-face ((t (nil))))
-     (gnus-picon-face ((t (nil))))
-     (gnus-picon-xbm-face ((t (nil))))
-     (gnus-picons-face ((t (nil))))
-     (gnus-picons-xbm-face ((t (nil))))
-     (gnus-server-agent-face ((t (nil))))
-     (gnus-server-closed-face ((t (nil))))
-     (gnus-server-denied-face ((t (nil))))
-     (gnus-server-offline-face ((t (nil))))
-     (gnus-server-opened-face ((t (nil))))
-     (gnus-signature-face ((t (nil))))
-     (gnus-splash ((t (nil))))
-     (gnus-splash-face ((t (nil))))
-     (gnus-summary-cancelled-face ((t (nil))))
-     (gnus-summary-high-ancient-face ((t (nil))))
-     (gnus-summary-high-read-face ((t (nil))))
-     (gnus-summary-high-ticked-face ((t (nil))))
-     (gnus-summary-high-undownloaded-face ((t (nil))))
-     (gnus-summary-high-unread-face ((t (nil))))
-     (gnus-summary-low-ancient-face ((t (nil))))
-     (gnus-summary-low-read-face ((t (nil))))
-     (gnus-summary-low-ticked-face ((t (nil))))
-     (gnus-summary-low-undownloaded-face ((t (nil))))
-     (gnus-summary-low-unread-face ((t (nil))))
-     (gnus-summary-normal-ancient-face ((t (nil))))
-     (gnus-summary-normal-read-face ((t (nil))))
-     (gnus-summary-normal-ticked-face ((t (nil))))
-     (gnus-summary-normal-undownloaded-face ((t (nil))))
-     (gnus-summary-normal-unread-face ((t (nil))))
-     (gnus-summary-selected-face ((t (nil))))
-     (gnus-x-face ((t (nil))))
-     (green ((t (nil))))
-     (gui-button-face ((t (nil))))
-     (gui-element ((t (nil))))
-     (header-line ((t (nil))))
-     (hi-black-b ((t (nil))))
-     (hi-black-hb ((t (nil))))
-     (hi-blue ((t (nil))))
-     (hi-blue-b ((t (nil))))
-     (hi-green ((t (nil))))
-     (hi-green-b ((t (nil))))
-     (hi-pink ((t (nil))))
-     (hi-red-b ((t (nil))))
-     (hi-yellow ((t (nil))))
-     (highlight ((t (:background "#7eff00" :foreground "black"))))
-     (highlight-changes-delete-face ((t (nil))))
-     (highlight-changes-face ((t (nil))))
-     (highline-face ((t (nil))))
-     (holiday-face ((t (nil))))
-     (html-helper-bold-face ((t (nil))))
-     (html-helper-bold-italic-face ((t (nil))))
-     (html-helper-builtin-face ((t (nil))))
-     (html-helper-italic-face ((t (nil))))
-     (html-helper-underline-face ((t (nil))))
-     (html-tag-face ((t (nil))))
-     (hyper-apropos-documentation ((t (nil))))
-     (hyper-apropos-heading ((t (nil))))
-     (hyper-apropos-hyperlink ((t (nil))))
-     (hyper-apropos-major-heading ((t (nil))))
-     (hyper-apropos-section-heading ((t (nil))))
-     (hyper-apropos-warning ((t (nil))))
-     (ibuffer-deletion-face ((t (nil))))
-     (ibuffer-marked-face ((t (nil))))
-     (idlwave-help-link-face ((t (nil))))
-     (idlwave-shell-bp-face ((t (nil))))
-     (ido-first-match-face ((t (nil))))
-     (ido-indicator-face ((t (nil))))
-     (ido-only-match-face ((t (nil))))
-     (ido-subdir-face ((t (nil))))
-     (info-header-node ((t (nil))))
-     (info-header-xref ((t (nil))))
-     (info-menu-5 ((t (nil))))
-     (info-menu-6 ((t (nil))))
-     (info-menu-header ((t (nil))))
-     (info-node ((t (nil))))
-     (info-xref ((t (nil))))
-     (isearch ((t (nil))))
-     (isearch-lazy-highlight-face ((t (nil))))
-     (isearch-secondary ((t (nil))))
-     (italic ((t (:underline t))))
-     (jde-bug-breakpoint-cursor ((t (nil))))
-     (jde-bug-breakpoint-marker ((t (nil))))
-     (jde-db-active-breakpoint-face ((t (nil))))
-     (jde-db-requested-breakpoint-face ((t (nil))))
-     (jde-db-spec-breakpoint-face ((t (nil))))
-     (jde-java-font-lock-api-face ((t (nil))))
-     (jde-java-font-lock-bold-face ((t (nil))))
-     (jde-java-font-lock-code-face ((t (nil))))
-     (jde-java-font-lock-constant-face ((t (nil))))
-     (jde-java-font-lock-doc-tag-face ((t (nil))))
-     (jde-java-font-lock-italic-face ((t (nil))))
-     (jde-java-font-lock-link-face ((t (nil))))
-     (jde-java-font-lock-modifier-face ((t (nil))))
-     (jde-java-font-lock-number-face ((t (nil))))
-     (jde-java-font-lock-operator-face ((t (nil))))
-     (jde-java-font-lock-package-face ((t (nil))))
-     (jde-java-font-lock-pre-face ((t (nil))))
-     (jde-java-font-lock-underline-face ((t (nil))))
-     (lazy-highlight-face ((t (nil))))
-     (left-margin ((t (nil))))
-     (linemenu-face ((t (nil))))
-     (list-mode-item-selected ((t (nil))))
-     (log-view-file-face ((t (nil))))
-     (log-view-message-face ((t (nil))))
-     (magenta ((t (nil))))
-     (makefile-space-face ((t (nil))))
-     (man-bold ((t (nil))))
-     (man-heading ((t (nil))))
-     (man-italic ((t (nil))))
-     (man-xref ((t (nil))))
-     (menu ((t (nil))))
-     (message-cited-text ((t (nil))))
-     (message-cited-text-face ((t (nil))))
-     (message-header-cc-face ((t (nil))))
-     (message-header-contents ((t (nil))))
-     (message-header-name-face ((t (nil))))
-     (message-header-newsgroups-face ((t (nil))))
-     (message-header-other-face ((t (nil))))
-     (message-header-subject-face ((t (nil))))
-     (message-header-to-face ((t (nil))))
-     (message-header-xheader-face ((t (nil))))
-     (message-headers ((t (nil))))
-     (message-highlighted-header-contents ((t (nil))))
-     (message-mml-face ((t (nil))))
-     (message-separator-face ((t (nil))))
-     (message-url ((t (nil))))
-     (minibuffer-prompt ((t (nil))))
-     (mmm-face ((t (nil))))
-     (mode-line ((t (:bold t :background "gray" :foreground "black"
-:weight bold))))
-     (mode-line-inactive ((t (nil))))
-     (modeline-buffer-id ((t (:background "orange" :foreground
-"black"))))
-     (modeline-mousable ((t (:background "orange" :foreground
-"black"))))
-     (modeline-mousable-minor-mode ((t (:background "orange"
-:foreground "black"))))
-     (mouse ((t (nil))))
-     (mpg123-face-cur ((t (nil))))
-     (mpg123-face-slider ((t (nil))))
-     (my-tab-face ((t (nil))))
-     (nil ((t (nil))))
-     (overlay-empty-face ((t (nil))))
-     (p4-diff-del-face ((t (nil))))
-     (paren-blink-off ((t (nil))))
-     (paren-face ((t (nil))))
-     (paren-face-match ((t (nil))))
-     (paren-face-mismatch ((t (nil))))
-     (paren-face-no-match ((t (nil))))
-     (paren-match ((t (nil))))
-     (paren-mismatch ((t (nil))))
-     (paren-mismatch-face ((t (nil))))
-     (paren-no-match-face ((t (nil))))
-     (pointer ((t (nil))))
-     (primary-selection ((t (nil))))
-     (reb-match-0 ((t (nil))))
-     (reb-match-1 ((t (nil))))
-     (reb-match-2 ((t (nil))))
-     (reb-match-3 ((t (nil))))
-     (red ((t (nil))))
-     (region ((t (:background "#7eff00" :foreground "black"))))
-     (right-margin ((t (nil))))
-     (rpm-spec-dir-face ((t (nil))))
-     (rpm-spec-doc-face ((t (nil))))
-     (rpm-spec-ghost-face ((t (nil))))
-     (rpm-spec-macro-face ((t (nil))))
-     (rpm-spec-package-face ((t (nil))))
-     (rpm-spec-tag-face ((t (nil))))
-     (rpm-spec-var-face ((t (nil))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "orange" :foreground
-"black"))))
-     (semantic-dirty-token-face ((t (nil))))
-     (semantic-intangible-face ((t (nil))))
-     (semantic-read-only-face ((t (nil))))
-     (semantic-unmatched-syntax-face ((t (nil))))
-     (senator-intangible-face ((t (nil))))
-     (senator-momentary-highlight-face ((t (nil))))
-     (senator-read-only-face ((t (nil))))
-     (sgml-comment-face ((t (nil))))
-     (sgml-doctype-face ((t (nil))))
-     (sgml-end-tag-face ((t (nil))))
-     (sgml-entity-face ((t (nil))))
-     (sgml-ignored-face ((t (nil))))
-     (sgml-ms-end-face ((t (nil))))
-     (sgml-ms-start-face ((t (nil))))
-     (sgml-pi-face ((t (nil))))
-     (sgml-sgml-face ((t (nil))))
-     (sgml-short-ref-face ((t (nil))))
-     (sgml-shortref-face ((t (nil))))
-     (sgml-start-tag-face ((t (nil))))
-     (sh-heredoc-face ((t (nil))))
-     (shell-option-face ((t (nil))))
-     (shell-output-2-face ((t (nil))))
-     (shell-output-3-face ((t (nil))))
-     (shell-output-face ((t (nil))))
-     (shell-prompt-face ((t (nil))))
-     (show-block-face1 ((t (nil))))
-     (show-block-face2 ((t (nil))))
-     (show-block-face3 ((t (nil))))
-     (show-block-face4 ((t (nil))))
-     (show-block-face5 ((t (nil))))
-     (show-block-face6 ((t (nil))))
-     (show-block-face7 ((t (nil))))
-     (show-block-face8 ((t (nil))))
-     (show-block-face9 ((t (nil))))
-     (show-paren-match-face ((t (:background "orange" :foreground
-"black"))))
-     (show-paren-mismatch-face ((t (:underline t))))
-     (show-tabs-space-face ((t (nil))))
-     (show-tabs-tab-face ((t (nil))))
-     (smerge-base-face ((t (nil))))
-     (smerge-markers-face ((t (nil))))
-     (smerge-mine-face ((t (nil))))
-     (smerge-other-face ((t (nil))))
-     (speedbar-button-face ((t (nil))))
-     (speedbar-directory-face ((t (nil))))
-     (speedbar-file-face ((t (nil))))
-     (speedbar-highlight-face ((t (nil))))
-     (speedbar-selected-face ((t (nil))))
-     (speedbar-separator-face ((t (nil))))
-     (speedbar-tag-face ((t (nil))))
-     (strokes-char-face ((t (nil))))
-     (swbuff-current-buffer-face ((t (nil))))
-     (tabbar-button-face ((t (nil))))
-     (tabbar-default-face ((t (nil))))
-     (tabbar-selected-face ((t (nil))))
-     (tabbar-separator-face ((t (nil))))
-     (tabbar-unselected-face ((t (nil))))
-     (template-message-face ((t (nil))))
-     (term-black ((t (nil))))
-     (term-blackbg ((t (nil))))
-     (term-blue ((t (nil))))
-     (term-blue-bold-face ((t (nil))))
-     (term-blue-face ((t (nil))))
-     (term-blue-inv-face ((t (nil))))
-     (term-blue-ul-face ((t (nil))))
-     (term-bluebg ((t (nil))))
-     (term-bold ((t (nil))))
-     (term-cyan ((t (nil))))
-     (term-cyan-bold-face ((t (nil))))
-     (term-cyan-face ((t (nil))))
-     (term-cyan-inv-face ((t (nil))))
-     (term-cyan-ul-face ((t (nil))))
-     (term-cyanbg ((t (nil))))
-     (term-default ((t (nil))))
-     (term-default-bg ((t (nil))))
-     (term-default-bg-inv ((t (nil))))
-     (term-default-bold-face ((t (nil))))
-     (term-default-face ((t (nil))))
-     (term-default-fg ((t (nil))))
-     (term-default-fg-inv ((t (nil))))
-     (term-default-inv-face ((t (nil))))
-     (term-default-ul-face ((t (nil))))
-     (term-green ((t (nil))))
-     (term-green-bold-face ((t (nil))))
-     (term-green-face ((t (nil))))
-     (term-green-inv-face ((t (nil))))
-     (term-green-ul-face ((t (nil))))
-     (term-greenbg ((t (nil))))
-     (term-invisible ((t (nil))))
-     (term-invisible-inv ((t (nil))))
-     (term-magenta ((t (nil))))
-     (term-magenta-bold-face ((t (nil))))
-     (term-magenta-face ((t (nil))))
-     (term-magenta-inv-face ((t (nil))))
-     (term-magenta-ul-face ((t (nil))))
-     (term-magentabg ((t (nil))))
-     (term-red ((t (nil))))
-     (term-red-bold-face ((t (nil))))
-     (term-red-face ((t (nil))))
-     (term-red-inv-face ((t (nil))))
-     (term-red-ul-face ((t (nil))))
-     (term-redbg ((t (nil))))
-     (term-underline ((t (nil))))
-     (term-white ((t (nil))))
-     (term-white-bold-face ((t (nil))))
-     (term-white-face ((t (nil))))
-     (term-white-inv-face ((t (nil))))
-     (term-white-ul-face ((t (nil))))
-     (term-whitebg ((t (nil))))
-     (term-yellow ((t (nil))))
-     (term-yellow-bold-face ((t (nil))))
-     (term-yellow-face ((t (nil))))
-     (term-yellow-inv-face ((t (nil))))
-     (term-yellow-ul-face ((t (nil))))
-     (term-yellowbg ((t (nil))))
-     (tex-math-face ((t (nil))))
-     (texinfo-heading-face ((t (nil))))
-     (text-cursor ((t (nil))))
-     (tool-bar ((t (nil))))
-     (tooltip ((t (nil))))
-     (trailing-whitespace ((t (nil))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (nil))))
-     (vc-annotate-face-0046FF ((t (nil))))
-     (vcursor ((t (nil))))
-     (vertical-divider ((t (nil))))
-     (vhdl-font-lock-attribute-face ((t (nil))))
-     (vhdl-font-lock-directive-face ((t (nil))))
-     (vhdl-font-lock-enumvalue-face ((t (nil))))
-     (vhdl-font-lock-function-face ((t (nil))))
-     (vhdl-font-lock-generic-/constant-face ((t (nil))))
-     (vhdl-font-lock-prompt-face ((t (nil))))
-     (vhdl-font-lock-reserved-words-face ((t (nil))))
-     (vhdl-font-lock-translate-off-face ((t (nil))))
-     (vhdl-font-lock-type-face ((t (nil))))
-     (vhdl-font-lock-variable-face ((t (nil))))
-     (vhdl-speedbar-architecture-face ((t (nil))))
-     (vhdl-speedbar-architecture-selected-face ((t (nil))))
-     (vhdl-speedbar-configuration-face ((t (nil))))
-     (vhdl-speedbar-configuration-selected-face ((t (nil))))
-     (vhdl-speedbar-entity-face ((t (nil))))
-     (vhdl-speedbar-entity-selected-face ((t (nil))))
-     (vhdl-speedbar-instantiation-face ((t (nil))))
-     (vhdl-speedbar-instantiation-selected-face ((t (nil))))
-     (vhdl-speedbar-package-face ((t (nil))))
-     (vhdl-speedbar-package-selected-face ((t (nil))))
-     (vhdl-speedbar-subprogram-face ((t (nil))))
-     (viper-minibuffer-emacs-face ((t (nil))))
-     (viper-minibuffer-insert-face ((t (nil))))
-     (viper-minibuffer-vi-face ((t (nil))))
-     (viper-replace-overlay-face ((t (nil))))
-     (viper-search-face ((t (nil))))
-     (vm-xface ((t (nil))))
-     (vmpc-pre-sig-face ((t (nil))))
-     (vmpc-sig-face ((t (nil))))
-     (w3m-anchor-face ((t (nil))))
-     (w3m-arrived-anchor-face ((t (nil))))
-     (w3m-header-line-location-content-face ((t (nil))))
-     (w3m-header-line-location-title-face ((t (nil))))
-     (white ((t (nil))))
-     (widget ((t (nil))))
-     (widget-button-face ((t (nil))))
-     (widget-button-pressed-face ((t (nil))))
-     (widget-documentation-face ((t (nil))))
-     (widget-field-face ((t (nil))))
-     (widget-inactive-face ((t (nil))))
-     (widget-single-line-field-face ((t (nil))))
-     (woman-addition-face ((t (nil))))
-     (woman-bold-face ((t (nil))))
-     (woman-italic-face ((t (nil))))
-     (woman-unknown-face ((t (nil))))
-     (x-face ((t (nil))))
-     (xrdb-option-name-face ((t (nil))))
-     (xref-keyword-face ((t (nil))))
-     (xref-list-default-face ((t (nil))))
-     (xref-list-pilot-face ((t (nil))))
-     (xref-list-symbol-face ((t (nil))))
-     (yellow ((t (nil))))
-     (zmacs-region ((t (nil)))))))
-
-(defun color-theme-feng-shui ()
-  "Color theme by walterh@rocketmail.com (www.xanadb.com), created
-  2003-10-16. Evolved from color-theme-katester"
-  (interactive)
-  (color-theme-install
-   '(color-theme-feng-shui
-     ((background-color . "ivory")
-      (background-mode . light)
-      (border-color . "black")
-      (cursor-color . "slateblue")
-      (foreground-color . "black")
-      (mouse-color . "slateblue"))
-     ((help-highlight-face . underline)
-      (list-matching-lines-face . bold)
-      (view-highlight-face . highlight)
-      (widget-mouse-face . highlight))
-     (default ((t (:stipple nil :background "ivory" :foreground "black"
-:inverse-video nil :box nil :strike-through nil :overline nil
-:underline nil :slant normal :weight normal :height 90 :width normal
-:family "outline-courier new"))))
-     (bold ((t (:bold t :weight bold))))
-     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
-     (border ((t (:background "black"))))
-     (cursor ((t (:background "slateblue" :foreground "black"))))
-     (fixed-pitch ((t (:family "courier"))))
-     (font-lock-builtin-face ((t (:foreground "black"))))
-     (font-lock-comment-face ((t (:italic t :background "seashell"
-:slant italic))))
-     (font-lock-constant-face ((t (:foreground "darkblue"))))
-     (font-lock-doc-face ((t (:background "lemonChiffon"))))
-     (font-lock-function-name-face ((t (:bold t :underline t :weight
-bold))))
-     (font-lock-keyword-face ((t (:foreground "blue"))))
-     (font-lock-string-face ((t (:background "lemonChiffon"))))
-     (font-lock-type-face ((t (:foreground "black"))))
-     (font-lock-variable-name-face ((t (:foreground "black"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight
-bold))))
-     (fringe ((t (:background "grey95"))))
-     (header-line ((t (:bold t :weight bold :underline t :background
-"grey90" :foreground "grey20" :box nil))))
-     (highlight ((t (:background "mistyRose" :foreground "black"))))
-     (isearch ((t (:background "magenta4" :foreground
-"lightskyblue1"))))
-     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
-     (italic ((t (:italic t :slant italic))))
-     (menu ((t (nil))))
-     (mode-line ((t (:bold t :background "mistyRose" :foreground "navy"
-:underline t :weight bold))))
-     (mouse ((t (:background "slateblue"))))
-     (region ((t (:background "lavender" :foreground "black"))))
-     (scroll-bar ((t (nil))))
-     (secondary-selection ((t (:background "yellow"))))
-     (tool-bar ((t (:background "grey75" :foreground "black" :box
-(:line-width 1 :style released-button)))))
-     (trailing-whitespace ((t (:background "red"))))
-     (underline ((t (:underline t))))
-     (variable-pitch ((t (:family "helv"))))
-     (widget-button-face ((t (:bold t :weight bold))))
-     (widget-button-pressed-face ((t (:foreground "red"))))
-     (widget-documentation-face ((t (:foreground "dark green"))))
-     (widget-field-face ((t (:background "gray85"))))
-     (widget-inactive-face ((t (:foreground "dim gray"))))
-     (widget-single-line-field-face ((t (:background "gray85")))))))
-
-
-(defun color-theme-renegade ()
- "Renegade BBS styled color theme. Works well in X and terminals.
-Created by Dave Benjamin <ramen@ramenfest.com> Dec 23 2005."
- (interactive)
- (color-theme-install
-  '(color-theme-renegade
-    ((background-color . "black")
-     (background-mode . dark)
-     (border-color . "black")
-     (cursor-color . "black")
-     (foreground-color . "cyan3")
-     (mouse-color . "white"))
-    (default ((t (nil))))
-    (bold ((t (:bold t :foreground "cyan" :weight bold))))
-    (bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
-    (fixed-pitch ((t (:family "courier"))))
-    (font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold))))
-    (font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold))))
-    (font-lock-constant-face ((t (:foreground "magenta3"))))
-    (font-lock-doc-face ((t (:bold t :weight bold :foreground "red"))))
-    (font-lock-function-name-face ((t (:foreground "gray"))))
-    (font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold))))
-    (font-lock-string-face ((t (:bold t :foreground "red" :weight bold))))
-    (font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold))))
-    (font-lock-variable-name-face ((t (:foreground "cyan3"))))
-    (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
-    (fringe ((t (:background "gray32"))))
-    (highlight ((t (:background "blue"))))
-    (isearch ((t (:background "blue" :foreground "cyan3"))))
-    (isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black"))))
-    (menu ((t (nil))))
-    (mode-line ((t (:bold t :background "blue3" :foreground "white" :box (:line-width -1 :style released-button) :weight bold))))
-    (mouse ((t (:background "white"))))
-    (region ((t (:bold t :background "white" :foreground "blue" :weight bold))))
-    (scroll-bar ((t (nil))))
-    (trailing-whitespace ((t (:background "red"))))
-    (underline ((t (:underline t))))
-    (variable-pitch ((t (:family "helv")))))))
-
-;;; color-theme-library.el ends here
diff --git a/emacs.el b/emacs.el
new file mode 100644
index 0000000..91c2cb2
--- /dev/null
+++ b/emacs.el
@@ -0,0 +1,419 @@
+;; -*- mode: Emacs-Lisp; -*-
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                         LOAD-PATHS                         ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-to-list 'load-path "~/.emacs.d/elisp")
+(add-to-list 'load-path "~/.emacs.d/naquadah-theme")
+(add-to-list 'load-path "~/.emacs.d/elisp/markdown-mode")
+(add-to-list 'load-path "~/.emacs.d/elisp/git-commit-mode")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                          REQUIRES                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(require 'naquadah-theme)
+(require 'autopair)
+(require 'column-marker)
+(require 'git-commit)
+(require 'org-crypt)
+(require 'rainbow-delimiters)
+(require 'uniquify)
+(require 'server)
+(require 'org-publish)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                         AUTOLOADS                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(autoload 'vala-mode         "vala-mode"
+  "A Major mode for editing Vala files"         t)
+(autoload 'csharp-mode       "csharp-mode"
+  "A Major mode for editing C# files"           t)
+(autoload 'javascript-mode   "javascript"
+  "A Major mode for editing JavaScript files"   t)
+(autoload 'sqlplus-mode      "sqlplus"
+  "A Major mode for communicating with Oracle"  t)
+(autoload 'batch-mode        "batch-mode"
+  "A Major mode for editing Batch files"        t)
+(autoload 'lua-mode          "lua-mode"
+  "A Major mode for editing Lua files"          t)
+(autoload 'php-mode          "php-mode-improved"
+  "A Major mode for editing PHP files"          t)
+(autoload 'graphviz-dot-mode "graphviz-dot-mode"
+  "A Major mode for editing graphviz dot files" t)
+(autoload 'cmake-mode        "cmake-mode"
+  "A major-mode for editing CMake sources"      t)
+(autoload 'markdown-mode     "markdown-mode"
+  "Major mode for editing Markdown files"       t)
+(autoload 'rainbow-mode      "rainbow-mode"
+  "A Minor mode for showing colors inline"      t)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                           DEFUNS                           ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun what-face (pos)
+  "Find out which face the current position uses"
+  (interactive "d")
+  (let ((face (or (get-char-property (point) 'read-face-name)
+                  (get-char-property (point) 'face))))
+    (if face
+        (message "Face: %s" face)
+      (message "No face at %d" pos))))
+
+(defun my-comp-finish-function (buf str)
+  "Don't show compilation window if everything went ok"
+  (if (string-match "exited abnormally" str)
+      ;; there were errors
+      (message "compilation errors, press C-x ` to visit")
+    ;; no errors, make the compilation window go away in 0.5 seconds
+    (run-at-time 0.5 nil 'delete-windows-on buf)
+    (message "NO COMPILATION ERRORS!")))
+
+(defun fullscreen ()
+  "Fill the entire screen with emacs"
+  (interactive)
+  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+                         '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
+  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+                         '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
+
+(defun c-toggle-header-source ()
+  "Toggle between a C source and header file"
+  (interactive)
+  (let ((ext (file-name-extension (buffer-file-name)))
+        (noext (file-name-sans-extension (buffer-file-name))))
+    (if (string= (substring ext 0 1) "c")
+        (find-file (concat noext ".h"))
+      (find-file (concat noext ".c")))))
+
+(defun browse-to-current-file ()
+  "Show current file in browser"
+  (interactive)
+  (browse-url buffer-file-name))
+
+(defun comment-line ()
+  "Toggle comment on a line"
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (insert "//")))
+
+(defun add-php-keywords ()
+  "Designed for c and c-style languages
+
+Currently adds | & ! . + = - / % * , < > ? : ->"
+  ;; Add ! at the beginning of font lock
+  (font-lock-add-keywords
+   'php-mode
+   '(("\\([!]\\|\\=>\\)" 1 font-lock-operator-face)))
+  ;; Add the rest at the end of font lock
+  (font-lock-add-keywords
+   'php-mode
+   '(("\\(->\\|[|.+=&/%*,:?<>-]\\)" 1 font-lock-operator-face)
+     ("\\(;\\)" 1 font-lock-end-statement)) 1))
+
+(defun add-html-keywords ()
+  "Designed for html, show some smarty tags"
+  (font-lock-add-keywords
+   'html-mode
+   '(("{\\(\\*.*\\*\\)}" 1 font-comment-face)
+     ("{\\/?\\(extends\\|block\\|foreach\\|if\\)"
+      1 font-lock-builtin-face)
+     ("\\$\\(\\(?:\\sw\\|\\s_\\)+\\)\\(?:|\\(\\(?:\\sw\\|\\s_\\)+\\):\\)"
+      (1 font-lock-variable-name-face)
+      (2 font-lock-function-name-face))
+     ("\\$\\(\\(?:\\sw\\|\\s_\\)+\\)"
+      1 font-lock-variable-name-face)
+     ("{\\(\\(?:\\sw\\|\\s_\\)+\\).*}"
+      1 font-lock-function-name-face))))
+
+(defun buffer-major-mode (buffer-or-string)
+  "Find out which major-mode is currently used"
+  (with-current-buffer buffer-or-string major-mode))
+
+(defun set-column-marker ()
+  "Default column markers"
+  (column-marker-1 73)
+  (column-marker-2 81))
+
+(defun setup-system-frame-colours (&rest frame)
+  (let ((f (if (car frame)
+               (car frame)
+             (selected-frame))))
+    (progn
+      (set-frame-font "-*-tamsyn-medium-*-*-*-15-*-*-*-*-80-*-*"))))
+
+(defun show-init-sections ()
+  (interactive)
+  (occur ";;\s +.*\s +;;")
+  (other-window 1))
+
+(defun list-functions ()
+  (interactive)
+  (occur
+   "\(?:\(?:private\|protected\|public\) \)?function \(?:\sw\)+(\sw*)"))
+
+(defun insert-init-title (title width)
+  (interactive "stitle: \nnwidth: ")
+  (insert-char ?\; width)
+  (insert "\n;;")
+  (insert-char ?\s (floor (/ (- (- width 4.0) (length title)) 2)))
+  (insert title)
+  (insert-char ?\s (ceiling (/ (- (- width 4.0) (length title)) 2)))
+  (insert ";;\n")
+  (insert-char ?\; width))
+
+(defun x-init ()
+  "Start ide-skel and set some keys")
+
+(defun cli-init ()
+  "Add a space to the linum column"
+  (setq linum-format "%d "))
+
+(defun on-before-save ()
+  (if (not (eq (buffer-major-mode (current-buffer)) 'markdown-mode))
+      (delete-trailing-whitespace)))
+
+(defun on-after-save ()
+  (let ((fname (buffer-file-name)))
+    (let ((suffix (file-name-extension fname)))
+      (if (string-equal suffix "el")
+          (byte-compile-file fname)))))
+
+(defun on-c-mode ()
+  (local-set-key [f8]       'c-toggle-header-source)
+  (local-set-key [f9]       'compile)
+  (local-set-key [C-m]      'newline-and-indent)
+  (local-set-key [C-return] 'newline)
+  (set-column-marker)
+  (rainbow-delimiters-mode))
+
+(defun on-emacs-lisp-mode ()
+  (set-column-marker)
+  (rainbow-delimiters-mode))
+
+(defun on-html-mode ()
+  (local-set-key [f9] 'browse-to-current-file)
+  (auto-fill-mode)
+  (set-column-marker))
+
+(defun on-markdown-mode ()
+  (whitespace-mode)
+  (auto-fill-mode))
+
+(defun on-org-mode ()
+  (flyspell-mode 1)
+  (auto-fill-mode 1))
+
+(defun on-php-mode ()
+  (defvar php-warn-if-mumamo-off nil)
+  (setq case-fold-search t)
+  (c-set-offset 'arglist-intro '+)
+  (c-set-offset 'arglist-close '0)
+  (column-marker-1 76)
+  (column-marker-2 81)
+  (local-set-key [f6] 'comment-line))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                         VARIABLES                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defvar font-lock-operator-face 'font-lock-operator-face)
+(defvar font-lock-end-statement 'font-lock-end-statement)
+
+(defadvice server-create-window-system-frame
+  (after set-system-frame-colours ())
+  "Set custom frame colours when creating the first frame on a display"
+  (message "Running after frame-initialize")
+  (setup-system-frame-colours))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                     FILE ASSOCIATIONS                      ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-to-list 'auto-mode-alist '("\\.vala$"            . vala-mode))
+(add-to-list 'auto-mode-alist '("\\.vapi$"            . vala-mode))
+(add-to-list 'auto-mode-alist '("\\.cs$"              . csharp-mode))
+(add-to-list 'auto-mode-alist '("\\.bat$"             . batch-mode))
+(add-to-list 'auto-mode-alist '("\\.lua$"             . lua-mode))
+(add-to-list 'auto-mode-alist '("\\.php[345]?$"       . php-mode))
+(add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$"     . javascript-mode))
+(add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?do?wn$". markdown-mode))
+(add-to-list 'auto-mode-alist '("CMakeLists\\.txt$"   . cmake-mode))
+(add-to-list 'auto-mode-alist '("\\.cmake$"           . cmake-mode))
+(add-to-list 'auto-mode-alist '("\\.css$"             . css-mode))
+(add-to-list 'auto-mode-alist '("mutt-cloud-"         . message-mode))
+
+(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
+(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                          KEYBINDS                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(global-set-key "\C-m" 'newline-and-indent)
+(global-set-key (kbd "C-x n r") 'narrow-to-region)
+(global-set-key "\C-cl" 'org-store-link)
+(global-set-key "\C-cc" 'org-capture)
+(global-set-key "\C-ca" 'org-agenda)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                       THEME SETTINGS                       ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(naquadah-theme-set-faces
+ 'naquadah
+
+ ;; markdown-mode
+ '(markdown-link-face (:inherit 'link))
+ '(markdown-header-face-1 (:inherit 'org-level-1))
+ '(markdown-header-face-2 (:inherit 'org-level-2))
+ '(markdown-header-face-3 (:inherit 'org-level-3))
+ '(markdown-header-face-4 (:inherit 'org-level-4))
+ '(markdown-header-face-5 (:inherit 'org-level-5))
+ '(markdown-header-face-6 (:inherit 'org-level-6)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                          SETTINGS                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(setq-default indent-tabs-mode nil)     ; spaces, no tabs
+
+(setq
+ inhibit-startup-message t
+ require-final-newline t
+ inhibit-default-init t
+ scroll-conservatively 101              ; scroll only one line
+ browse-url-browser-function 'browse-url-generic
+ browse-url-generic-program "conkeror"
+ whitespace-style '(face trailing)
+ uniquify-buffer-name-style 'reverse
+ org-confirm-babel-evaluate nil
+ org-tags-exclude-from-inheritance '("crypt")
+ org-crypt-key "33E8CC1CC4"
+ org-use-fast-todo-selection t
+ org-default-notes-file (concat org-directory "/notes.org")
+ org-ditaa-jar-path "/usr/share/java/ditaa/ditaa-0_9.jar"
+ jit-lock-defer-time 0.2
+
+ frame-title-format
+ '(:eval
+   (concat "emacs: " (buffer-name)))
+
+ backup-directory-alist                 ; backup file location
+ `((".*" . ,temporary-file-directory))
+
+ auto-save-file-name-transforms         ; autosave file location
+ `((".*" ,temporary-file-directory t))
+
+ default-frame-alist                    ; default frame settings
+ (append '((font . "DejaVu Sans Mono-10:antialias=true")))
+
+ org-todo-keywords
+ '((sequence "TODO(t)"
+             "IN PROGRESS(p)"
+             "WAITING(w@/!)"
+             "|"
+             "DONE(d!/!)"
+             "CANCELLED(c@/!)"))
+
+ org-babel-load-languages
+ '((ditaa . t))
+
+ org-refile-targets
+ '((org-agenda-files :maxlevel . 5)
+   (nil              :maxlevel . 5))
+ org-outline-path-complete-in-steps t
+
+ org-todo-keyword-faces
+ '(("TODO"        :foreground "red"          :weight bold)
+   ("IN PROGRESS" :foreground "yellow"       :weight bold)
+   ("DONE"        :foreground "forest green" :weight bold)
+   ("WAITING"     :foreground "orange"       :weight bold)
+   ("CANCELLED"   :foreground "orangered"    :weight bold))
+
+ org-publish-project-alist
+ '(("lxcoding-docs"
+    :base-directory "~/devel/lxcoding-docs/"
+    :base-extension "org"
+    :publishing-directory "~/lxcoding-docs-test/"
+    :recursive t
+    :publishing-function org-publish-org-to-html
+    :headline-levels
+    :auto-preamble t
+    :auto-sitemap t
+    :sitemap-filename "sitemap.org"
+    :sitemap-title "docs sitemap")))
+
+(if window-system (x-init) (cli-init))
+
+(fset 'yes-or-no-p 'y-or-n-p)           ; switch yes or no to y or n
+
+(tool-bar-mode         -1)        ; no toolbar
+(menu-bar-mode         -1)        ; no menubar
+(scroll-bar-mode       -1)        ; no scrollbars
+(line-number-mode      -1)        ; don't show line number in splitter
+(global-linum-mode     t)         ; Show line numbers in gutter
+(column-number-mode    t)         ; show column number in splitter
+(global-font-lock-mode t)         ; show syntax highlighting, old
+(delete-selection-mode t)         ; delete selection upon typing
+(show-paren-mode       t)         ; show the opposite paren
+(autopair-global-mode)            ; automatically add the other
+                                  ; delimiter
+
+(add-to-list 'compilation-finish-functions 'my-comp-finish-function)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                           HOOKS                            ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-hook 'before-save-hook           'on-before-save)
+(add-hook 'after-save-hook            'on-after-save)
+(add-hook 'c-mode-hook                'on-c-mode)
+(add-hook 'emacs-lisp-mode-hook       'on-emacs-lisp-mode)
+(add-hook 'html-mode-hook             'on-html-mode)
+(add-hook 'markdown-mode-hook         'on-markdown-mode)
+(add-hook 'org-mode-hook              'on-org-mode)
+(add-hook 'php-mode-hook              'on-php-mode)
+(add-hook 'git-commit-mode-hook       'auto-fill-mode)
+(add-hook 'emacs-startup-hook         'fullscreen)
+(add-hook 'css-mode-hook              'rainbow-mode)
+(add-hook 'javascript-mode-hook       'rainbow-delimiters-mode)
+(add-hook 'python-mode-hook           'rainbow-delimiters-mode)
+(add-hook 'after-make-frame-functions 'setup-system-frame-colours t)
+(add-hook 'lisp-mode-hook             'rainbow-delimiters-mode)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                         SKELETONS                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-skeleton cmake-project-skeleton
+  "A cmake project template file"
+  "Name: "
+  "cmake_minimum_required(VERSION 2.6)\n"
+  "project(" str ")\n"
+  "\n"
+  "set(" str "_VERSION_MAJOR 0)\n"
+  "set(" str "_VERSION_MINOR 0)\n"
+  "set(" str "_VERSION_PATCH 0)\n"
+  "\n"
+  "set(CMAKE_MODULE_PATH ${CMAKE_MODULE_PATH} ${PROJECT_SOURCE_DIR})\n"
+  "add_subdirectory(src)")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                          AUTORUN                           ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(org-crypt-use-before-save-magic)
+(ad-activate 'server-create-window-system-frame)
+(add-php-keywords)
+(add-html-keywords)
+(make-face 'font-lock-operator-face)
+(make-face 'font-lock-end-statement)
+(set-face-foreground 'font-lock-operator-face "#EDD400")
+(set-face-foreground 'font-lock-end-statement "#888A85")
+
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(org-agenda-files (quote ("~/documents/org/main.org")))
+ '(safe-local-variable-values (quote ((Mode . shell-script) (ispell-local-dictionary . nl)))))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )
+(put 'narrow-to-region 'disabled nil)
-- 
cgit v1.2.3-54-g00ecf