changeset 0:2764b4f45f9f

1st commit
author Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date Mon, 21 Apr 2014 04:30:59 +0900
parents
children d3ed59c42041
files .emacs .emacs.d/.emacs.el .emacs.d/auto-save-list/.saves-10027-kkpb.local~ .emacs.d/auto-save-list/.saves-10365-kkpb.local~ .emacs.d/auto-save-list/.saves-10404-kkpb.local~ .emacs.d/auto-save-list/.saves-10417-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-12278-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-12524-kkpb.local~ .emacs.d/auto-save-list/.saves-12724-kkpb.local~ .emacs.d/auto-save-list/.saves-1299-kkb.local~ .emacs.d/auto-save-list/.saves-13426-kkpb.local~ .emacs.d/auto-save-list/.saves-1393-nw1044.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-14274-kkb.local~ .emacs.d/auto-save-list/.saves-1431-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-1464-kkb.local~ .emacs.d/auto-save-list/.saves-14860-kkpb.local~ .emacs.d/auto-save-list/.saves-14923-kkb.local~ .emacs.d/auto-save-list/.saves-15002-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-15087-kkb.local~ .emacs.d/auto-save-list/.saves-15133-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-15384-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-16560-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-17637-wlan-116-253.cc.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-17640-nw1044.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-18175-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-18255-kkpb.local~ .emacs.d/auto-save-list/.saves-18491-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-1861-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-19534-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-19904-kkpb.local~ .emacs.d/auto-save-list/.saves-20566-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-21693-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-22402-kkb.local~ .emacs.d/auto-save-list/.saves-22886-kkpb.local~ .emacs.d/auto-save-list/.saves-2294-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-23169-kkpb.local~ .emacs.d/auto-save-list/.saves-28115-kkb.local~ .emacs.d/auto-save-list/.saves-2863-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-2875-kkb.local~ .emacs.d/auto-save-list/.saves-2910-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-29154-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-29611-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-3266-nw1044.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-33495-kkb.local~ .emacs.d/auto-save-list/.saves-33539-kkb.local~ .emacs.d/auto-save-list/.saves-34415-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-34525-kkb.local~ .emacs.d/auto-save-list/.saves-3496-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-3566-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-42415-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-4637-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-47098-kkb.local~ .emacs.d/auto-save-list/.saves-47483-kkb.local~ .emacs.d/auto-save-list/.saves-47511-kkb.local~ .emacs.d/auto-save-list/.saves-47548-kkb.local~ .emacs.d/auto-save-list/.saves-4768-kkpb.local~ .emacs.d/auto-save-list/.saves-5046-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-50588-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-51574-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-52587-kkb.local~ .emacs.d/auto-save-list/.saves-52725-kkb.local~ .emacs.d/auto-save-list/.saves-5331-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-5642-wlan-118-214.cc.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-56831-kkb.local~ .emacs.d/auto-save-list/.saves-57296-kkb.local~ .emacs.d/auto-save-list/.saves-57711-kkb.local~ .emacs.d/auto-save-list/.saves-57765-kkb.local~ .emacs.d/auto-save-list/.saves-58508-kkb.local~ .emacs.d/auto-save-list/.saves-59219-kkb.local~ .emacs.d/auto-save-list/.saves-6064-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-6149-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-6333-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-6487-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-6583-kkpb.local~ .emacs.d/auto-save-list/.saves-66465-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-6878-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-7148-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-7473-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-7741-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-7989-kkpb.local~ .emacs.d/auto-save-list/.saves-8018-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-8116-Syouhei-KOKUBO-no-MacBook-Pro.local~ .emacs.d/auto-save-list/.saves-814-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-8349-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-8857-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-90741-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9297-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9312-nw1044-1.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9578-kkpb.local~ .emacs.d/auto-save-list/.saves-9643-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9743-w-133-13-243-54.cc.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9781-kkpb.local~ .emacs.d/auto-save-list/.saves-9791-kkb.st.ie.u-ryukyu.ac.jp~ .emacs.d/auto-save-list/.saves-9800-kkpb.local~ .emacs.d/auto-save-list/.saves-9821-kkpb.local~ .emacs.d/color-theme-6.6.0/AUTHORS .emacs.d/color-theme-6.6.0/BUGS .emacs.d/color-theme-6.6.0/COPYING .emacs.d/color-theme-6.6.0/ChangeLog .emacs.d/color-theme-6.6.0/HACKING .emacs.d/color-theme-6.6.0/Makefile .emacs.d/color-theme-6.6.0/Makefile.defs .emacs.d/color-theme-6.6.0/README .emacs.d/color-theme-6.6.0/build-stamp .emacs.d/color-theme-6.6.0/color-theme-autoloads.el .emacs.d/color-theme-6.6.0/color-theme-autoloads.elc .emacs.d/color-theme-6.6.0/color-theme-autoloads.el~ .emacs.d/color-theme-6.6.0/color-theme-autoloads.in .emacs.d/color-theme-6.6.0/color-theme.el .emacs.d/color-theme-6.6.0/color-theme.elc .emacs.d/color-theme-6.6.0/configure-stamp .emacs.d/color-theme-6.6.0/themes/color-theme-example.el .emacs.d/color-theme-6.6.0/themes/color-theme-library.el .emacs.d/emacs-groovy-mode_2011-06-29/README .emacs.d/emacs-groovy-mode_2011-06-29/gpl.txt .emacs.d/grails-mode.el .emacs.d/groovy-electric.el .emacs.d/groovy-mode.el .emacs.d/haskell-mode/.git/HEAD .emacs.d/haskell-mode/.git/config .emacs.d/haskell-mode/.git/description .emacs.d/haskell-mode/.git/hooks/applypatch-msg.sample .emacs.d/haskell-mode/.git/hooks/commit-msg.sample .emacs.d/haskell-mode/.git/hooks/post-commit.sample .emacs.d/haskell-mode/.git/hooks/post-receive.sample .emacs.d/haskell-mode/.git/hooks/post-update.sample .emacs.d/haskell-mode/.git/hooks/pre-applypatch.sample .emacs.d/haskell-mode/.git/hooks/pre-commit.sample .emacs.d/haskell-mode/.git/hooks/pre-rebase.sample .emacs.d/haskell-mode/.git/hooks/prepare-commit-msg.sample .emacs.d/haskell-mode/.git/hooks/update.sample .emacs.d/haskell-mode/.git/index .emacs.d/haskell-mode/.git/info/exclude .emacs.d/haskell-mode/.git/logs/HEAD .emacs.d/haskell-mode/.git/logs/refs/heads/master .emacs.d/haskell-mode/.git/objects/pack/pack-1075dd2c1582d96fa6392c245f6bf76e95097836.idx .emacs.d/haskell-mode/.git/objects/pack/pack-1075dd2c1582d96fa6392c245f6bf76e95097836.pack .emacs.d/haskell-mode/.git/packed-refs .emacs.d/haskell-mode/.git/refs/heads/master .emacs.d/haskell-mode/.git/refs/remotes/origin/HEAD .emacs.d/haskell-mode/.gitignore .emacs.d/haskell-mode/.travis.yml .emacs.d/haskell-mode/Makefile .emacs.d/haskell-mode/NEWS .emacs.d/haskell-mode/README.md .emacs.d/haskell-mode/dir .emacs.d/haskell-mode/examples/fontlock.hs .emacs.d/haskell-mode/examples/indent.hs .emacs.d/haskell-mode/examples/init.el .emacs.d/haskell-mode/ghc-core.el .emacs.d/haskell-mode/ghc-core.elc .emacs.d/haskell-mode/haskell-align-imports.el .emacs.d/haskell-mode/haskell-align-imports.elc .emacs.d/haskell-mode/haskell-bot.el .emacs.d/haskell-mode/haskell-c.el .emacs.d/haskell-mode/haskell-c.elc .emacs.d/haskell-mode/haskell-cabal.el .emacs.d/haskell-mode/haskell-cabal.elc .emacs.d/haskell-mode/haskell-checkers.el .emacs.d/haskell-mode/haskell-checkers.elc .emacs.d/haskell-mode/haskell-compat.el .emacs.d/haskell-mode/haskell-compat.elc .emacs.d/haskell-mode/haskell-compile.el .emacs.d/haskell-mode/haskell-compile.elc .emacs.d/haskell-mode/haskell-debug.el .emacs.d/haskell-mode/haskell-decl-scan.el .emacs.d/haskell-mode/haskell-decl-scan.elc .emacs.d/haskell-mode/haskell-doc.el .emacs.d/haskell-mode/haskell-doc.elc .emacs.d/haskell-mode/haskell-font-lock.el .emacs.d/haskell-mode/haskell-font-lock.elc .emacs.d/haskell-mode/haskell-indent.el .emacs.d/haskell-mode/haskell-indent.elc .emacs.d/haskell-mode/haskell-indentation.el .emacs.d/haskell-mode/haskell-indentation.elc .emacs.d/haskell-mode/haskell-interactive-mode.el .emacs.d/haskell-mode/haskell-interactive-mode.elc .emacs.d/haskell-mode/haskell-menu.el .emacs.d/haskell-mode/haskell-menu.elc .emacs.d/haskell-mode/haskell-mode-autoloads.el .emacs.d/haskell-mode/haskell-mode-pkg.el.in .emacs.d/haskell-mode/haskell-mode.el .emacs.d/haskell-mode/haskell-mode.elc .emacs.d/haskell-mode/haskell-mode.info .emacs.d/haskell-mode/haskell-mode.texi .emacs.d/haskell-mode/haskell-mode.tmp.texi .emacs.d/haskell-mode/haskell-move-nested.el .emacs.d/haskell-mode/haskell-move-nested.elc .emacs.d/haskell-mode/haskell-navigate-imports.el .emacs.d/haskell-mode/haskell-navigate-imports.elc .emacs.d/haskell-mode/haskell-package.el .emacs.d/haskell-mode/haskell-package.elc .emacs.d/haskell-mode/haskell-presentation-mode.el .emacs.d/haskell-mode/haskell-presentation-mode.elc .emacs.d/haskell-mode/haskell-process.el .emacs.d/haskell-mode/haskell-process.elc .emacs.d/haskell-mode/haskell-session.el .emacs.d/haskell-mode/haskell-session.elc .emacs.d/haskell-mode/haskell-show.el .emacs.d/haskell-mode/haskell-show.elc .emacs.d/haskell-mode/haskell-simple-indent.el .emacs.d/haskell-mode/haskell-simple-indent.elc .emacs.d/haskell-mode/haskell-sort-imports.el .emacs.d/haskell-mode/haskell-sort-imports.elc .emacs.d/haskell-mode/haskell-str.el .emacs.d/haskell-mode/haskell-str.elc .emacs.d/haskell-mode/haskell-string.el .emacs.d/haskell-mode/haskell-string.elc .emacs.d/haskell-mode/haskell-unicode-input-method.el .emacs.d/haskell-mode/haskell-unicode-input-method.elc .emacs.d/haskell-mode/haskell-utils.el .emacs.d/haskell-mode/haskell-utils.elc .emacs.d/haskell-mode/haskell-yas.el .emacs.d/haskell-mode/haskell-yas.elc .emacs.d/haskell-mode/inf-haskell.el .emacs.d/haskell-mode/inf-haskell.elc .emacs.d/haskell-mode/logo.svg .emacs.d/haskell-mode/snippets/README.md .emacs.d/haskell-mode/snippets/haskell-mode/.yas-ignore-filenames-as-triggers .emacs.d/haskell-mode/snippets/haskell-mode/.yas-make-groups .emacs.d/haskell-mode/snippets/haskell-mode/case .emacs.d/haskell-mode/snippets/haskell-mode/comment.block .emacs.d/haskell-mode/snippets/haskell-mode/constraint .emacs.d/haskell-mode/snippets/haskell-mode/data.inline .emacs.d/haskell-mode/snippets/haskell-mode/data.record .emacs.d/haskell-mode/snippets/haskell-mode/fn .emacs.d/haskell-mode/snippets/haskell-mode/fn.clause .emacs.d/haskell-mode/snippets/haskell-mode/fn.guarded .emacs.d/haskell-mode/snippets/haskell-mode/get .emacs.d/haskell-mode/snippets/haskell-mode/if.block .emacs.d/haskell-mode/snippets/haskell-mode/if.inline .emacs.d/haskell-mode/snippets/haskell-mode/import .emacs.d/haskell-mode/snippets/haskell-mode/import.qualified .emacs.d/haskell-mode/snippets/haskell-mode/instance .emacs.d/haskell-mode/snippets/haskell-mode/lambda .emacs.d/haskell-mode/snippets/haskell-mode/lang-pragma .emacs.d/haskell-mode/snippets/haskell-mode/let .emacs.d/haskell-mode/snippets/haskell-mode/main .emacs.d/haskell-mode/snippets/haskell-mode/module .emacs.d/haskell-mode/snippets/haskell-mode/module.exports .emacs.d/haskell-mode/snippets/haskell-mode/newtype .emacs.d/haskell-mode/tests/haskell-str-tests.el .emacs.d/haskell-mode/w3m-haddock.el .emacs.d/htmlize.el .emacs.d/inf-groovy.el
diffstat 175 files changed, 37634 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,146 @@
+;;htmllize
+(load "~/.emacs.d/htmlize.el")
+
+;;load path
+(setq load-path (cons "~/.emacs.d" load-path))
+(setq load-path (cons (expand-file-name "~/.emacs.d/color-theme-6.6.0") load-path))
+(display-time-mode 1)
+
+;;カーソル位置表示
+(line-number-mode 1)
+(column-number-mode 1)
+(blink-cursor-mode 0)
+
+;;キーバインド
+(define-key global-map "\C-u" 'undo)
+(define-key global-map "\C-j" 'dabbrev-expand)
+(define-key global-map "\C-h" 'delete-backward-char)
+(define-key global-map "\C-c\C-i" 'indent-region)
+(define-key global-map "\C-ch" 'windmove-left)
+(define-key global-map "\C-cj" 'windmove-down)
+(define-key global-map "\C-ck" 'windmove-up)
+(define-key global-map "\C-cl" 'windmove-right)
+(define-key global-map "\C-c\C-c" 'comment-or-uncomment-region)
+(define-key global-map "\C-c\C-v" 'split-window-horizontally)
+
+;;括弧の対応
+(show-paren-mode 1)
+
+;;スクロール設定
+(setq scroll-step 1)
+
+;;関数名
+(which-function-mode 1)
+
+;; スケルトンでのペア補完をオン
+(setq skeleton-pair 1)
+
+;;; スケルトンでのペア補完定義
+;;(global-set-key "(" 'skeleton-pair-insert-maybe)
+;;(global-set-key "[" 'skeleton-pair-insert-maybe)
+;;(global-set-key "{" 'skeleton-pair-insert-maybe)
+;;(global-set-key "\"" 'skeleton-pair-insert-maybe)
+;;(global-set-key "'" 'skeleton-pair-insert-maybe)
+
+;;選択範囲に色をつける
+(setq transient-mark-mode t)
+
+;;行削除
+(setq kill-whole-line t)
+
+;;聞き方の変更
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;;インデント関係
+(global-set-key "\C-m" 'newline-and-indent)
+(setq-default indent-tabs-mode nil)
+(setq-default tab-width 4)
+(setq c-basic-offset 4)
+;; (setq default-tab-width 4)
+
+;;カラーテーマ
+(require 'color-theme)
+(color-theme-initialize)
+(color-theme-pok-wob)
+
+;;(load-library "php-mode")
+;;(reguire 'php-mode)
+
+;;全角
+(defface my-face-b-1 '((t (:background "medium aquamarine"))) nil)
+(defface my-face-b-1 '((t (:background "dark turquoise"))) nil)
+(defface my-face-b-2 '((t (:background "cyan"))) nil)
+(defface my-face-b-2 '((t (:background "SeaGreen"))) nil)
+(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
+(defvar my-face-b-1 'my-face-b-1)
+(defadvice font-lock-mode (before my-font-lock-mode ())
+  (font-lock-add-keywords
+   major-mode
+   '(
+     (" " 0 my-face-b-1 append)
+     )))
+(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
+(ad-activate 'font-lock-mode)
+(add-hook 'find-file-hooks '(lambda ()
+							  (if font-lock-mode
+								  nil
+								(font-lock-mode t))))
+(put 'set-goal-column 'disabled nil)
+
+;;gosh
+(setq scheme-program-name "gosh -i")
+
+;; groovy
+(global-font-lock-mode 1)
+(autoload 'groovy-mode "groovy-mode" "Major mode for editing Groovy code." t)
+(add-to-list 'auto-mode-alist '("\.groovy$" . groovy-mode))
+(add-to-list 'interpreter-mode-alist '("groovy" . groovy-mode))
+(add-hook 'groovy-mode-hook
+          '(lambda ()
+             (require 'groovy-electric)
+             (groovy-electric-mode)))
+
+;;backup
+(setq make-backup-files nil)
+(setq auto-save-default nil)
+
+;; OpenCL
+(add-to-list 'auto-mode-alist '("\.cl$" . c++-mode))
+(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.
+ '(gud-gdb-command-name "gdb --annotate=1")
+ '(large-file-warning-threshold nil)
+ '(tab-width 8))
+(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.
+ )
+
+;; Cuda
+(add-to-list 'auto-mode-alist '("\.cu$" . c++-mode))
+(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.
+ '(gud-gdb-command-name "gdb --annotate=1")
+ '(large-file-warning-threshold nil)
+ '(tab-width 8))
+(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.
+ )
+
+;; Haskell
+(add-to-list 'load-path "~/.emacs.d/haskell-mode/")
+(require 'haskell-mode-autoloads)
+(add-to-list 'Info-default-directory-list "~/.emacs.d/haskell-mode/")
+(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
+(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/.emacs.el	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,71 @@
+;;; 対応する括弧を光らせる。
+(show-paren-mode 1)
+
+;;; カーソルの位置が何文字目かを表示する
+(column-number-mode t)
+
+;;; カーソルの位置が何行目かを表示する
+(line-number-mode t)
+
+;;; スクロールを一行ずつにする
+(setq scroll-step 1)
+
+;;; 行の先頭でC-kを一回押すだけで行全体を消去する
+(setq kill-whole-line t)
+
+;;; モードラインに時間を表示する
+(display-time)
+
+;;; 現在の関数名をモードラインに表示
+(which-function-mode 1)
+
+;;; 補完時に大文字小文字を区別しない
+(setq completion-ignore-case t)
+
+;;; 強力な補完機能を使う
+;;; p-bでprint-bufferとか
+;;(load "complete")
+(partial-completion-mode 1)
+
+;;; 補完可能なものを随時表示
+;;; 少しうるさい
+(icomplete-mode 1)
+
+;; スプラッシュ非表示 : 起動が速くなる
+(setq inhibit-startup-message t)
+
+;;; don't make backup file
+(setq make-backup-files nil)
+
+;;; don't make save-default file
+(setq auto-save-default nil)
+
+;;; C-h to delete
+(define-key global-map "\C-h" 'delete-backward-char)
+
+;;; C-z to undo
+(define-key global-map "\C-z" 'undo)
+
+;;オートインデント
+(global-set-key "\C-m" 'newline-and-indent)
+(global-set-key "\C-j" 'newline)
+
+;;インデント幅
+(setq c-default-style "user")
+
+;;カラースキン
+(if window-system (progn
+
+					(set-face-foreground 'font-lock-comment-face "MediumSeaGreen")
+					(set-face-foreground 'font-lock-string-face  "purple")
+					(set-face-foreground 'font-lock-keyword-face "blue")
+					(set-face-foreground 'font-lock-function-name-face "blue")
+					(set-face-bold-p 'font-lock-function-name-face t)
+					(set-face-foreground 'font-lock-variable-name-face "black")
+					(set-face-foreground 'font-lock-type-face "LightSeaGreen")
+					(set-face-foreground 'font-lock-builtin-face "purple")
+					(set-face-foreground 'font-lock-constant-face "black")
+					(set-face-foreground 'font-lock-warning-face "blue")
+					(set-face-bold-p 'font-lock-warning-face nil)
+
+					))
\ No newline at end of file
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-1299-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/ieLT/shower/ru.htm
+/Users/e105744/Desktop/ieLT/shower/#ru.htm#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-1393-nw1044.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Documents/Processing/AR_exp/AR_exp.java
+/Users/e105744/Documents/Processing/AR_exp/#AR_exp.java#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-14274-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/exp1102-3-105744J/exp1102-3-105744J.tex
+/Users/e105744/Desktop/exp1102-3-105744J/#exp1102-3-105744J.tex#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-1464-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog4/trupper.c
+/Users/e105744/desktop/prog4/#trupper.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-15087-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/os_ex4.1/schedularSimulator/schedularSimulator.py
+/Users/e105744/Desktop/os_ex4.1/schedularSimulator/#schedularSimulator.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-17637-wlan-116-253.cc.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/exp-sys/pb_data.py
+/Users/e105744/Desktop/exp-sys/#pb_data.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-17640-nw1044.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/member
+/Users/e105744/Desktop/#member#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-1861-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog6/sam.c
+/Users/e105744/desktop/prog6/#sam.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-22402-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/algon/list2.c
+/Users/e105744/desktop/algon/#list2.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-2294-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog/hello.c
+/Users/e105744/desktop/prog/#hello.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-28115-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/exp1101-1-105744J/exp1101-1-105744J.tex
+/Users/e105744/Desktop/exp1101-1-105744J/#exp1101-1-105744J.tex#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-2875-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/helloworld/grails-app/controllers/helloworld/TwitterController.groovy
+/Users/e105744/helloworld/grails-app/controllers/helloworld/#TwitterController.groovy#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-3266-nw1044.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/rank.tex
+/Users/e105744/#rank.tex#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-33495-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/exp-sys/ab_plot.py
+/Users/e105744/Desktop/exp-sys/#ab_plot.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-33539-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/R1-105744J/change_10s_18.py
+/Users/e105744/Desktop/R1-105744J/#change_10s_18.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-34525-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/exp2_root/change_10s.py
+/Users/e105744/Desktop/exp2_root/#change_10s.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-3496-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog6/r1.c
+/Users/e105744/desktop/prog6/#r1.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-47098-kkb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/hello.py
+/Users/e105744/#hello.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-51574-nw1044-1.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Desktop/pso/rand.py
+/Users/e105744/Desktop/pso/#rand.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-5331-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog6/R1.c
+/Users/e105744/desktop/prog6/#R1.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-6149-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/wa.m
+/Users/e105744/#wa.m#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-6878-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog6/p.c
+/Users/e105744/desktop/prog6/#p.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-8116-Syouhei-KOKUBO-no-MacBook-Pro.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/a
+/Users/e105744/#a#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-9297-nw1044-1.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Downloads/ga-knapsack/plot.py
+/Users/e105744/Downloads/ga-knapsack/#plot.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-9312-nw1044-1.st.ie.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,4 @@
+/Users/e105744/Downloads/ga-knapsack/plot.py
+/Users/e105744/Downloads/ga-knapsack/#plot.py#
+/Users/e105744/Downloads/ga-knapsack/1-1-KP_List.data-10.max
+/Users/e105744/Downloads/ga-knapsack/#1-1-KP_List.data-10.max#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-9578-kkpb.local~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/Downloads/ga-knapsack/plot.py
+/Users/e105744/Downloads/ga-knapsack/#plot.py#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/auto-save-list/.saves-9743-w-133-13-243-54.cc.u-ryukyu.ac.jp~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,2 @@
+/Users/e105744/desktop/prog4/trupper.c
+/Users/e105744/desktop/prog4/#trupper.c#
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/AUTHORS	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,31 @@
+
+                 *****************************************
+                                  AUTHORS
+                 *****************************************
+
+NOTE: NEVER send bug reports, help and feature requests directly to the
+      authors !
+
+Original code and ideas by Jonadab the Unsightly One
+
+Current Maintainers:
+ * Xavier Maillard (release manager) <zedek@gnu.org>
+ * Brian Palmer <bpalmer@gmail.com>
+
+Previous maintainers:
+ * (1999 2000)  Jonadab the Unsightly One <jonadab@bright.net>
+ * (2000, 2001, 2002, 2003)  Alex Schroeder <alex@gnu.org>
+
+Contributors
+
+ * Deepak Goel  <deego@glue.umd.edu>
+ * S. Pokrovsky <pok@nbsp.nsk.su> for ideas and discussion
+ * Gordon Messmer <gordon@dragonsdawn.net> for ideas and discussion.
+ * Sriram Karra <karra@cs.utah.edu> for the color-theme-submit stuff.
+ * Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl> for the spec-filter idea.
+ * Brian Palmer for color-theme-library ideas and code
+
+Note: all the users that contributed their color themes. See CREDITS.themes
+      for a complete listing of them.
+
+Thank you all of you !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/BUGS	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,71 @@
+This is the list of common problems.
+
+Emacs 20.7: Some faces are created using copy-face; these faces are
+not printed correctly using M-x color-theme-print.  They will have
+(nil) in their spec.  M-x customize-face has the same problem.
+
+Example:
+
+(copy-face 'bold 'new-bold)
+(color-theme-spec 'bold)
+  => (bold ((t (:bold t))))
+(color-theme-spec 'new-bold)
+  => (new-bold ((t (nil))))
+
+XEmacs 21.1: Some faces are defined using a certain font instead of
+of the correct attribute.  They will have (nil) in their spec.
+M-x customize-face has the same problem.
+
+Example:
+
+(color-theme-spec 'bold)
+  => (bold ((t (nil))))
+
+XEmacs 21.2 and up, Emacs 21: Not compatible with the custom-theme
+mode.  It should be easy to transform the color-theme source into
+custom-theme source, however.
+
+If you are running XEmacs, then only foreground and background color
+of the default face and only the background color of the text-cursor
+face will used.  This is due to the fact that these three pieces of
+information are stored as frame parameters in Emacs.
+
+If you are running XEmacs, variables cannot have a frame-local
+binding.  Therefore, if color-theme-is-global is set to nil, the
+variable settings in a color theme are ignored.
+
+Using Emacs and a non-nil value for color-theme-is-global will
+install a new color theme for all frames.  Using XEmacs and a non-nil
+value for color-theme-is-global will install a new color theme only
+on those frames that are not using a local color theme.
+
+If your system does not define the color names used, you will get the
+error "undefined color".  See the output of `list-colors-display' for
+a list of colors defined on your display.
+
+The :box, :height, and other new attributes will be honored in Emacs
+21, but when you print such a color-theme on Emacs 20 or XEmacs 21,
+the information will get lost.  So don't do that.  Furthermore,
+customizing these faces may end up showing you a lisp expression
+instead of the real widgets on Emacs 20 or XEmacs 21 because these
+attributes are not understood.
+
+:inverse-video handling differs in Emacs and XEmacs.  We therefore do
+away with it.  When printing a color-theme, the inverse-video
+attribute should be handled correctly without ever appearing in color
+themes.  For maintenance, the following might be usefull for
+query-replace-regexp.
+:background "\([^"]*\)"\(.*\):foreground "\([^"]*\)"\(.*\) :inverse-video t
+:background "\3"\2:foreground "\1"\4
+
+In XEmacs 21.1, some of the face tests don't work.  Example:
+(custom-face-bold 'bold) returns nil on my system.  A bug report was
+submitted.
+
+Emacs 20 users will loose with new color themes, because these will
+set the colors of the default face only, leaving frame background
+untouched.  In Emacs 20, the colors of the default face and of the
+frame could be changed independently.  In Emacs 21, this is no longer
+true.  New color themes will not be made backwards compatible.
+
+This release was superficially tested with Emacs 21.x/22.x and XEmacs 21.4.
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/COPYING	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,342 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                       59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+	    How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program 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 of the License, or
+    (at your option) any later version.
+
+    This program 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 this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) year name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/ChangeLog	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,121 @@
+2006-05-28  Xavier Maillard  <zedek@gnu.org>
+
+	* Version 6.6.0 is released
+	
+	* Tagged source with RELEASE_6-6-0 for "Back in the business" release
+	
+	* HAGKING, BUGS, README: New files.
+
+	* color-theme.el (color-theme-libraries): Changed docstring.
+	(define-color-theme): Reworked macro to properly define themes.
+	(color-theme-initialize): Actually does what expected.
+	(color-theme-theme): Removed this useless variable.
+
+	Removed commentary section (splitted into specific files)
+
+	* Makefile.defs (DEBNAME): Changed default value to reveal all
+		  needed informations
+		  (LASTUPLOAD): New version.
+		  (CVSMODULE, CVSBRANCH, CVSROOT): New variables used to
+			  prepare a release.
+
+	* Makefile (dist, dist-prepare, debian, 
+		    tarball, realease, upload, $TARBALL, $DEBNAME): New targets.
+	(distclean): Delete old build traces (files, package, etc...)
+
+	* debian/control: Changed Maintainer informations. 
+
+	* debian/emacsen-startup: Safely load autoloads file or die if tests fail.
+
+	* debian/rules: Fixed bad package construction.
+
+	* debian/emacsen-install: Handle theme files installation correctfully. 
+
+2006-05-27  Xavier Maillard  <zedek@gnu.org>
+
+	* debian: New directory. Contains all stuff to build a neat and
+		  cool color-theme-el Debian package.
+	
+	* AUTHORS: New file.
+
+	* color-theme-autoloads.in: Ditto..
+
+	* Makefile.defs: Ditto.
+
+	* Makefile: Ditto.
+
+	* color-theme.el (replace-in-string): New function. Used in define-color-theme
+	(color-theme-directory): New variable.
+	(color-theme-libraries): Changed default value to color-theme
+		official theme directory
+	(color-theme-load-all-themes): New variable.
+	(color-theme-initialize): Load theme files defined either in
+		color-theme-libraries or color-theme-directory.
+
+2006-05-22  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme-library.el: make bytecompiler happy.
+
+	* color-theme.el (color-theme-initialize, color-theme-select)
+	(color-theme-describe, color-theme-install-at-mouse)
+	(color-theme-install-at-point)
+	(color-theme-install-at-point-for-current-frame)
+	(color-theme-print, color-theme-analyze-defun)
+	(color-theme-make-snapshot, color-theme-compare)
+	(color-theme-submit, color-theme-initialize): Added autoload cookies
+
+	* COPYING: New file
+
+2006-05-21  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme.el: Make byte compiler happy.
+	Added autoload cookie on color-theme-install (useless ??)
+	Added eval-when-compile in color-theme-print
+
+2006-05-14  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme.el: Cosmetic changes
+
+	* color-theme-library.el: Ditto (added header, legal notice)
+
+2006-05-11  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme.el (color-theme-xemacs-p): Check for xemacs feature.
+	(color-theme-face-attr-construct): New function. Use it when
+		face-custom-attributes-get is bound. Fixes a bug on M-x
+		color-theme-select.
+
+2006-05-07  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme.el (color-theme-entry-path): New variable used for easymenu definition.
+	    We now check which (x)emacs version is used to correctly define our menu.
+	    (Fixes a long standing bug)
+
+2006-03-31  Brian Palmer  <bpalmer@gmail.com>
+
+	* color-theme-library.el (color-theme-renegade): Added new theme
+	by Dave Benjamin. Thanks Dave.
+
+	* color-theme.el (color-theme-select): Call
+	color-theme-initialized if it has not been called before.
+	(color-theme-initialized): Variable tracking initialization state, used in color-theme-select
+	(color-themes): Added renegade theme by Dave Benjamin. Thanks Dave.
+	
+
+2006-01-13  Xavier Maillard  <zedek@gnu.org>
+
+	* color-theme.el: Changed copyright header (just to test Gna services)
+
+2006-01-10  Brian Palmer  <bpalmer@gmail.com>
+
+	* color-theme-library.el: Added color-theme-library.el, containing
+	the defined themes.
+	* color-theme.el (color-theme-libraries): Customizable variable.
+ 	* color-theme.el (color-theme-initialize): Load each file
+	specified in color-theme-libraries.
+
+2006-01-10  Brian Palmer  <bpalmer@gmail.com>
+
+	* Added color-theme.el 6.5.5 to the repository.
+	* Added ChangeLog to the repository.
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/HACKING	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,26 @@
+This file is intented to help any color-theme hacker and particulary
+color-theme release team.
+
+
+To release a new version, please follow these instructions:
+
+1a. Change Makefile.defs (VERSION and LASTUPLOAD)
+
+1b. Verify color-theme.el header file
+
+2. Prepare debian/ directory
+   => control and changelog
+   => check other files
+
+3. Tag the whole source files with:
+
+   cvs tag -c RELEASE-X-X-X
+
+4. Launch the automatic tarball/debian creation:
+
+  make release
+
+5. Pray :)
+
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/Makefile	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,141 @@
+# -*- Makefile -*-
+
+# Borrowed from many emacs places
+
+include Makefile.defs
+
+SPECIAL = 
+UNCOMPILED = 
+AUTOLOADFILE = color-theme-autoloads
+TESTING = 
+THEMES_DIRECTORY = themes
+THEMES_FILES := $(wildcard $(THEMES_DIRECTORY)/*.el)
+ALLSOURCE := $(wildcard *.el) $(THEMES_FILES)
+SOURCE	= $(filter-out $(SPECIAL) $(UNCOMPILED) $(TESTING),$(ALLSOURCE))
+TARGET	= $(patsubst %.el,%.elc,$(SPECIAL) $(SOURCE))
+MANUAL  = color-theme
+MISC	= AUTHORS COPYING ChangeLog Makefile.defs Makefile $(AUTOLOADFILE).in
+#AUTHORS CREDITS HISTORY NEWS README Makefile ChangeLog \
+#ChangeLog.2005 ChangeLog.2004 ChangeLog.2003 ChangeLog.2002 \
+#ChangeLog.2001 servers.pl color-theme-auto.in color-theme.texi
+
+all: lisp #$(MANUAL).info
+
+lisp: clean $(TARGET) 
+
+autoloads: $(AUTOLOADFILE).elc
+
+$(AUTOLOADFILE).el: $(AUTOLOADFILE).in #$(TARGET)
+	cp $(AUTOLOADFILE).in $(AUTOLOADFILE).el
+	rm -f $(AUTOLOADFILE).elc
+	@$(EMACS) -q $(SITEFLAG) -batch \
+		-l $(shell pwd | sed -e 's|^/cygdrive/\([a-z]\)|\1:|')/$(AUTOLOADFILE) \
+		-f color-theme-generate-autoloads \
+		$(shell pwd | sed -e 's|^/cygdrive/\([a-z]\)|\1:|')/$(AUTOLOADFILE).el . \
+		$(THEMES_DIRECTORY)
+
+$(AUTOLOADFILE).elc: $(AUTOLOADFILE).el
+	@echo "Byte compiling the autoload file "$<
+	@$(EMACS) -batch -q -f batch-byte-compile $^
+	@echo "*******************************************************************"
+	@echo "Autoloads up to date. Put the following lines in your configuration"
+	@echo "file (~/.emacs for a single user) :"
+	@echo
+	@echo ${patsubst %, "(add-to-list 'load-path \""%"\")   ", $(LISPDIRS)}
+	@echo "(require 'color-theme-autoload \""$(AUTOLOADFILE)"\")"
+	@echo
+
+%.elc: %.el
+	@$(EMACS) $(OPTIONCOMPILE) \
+	--eval '(setq load-path (cons "." load-path))' \
+	-f batch-byte-compile $<
+
+%.info: %.texi
+	@echo "No doc yet !"
+#	makeinfo $<
+
+%.html: %.texi
+	@echo "No doc yet !"
+#	makeinfo --html --no-split $<
+
+doc: $(MANUAL).info $(MANUAL).html
+	@echo "No doc yet !"
+
+clean:
+	-rm -f themes/*.elc
+	-rm -f *~ *.elc $(AUTOLOADFILE).el
+
+realclean: clean
+	-rm -f $(MANUAL).info $(MANUAL).html $(TARGET) $(SPECIAL)
+
+install-info: $(MANUAL).info
+	[ -d $(INFODIR) ] || install -d $(INFODIR)
+	install -m 0644 $(MANUAL).info $(INFODIR)/$(MANUAL)
+	$(INSTALLINFO) $(INFODIR)/$(MANUAL)
+
+install-bin: lisp
+	install -d $(ELISPDIR)
+	install -d $(ELISPDIR)/themes
+	install -m 0644 $(ALLSOURCE) $(TARGET) $(ELISPDIR)
+	install -m 0644 $(THEMES_FILES) $(TARGET) $(ELISPDIR)/themes
+
+install: install-bin install-info
+
+## DO NOT TOUCH THIS !
+## HELPERS FOR MAINTAINER(S)
+distclean:
+	-rm  $(MANUAL).info $(MANUAL).html $(TARGET)
+	-rm -Rf ../$(DISTDIR)
+	-rm -f debian/dirs debian/files
+	-rm -rf $(DISTDIR) $(TARBALL)* $(ZIPFILE)* $(DEBNAME)*
+
+dist: distclean Makefile
+	$(MAKE) dist-prepare
+
+# Idea taken from w3m-el
+dist-prepare: CVS/Root CVS/Repository
+	cvs -d $(CVSROOT) -w export -d $(DISTDIR) -r $(CVSBRANCH) $(CVSMODULE)
+	-cvs diff |( cd $(DISTDIR) && patch -p0 )
+
+$(TARBALL): tarball
+$(DEBNAME): debian
+
+tarball: dist
+	find $(DISTDIR) -name .cvsignore | xargs rm -f
+	find $(DISTDIR) -name debian | xargs rm -fr
+	find $(DISTDIR) -type d | xargs chmod 755
+	find $(DISTDIR) -type f | xargs chmod 644
+
+	tar -cf `basename $(TARBALL) .gz` $(DISTDIR)
+	gzip -9 `basename $(TARBALL) .gz`
+	zip -r $(ZIPFILE) $(DISTDIR)
+	gpg --detach $(TARBALL)
+	gpg --detach $(ZIPFILE)
+
+debian: dist
+	(cd $(DISTDIR) && \
+	  dpkg-buildpackage -v$(LASTUPLOAD) $(BUILDOPTS) \
+	    -us -uc -rfakeroot && \
+	  echo "Running lintian ..." && \
+	  lintian -i ../$(DEBNAME)*.deb || : && \
+	  echo "Done running lintian." && \
+	  debsign)
+
+	cp $(DEBNAME)* /var/spool/repo
+	(cd /var/spool/repo && \
+	dpkg-scanpackages . /dev/null | gzip -9 > Packages.gz && \
+	dpkg-scansources . | gzip -9 > Sources.gz)
+
+release: $(DEBNAME) $(TARBALL)
+	rm -rf $(DISTDIR)
+	$(MAKE) upload distclean
+
+upload:
+	(cd /var/spool/repo && echo open perso.nerim.net > upload.lftp ; \
+	  echo cd /var/spool/repo >> upload.lftp ; \
+	  echo mput * >> upload.lftp ; \
+	  echo close >> upload.lftp ; \
+	  lftp -f upload.lftp ; \
+	  rm -f upload.lftp)
+	(scp $(ZIPFILE)* $(TARBALL)* \
+            zeDek@download.gna.org:/upload/color-theme)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/Makefile.defs	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,39 @@
+# -*- Makefile -*-
+EMACS    = emacs
+SITEFLAG = --no-site-file
+OPTIONCOMPILE = -q --no-site-file --batch
+
+# XEmacs users will probably want the following settings.
+#EMACS    = xemacs
+#SITEFLAG = -no-site-file
+
+# Installation options
+# PREFIX is only used here.
+PREFIX   = /usr/local
+ELISPDIR = $(PREFIX)/share/emacs/site-lisp/color-theme-el
+INFODIR  = $(PREFIX)/info
+
+# Command to use to install the Info dir entry
+# If you're using Debian, uncomment the following line and comment out
+#the above line.
+#INSTALLINFO = install-info --section "Emacs" "emacs" --info-dir=$(INFODIR)
+INSTALLINFO = install-info --info-dir=$(INFODIR)
+
+# Useful only for the maintainer
+PROJECT    = color-theme
+VERSION    = 6.6.0
+DISTDIR    = $(PROJECT)-$(VERSION)
+DEBNAME    = $(PROJECT)-el_$(VERSION)
+TARBALL    = $(DISTDIR).tar.gz
+ZIPFILE    = $(DISTDIR).zip
+
+MANUAL     = 
+LASTUPLOAD = 6.6.0-2
+BUILDOPTS  =
+
+# DO NOT TOUCH THIS
+TAG = $(shell echo RELEASE-$(VERSION) | tr '.' '-')
+CVSMODULE = $(shell cat CVS/Repository)
+CVSBRANCH = $(shell cvs status color-theme.el |grep "Sticky Tag:"|awk '{print $$3}'|sed 's/(none)/HEAD/')
+CVSBRANCH = $(shell echo rel-$(VERSION) | tr '.' '-')
+CVSROOT   = $(shell cat CVS/Root)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/README	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,86 @@
+Sharing your current color setup:
+
+Use `color-theme-submit'.  If you have already invested time in
+customizing Emacs faces, please consider sharing your current setup.
+Make sure that color-theme.el is in your `load-path'.  Type M-x
+load-library RET color-theme RET to load all the functions.  Type M-x
+color-theme-submit RET and mail the result to the maintainer of this
+package (see above for mail addres).
+
+If you want to make sure that all your customization was exported,
+type M-x list-faces-display RET to get a list of all faces currently
+defined.  This is the list of faces that `color-theme-print' uses.
+
+Installing a color theme:
+
+Make sure that color-theme.el is in your `load-path'.  Type M-x
+load-library RET color-theme RET to load all the functions.
+
+The main function to call is color-theme-select.  Type M-x
+color-theme-select RET.  That creates a Color Theme Selection
+buffer.  Press RET or `i' on a color theme to install it for the
+rest of your session.
+
+If you want to install the color theme as soon as Emacs is started
+up, read the description of the theme you like and remember the
+name of the color theme function.  Press `d' on a color theme in
+the Color Theme Selection buffer to read the description.  Assuming
+you like the Gnome2 theme, you'll find that the function to use is
+called `color-theme-gnome2'.  Add the following to the end of your
+.emacs (removing the leading `;;').
+
+(require 'color-theme)
+(color-theme-gnome2)
+
+Changing menu colors:
+
+In Emacs 21 on X, you can set the menu colors and font using the
+menu face.  Example for your .emacs file:
+
+  (set-face-font 'menu "7x14")
+  (set-face-foreground 'menu "white").
+
+If are using X, you can set the menu foreground and background using
+a resource file, usually .Xdefaults or .Xresources.  Usually
+.Xdefaults is used when you start your session using a display
+manager such as xdm or gdm.  .Xresources is usually used when you
+start X directly via a shell script such as startx.  If you set
+Emacs*Background and Emacs*Foreground in such a resource file, the
+foreground and background of Emacs including the menu will be set.
+If your .emacs then loads a color theme, the foreground and
+background are changed -- with the exception of the menu.  There is
+no way to manipulate the menu foreground and background color from
+elisp.  You can also set more specific menu resources for Emacs in
+the resource file.  Here is a sample entry for your resource file:
+
+  Emacs*Background:		DarkSlateGray
+  Emacs*Foreground:		wheat
+
+Creating your own color theme:
+
+Use M-x customize-face and customize the faces.  Make sure to "Set
+for Current Session" -- you don't want to save these using custom!
+When you are done, call M-x color-theme-print to produce the elisp
+code required to recreate your theme.  Better yet, use M-x
+color-theme-submit to mail it to the maintainer.  That way it will be
+added to future versions of color-theme.el.
+
+For more information on the elisp format of a color theme, start with
+the documentation of `color-theme-install' using C-h f
+color-theme-install.
+
+When your color theme is just a variation of an existing color theme,
+take a look at `color-theme-robin-hood' in order to see an example of
+how to do it.  Essentially you want to call all the parent color
+themes before installing your changes.  For all but the first parent
+color theme, you need to make sure that `color-theme-is-cumulative'
+is bound to t.  If you don't do that, users that set
+`color-theme-is-cumulative' to nil will only install your changes
+without the parent color themes.
+
+Making a color theme work for both Emacs and XEmacs:
+
+Once you have printed the color-theme, you can make sure it looks
+similar in both Emacs and XEmacs by running
+`color-theme-analyze-defun' on the printed theme.  This function
+will check for missing faces for the other editor...
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/color-theme-autoloads.el	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,159 @@
+;;; -*-emacs-lisp-*-
+
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+
+(defvar generated-autoload-file)
+(defvar command-line-args-left)
+(defun color-theme-generate-autoloads ()
+  (interactive)
+  (require 'autoload)
+  (setq generated-autoload-file (car command-line-args-left))
+  (setq command-line-args-left (cdr command-line-args-left))
+  (batch-update-autoloads))
+
+(provide 'color-theme-autoloads)
+;;; Generated autoloads follow (made by autoload.el).
+
+;;;### (autoloads nil nil ("themes/color-theme-example.el" "themes/color-theme-library.el")
+;;;;;;  (19958 62098 412404))
+
+;;;***
+
+;;;### (autoloads (color-theme-initialize color-theme-submit color-theme-install
+;;;;;;  color-theme-compare color-theme-make-snapshot color-theme-analyze-defun
+;;;;;;  color-theme-print color-theme-install-at-point-for-current-frame
+;;;;;;  color-theme-install-at-mouse color-theme-describe color-theme-select)
+;;;;;;  "color-theme" "color-theme.el" (17529 41105))
+;;; Generated autoloads from color-theme.el
+
+(autoload (quote color-theme-select) "color-theme" "\
+Displays a special buffer for selecting and installing a color theme.
+With optional prefix ARG, this buffer will include color theme libraries
+as well.  A color theme library is in itself not complete, it must be
+used as part of another color theme to be useful.  Thus, color theme
+libraries are mainly useful for color theme authors.
+
+\(fn &optional ARG)" t nil)
+
+(autoload (quote color-theme-describe) "color-theme" "\
+Describe color theme listed at point.
+This shows the documentation of the value of text-property color-theme
+at point.  The text-property color-theme should be a color theme
+function.  See `color-themes'.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-install-at-mouse) "color-theme" "\
+Install color theme clicked upon using the mouse.
+First argument EVENT is used to set point.  Then
+`color-theme-install-at-point' is called.
+
+\(fn EVENT)" t nil)
+
+(autoload (quote color-theme-install-at-point-for-current-frame) "color-theme" "\
+Install color theme at point for current frame only.
+Binds `color-theme-is-global' to nil and calls
+`color-theme-install-at-point'.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-print) "color-theme" "\
+Print the current color theme function.
+
+You can contribute this function to <URL:news:gnu.emacs.sources> or
+paste it into your .emacs file and call it.  That should recreate all
+the settings necessary for your color theme.
+
+Example:
+
+    (require 'color-theme)
+    (defun my-color-theme ()
+      \"Color theme by Alex Schroeder, created 2000-05-17.\"
+      (interactive)
+      (color-theme-install
+       '(...
+	 ...
+	 ...)))
+    (my-color-theme)
+
+If you want to use a specific color theme function, you can call the
+color theme function in your .emacs directly.
+
+Example:
+
+    (require 'color-theme)
+    (color-theme-gnome2)
+
+\(fn &optional BUF)" t nil)
+
+(autoload (quote color-theme-analyze-defun) "color-theme" "\
+Once you have a color-theme printed, check for missing faces.
+This is used by maintainers who receive a color-theme submission
+and want to make sure it follows the guidelines by the color-theme
+author.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-make-snapshot) "color-theme" "\
+Return the definition of the current color-theme.
+The function returned will recreate the color-theme in use at the moment.
+
+\(fn)" nil nil)
+
+(autoload (quote color-theme-compare) "color-theme" "\
+Compare two color themes.
+This will print the differences between installing THEME-A and
+installing THEME-B.  Note that the order is important: If a face is
+defined in THEME-A and not in THEME-B, then this will not show up as a
+difference, because there is no reset before installing THEME-B.  If a
+face is defined in THEME-B and not in THEME-A, then this will show up as
+a difference.
+
+\(fn THEME-A THEME-B)" t nil)
+
+(autoload (quote color-theme-install) "color-theme" "\
+Install a color theme defined by frame parameters, variables and faces.
+
+The theme is installed for all present and future frames; any missing
+faces are created.  See `color-theme-install-faces'.
+
+THEME is a color theme definition.  See below for more information.
+
+If you want to install a color theme from your .emacs, use the output
+generated by `color-theme-print'.  This produces color theme function
+which you can copy to your .emacs.
+
+A color theme definition is a list:
+\([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS)
+
+FUNCTION is the color theme function which called `color-theme-install'.
+This is no longer used.  There was a time when this package supported
+automatic factoring of color themes.  This has been abandoned.
+
+FRAME-PARAMETERS is an alist of frame parameters.  These are installed
+with `color-theme-install-frame-params'.  These are installed last such
+that any changes to the default face can be changed by the frame
+parameters.
+
+VARIABLE-DEFINITIONS is an alist of variable settings.  These are
+installed with `color-theme-install-variables'.
+
+FACE-DEFINITIONS is an alist of face definitions.  These are installed
+with `color-theme-install-faces'.
+
+If `color-theme-is-cumulative' is nil, a color theme will undo face and
+frame-parameter settings of previous color themes.
+
+\(fn THEME)" nil nil)
+
+(autoload (quote color-theme-submit) "color-theme" "\
+Submit your color-theme to the maintainer.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-initialize) "color-theme" "\
+Initialize the color theme package by loading color-theme-libraries.
+
+\(fn)" t nil)
+
+;;;***
Binary file .emacs.d/color-theme-6.6.0/color-theme-autoloads.elc has changed
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/color-theme-autoloads.el~	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,15 @@
+;;; -*-emacs-lisp-*-
+
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+
+(defvar generated-autoload-file)
+(defvar command-line-args-left)
+(defun color-theme-generate-autoloads ()
+  (interactive)
+  (require 'autoload)
+  (setq generated-autoload-file (car command-line-args-left))
+  (setq command-line-args-left (cdr command-line-args-left))
+  (batch-update-autoloads))
+
+(provide 'color-theme-autoloads)
+;;; Generated autoloads follow (made by autoload.el).
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/color-theme-autoloads.in	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,15 @@
+;;; -*-emacs-lisp-*-
+
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+
+(defvar generated-autoload-file)
+(defvar command-line-args-left)
+(defun color-theme-generate-autoloads ()
+  (interactive)
+  (require 'autoload)
+  (setq generated-autoload-file (car command-line-args-left))
+  (setq command-line-args-left (cdr command-line-args-left))
+  (batch-update-autoloads))
+
+(provide 'color-theme-autoloads)
+;;; Generated autoloads follow (made by autoload.el).
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/color-theme.el	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,1668 @@
+;;; color-theme.el --- install color themes
+
+;; Copyright (C) 1999, 2000  Jonadab the Unsightly One <jonadab@bright.net>
+;; Copyright (C) 2000, 2001, 2002, 2003  Alex Schroeder <alex@gnu.org>
+;; Copyright (C) 2003, 2004, 2005, 2006  Xavier Maillard <zedek@gnu.org>
+
+;; Version: 6.6.0
+;; Keywords: faces
+;; Author: Jonadab the Unsightly One <jonadab@bright.net>
+;; 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.
+
+;;; Commentary:
+
+;; Please read README and BUGS files for any relevant help.
+;; Contributors (not themers) should also read HACKING file.
+
+;;; Thanks
+
+;; Deepak Goel  <deego@glue.umd.edu>
+;; S. Pokrovsky <pok@nbsp.nsk.su> for ideas and discussion.
+;; Gordon Messmer <gordon@dragonsdawn.net> for ideas and discussion.
+;; Sriram Karra <karra@cs.utah.edu> for the color-theme-submit stuff.
+;; Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl> for the spec-filter idea.
+;; Brian Palmer for color-theme-library ideas and code
+;; All the users that contributed their color themes.
+
+
+
+;;; Code:
+(eval-when-compile
+  (require 'easymenu)
+  (require 'reporter)
+  (require 'sendmail))
+
+(require 'cl); set-difference is a function...
+
+;; for custom-face-attributes-get or face-custom-attributes-get
+(require 'cus-face)
+(require 'wid-edit); for widget-apply stuff in cus-face.el
+
+(defconst color-theme-maintainer-address "zedek@gnu.org"
+  "Address used by `submit-color-theme'.")
+
+;; Emacs / XEmacs compatibility and workaround layer
+
+(cond ((and (facep 'tool-bar)
+	    (not (facep 'toolbar)))
+       (put 'toolbar 'face-alias 'tool-bar))
+      ((and (facep 'toolbar)
+	    (not (facep 'tool-bar)))
+       (put 'tool-bar 'face-alias 'toolbar)))
+
+(defvar color-theme-xemacs-p (and (featurep 'xemacs) 
+                                  (string-match "XEmacs" emacs-version))
+  "Non-nil if running XEmacs.")
+
+;; Add this since it appears to miss in emacs-2x
+(or (fboundp 'replace-in-string)
+    (defun replace-in-string (target old new)
+      (replace-regexp-in-string old new  target)))
+
+;; face-attr-construct has a problem in Emacs 20.7 and older when
+;; dealing with inverse-video faces.  Here is a short test to check
+;; wether you are affected.
+
+;; (set-background-color "wheat")
+;; (set-foreground-color "black")
+;; (setq a (make-face 'a-face))
+;; (face-spec-set a '((t (:background "white" :foreground "black" :inverse-video t))))
+;; (face-attr-construct a)
+;;     => (:background "black" :inverse-video t)
+
+;; The expected response is the original specification:
+;;     => (:background "white" :foreground "black" :inverse-video t)
+
+;; That's why we depend on cus-face.el functionality.
+
+(cond ((fboundp 'custom-face-attributes-get)
+       (defun color-theme-face-attr-construct (face frame)
+         (if (atom face)
+             (custom-face-attributes-get face frame)
+             (if (and (consp face) (eq (car face) 'quote))
+                 (custom-face-attributes-get (cadr face) frame)
+                 (custom-face-attributes-get (car face) frame)))))
+      ((fboundp 'face-custom-attributes-get)
+       (defalias 'color-theme-face-attr-construct
+	 'face-custom-attributes-get))
+      (t
+       (defun color-theme-face-attr-construct (&rest ignore)
+	 (error "Unable to construct face attributes"))))
+
+(defun color-theme-alist (plist)
+  "Transform PLIST into an alist if it is a plist and return it.
+If the first element of PLIST is a cons cell, we just return PLIST,
+assuming PLIST to be an alist.  If the first element of plist is not a
+symbol, this is an error: We cannot distinguish a plist from an ordinary
+list, but a list that doesn't start with a symbol is certainly no plist
+and no alist.
+
+This is used to make sure `default-frame-alist' really is an alist and not
+a plist.  In XEmacs, the alist is deprecated; a plist is used instead."
+  (cond ((consp (car plist))
+	 plist)
+	((not (symbolp (car plist)))
+	 (error "Wrong type argument: plist, %S" plist))
+	((featurep 'xemacs)
+	 (plist-to-alist plist)))); XEmacs only
+
+;; Customization
+
+(defgroup color-theme nil
+  "Color Themes for Emacs.
+A color theme consists of frame parameter settings, variable settings,
+and face definitions."
+  :version "20.6"
+  :group 'faces)
+
+(defcustom color-theme-legal-frame-parameters "\\(color\\|mode\\)$"
+  "Regexp that matches frame parameter names.
+Only frame parameter names that match this regexp can be changed as part
+of a color theme."
+  :type '(choice (const :tag "Colors only" "\\(color\\|mode\\)$")
+		 (const :tag "Colors, fonts, and size"
+			"\\(color\\|mode\\|font\\|height\\|width\\)$")
+		 (regexp :tag "Custom regexp"))
+  :group 'color-theme
+  :link '(info-link "(elisp)Window Frame Parameters"))
+
+(defcustom color-theme-legal-variables "\\(color\\|face\\)$"
+  "Regexp that matches variable names.
+Only variables that match this regexp can be changed as part of a color
+theme.  In addition to matching this name, the variables have to be user
+variables (see function `user-variable-p')."
+  :type 'regexp
+  :group 'color-theme)
+
+(defcustom color-theme-illegal-faces "^w3-"
+  "Regexp that matches face names forbidden in themes.
+The default setting \"^w3-\" excludes w3 faces since these
+are created dynamically."
+  :type 'regexp
+  :group 'color-theme
+  :link '(info-link "(elisp)Faces for Font Lock")
+  :link '(info-link "(elisp)Standard Faces"))
+
+(defcustom color-theme-illegal-default-attributes '(:family :height :width)
+  "A list of face properties to be ignored when installing faces.
+This prevents Emacs from doing terrible things to your display just because
+a theme author likes weird fonts."
+  :type '(repeat symbol)
+  :group 'color-theme)
+
+(defcustom color-theme-is-global t
+  "*Determines wether a color theme is installed on all frames or not.
+If non-nil, color themes will be installed for all frames.
+If nil, color themes will be installed for the selected frame only.
+
+A possible use for this variable is dynamic binding. Here is a larger
+example to put in your ~/.emacs; it will make the Blue Sea color theme
+the default used for the first frame, and it will create two additional
+frames with different color themes.
+
+setup:
+    \(require 'color-theme)
+    ;; set default color theme
+    \(color-theme-blue-sea)
+    ;; create some frames with different color themes
+    \(let ((color-theme-is-global nil))
+      \(select-frame (make-frame))
+      \(color-theme-gnome2)
+      \(select-frame (make-frame))
+      \(color-theme-standard))
+
+Please note that using XEmacs and and a nil value for
+color-theme-is-global will ignore any variable settings for the color
+theme, since XEmacs doesn't have frame-local variable bindings.
+
+Also note that using Emacs and a non-nil value for color-theme-is-global
+will install a new color theme for all frames.  Using XEmacs and a
+non-nil value for color-theme-is-global will install a new color theme
+only on those frames that are not using a local color theme."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-is-cumulative t
+  "*Determines wether new color themes are installed on top of each other.
+If non-nil, installing a color theme will undo all settings made by
+previous color themes."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-directory nil
+  "Directory where we can find additionnal themes (personnal).
+Note that there is at least one directory shipped with the official
+color-theme distribution where all contributed themes are located.
+This official selection can't be changed with that variable. 
+However, you still can decide to turn it on or off and thus,
+not be shown with all themes but yours."
+  :type '(repeat string)
+  :group 'color-theme)
+
+(defcustom color-theme-libraries (directory-files 
+                                  (concat 
+                                   (file-name-directory (locate-library "color-theme"))
+                                   "/themes") t "^color-theme")
+  "A list of files, which will be loaded in color-theme-initialize depending
+on `color-theme-load-all-themes' value. 
+This allows a user to prune the default color-themes (which can take a while
+to load)."
+  :type '(repeat string)
+  :group 'color-theme)
+
+(defcustom color-theme-load-all-themes t
+  "When t, load all color-theme theme files
+as presented by `color-theme-libraries'. Else
+do not load any of this themes."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-mode-hook nil
+  "Hook for color-theme-mode."
+  :type 'hook
+  :group 'color-theme)
+
+(defvar color-theme-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "RET") 'color-theme-install-at-point)
+    (define-key map (kbd "c") 'list-colors-display)
+    (define-key map (kbd "d") 'color-theme-describe)
+    (define-key map (kbd "f") 'list-faces-display)
+    (define-key map (kbd "i") 'color-theme-install-at-point)
+    (define-key map (kbd "l") 'color-theme-install-at-point-for-current-frame)
+    (define-key map (kbd "p") 'color-theme-print)
+    (define-key map (kbd "q") 'bury-buffer)
+    (define-key map (kbd "?") 'color-theme-describe)
+    (if color-theme-xemacs-p
+	(define-key map (kbd "<button2>") 'color-theme-install-at-mouse)
+      (define-key map (kbd "<mouse-2>") 'color-theme-install-at-mouse))
+    map)
+  "Mode map used for the buffer created by `color-theme-select'.")
+
+(defvar color-theme-initialized nil
+  "Internal variable determining whether color-theme-initialize has been invoked yet")
+
+(defvar color-theme-buffer-name "*Color Theme Selection*"
+  "Name of the color theme selection buffer.")
+
+(defvar color-theme-original-frame-alist nil
+  "nil until one of the color themes has been installed.")
+
+(defvar color-theme-history nil
+  "List of color-themes called, in reverse order")
+
+(defcustom color-theme-history-max-length nil
+  "Max length of history to maintain.
+Two other values are acceptable: t means no limit, and
+nil means that no history is maintained."
+  :type '(choice (const :tag "No history" nil)
+		 (const :tag "Unlimited length" t)
+		 integer)
+  :group 'color-theme)
+
+(defvar color-theme-counter 0
+  "Counter for every addition to `color-theme-history'.
+This counts how many themes were installed, regardless
+of `color-theme-history-max-length'.")
+
+(defvar color-theme-entry-path (cond
+                                ;; Emacs 22.x and later
+                                ((lookup-key global-map [menu-bar tools])
+                                 '("tools"))
+                                ;; XEmacs
+                                ((featurep 'xemacs)
+                                 (setq tool-entry '("Tools")))
+                                ;; Emacs < 22
+                                (t
+                                 '("Tools")))
+  "Menu tool entry path.")
+
+(defun color-theme-add-to-history (name)
+  "Add color-theme NAME to `color-theme-history'."
+  (setq color-theme-history
+	(cons (list name color-theme-is-cumulative)
+	      color-theme-history)
+	color-theme-counter (+ 1 color-theme-counter))
+  ;; Truncate the list if necessary.
+  (when (and (integerp color-theme-history-max-length)
+	     (>= (length color-theme-history)
+		 color-theme-history-max-length))
+    (setcdr (nthcdr (1- color-theme-history-max-length)
+		    color-theme-history)
+	    nil)))
+
+;; (let ((l '(1 2 3 4 5)))
+;;   (setcdr (nthcdr 2 l) nil)
+;;   l)
+
+
+
+;; List of color themes used to create the *Color Theme Selection*
+;; buffer.
+
+(defvar color-themes
+  '((color-theme-aalto-dark "Aalto Dark" "Jari Aalto <jari.aalto@poboxes.com>")
+    (color-theme-aalto-light "Aalto Light" "Jari Aalto <jari.aalto@poboxes.com>")
+    (color-theme-aliceblue "Alice Blue" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-andreas "Andreas" "Andreas Busch <Andreas.Busch@politics.ox.ac.uk>")
+    (color-theme-arjen "Arjen" "Arjen Wiersma <arjen@wiersma.org>")
+    (color-theme-beige-diff "Beige Diff" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-bharadwaj "Bharadwaj" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-bharadwaj-slate "Bharadwaj Slate" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-billw "Billw" "Bill White <billw@wolfram.com>")
+    (color-theme-black-on-gray "BlackOnGray" "Sudhir Bhojwani <sbhojwani@altoweb.com>")
+    (color-theme-blippblopp "Blipp Blopp" "Thomas Sicheritz-Ponten<thomas@biopython.org>")
+    (color-theme-simple-1 "Black" "Jonadab <jonadab@bright.net>")
+    (color-theme-blue-erc "Blue ERC" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-blue-gnus "Blue Gnus" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-blue-mood "Blue Mood" "Nelson Loyola <nloyola@yahoo.com>")
+    (color-theme-blue-sea "Blue Sea" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-calm-forest "Calm Forest" "Artur Hefczyc <kobit@plusnet.pl>")
+    (color-theme-charcoal-black "Charcoal Black" "Lars Chr. Hausmann <jazz@zqz.dk>")
+    (color-theme-goldenrod "Cheap Goldenrod" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-clarity "Clarity and Beauty" "Richard Wellum <rwellum@cisco.com>")
+    (color-theme-classic "Classic" "Frederic Giroud <postcard@worldonline.fr>")
+    (color-theme-comidia "Comidia" "Marcelo Dias de Toledo <mtole@ig.com.br>")
+    (color-theme-jsc-dark "Cooper Dark" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-jsc-light "Cooper Light" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-jsc-light2 "Cooper Light 2" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-dark-blue "Dark Blue" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-dark-blue2 "Dark Blue 2" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-dark-green "Dark Green" "eddy_woody@hotmail.com")
+    (color-theme-dark-laptop "Dark Laptop" "Laurent Michel <ldm@cs.brown.edu>")
+    (color-theme-deep-blue "Deep Blue" "Tomas Cerha <cerha@brailcom.org>")
+    (color-theme-digital-ofs1 "Digital OFS1" "Gareth Owen <gowen@gwowen.freeserve.co.uk>")
+    (color-theme-euphoria "Euphoria" "oGLOWo@oGLOWo.cjb.net")
+    (color-theme-feng-shui "Feng Shui" "Walter Higgins <walterh@rocketmail.com>")
+    (color-theme-fischmeister "Fischmeister"
+			      "Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>")
+    (color-theme-gnome "Gnome" "Jonadab <jonadab@bright.net>")
+    (color-theme-gnome2 "Gnome 2" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-gray1 "Gray1" "Paul Pulli <P.Pulli@motorola.com>")
+    (color-theme-gray30 "Gray30" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-kingsajz "Green Kingsajz" "Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl>")
+    (color-theme-greiner "Greiner" "Kevin Greiner <kgreiner@mapquest.com>")
+    (color-theme-gtk-ide "GTK IDE" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-high-contrast "High Contrast" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-hober "Hober" "Edward O'Connor <ted@oconnor.cx>")
+    (color-theme-infodoc "Infodoc" "Frederic Giroud <postcard@worldonline.fr>")
+    (color-theme-jb-simple "JB Simple" "jeff@dvns.com")
+    (color-theme-jedit-grey "Jedit Grey" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-jonadabian "Jonadab" "Jonadab <jonadab@bright.net>")
+    (color-theme-jonadabian-slate "Jonadabian Slate" "Jonadab <jonadab@bright.net>")
+    (color-theme-katester "Katester" "Higgins_Walter@emc.com")
+    (color-theme-late-night "Late Night" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-lawrence "Lawrence" "lawrence mitchell <wence@gmx.li>")
+    (color-theme-lethe "Lethe" "Ivica Loncar <ivica.loncar@srk.fer.hr>")
+    (color-theme-ld-dark "Linh Dang Dark" "Linh Dang <linhd@nortelnetworks.com>")
+    (color-theme-marine "Marine" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-matrix "Matrix" "Walter Higgins <walterh@rocketmail.com>")
+    (color-theme-marquardt "Marquardt" "Colin Marquardt <colin@marquardt-home.de>")
+    (color-theme-midnight "Midnight" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-mistyday "Misty Day" "Hari Kumar <Hari.Kumar@mtm.kuleuven.ac.be>")
+    (color-theme-montz "Montz" "Brady Montz <bradym@becomm.com>")
+    (color-theme-oswald "Oswald" "Tom Oswald <toswald@sharplabs.com>")
+    (color-theme-parus "Parus" "Jon K Hellan <hellan@acm.org>")
+    (color-theme-pierson "Pierson" "Dan L. Pierson <dan@sol.control.com>")
+    (color-theme-ramangalahy "Ramangalahy" "Solofo Ramangalahy <solofo@irisa.fr>")
+    (color-theme-raspopovic "Raspopovic" "Pedja Raspopovic <pedja@lsil.com>")
+    (color-theme-renegade "Renegade" "Dave Benjamin <ramen@ramenfest.com>")
+    (color-theme-resolve "Resolve" "Damien Elmes <resolve@repose.cx>")
+    (color-theme-retro-green "Retro Green" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-retro-orange "Retro Orange" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-robin-hood "Robin Hood" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-rotor "Rotor" "Jinwei Shen <shenjw@wam.umd.edu>")
+    (color-theme-ryerson "Ryerson" "Luis Fernandes <elf@ee.ryerson.ca>")
+    (color-theme-salmon-diff "Salmon Diff" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-salmon-font-lock "Salmon Font-Lock" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-scintilla "Scintilla" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-shaman "Shaman" "shaman@interdon.net")
+    (color-theme-sitaramv-nt "Sitaram NT"
+			     "Sitaram Venkatraman <sitaramv@loc251.tandem.com>")
+    (color-theme-sitaramv-solaris "Sitaram Solaris"
+				  "Sitaram Venkatraman <sitaramv@loc251.tandem.com>")
+    (color-theme-snow "Snow" "Nicolas Rist <Nicolas.Rist@alcatel.de>")
+    (color-theme-snowish "Snowish" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-standard-ediff "Standard Ediff" "Emacs Team, added by Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-standard "Standard Emacs 20" "Emacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-emacs-21 "Standard Emacs 21" "Emacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-emacs-nw "Standard Emacs 21 No Window" "Emacs Team, added by D. Goel <deego@gnufans.org>")
+    (color-theme-xemacs "Standard XEmacs" "XEmacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-subtle-blue "Subtle Blue" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-subtle-hacker "Subtle Hacker" "Colin Walters <levanti@verbum.org>")
+    (color-theme-taming-mr-arneson "Taming Mr Arneson" "Erik Arneson <erik@aarg.net>")
+    (color-theme-taylor "Taylor" "Art Taylor <reeses@hemisphere.org>")
+    (color-theme-tty-dark "TTY Dark" "O Polite <m2@plusseven.com>")
+    (color-theme-vim-colors "Vim Colors" "Michael Soulier <msoulier@biryani.nssg.mitel.com>")
+    (color-theme-whateveryouwant "Whateveryouwant" "Fabien Penso <penso@linuxfr.org>, color by Scott Jaderholm <scott@jaderholm.com>")
+    (color-theme-wheat "Wheat" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-pok-wob "White On Black" "S. Pokrovsky <pok@nbsp.nsk.su>")
+    (color-theme-pok-wog "White On Grey" "S. Pokrovsky <pok@nbsp.nsk.su>")
+    (color-theme-word-perfect "WordPerfect" "Thomas Gehrlein <Thomas.Gehrlein@t-online.de>")
+    (color-theme-xp "XP" "Girish Bharadwaj <girishb@gbvsoft.com>"))
+  "List of color themes.
+
+Each THEME is itself a three element list (FUNC NAME MAINTAINER &optional LIBRARY).
+
+FUNC is a color theme function which does the setup.  The function
+FUNC may call `color-theme-install'.  The color theme function may be
+interactive.
+
+NAME is the name of the theme and MAINTAINER is the name and/or email of
+the maintainer of the theme.
+
+If LIBRARY is non-nil, the color theme will be considered a library and
+may not be shown in the default menu.
+
+If you defined your own color theme and want to add it to this list,
+use something like this:
+
+  (add-to-list 'color-themes '(color-theme-gnome2 \"Gnome2\" \"Alex\"))")
+
+;;; Functions
+
+(defun color-theme-backup-original-values ()
+  "Back up the original `default-frame-alist'.
+The values are stored in `color-theme-original-frame-alist' on
+startup."
+  (if (null color-theme-original-frame-alist)
+      (setq color-theme-original-frame-alist
+	    (color-theme-filter (frame-parameters (selected-frame))
+				color-theme-legal-frame-parameters))))
+(add-hook 'after-init-hook 'color-theme-backup-original-values)
+
+;;;###autoload
+(defun color-theme-select (&optional arg)
+  "Displays a special buffer for selecting and installing a color theme.
+With optional prefix ARG, this buffer will include color theme libraries
+as well.  A color theme library is in itself not complete, it must be
+used as part of another color theme to be useful.  Thus, color theme
+libraries are mainly useful for color theme authors."
+  (interactive "P")
+  (unless color-theme-initialized (color-theme-initialize))
+  (switch-to-buffer (get-buffer-create color-theme-buffer-name))
+  (setq buffer-read-only nil)
+  (erase-buffer)
+  ;; recreate the snapshot if necessary
+  (when (or (not (assq 'color-theme-snapshot color-themes))
+	    (not (commandp 'color-theme-snapshot)))
+    (fset 'color-theme-snapshot (color-theme-make-snapshot))
+    (setq color-themes (delq (assq 'color-theme-snapshot color-themes)
+			     color-themes)
+	  color-themes (delq (assq 'bury-buffer color-themes)
+			     color-themes)
+	  color-themes (append '((color-theme-snapshot
+				  "[Reset]" "Undo changes, if possible.")
+				 (bury-buffer
+				  "[Quit]" "Bury this buffer."))
+			     color-themes)))
+  (dolist (theme color-themes)
+    (let ((func (nth 0 theme))
+	  (name (nth 1 theme))
+	  (author (nth 2 theme))
+	  (library (nth 3 theme))
+	  (desc))
+      (when (or (not library) arg)
+	(setq desc (format "%-23s %s" 
+			   (if library (concat name " [lib]") name)
+			   author))
+	(put-text-property 0 (length desc) 'color-theme func desc)
+	(put-text-property 0 (length name) 'face 'bold desc)
+	(put-text-property 0 (length name) 'mouse-face 'highlight desc)
+	(insert desc)
+	(newline))))
+  (goto-char (point-min))
+  (setq buffer-read-only t)
+  (set-buffer-modified-p nil)
+  (color-theme-mode))
+
+(when (require 'easymenu)
+  (easy-menu-add-item nil color-theme-entry-path "--")
+  (easy-menu-add-item  nil color-theme-entry-path
+                       ["Color Themes" color-theme-select t]))
+
+(defun color-theme-mode ()
+  "Major mode to select and install color themes.
+
+Use \\[color-theme-install-at-point] to install a color theme on all frames.
+Use \\[color-theme-install-at-point-for-current-frame] to install a color theme for the current frame only.
+
+The changes are applied on top of your current setup.  This is a
+feature.
+
+Some of the themes should be considered extensions to the standard color
+theme: they modify only a limited number of faces and variables.  To
+verify the final look of a color theme, install the standard color
+theme, then install the other color theme.  This is a feature. It allows
+you to mix several color themes.
+
+Use \\[color-theme-describe] to read more about the color theme function at point.
+If you want to install the color theme permanently, put the call to the
+color theme function into your ~/.emacs:
+
+    \(require 'color-theme)
+    \(color-theme-gnome2)
+
+If you worry about the size of color-theme.el: You are right.  Use
+\\[color-theme-print] to print the current color theme and save the resulting buffer
+as ~/.emacs-color-theme.  Now you can install only this specific color
+theme in your .emacs:
+
+    \(load-file \"~/.emacs-color-theme\")
+    \(my-color-theme)
+
+The Emacs menu is not affected by color themes within Emacs.  Depending
+on the toolkit you used to compile Emacs, you might have to set specific
+X ressources.  See the info manual for more information.  Here is an
+example ~/.Xdefaults fragment:
+
+    emacs*Background: DarkSlateGray
+    emacs*Foreground: wheat
+
+\\{color-theme-mode-map}
+
+The color themes are listed in `color-themes', which see."
+  (kill-all-local-variables)
+  (setq major-mode 'color-theme-mode)
+  (setq mode-name "Color Themes")
+  (use-local-map color-theme-mode-map)
+  (when (functionp 'goto-address); Emacs
+    (goto-address))
+  (run-hooks 'color-theme-mode-hook))
+
+;;; Commands in Color Theme Selection mode
+
+;;;###autoload
+(defun color-theme-describe ()
+  "Describe color theme listed at point.
+This shows the documentation of the value of text-property color-theme
+at point.  The text-property color-theme should be a color theme
+function.  See `color-themes'."
+  (interactive)
+  (describe-function (get-text-property (point) 'color-theme)))
+
+;;;###autoload
+(defun color-theme-install-at-mouse (event)
+  "Install color theme clicked upon using the mouse.
+First argument EVENT is used to set point.  Then
+`color-theme-install-at-point' is called."
+  (interactive "e")
+  (save-excursion
+    (mouse-set-point event)
+    (color-theme-install-at-point)))
+
+;;;autoload
+(defun color-theme-install-at-point ()
+  "Install color theme at point.
+This calls the value of the text-property `color-theme' at point.
+The text-property `color-theme' should be a color theme function.
+See `color-themes'."
+  (interactive)
+  (let ((func (get-text-property (point) 'color-theme)))
+    ;; install theme
+    (if func
+	(funcall func))
+    ;; If goto-address is being used, remove all overlays in the current
+    ;; buffer and run it again.  The face used for the mail addresses in
+    ;; the the color theme selection buffer is based on the variable
+    ;; goto-address-mail-face.  Changes in that variable will not affect
+    ;; existing overlays, however, thereby confusing users.
+    (when (functionp 'goto-address); Emacs
+      (dolist (o (overlays-in (point-min) (point-max)))
+	(delete-overlay o))
+      (goto-address))))
+
+;;;###autoload
+(defun color-theme-install-at-point-for-current-frame ()
+  "Install color theme at point for current frame only.
+Binds `color-theme-is-global' to nil and calls
+`color-theme-install-at-point'."
+  (interactive)
+  (let ((color-theme-is-global nil))
+    (color-theme-install-at-point)))
+
+
+
+;; Taking a snapshot of the current color theme and pretty printing it.
+
+(defun color-theme-filter (old-list regexp &optional exclude)
+  "Filter OLD-LIST.
+The resulting list will be newly allocated and contains only elements
+with names matching REGEXP.  OLD-LIST may be a list or an alist.  If you
+want to filter a plist, use `color-theme-alist' to convert your plist to
+an alist, first.
+
+If the optional argument EXCLUDE is non-nil, then the sense is
+reversed: only non-matching elements will be retained."
+  (let (elem new-list)
+    (dolist (elem old-list)
+      (setq name (symbol-name (if (listp elem) (car elem) elem)))
+      (when (or (and (not exclude)
+		     (string-match regexp name))
+		(and exclude
+		     (not (string-match regexp name))))
+	;; Now make sure that if elem is a cons cell, and the cdr of
+	;; that cons cell is a string, then we need a *new* string in
+	;; the new list.  Having a new cons cell is of no use because
+	;; modify-frame-parameters will modify this string, thus
+	;; modifying our color theme functions!
+	(when (and (consp elem)
+		   (stringp (cdr elem)))
+	  (setq elem (cons (car elem)
+			   (copy-sequence (cdr elem)))))
+	;; Now store elem
+	(setq new-list (cons elem new-list))))
+    new-list))
+
+(defun color-theme-spec-filter (spec)
+  "Filter the attributes in SPEC.
+This makes sure that SPEC has the form ((t (PLIST ...))).
+Only properties not in `color-theme-illegal-default-attributes'
+are included in the SPEC returned."
+  (let ((props (cadar spec))
+	result prop val)
+    (while props
+      (setq prop (nth 0 props)
+	    val (nth 1 props)
+	    props (nthcdr 2 props))
+      (unless (memq prop color-theme-illegal-default-attributes)
+	(setq result (cons val (cons prop result)))))
+    `((t ,(nreverse result)))))
+
+;; (color-theme-spec-filter '((t (:background "blue3"))))
+;; (color-theme-spec-filter '((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
+
+(defun color-theme-plist-delete (plist prop)
+  "Delete property PROP from property list PLIST by side effect.
+This modifies PLIST."
+  ;; deal with prop at the start
+  (while (eq (car plist) prop)
+    (setq plist (cddr plist)))
+  ;; deal with empty plist
+  (when plist
+    (let ((lastcell (cdr plist))
+	  (l (cddr plist)))
+      (while l
+	(if (eq (car l) prop)
+	    (progn
+	      (setq l (cddr l))
+	      (setcdr lastcell l))
+	  (setq lastcell (cdr l)
+		l (cddr l))))))
+  plist)
+
+;; (color-theme-plist-delete '(a b c d e f g h) 'a)
+;; (color-theme-plist-delete '(a b c d e f g h) 'b)
+;; (color-theme-plist-delete '(a b c d e f g h) 'c)
+;; (color-theme-plist-delete '(a b c d e f g h) 'g)
+;; (color-theme-plist-delete '(a b c d c d e f g h) 'c)
+;; (color-theme-plist-delete '(a b c d e f c d g h) 'c)
+
+(if (or (featurep 'xemacs)
+	(< emacs-major-version 21))
+    (defalias 'color-theme-spec-compat 'identity)
+  (defun color-theme-spec-compat (spec)
+    "Filter the attributes in SPEC such that is is never invalid.
+Example: Eventhough :bold works in Emacs, it is not recognized by
+`customize-face' -- and then the face is uncustomizable.  This
+function replaces a :bold attribute with the corresponding :weight
+attribute, if there is no :weight, or deletes it.  This undoes the
+doings of `color-theme-spec-canonical-font', more or less."
+    (let ((props (cadar spec)))
+      (when (plist-member props :bold)
+	(setq props (color-theme-plist-delete props :bold))
+	(unless (plist-member props :weight)
+	  (setq props (plist-put props :weight 'bold))))
+      (when (plist-member props :italic)
+	(setq props (color-theme-plist-delete props :italic))
+	(unless (plist-member props :slant)
+	  (setq props (plist-put props :slant 'italic))))
+      `((t ,props)))))
+
+;; (color-theme-spec-compat '((t (:foreground "blue" :bold t))))
+;; (color-theme-spec-compat '((t (:bold t :foreground "blue" :weight extra-bold))))
+;; (color-theme-spec-compat '((t (:italic t :foreground "blue"))))
+;; (color-theme-spec-compat '((t (:slant oblique :italic t :foreground "blue"))))
+
+(defun color-theme-spec-canonical-font (atts)
+  "Add :bold and :italic attributes if necessary."
+  ;; add these to the front of atts -- this will keept the old value for
+  ;; customize-face in Emacs 21.
+  (when (and (memq (plist-get atts :weight)
+		   '(ultra-bold extra-bold bold semi-bold))
+	     (not (plist-get atts :bold)))
+    (setq atts (cons :bold (cons t atts))))
+  (when (and (not (memq (plist-get atts :slant)
+			'(normal nil)))
+	     (not (plist-get atts :italic)))
+    (setq atts (cons :italic (cons t atts))))
+  atts)
+;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'bold (selected-frame)))
+;; (defface foo '((t (:weight extra-bold))) "foo")
+;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'foo (selected-frame)))
+;; (face-spec-set 'foo '((t (:weight extra-bold))) nil)
+;; (face-spec-set 'foo '((t (:bold t))) nil)
+;; (face-spec-set 'foo '((t (:bold t :weight extra-bold))) nil)
+
+;; Handle :height according to NEWS file for Emacs 21
+(defun color-theme-spec-resolve-height (old new)
+  "Return the new height given OLD and NEW height.
+OLD is the current setting, NEW is the setting inherited from."
+  (cond ((not old)
+	 new)
+	((integerp old)
+	 old)
+	((and (floatp old)
+	      (integerp new))
+	 (round (* old new)))
+	((and (floatp old)
+	      (floatp new))
+	 (* old new))
+	((and (functionp old)
+	      (integerp new))
+	 (round (funcall old new)))
+	((and (functionp old)
+	      (float new))
+	 `(lambda (f) (* (funcall ,old f) ,new)))
+	((and (functionp old)
+	      (functionp new))
+	 `(lambda (f) (* (funcall ,old (funcall ,new f)))))
+	(t
+	 (error "Illegal :height attributes: %S or %S" old new))))
+;; (color-theme-spec-resolve-height 12 1.2)
+;; (color-theme-spec-resolve-height 1.2 1.2)
+;; (color-theme-spec-resolve-height 1.2 12)
+;; (color-theme-spec-resolve-height 1.2 'foo)
+;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 5)
+;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 2.0)
+;; the following lambda is the result from the above calculation
+;; (color-theme-spec-resolve-height (lambda (f) (* (funcall (lambda (f) (* 2 f)) f) 2.0)) 5)
+
+(defun color-theme-spec-resolve-inheritance (atts)
+  "Resolve all occurences of the :inherit attribute."
+  (let ((face (plist-get atts :inherit)))
+    ;; From the Emacs 21 NEWS file: "Attributes from inherited faces are
+    ;; merged into the face like an underlying face would be." --
+    ;; therefore properties of the inherited face only add missing
+    ;; attributes.
+    (when face
+      ;; remove :inherit face from atts -- this assumes only one
+      ;; :inherit attribute.
+      (setq atts (delq ':inherit (delq face atts)))
+      (let ((more-atts (color-theme-spec-resolve-inheritance
+			(color-theme-face-attr-construct
+			 face (selected-frame))))
+	    att val)
+	(while more-atts
+	  (setq att (car more-atts)
+		val (cadr more-atts)
+		more-atts (cddr more-atts))
+	  ;; Color-theme assumes that no value is ever 'unspecified.
+	  (cond ((eq att ':height); cumulative effect!
+		 (setq atts (plist-put atts 
+				       ':height 
+				       (color-theme-spec-resolve-height
+					(plist-get atts att) 
+					val))))
+		;; Default: Only put if it has not been specified before.
+		((not (plist-get atts att))
+		 (setq atts (cons att (cons val atts))))
+		  
+))))
+    atts))
+;; (color-theme-spec-resolve-inheritance '(:bold t))
+;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "blue"))
+;; (color-theme-face-attr-construct 'font-lock-comment-face (selected-frame))
+;; (color-theme-spec-resolve-inheritance '(:bold t :inherit font-lock-comment-face))
+;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "red" :inherit font-lock-comment-face))
+;; (color-theme-face-attr-construct 'Info-title-2-face (selected-frame))
+;; (color-theme-face-attr-construct 'Info-title-3-face (selected-frame))
+;; (color-theme-face-attr-construct 'Info-title-4-face (selected-frame))
+;; (color-theme-spec-resolve-inheritance '(:inherit Info-title-2-face))
+
+;; The :inverse-video attribute causes Emacs to swap foreground and
+;; background colors, XEmacs does not.  Therefore, if anybody chooses
+;; the inverse-video attribute, we 1. swap the colors ourselves in Emacs
+;; and 2. we remove the inverse-video attribute in Emacs and XEmacs.
+;; Inverse-video is only useful on a monochrome tty.
+(defun color-theme-spec-maybe-invert (atts)
+  "Remove the :inverse-video attribute from ATTS.
+If ATTS contains :inverse-video t, remove it and swap foreground and
+background color.  Return ATTS."
+  (let ((inv (plist-get atts ':inverse-video)))
+    (if inv
+	(let (result att)
+	  (while atts
+	    (setq att (car atts)
+		  atts (cdr atts))
+	    (cond ((and (eq att :foreground) (not color-theme-xemacs-p))
+		   (setq result (cons :background result)))
+		  ((and (eq att :background) (not color-theme-xemacs-p))
+		   (setq result (cons :foreground result)))
+		  ((eq att :inverse-video)
+		   (setq atts (cdr atts))); this prevents using dolist
+		  (t
+		   (setq result (cons att result)))))
+	  (nreverse result))
+      ;; else
+      atts)))
+;; (color-theme-spec-maybe-invert '(:bold t))
+;; (color-theme-spec-maybe-invert '(:foreground "blue"))
+;; (color-theme-spec-maybe-invert '(:background "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :foreground "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red" :foreground "blue" :bold t))
+;; (color-theme-spec-maybe-invert '(:inverse-video nil :background "red" :foreground "blue" :bold t))
+
+(defun color-theme-spec (face)
+  "Return a list for FACE which has the form (FACE SPEC).
+See `defface' for the format of SPEC.  In this case we use only one
+DISPLAY, t, and determine ATTS using `color-theme-face-attr-construct'.
+If ATTS is nil, (nil) is used  instead.
+
+If ATTS contains :inverse-video t, we remove it and swap foreground and
+background color using `color-theme-spec-maybe-invert'.  We do this
+because :inverse-video is handled differently in Emacs and XEmacs.  We
+will loose on a tty without colors, because in that situation,
+:inverse-video means something."
+  (let ((atts
+	 (color-theme-spec-canonical-font
+	  (color-theme-spec-maybe-invert
+	   (color-theme-spec-resolve-inheritance
+	    (color-theme-face-attr-construct face (selected-frame)))))))
+    (if atts
+	`(,face ((t ,atts)))
+      `(,face ((t (nil)))))))
+
+(defun color-theme-get-params ()
+  "Return a list of frame parameter settings usable in a color theme.
+Such an alist may be installed by `color-theme-install-frame-params'.  The
+frame parameters returned must match `color-theme-legal-frame-parameters'."
+  (let ((params (color-theme-filter (frame-parameters (selected-frame))
+				    color-theme-legal-frame-parameters)))
+    (sort params (lambda (a b) (string< (symbol-name (car a))
+					(symbol-name (car b)))))))
+
+(defun color-theme-get-vars ()
+  "Return a list of variable settings usable in a color theme.
+Such an alist may be installed by `color-theme-install-variables'.
+The variable names must match `color-theme-legal-variables', and the
+variable must be a user variable according to `user-variable-p'."
+  (let ((vars)
+	(val))
+    (mapatoms (lambda (v)
+		(and (boundp v)
+		     (user-variable-p v)
+		     (string-match color-theme-legal-variables
+				   (symbol-name v))
+		     (setq val (eval v))
+		     (add-to-list 'vars (cons v val)))))
+    (sort vars (lambda (a b) (string< (car a) (car b))))))
+
+(defun color-theme-print-alist (alist)
+  "Print ALIST."
+  (insert "\n     " (if alist "(" "nil"))
+  (dolist (elem alist)
+    (when (= (preceding-char) ?\))
+      (insert "\n      "))
+    (prin1 elem (current-buffer)))
+  (when (= (preceding-char) ?\)) (insert ")")))
+
+(defun color-theme-get-faces ()
+  "Return a list of faces usable in a color theme.
+Such an alist may be installed by `color-theme-install-faces'.  The
+faces returned must not match `color-theme-illegal-faces'."
+  (let ((faces (color-theme-filter (face-list) color-theme-illegal-faces t)))
+    ;; default face must come first according to comments in
+    ;; custom-save-faces, the rest is to be sorted by name
+    (cons 'default (sort (delq 'default faces) 'string-lessp))))
+
+(defun color-theme-get-face-definitions ()
+  "Return face settings usable in a color-theme."
+  (let ((faces (color-theme-get-faces)))
+    (mapcar 'color-theme-spec faces)))
+
+(defun color-theme-print-faces (faces)
+  "Print face settings for all faces returned by `color-theme-get-faces'."
+  (when faces
+    (insert "\n     "))
+  (dolist (face faces)
+    (when (= (preceding-char) ?\))
+      (insert "\n     "))
+    (prin1 face (current-buffer))))
+
+(defun color-theme-reset-faces ()
+  "Reset face settings for all faces returned by `color-theme-get-faces'."
+  (let ((faces (color-theme-get-faces))
+	(face) (spec) (entry)
+	(frame (if color-theme-is-global nil (selected-frame))))
+    (while faces
+      (setq entry (color-theme-spec (car faces)))
+      (setq face (nth 0 entry))
+      (setq spec '((t (nil))))
+      (setq faces (cdr faces))
+      (if (functionp 'face-spec-reset-face)
+	  (face-spec-reset-face face frame)
+	(face-spec-set face spec frame)
+	(if color-theme-is-global
+	    (put face 'face-defface-spec spec))))))
+
+(defun color-theme-print-theme (func doc params vars faces)
+  "Print a theme into the current buffer.
+FUNC is the function name, DOC the doc string, PARAMS the
+frame parameters, VARS the variable bindings, and FACES
+the list of faces and their specs."
+  (insert "(defun " (symbol-name func) " ()\n"
+	  "  \"" doc "\"\n"
+	  "  (interactive)\n"
+	  "  (color-theme-install\n"
+	  "   '(" (symbol-name func))
+  ;; alist of frame parameters
+  (color-theme-print-alist params)
+  ;; alist of variables
+  (color-theme-print-alist vars)
+  ;; remaining elements of snapshot: face specs
+  (color-theme-print-faces faces)
+  (insert ")))\n")
+  (insert "(add-to-list 'color-themes '(" (symbol-name func) " "
+          " \"THEME NAME\" \"YOUR NAME\"))")
+  (goto-char (point-min)))
+
+;;;###autoload
+(defun color-theme-print (&optional buf)
+  "Print the current color theme function.
+
+You can contribute this function to <URL:news:gnu.emacs.sources> or
+paste it into your .emacs file and call it.  That should recreate all
+the settings necessary for your color theme.
+
+Example:
+
+    \(require 'color-theme)
+    \(defun my-color-theme ()
+      \"Color theme by Alex Schroeder, created 2000-05-17.\"
+      \(interactive)
+      \(color-theme-install
+       '(...
+	 ...
+	 ...)))
+    \(my-color-theme)
+
+If you want to use a specific color theme function, you can call the
+color theme function in your .emacs directly.
+
+Example:
+
+    \(require 'color-theme)
+    \(color-theme-gnome2)"
+  (interactive)
+  (message "Pretty printing current color theme function...")
+  (switch-to-buffer (if buf
+			buf
+		      (get-buffer-create "*Color Theme*")))
+  (unless buf
+    (setq buffer-read-only nil)
+    (erase-buffer))
+  ;; insert defun
+  (insert "(eval-when-compile"
+          "    (require 'color-theme))\n")
+  (color-theme-print-theme 'my-color-theme
+			   (concat "Color theme by "
+				   (if (string= "" user-full-name)
+				       (user-login-name)
+				     user-full-name)
+				   ", created " (format-time-string "%Y-%m-%d") ".")
+			   (color-theme-get-params)
+			   (color-theme-get-vars)
+			   (mapcar 'color-theme-spec (color-theme-get-faces)))
+  (unless buf
+    (emacs-lisp-mode))
+  (goto-char (point-min))
+  (message "Pretty printing current color theme function... done"))
+
+(defun color-theme-analyze-find-theme (code)
+  "Find the sexpr that calls `color-theme-install'."
+  (let (theme)
+    (while (and (not theme) code)
+      (when (eq (car code) 'color-theme-install)
+	(setq theme code))
+      (when (listp (car code))
+	(setq theme (color-theme-analyze-find-theme (car code))))
+      (setq code (cdr code)))
+    theme))
+
+;; (equal (color-theme-analyze-find-theme
+;; 	'(defun color-theme-blue-eshell ()
+;; 	   "Color theme for eshell faces only."
+;; 	   (color-theme-install
+;; 	    '(color-theme-blue-eshell
+;; 	      nil
+;; 	      (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+;; 	      (eshell-ls-backup-face ((t (:foreground "Grey"))))))))
+;;        '(color-theme-install
+;; 	 (quote
+;; 	  (color-theme-blue-eshell
+;; 	   nil
+;; 	   (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+;; 	   (eshell-ls-backup-face ((t (:foreground "Grey")))))))))
+
+(defun color-theme-analyze-add-face (a b regexp faces)
+  "If only one of A or B are in FACES, the other is added, and FACES is returned.
+If REGEXP is given, this is only done if faces contains a match for regexps."
+  (when (or (not regexp)
+	    (catch 'found
+	      (dolist (face faces)
+		(when (string-match regexp (symbol-name (car face)))
+		  (throw 'found t)))))
+    (let ((face-a (assoc a faces))
+	  (face-b (assoc b faces)))
+      (if (and face-a (not face-b))
+	  (setq faces (cons (list b (nth 1 face-a))
+			    faces))
+	(if (and (not face-a) face-b)
+	    (setq faces (cons (list a (nth 1 face-b))
+			      faces))))))
+  faces)
+
+;; (equal (color-theme-analyze-add-face
+;; 	'blue 'violet nil
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue nil
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue "foo"
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue "blue"
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+
+(defun color-theme-analyze-add-faces (faces)
+  "Add missing faces to FACES and return it."
+  ;; The most important thing is to add missing faces for the other
+  ;; editor.  These are the most important faces to check.  The
+  ;; following rules list two faces, A and B.  If either of the two is
+  ;; part of the theme, the other must be, too.  The optional third
+  ;; argument specifies a regexp.  Only if an existing face name
+  ;; matches this regexp, is the rule applied.
+  (let ((rules '((font-lock-builtin-face font-lock-reference-face)
+		 (font-lock-doc-face font-lock-doc-string-face)
+		 (font-lock-constant-face font-lock-preprocessor-face)
+		 ;; In Emacs 21 `modeline' is just an alias for
+		 ;; `mode-line'.  I recommend the use of
+		 ;; `modeline' until further notice.
+		 (modeline mode-line)
+		 (modeline modeline-buffer-id)
+		 (modeline modeline-mousable)
+		 (modeline modeline-mousable-minor-mode)
+		 (region primary-selection)
+		 (region zmacs-region)
+		 (font-lock-string-face dired-face-boring "^dired")
+		 (font-lock-function-name-face dired-face-directory "^dired")
+		 (default dired-face-executable "^dired")
+		 (font-lock-warning-face dired-face-flagged "^dired")
+		 (font-lock-warning-face dired-face-marked "^dired")
+		 (default dired-face-permissions "^dired")
+		 (default dired-face-setuid "^dired")
+		 (default dired-face-socket "^dired")
+		 (font-lock-keyword-face dired-face-symlink "^dired")
+		 (tool-bar menu))))
+    (dolist (rule rules)
+      (setq faces (color-theme-analyze-add-face
+		   (nth 0 rule) (nth 1 rule) (nth 2 rule) faces))))
+  ;; The `fringe' face defines what the left and right borders of the
+  ;; frame look like in Emacs 21.  To give them default fore- and
+  ;; background colors, use (fringe ((t (nil)))) in your color theme.
+  ;; Usually it makes more sense to choose a color slightly lighter or
+  ;; darker from the default background.
+  (unless (assoc 'fringe faces)
+    (setq faces (cons '(fringe ((t (nil)))) faces)))
+  ;; The tool-bar should not be part of the frame-parameters, since it
+  ;; should not appear or disappear depending on the color theme.  The
+  ;; apppearance of the toolbar, however, can be changed by the color
+  ;; theme.  For Emacs 21, use the `tool-bar' face.  The easiest way
+  ;; to do this is to give it the default fore- and background colors.
+  ;; This can be achieved using (tool-bar ((t (nil)))) in the theme.
+  ;; Usually it makes more sense, however, to provide the same colors
+  ;; as used in the `menu' face, and to specify a :box attribute.  In
+  ;; order to alleviate potential Emacs/XEmacs incompatibilities,
+  ;; `toolbar' will be defined as an alias for `tool-bar' if it does
+  ;; not exist, and vice-versa.  This is done eventhough the face
+  ;; `toolbar' seems to have no effect on XEmacs.  If you look at
+  ;; XEmacs lisp/faces.el, however, you will find that it is in fact
+  ;; referenced for XPM stuff.
+  (unless (assoc 'tool-bar faces)
+    (setq faces (cons '(tool-bar ((t (nil)))) faces)))
+  ;; Move the default face back to the front, and sort the rest.
+  (unless (eq (caar faces) 'default)
+    (let ((face (assoc 'default faces)))
+      (setq faces (cons face
+			(sort (delete face faces)
+			      (lambda (a b)
+				(string-lessp (car a) (car b))))))))
+  faces)
+
+(defun color-theme-analyze-remove-heights (faces)
+  "Remove :height property where it is an integer and return FACES."
+  ;; I don't recommend making font sizes part of a color theme.  Most
+  ;; users would be surprised to see their font sizes change when they
+  ;; install a color-theme.  Therefore, remove all :height attributes
+  ;; if the value is an integer.  If the value is a float, this is ok
+  ;; -- the value is relative to the default height.  One notable
+  ;; exceptions is for a color-theme created for visually impaired
+  ;; people.  These *must* use a larger font in order to be usable.
+  (let (result)
+    (dolist (face faces)
+      (let ((props (cadar (nth 1 face))))
+	(if (and (plist-member props :height)
+		 (integerp (plist-get props :height)))
+	    (setq props (color-theme-plist-delete props :height)
+		  result (cons (list (car face) `((t ,props)))
+			       result))
+	  (setq result (cons face result)))))
+    (nreverse result)))
+
+;; (equal (color-theme-analyze-remove-heights
+;; 	'((blue ((t (:foreground "blue" :height 2))))
+;; 	  (bold ((t (:bold t :height 1.0))))))
+;;        '((blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t :height 1.0))))))
+
+;;;###autoload
+(defun color-theme-analyze-defun ()
+  "Once you have a color-theme printed, check for missing faces.
+This is used by maintainers who receive a color-theme submission
+and want to make sure it follows the guidelines by the color-theme
+author."
+  ;; The support for :foreground and :background attributes works for
+  ;; Emacs 20 and 21 as well as for XEmacs.  :inverse-video is taken
+  ;; care of while printing color themes.
+  (interactive)
+  ;; Parse the stuff and find the call to color-theme-install
+  (save-excursion
+    (save-restriction
+      (narrow-to-defun)
+      ;; define the function
+      (eval-defun nil)
+      (goto-char (point-min))
+      (let* ((code (read (current-buffer)))
+	     (theme (color-theme-canonic
+		     (eval
+		      (cadr
+		       (color-theme-analyze-find-theme
+			code)))))
+	     (func (color-theme-function theme))
+	     (doc (documentation func t))
+	     (variables (color-theme-variables theme))
+	     (faces (color-theme-faces theme))
+	     (params (color-theme-frame-params theme)))
+	(setq faces (color-theme-analyze-remove-heights
+		     (color-theme-analyze-add-faces faces)))
+	;; Remove any variable bindings of faces that point to their
+	;; symbol?  Perhaps not, because another theme might want to
+	;; change this, so it is important to be able to reset them.
+	;; 	(let (result)
+	;; 	  (dolist (var variables)
+	;; 	    (unless (eq (car var) (cdr var))
+	;; 	      (setq result (cons var result))))
+	;; 	  (setq variables (nreverse result)))
+	;; Now modify the theme directly.
+	(setq theme (color-theme-analyze-find-theme code))
+	(setcdr (cadadr theme) (list params variables faces))
+	(message "Pretty printing analysed color theme function...")
+	(with-current-buffer (get-buffer-create "*Color Theme*")
+	  (setq buffer-read-only nil)
+	  (erase-buffer)
+	  ;; insert defun
+	  (color-theme-print-theme func doc params variables faces)
+	  (emacs-lisp-mode))
+	(message "Pretty printing analysed color theme function... done")
+	(ediff-buffers (current-buffer)
+		       (get-buffer "*Color Theme*"))))))
+
+;;; Creating a snapshot of the current color theme
+
+(defun color-theme-snapshot nil)
+
+;;;###autoload
+(defun color-theme-make-snapshot ()
+  "Return the definition of the current color-theme.
+The function returned will recreate the color-theme in use at the moment."
+  (eval `(lambda ()
+	   "The color theme in use when the selection buffer was created.
+\\[color-theme-select] creates the color theme selection buffer.  At the
+same time, this snapshot is created as a very simple undo mechanism.
+The snapshot is created via `color-theme-snapshot'."
+	   (interactive)
+	   (color-theme-install
+	    '(color-theme-snapshot
+	      ;; alist of frame parameters
+	      ,(color-theme-get-params)
+	      ;; alist of variables
+	      ,(color-theme-get-vars)
+	      ;; remaining elements of snapshot: face specs
+	      ,@(color-theme-get-face-definitions))))))
+
+
+
+;;; Handling the various parts of a color theme install
+
+(defvar color-theme-frame-param-frobbing-rules
+  '((foreground-color default foreground)
+    (background-color default background))
+  "List of rules to use when frobbing faces based on frame parameters.
+This is only necessary for XEmacs, because in Emacs 21 changing the
+frame paramters automatically affects the relevant faces.")
+
+;; fixme: silent the bytecompiler with set-face-property
+(defun color-theme-frob-faces (params)
+  "Change certain faces according to PARAMS.
+This uses `color-theme-frame-param-frobbing-rules'."
+  (dolist (rule color-theme-frame-param-frobbing-rules)
+    (let* ((param (nth 0 rule))
+	   (face (nth 1 rule))
+	   (prop (nth 2 rule))
+	   (val (cdr (assq param params)))
+	   (frame (if color-theme-is-global nil (selected-frame))))
+      (when val
+	(set-face-property face prop val frame)))))
+
+(defun color-theme-alist-reduce (old-list)
+  "Reduce OLD-LIST.
+The resulting list will be newly allocated and will not contain any elements
+with duplicate cars.  This will speed the installation of new themes by
+only installing unique attributes."
+  (let (new-list)
+    (dolist (elem old-list)
+      (when (not (assq (car elem) new-list))
+	(setq new-list (cons elem new-list))))
+    new-list))
+
+(defun color-theme-install-frame-params (params)
+  "Change frame parameters using alist PARAMETERS.
+
+If `color-theme-is-global' is non-nil, all frames are modified using
+`modify-frame-parameters' and the PARAMETERS are prepended to
+`default-frame-alist'.  The value of `initial-frame-alist' is not
+modified.  If `color-theme-is-global' is nil, only the selected frame is
+modified.  If `color-theme-is-cumulative' is nil, the frame parameters
+are restored from `color-theme-original-frame-alist'.
+
+If the current frame parameters have a parameter `minibuffer' with
+value `only', then the frame parameters are not installed, since this
+indicates a dedicated minibuffer frame.
+
+Called from `color-theme-install'."
+  (setq params (color-theme-filter
+		params color-theme-legal-frame-parameters))
+  ;; We have a new list in params now, therefore we may use
+  ;; destructive nconc.
+  (if color-theme-is-global
+      (let ((frames (frame-list)))
+	(if (or color-theme-is-cumulative
+		(null color-theme-original-frame-alist))
+	    (setq default-frame-alist
+		  (append params (color-theme-alist default-frame-alist))
+		  minibuffer-frame-alist
+		  (append params (color-theme-alist minibuffer-frame-alist)))
+	  (setq default-frame-alist
+		(append params color-theme-original-frame-alist)
+		minibuffer-frame-alist
+		(append params (color-theme-alist minibuffer-frame-alist))))
+	(setq default-frame-alist
+	      (color-theme-alist-reduce default-frame-alist)
+	      minibuffer-frame-alist
+	      (color-theme-alist-reduce minibuffer-frame-alist))
+	(dolist (frame frames)
+	  (let ((params (if (eq 'only (cdr (assq 'minibuffer (frame-parameters frame))))
+			    minibuffer-frame-alist
+			  default-frame-alist)))
+	    (condition-case var
+		(modify-frame-parameters frame params)
+	      (error (message "Error using params %S: %S" params var))))))
+    (condition-case var
+	(modify-frame-parameters (selected-frame) params)
+      (error (message "Error using params %S: %S" params var))))
+  (when color-theme-xemacs-p
+    (color-theme-frob-faces params)))
+
+;; (setq default-frame-alist (cons '(height . 30) default-frame-alist))
+
+(defun color-theme-install-variables (vars)
+  "Change variables using alist VARS.
+All variables matching `color-theme-legal-variables' are set.
+
+If `color-theme-is-global' and `color-theme-xemacs-p' are nil, variables
+are made frame-local before setting them.  Variables are set using `set'
+in either case.  This may lead to problems if changing the variable
+requires the usage of the function specified with the :set tag in
+defcustom declarations.
+
+Called from `color-theme-install'."
+  (let ((vars (color-theme-filter vars color-theme-legal-variables)))
+    (dolist (var vars)
+      (if (or color-theme-is-global color-theme-xemacs-p)
+	  (set (car var) (cdr var))
+	(make-variable-frame-local (car var))
+	(modify-frame-parameters (selected-frame) (list var))))))
+
+(defun color-theme-install-faces (faces)
+  "Change faces using FACES.
+
+Change faces for all frames and create any faces listed in FACES which
+don't exist.  The modified faces will be marked as \"unchanged from
+its standard setting\".  This is OK, since the changes made by
+installing a color theme should never by saved in .emacs by
+customization code.
+
+FACES should be a list where each entry has the form:
+
+  (FACE SPEC)
+
+See `defface' for the format of SPEC.
+
+If `color-theme-is-global' is non-nil, faces are modified on all frames
+using `face-spec-set'.  If `color-theme-is-global' is nil, faces are
+only modified on the selected frame.  Non-existing faces are created
+using `make-empty-face' in either case.  If `color-theme-is-cumulative'
+is nil, all faces are reset before installing the new faces.
+
+Called from `color-theme-install'."
+  ;; clear all previous faces
+  (when (not color-theme-is-cumulative)
+    (color-theme-reset-faces))
+  ;; install new faces
+  (let ((faces (color-theme-filter faces color-theme-illegal-faces t))
+	(frame (if color-theme-is-global nil (selected-frame))))
+    (dolist (entry faces)
+      (let ((face (nth 0 entry))
+	    (spec (nth 1 entry)))
+	(or (facep face)
+	    (make-empty-face face))
+	;; remove weird properties from the default face only
+	(when (eq face 'default)
+	  (setq spec (color-theme-spec-filter spec)))
+	;; Emacs/XEmacs customization issues: filter out :bold when
+	;; the spec contains :weight, etc, such that the spec remains
+	;; "valid" for custom.
+	(setq spec (color-theme-spec-compat spec))
+	;; using a spec of ((t (nil))) to reset a face doesn't work
+	;; in Emacs 21, we use the new function face-spec-reset-face
+	;; instead
+	(if (and (functionp 'face-spec-reset-face)
+		 (equal spec '((t (nil)))))
+	    (face-spec-reset-face face frame)
+	  (condition-case var
+	      (progn
+		(face-spec-set face spec frame)
+		(if color-theme-is-global
+		    (put face 'face-defface-spec spec)))
+	    (error (message "Error using spec %S: %S" spec var))))))))
+
+;; `custom-set-faces' is unusable here because it doesn't allow to set
+;; the faces for one frame only.
+
+;; Emacs `face-spec-set': If FRAME is nil, the face is created and
+;; marked as a customized face.  This is achieved by setting the
+;; `face-defface-spec' property.  If we don't, new frames will not be
+;; created using the face we installed because `face-spec-set' is
+;; broken: If given a FRAME of nil, it will not set the default faces;
+;; instead it will walk through all the frames and set modify the faces.
+;; If we do set a property (`saved-face' or `face-defface-spec'),
+;; `make-frame' will correctly use the faces we defined with our color
+;; theme.  If we used the property `saved-face',
+;; `customize-save-customized' will save all the faces installed as part
+;; of a color-theme in .emacs.  That's why we use the
+;; `face-defface-spec' property.
+
+
+
+;;; Theme accessor functions, canonicalization, merging, comparing
+
+(defun color-theme-canonic (theme)
+  "Return the canonic form of THEME.
+This deals with all the backwards compatibility stuff."
+  (let (function frame-params variables faces)
+    (when (functionp (car theme))
+      (setq function (car theme)
+	    theme (cdr theme)))
+    (setq frame-params (car theme)
+	  theme (cdr theme))
+    ;; optional variable defintions (for backwards compatibility)
+    (when (listp (caar theme))
+      (setq variables (car theme)
+	    theme (cdr theme)))
+    ;; face definitions
+    (setq faces theme)
+    (list function frame-params variables faces)))
+
+(defun color-theme-function (theme)
+  "Return function used to create THEME."
+  (nth 0 theme))
+
+(defun color-theme-frame-params (theme)
+  "Return frame-parameters defined by THEME."
+  (nth 1 theme))
+
+(defun color-theme-variables (theme)
+  "Return variables set by THEME."
+  (nth 2 theme))
+
+(defun color-theme-faces (theme)
+  "Return faces defined by THEME."
+  (nth 3 theme))
+
+(defun color-theme-merge-alists (&rest alists)
+  "Merges all the alist arguments into one alist.
+Only the first instance of every key will be part of the resulting
+alist.  Membership will be tested using `assq'."
+  (let (result)
+    (dolist (l alists)
+      (dolist (entry l)
+	(unless (assq (car entry) result)
+	  (setq result (cons entry result)))))
+    (nreverse result)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)))
+;; (color-theme-merge-alists '((a . 1) (b . 2) (a . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((a . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4) (b . 5)))
+
+;;;###autoload
+(defun color-theme-compare (theme-a theme-b)
+  "Compare two color themes.
+This will print the differences between installing THEME-A and
+installing THEME-B.  Note that the order is important: If a face is
+defined in THEME-A and not in THEME-B, then this will not show up as a
+difference, because there is no reset before installing THEME-B.  If a
+face is defined in THEME-B and not in THEME-A, then this will show up as
+a difference."
+  (interactive
+   (list
+    (intern
+     (completing-read "Theme A: "
+		      (mapcar (lambda (i) (list (symbol-name (car i))))
+			      color-themes)
+		      (lambda (i) (string-match "color-theme" (car i)))))
+    (intern
+     (completing-read "Theme B: "
+		      (mapcar (lambda (i) (list (symbol-name (car i))))
+			      color-themes)
+		      (lambda (i) (string-match "color-theme" (car i)))))))
+  ;; install the themes in a new frame and get the definitions
+  (let ((color-theme-is-global nil))
+    (select-frame (make-frame))
+    (funcall theme-a)
+    (setq theme-a (list theme-a
+			(color-theme-get-params)
+			(color-theme-get-vars)
+			(color-theme-get-face-definitions)))
+    (funcall theme-b)
+    (setq theme-b (list theme-b
+			(color-theme-get-params)
+			(color-theme-get-vars)
+			(color-theme-get-face-definitions)))
+    (delete-frame))
+  (let ((params (set-difference
+		 (color-theme-frame-params theme-b)
+		 (color-theme-frame-params theme-a)
+		 :test 'equal))
+	(vars (set-difference
+	       (color-theme-variables theme-b)
+	       (color-theme-variables theme-a)
+	       :test 'equal))
+	(faces (set-difference
+		(color-theme-faces theme-b)
+		(color-theme-faces theme-a)
+		:test 'equal)))
+    (list 'diff
+	  params
+	  vars
+	  faces)))
+
+
+
+;;; Installing a color theme
+;;;###autoload
+(defun color-theme-install (theme)
+  "Install a color theme defined by frame parameters, variables and faces.
+
+The theme is installed for all present and future frames; any missing
+faces are created.  See `color-theme-install-faces'.
+
+THEME is a color theme definition.  See below for more information.
+
+If you want to install a color theme from your .emacs, use the output
+generated by `color-theme-print'.  This produces color theme function
+which you can copy to your .emacs.
+
+A color theme definition is a list:
+\([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS)
+
+FUNCTION is the color theme function which called `color-theme-install'.
+This is no longer used.  There was a time when this package supported
+automatic factoring of color themes.  This has been abandoned.
+
+FRAME-PARAMETERS is an alist of frame parameters.  These are installed
+with `color-theme-install-frame-params'.  These are installed last such
+that any changes to the default face can be changed by the frame
+parameters.
+
+VARIABLE-DEFINITIONS is an alist of variable settings.  These are
+installed with `color-theme-install-variables'.
+
+FACE-DEFINITIONS is an alist of face definitions.  These are installed
+with `color-theme-install-faces'.
+
+If `color-theme-is-cumulative' is nil, a color theme will undo face and
+frame-parameter settings of previous color themes."
+  (setq theme (color-theme-canonic theme))
+  (color-theme-install-variables (color-theme-variables theme))
+  (color-theme-install-faces (color-theme-faces theme))
+  ;; frame parameters override faces
+  (color-theme-install-frame-params (color-theme-frame-params theme))
+  (when color-theme-history-max-length
+    (color-theme-add-to-history
+     (car theme))))
+
+
+
+;; Sharing your stuff
+;;;###autoload
+(defun color-theme-submit ()
+  "Submit your color-theme to the maintainer."
+  (interactive)
+  (require 'reporter)
+  (let ((reporter-eval-buffer (current-buffer))
+	final-resting-place
+	after-sep-pos
+	(reporter-status-message "Formatting buffer...")
+	(reporter-status-count 0)
+	(problem "Yet another color-theme")
+	(agent (reporter-compose-outgoing))
+	(mailbuf (current-buffer))
+	hookvar)
+    ;; do the work
+    (require 'sendmail)
+    ;; If mailbuf did not get made visible before, make it visible now.
+    (let (same-window-buffer-names same-window-regexps)
+      (pop-to-buffer mailbuf)
+      ;; Just in case the original buffer is not visible now, bring it
+      ;; back somewhere
+      (and pop-up-windows (display-buffer reporter-eval-buffer)))
+    (goto-char (point-min))
+    (mail-position-on-field "to")
+    (insert color-theme-maintainer-address)
+    (mail-position-on-field "subject")
+    (insert problem)
+    ;; move point to the body of the message
+    (mail-text)
+    (setq after-sep-pos (point))
+    (unwind-protect
+	(progn
+	  (setq final-resting-place (point-marker))
+	  (goto-char final-resting-place))
+      (color-theme-print (current-buffer))
+      (goto-char final-resting-place)
+      (insert "\n\n")
+      (goto-char final-resting-place)
+      (insert "Hello there!\n\nHere's my color theme named: ")
+      (set-marker final-resting-place nil))
+    ;; compose the minibuf message and display this.
+    (let* ((sendkey-whereis (where-is-internal
+			     (get agent 'sendfunc) nil t))
+	   (abortkey-whereis (where-is-internal
+			      (get agent 'abortfunc) nil t))
+	   (sendkey (if sendkey-whereis
+			(key-description sendkey-whereis)
+		      "C-c C-c")); TBD: BOGUS hardcode
+	   (abortkey (if abortkey-whereis
+			 (key-description abortkey-whereis)
+		       "M-x kill-buffer"))); TBD: BOGUS hardcode
+      (message "Enter a message and type %s to send or %s to abort."
+	       sendkey abortkey))))
+
+
+
+;; Use this to define themes
+(defmacro define-color-theme (name author description &rest forms)
+  (let ((n name))
+    `(progn 
+       (add-to-list 'color-themes
+                    (list ',n
+                          (upcase-initials
+                           (replace-in-string
+                            (replace-in-string 
+                             (symbol-name ',n) "^color-theme-" "") "-" " "))
+                          ,author))
+       (defun ,n ()
+	 ,description
+	 (interactive)
+         ,@forms))))
+
+
+;;; FIXME: is this useful ??
+;;;###autoload
+(defun color-theme-initialize ()
+  "Initialize the color theme package by loading color-theme-libraries."
+  (interactive)
+
+  (cond ((and (not color-theme-load-all-themes)
+              color-theme-directory)
+         (setq color-theme-libraries 
+               (directory-files color-theme-directory t "^color-theme")))
+        (color-theme-directory
+         (push (cdr (directory-files color-theme-directory t "^color-theme")) 
+               color-theme-libraries)))
+  (dolist (library color-theme-libraries)
+    (load library)))
+
+(when nil
+  (setq color-theme-directory "themes/"
+        color-theme-load-all-themes nil)
+  (color-theme-initialize)
+)
+;; TODO: I don't like all those function names cluttering up my namespace.
+;; Instead, a hashtable for the color-themes should be created. Now that 
+;; define-color-theme is around, it should be easy to change in just the
+;; one place. 
+
+
+(provide 'color-theme)
+
+;;; color-theme.el ends here
Binary file .emacs.d/color-theme-6.6.0/color-theme.elc has changed
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/themes/color-theme-example.el	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,22 @@
+(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)))))))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs.d/color-theme-6.6.0/themes/color-theme-library.el	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,13539 @@
+;;; 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)<