summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJaromil <jaromil@dyne.org>2012-04-20 15:07:21 (GMT)
committer Jaromil <jaromil@dyne.org>2012-04-20 15:07:21 (GMT)
commit61659440490c19030333be1c1c93a54deffc4444 (patch)
tree687cd548e7208a5f2e35bacbbc892a064a3050bf
parent6cf306b807cb1a76da857b7c6907e922d70a9c41 (diff)
3rd rewrite starting from a working and well configured Emacs, testing on mac
-rw-r--r--.gitignore1
-rw-r--r--AUTHORS15
-rw-r--r--ChangeLog4
-rw-r--r--DEPS9
-rw-r--r--Makefile.am63
-rw-r--r--NEWS1
-rw-r--r--VERSION1
-rwxr-xr-xautogen.sh9
-rw-r--r--configure.ac160
-rw-r--r--doc/manual/.autorg-setup.org (renamed from share/manual/.autorg-setup.org)0
-rw-r--r--doc/manual/404.org (renamed from share/manual/404.org)0
-rw-r--r--doc/manual/API.org (renamed from share/manual/API.org)0
-rw-r--r--doc/manual/Makefile.am (renamed from share/manual/Makefile.am)0
-rw-r--r--doc/manual/SemVer.org (renamed from share/manual/SemVer.org)0
-rw-r--r--doc/manual/TODO.org (renamed from share/manual/TODO.org)0
-rw-r--r--doc/manual/autonomy-is-organization.org (renamed from share/manual/autonomy-is-organization.org)0
-rw-r--r--doc/manual/autorg-bg.png (renamed from share/manual/autorg-bg.png)bin441 -> 441 bytes
-rw-r--r--doc/manual/autorg-logo.png (renamed from share/manual/autorg-logo.png)bin39657 -> 39657 bytes
-rw-r--r--doc/manual/autorg.css (renamed from share/manual/autorg.css)0
-rw-r--r--doc/manual/favicon.ico (renamed from share/manual/favicon.ico)bin5688 -> 5688 bytes
-rw-r--r--doc/manual/get-started.org (renamed from share/manual/get-started.org)0
-rw-r--r--doc/manual/hacking.org (renamed from share/manual/hacking.org)0
-rw-r--r--doc/manual/index.org (renamed from share/manual/index.org)0
-rw-r--r--doc/manual/org-gtd.org (renamed from share/manual/org-gtd.org)0
-rw-r--r--doc/manual/org-protocol.org (renamed from share/manual/org-protocol.org)0
-rw-r--r--elisp/autorg.el201
-rw-r--r--elisp/color-theme.el1669
-rw-r--r--elisp/figlet.el73
-rw-r--r--elisp/linkd.el1256
-rw-r--r--elisp/mwheel.el69
-rw-r--r--elisp/no-word.el241
-rw-r--r--elisp/osx.el46
-rw-r--r--elisp/themes/color-theme-library.el13539
-rw-r--r--elisp/word-count.el478
-rwxr-xr-xmac/AutOrg.command25
-rw-r--r--mac/Info.plist590
-rwxr-xr-xold/autorg (renamed from src/autorg)0
-rw-r--r--old/share/Makefile.am (renamed from share/Makefile.am)0
-rw-r--r--old/share/apache/Makefile.am (renamed from share/apache/Makefile.am)0
-rw-r--r--old/share/apache/apache.conf.in (renamed from share/apache/apache.conf.in)0
-rw-r--r--old/share/apache/www.in (renamed from share/apache/www.in)0
-rw-r--r--old/share/awk/Makefile.am (renamed from share/awk/Makefile.am)0
-rwxr-xr-xold/share/awk/server.awk (renamed from share/awk/server.awk)0
-rw-r--r--old/share/config.in (renamed from share/config.in)0
-rw-r--r--old/share/elisp/Makefile.am (renamed from share/elisp/Makefile.am)0
-rw-r--r--old/share/elisp/autorg.el.in (renamed from share/elisp/autorg.el.in)0
-rw-r--r--old/share/elisp/org-batch.el.in (renamed from share/elisp/org-batch.el.in)0
-rw-r--r--old/share/org-templates/Makefile.am (renamed from share/org-templates/Makefile.am)0
-rw-r--r--old/share/org-templates/agenda-setup.org (renamed from share/org-templates/agenda-setup.org)0
-rw-r--r--old/share/org-templates/latex-1column.org (renamed from share/org-templates/latex-1column.org)0
-rw-r--r--old/share/org-templates/latex-2column.org (renamed from share/org-templates/latex-2column.org)0
-rw-r--r--old/very-old/autorg-announce.in (renamed from src/old/autorg-announce.in)0
-rw-r--r--old/very-old/autorg-browse.in (renamed from src/old/autorg-browse.in)0
-rw-r--r--old/very-old/autorg-config.in (renamed from src/old/autorg-config.in)0
-rw-r--r--old/very-old/autorg-create.in (renamed from src/old/autorg-create.in)0
-rw-r--r--old/very-old/autorg-free.in (renamed from src/old/autorg-free.in)0
-rw-r--r--old/very-old/autorg-help.in (renamed from src/old/autorg-help.in)0
-rw-r--r--old/very-old/autorg-list.in (renamed from src/old/autorg-list.in)0
-rw-r--r--old/very-old/autorg-package.in (renamed from src/old/autorg-package.in)0
-rw-r--r--old/very-old/autorg-publish.in (renamed from src/old/autorg-publish.in)0
-rw-r--r--old/very-old/autorg-release.in (renamed from src/old/autorg-release.in)0
-rw-r--r--old/very-old/autorg-status.in (renamed from src/old/autorg-status.in)0
-rw-r--r--old/very-old/autorg-trigger.in (renamed from src/old/autorg-trigger.in)0
-rw-r--r--old/very-old/autorg.in (renamed from src/old/autorg.in)0
-rw-r--r--old/very-old/autorg_functions.sh.in (renamed from src/old/autorg_functions.sh.in)0
-rw-r--r--src/Makefile.am1
66 files changed, 18202 insertions, 249 deletions
diff --git a/.gitignore b/.gitignore
index 6bee3f8..621a956 100644
--- a/.gitignore
+++ b/.gitignore
@@ -20,6 +20,7 @@
*.tex
*.tmplc
*.vhost
+*.app
dump
cache
aclocal.m4
diff --git a/AUTHORS b/AUTHORS
index 9421711..f50034e 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,12 +1,15 @@
-Jaromil
+AutOrg is written by
+ Denis Roio <Jaromil@dyne.org>
+ and Hellekin O. Wolf <hellekin@riseup.net>
+Includes documentation and ideas by Yaakov Nemoy
-Hellekin
+Emacs was written by Richard M. Stallman and several contributors.
-Yaakov
+Org-mode is an Emacs extension written by Carsten Dominik.
-includes org-mode, an Emacs extension written by Carsten Dominik
-
-AutOrg build system is based on dyne-web.git setup
+AutOrg redistributes fonts by Mark Simonson and Raph Levien.
+AutOrg also includes various other Emacs extensions not yet documented here,
+but this list should be expanded soon.
diff --git a/ChangeLog b/ChangeLog
index e69de29..650e932 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -0,0 +1,4 @@
+
+20 Feb 2012 - 3rd rewrite
+ Previous rewrites had no ChangeLog
+ This marks the start of the first rewrite
diff --git a/DEPS b/DEPS
deleted file mode 100644
index 75d7bd9..0000000
--- a/DEPS
+++ /dev/null
@@ -1,9 +0,0 @@
-# Dependencies for AutOrg
-
-+ Debian
-req: zsh
-req: emacs
-req: org-mode
-opt: xapian-tools
-
-# TODO: other distros
diff --git a/Makefile.am b/Makefile.am
deleted file mode 100644
index 8857db6..0000000
--- a/Makefile.am
+++ /dev/null
@@ -1,63 +0,0 @@
-SUBDIRS = share src
-
-install: install-data
-
-# org/foo.css will supercede src/foo.css
-CSS_FILES = $(shell find org src -type f -name "*.css" -print | sort -k 4 -u 2>/dev/null)
-ORG_FILES = $(shell find doc org -type f -name "*.org" -print 2>/dev/null)
-
-autorg_publish = emacs -batch -Q -l src/org-batch.el \
- --eval='(org-publish-batch-project "$1" $2)'
-
-autorg-dirs:
- @mkdir -p org pub
- @cp src/favicon.ico src/*.png $(CSS_FILES) pub/
-
-autorg-greeting:
- @echo
- @echo ".:| AutOrg v$(shell cat VERSION) == Distributed, Autonomous Information System |:."
- @echo
-
-targets: autorg-greeting
- @echo "make -- Default: show this message and make new-pages"
- @echo "make all-pages -- (Re-)Publish all pages from doc/ and org/"
- @echo "make new-pages -- Publish new or updated pages from doc/ and org/"
- @echo "make doc -- (Re-)Publish the HTML/PDF documentation from doc/"
- @echo "make pages -- (Re-)Publish the HTML/PDF pages from org/"
- @echo "make preview -- Locally serve pages on http://localhost:8080/"
- @echo
-
-# FIXME: use awk-server, or check more dependencies such as a web server...
-preview: autorg-greeting
- @echo " II Starting AutOrg preview on http://localhost:8080/"
- @echo " II Minimal HTTP server powered by Awk"
- @echo " II Hit Ctrl-C to quit"
- @echo
- @test -f pub/doc/index.html || make doc 2>&1 1>/dev/null
- @cd pub && ../src/server.awk -v docroot=`pwd`
-
-doc: autorg-greeting autorg-dirs
- @echo " II Exporting AutOrg Documentation to pub/doc/"
- @echo
- @$(call autorg_publish,autorg-docs,t)
- @echo
-
-pages: autorg-greeting autorg-dirs
- @echo " II Exporting AutOrg Pages to pub/"
- @echo
- @$(call autorg_publish,autorg-pages,t)
- @echo
-
-all-pages: doc pages
-
-new-pages: autorg-greeting autorg-dirs
- @echo " II Updating AutOrg pages"
- @echo
- @$(call autorg_publish,autorg,)
- @echo
-
-all:
-
-clean:
- @cd src && make clean
- @rm -rf pub
diff --git a/NEWS b/NEWS
index e69de29..c593bdc 100644
--- a/NEWS
+++ b/NEWS
@@ -0,0 +1 @@
+Yet Another Rewrite! (YAR!)
diff --git a/VERSION b/VERSION
deleted file mode 100644
index 6e8bf73..0000000
--- a/VERSION
+++ /dev/null
@@ -1 +0,0 @@
-0.1.0
diff --git a/autogen.sh b/autogen.sh
deleted file mode 100755
index 399c8e5..0000000
--- a/autogen.sh
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
-#
-# autogen.sh -- Prepare the source tree for the configure script
-#
-# FIXME: check dependencies
-# FIXME: license
-
-autoreconf 2>/dev/null
-automake -ac && autoreconf
diff --git a/configure.ac b/configure.ac
deleted file mode 100644
index ad1cfb4..0000000
--- a/configure.ac
+++ /dev/null
@@ -1,160 +0,0 @@
-dnl ==============================================================
-dnl Process this file with autoconf to produce a configure script.
-dnl ==============================================================
-
-dnl require autoconf 2.62 (AS_ECHO/AS_ECHO_N)
-AC_PREREQ([2.60])
-
-AC_INIT([AutOrg],[0.1.0],[hackers@dyne.org],[autorg])
-AC_CONFIG_MACRO_DIR([m4])
-
-AC_CANONICAL_HOST
-
-dnl backwards compatibility for autoconf >= 2.64
-dnl PACKAGE_URL should be the fifth argument of AC_INIT
-m4_define([AC_PACKAGE_URL], [http://autorg.dyne.org])
-AC_DEFINE(PACKAGE_URL, "AC_PACKAGE_URL", [Package URL])
-AC_SUBST(PACKAGE_URL, AC_PACKAGE_URL)
-
-dnl ==============================================================
-dnl Get the operating system and version number...
-dnl ==============================================================
-AC_MSG_CHECKING([for which platform we are setting up])
-
-case "$host_os" in
- *linux*)
- AC_MSG_RESULT([Linux])
- have_linux=yes
-
- if test x$have_x86_64 = xyes; then
- have_64bit=yes
- fi
-
- if test x$have_x86_32 = xyes; then
- have_32bit=yes
- fi
- ;;
-
- *darwin*)
- AC_MSG_RESULT([Darwin/OSX])
- have_darwin=yes
- ;;
-
- *freebsd*)
- AC_MSG_RESULT([FreeBSD])
- have_freebsd=yes
- ;;
-
- *)
- AC_MSG_RESULT([$host_os?!])
- AC_MSG_ERROR([[
-[!] Your system architecture is not supported by AutOrg.
-]], 0)
- ;;
-esac
-
-
-dnl ==============================================================
-dnl Setup for automake
-dnl ==============================================================
-
-AM_INIT_AUTOMAKE([dist-bzip2 subdir-objects -Wno-portability])
-m4_ifdef([AM_SILENT_RULES], [AM_SILENT_RULES([yes])])
-
-AC_CONFIG_SRCDIR([src/autorg])
-
-dnl Checks for programs.
-AC_PROG_INSTALL
-AC_PROG_LN_S
-AC_PROG_MAKE_SET
-
-dnl compatibility with older libtool
-dnl m4_ifndef([LT_INIT], [AC_PROG_RANLIB])
-
-
-dnl versioning info for libtool
-DYNE_CURRENT=0
-DYNE_REVISION=0
-DYNE_AGE=0
-DYNE_VERSION_INFO="$DYNE_CURRENT:$DYNE_REVISION:$DYNE_AGE"
-dnl Note this is the ABI version which is not the same as our actual
-dnl library version
-AC_SUBST(DYNE_VERSION_INFO)
-
-
-dnl ###########################################################################
-dnl ###### now about compile time paths
-AC_MSG_CHECKING([which installation prefix to use])
-AC_MSG_RESULT([${prefix}])
-AUTORG_DATADIR="${prefix}"
-AC_SUBST(AUTORG_DATADIR)
-
-AC_MSG_CHECKING([for which domain we are configuring])
-AC_ARG_WITH(domain,
- AS_HELP_STRING([--with-domain],[specify a network domain: dyne.org or us.dyne.org (default local.org)]),
- [with_domain=$withval],
- [with_domain=local.org])
-AC_MSG_RESULT([${with_domain}])
-AUTORG_DOMAIN="$with_domain"
-AC_SUBST(AUTORG_DOMAIN)
-
-AC_MSG_CHECKING([which org-mode to use])
-AC_ARG_WITH(org-mode,
- AS_HELP_STRING([--with-org-mode],[specify where to find org-mode]),
- [with_orgmode=$withval],
- [with_orgmode=auto])
-AC_MSG_RESULT([${with_orgmode}])
-ORGMODE_PATH="$with_orgmode"
-AC_SUBST(ORGMODE_PATH)
-
-PACKAGE_DATA_DIR='${prefix}/share/autorg'
-AC_SUBST(PACKAGE_DATA_DIR)
-
-
-dnl alphabetic order on dir/subdir, but Makefile sorts before everything
-AC_CONFIG_FILES([
-Makefile
-src/Makefile
-share/Makefile
-share/awk/Makefile
-share/elisp/Makefile
-share/manual/Makefile
-share/org-templates/Makefile
-])
-
-AC_OUTPUT
-
-
-dnl autoconf < 2.63 compatibility
-m4_ifndef([AS_VAR_APPEND],
- AC_DEFUN([AS_VAR_APPEND], $1=$$1$2))
-
-dnl convenience function so that INFO messages go to config.log and to stdout,
-dnl useful when debugging user problems only config.log is needed
-
-dnl as above, but no newline at the end
-
-dnl friendly configuration summary
-cat <<EOF
-
- .:| $PACKAGE $VERSION -- locAlhOst: where your social network belongs. |:.
-
- configuration summary: pass -V to configure for verbose output
-
- II hostname: ${host}
- II AutOrg Source Path: ${AUTORG_PATH}
- II AutOrg Domain: ${AUTORG_DOMAIN}
- II Org-mode Path: ${ORGMODE_PATH}
-
- II Emacs: $(which emacs)
- $(emacs --version | head -1)
- II Git: $(which git)
- $(git --version)
- II Uzbl: $(which uzbl-browser)
- $(uzbl-core -V)
-
- AutOrg now ready to compile: make the source be with you!
-
-EOF
-
-# vim:et:ts=3:sw=3
diff --git a/share/manual/.autorg-setup.org b/doc/manual/.autorg-setup.org
index 6ae7bb2..6ae7bb2 100644
--- a/share/manual/.autorg-setup.org
+++ b/doc/manual/.autorg-setup.org
diff --git a/share/manual/404.org b/doc/manual/404.org
index 90b8713..90b8713 100644
--- a/share/manual/404.org
+++ b/doc/manual/404.org
diff --git a/share/manual/API.org b/doc/manual/API.org
index 1ea45d3..1ea45d3 100644
--- a/share/manual/API.org
+++ b/doc/manual/API.org
diff --git a/share/manual/Makefile.am b/doc/manual/Makefile.am
index 1744e10..1744e10 100644
--- a/share/manual/Makefile.am
+++ b/doc/manual/Makefile.am
diff --git a/share/manual/SemVer.org b/doc/manual/SemVer.org
index f4b58b1..f4b58b1 100644
--- a/share/manual/SemVer.org
+++ b/doc/manual/SemVer.org
diff --git a/share/manual/TODO.org b/doc/manual/TODO.org
index 8ea571b..8ea571b 100644
--- a/share/manual/TODO.org
+++ b/doc/manual/TODO.org
diff --git a/share/manual/autonomy-is-organization.org b/doc/manual/autonomy-is-organization.org
index d3555b3..d3555b3 100644
--- a/share/manual/autonomy-is-organization.org
+++ b/doc/manual/autonomy-is-organization.org
diff --git a/share/manual/autorg-bg.png b/doc/manual/autorg-bg.png
index 4bdfef0..4bdfef0 100644
--- a/share/manual/autorg-bg.png
+++ b/doc/manual/autorg-bg.png
Binary files differ
diff --git a/share/manual/autorg-logo.png b/doc/manual/autorg-logo.png
index 1c994c7..1c994c7 100644
--- a/share/manual/autorg-logo.png
+++ b/doc/manual/autorg-logo.png
Binary files differ
diff --git a/share/manual/autorg.css b/doc/manual/autorg.css
index 43797f1..43797f1 100644
--- a/share/manual/autorg.css
+++ b/doc/manual/autorg.css
diff --git a/share/manual/favicon.ico b/doc/manual/favicon.ico
index d2484de..d2484de 100644
--- a/share/manual/favicon.ico
+++ b/doc/manual/favicon.ico
Binary files differ
diff --git a/share/manual/get-started.org b/doc/manual/get-started.org
index f41a7e3..f41a7e3 100644
--- a/share/manual/get-started.org
+++ b/doc/manual/get-started.org
diff --git a/share/manual/hacking.org b/doc/manual/hacking.org
index 5383caf..5383caf 100644
--- a/share/manual/hacking.org
+++ b/doc/manual/hacking.org
diff --git a/share/manual/index.org b/doc/manual/index.org
index 3a0037e..3a0037e 100644
--- a/share/manual/index.org
+++ b/doc/manual/index.org
diff --git a/share/manual/org-gtd.org b/doc/manual/org-gtd.org
index dd1094e..dd1094e 100644
--- a/share/manual/org-gtd.org
+++ b/doc/manual/org-gtd.org
diff --git a/share/manual/org-protocol.org b/doc/manual/org-protocol.org
index 1545e51..1545e51 100644
--- a/share/manual/org-protocol.org
+++ b/doc/manual/org-protocol.org
diff --git a/elisp/autorg.el b/elisp/autorg.el
new file mode 100644
index 0000000..1d9a661
--- /dev/null
+++ b/elisp/autorg.el
@@ -0,0 +1,201 @@
+;; Jaromil's emacs configuration
+;; http://jaromil.dyne.org
+;; GNU GPLv3 (FWIW)
+
+(provide 'autorg)
+
+;; local emacs extensions
+(add-to-list 'load-path "~/.emacs.d")
+
+
+;; deactivate all menubar scrollbar toolbar
+; (tool-bar-mode)
+; (menu-bar-mode)
+; (scroll-bar-mode)
+
+;; activate smart switching between buffers
+(iswitchb-mode t)
+
+; stop forcing me to spell out "yes"
+(fset 'yes-or-no-p 'y-or-n-p)
+(setq inhibit-startup-message t)
+
+; stop leaving backup~ turds scattered everywhere
+(setq make-backup-files nil)
+
+; save on exit
+(defadvice save-buffers-kill-emacs (around no-y-or-n activate)
+ (flet ((yes-or-no-p (&rest args) t)
+ (y-or-n-p (&rest args) t))
+ ad-do-it))
+
+; load color-themes extension
+(require 'color-theme)
+(color-theme-initialize)
+(color-theme-matrix)
+; (color-theme-blippblopp)
+; (color-theme-dark-laptop)
+
+; transparency (thanks dreamer!)
+(set-frame-parameter (selected-frame) 'alpha '(90 50))
+(add-to-list 'default-frame-alist '(alpha 90 50))
+
+; start listening to commandline invokations
+(server-start)
+
+; ===========================
+;; setup our keyboard mappings
+
+;; cursor movement a la vim
+(global-set-key (kbd "M-h") 'backward-char) ; was indent-new-comment-line
+(global-set-key (kbd "M-l") 'forward-char) ; was downcase-word
+(global-set-key (kbd "M-k") 'previous-line) ; was tab-to-tab-stop
+(global-set-key (kbd "M-j") 'next-line) ; was kill-sentence
+
+(global-set-key (kbd "M-SPC") 'set-mark-command) ; was just-one-space
+
+;; less painfull window switching
+(global-set-key (kbd "C-o") 'other-window)
+;; faster file open
+(global-set-key (kbd "C-f") 'find-file)
+
+(global-set-key [(meta g)] `goto-line)
+(defun switch-to-other-buffer () (interactive) (switch-to-buffer (other-buffer)))
+(global-set-key [(meta control ?l)] `switch-to-other-buffer)
+ ; (global-set-key [(control tab)] `other-window)
+(global-set-key [(meta O) ?H] 'beginning-of-line)
+(global-set-key [home] 'beginning-of-line)
+(global-set-key [(meta O) ?F] 'end-of-line)
+(global-set-key [end] 'end-of-line)
+(setq next-line-add-newlines nil)
+; C-c c to either comment out a region or uncomment it depending on context.
+(global-set-key (kbd "C-c c") 'comment-dwim)
+; Shift-arrows a la windows...
+(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.
+ '(browse-url-firefox-program "open")
+ '(column-number-mode t)
+ '(keyboard-coding-system (quote mule-utf-8))
+ '(line-number-mode t)
+ '(nil nil t)
+; '(get-frame-for-buffer-default-instance-limit nil)
+
+ '(pc-select-meta-moves-sexps t)
+ '(pc-select-selection-keys-only t)
+ '(pc-selection-mode t nil (pc-select))
+
+ '(word-count-non-character-regexp "[
+]")
+ '(x-select-enable-clipboard t))
+;; X selection manipulation
+(define-key global-map [(delete)] "\C-d")
+
+(defun x-own-selection (s) (x-set-selection `PRIMARY s))
+(global-set-key [(shift insert)]
+ '(lambda () (interactive)
+ (insert (x-get-selection))))
+(global-set-key [(control insert)]
+ '(lambda () (interactive)
+ (x-own-selection (buffer-substring (point) (mark)))))
+; M-g to go to specified line in buffer.
+; Useful for emacs 21.x users where the keybinding is not yet standard.
+(global-set-key (kbd "\M-g") 'goto-line)
+; remap ctrl-z to undo (common behaviour)
+(global-set-key (kbd "\C-z") 'undo)
+; remap ctrl-x ctrl-m to ESC-x (alt-x)
+(global-set-key "\C-x\C-m" 'execute-extended-command)
+(global-set-key "\C-c\C-m" 'execute-extended-command)
+(global-set-key "\C-xm" 'execute-extended-command)
+(global-set-key "\C-cm" 'execute-extended-command)
+
+
+;; By default we starting in text mode.
+(setq initial-major-mode
+ (lambda ()
+ (text-mode)
+ (turn-on-auto-fill)
+ (setq transient-mark-mode t)
+ (global-font-lock-mode t)
+ (setq font-lock-mode-maximum-decoration t)
+ ))
+
+(setq revert-without-query (cons "TAGS" revert-without-query))
+
+; internationalisation support
+(require 'mule)
+(prefer-coding-system 'mule-utf-8)
+(setq locale-coding-system 'mule-utf-8)
+(set-terminal-coding-system 'mule-utf-8)
+(set-keyboard-coding-system 'mule-utf-8)
+(set-selection-coding-system 'mule-utf-8)
+
+; Some new Colors for Font-lock.
+(require 'font-lock)
+(setq font-lock-use-default-fonts nil)
+(setq font-lock-use-default-colors nil)
+
+;; More information with the info file (Control-h i)
+
+; mouse wheel functionality
+(require 'custom)
+(require 'cl)
+(require 'mwheel)
+; Make the mouse jump away when you type over it.
+(mouse-avoidance-mode 'cat-and-mouse)
+
+
+; IDO lets you open files and switch buffers with fuzzy matching,
+; really nice when you have lots of things open.
+; http://www.emacsblog.org/2008/05/19/giving-ido-mode-a-second-chance/
+(require 'ido)
+(ido-mode t)
+(setq ido-enable-flex-matching t)
+
+;; set our favourite: Anonymous!
+(set-face-font
+'default "-*-Inconsolata-normal-normal-normal-*-14-*-*-*-c-80-*")
+
+;;; E-Mail
+(defun load-email () (interactive)
+ "load some e-mail mode extensions when answering emails"
+ (mail-mode) )
+(add-to-list 'auto-mode-alist '("mutt" . load-email) )
+
+;; word count
+(autoload 'word-count-mode "word-count"
+ "Minor mode to count words." t nil)
+
+; use antiword on doc files
+(autoload 'no-word "no-word" "word to txt")
+(add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))
+; requires antiword and the no-doc.el extension
+; http://www.emacswiki.org/emacs/AntiWord
+
+;; make hypertexts in any document
+(defun load-linkd () (interactive)
+ "internal linking to browse any major mode"
+ (require 'linkd)
+ (linkd-mode)
+ )
+
+; grep directories
+(defun grep-on-the-fly ()
+ "grep the whole directory for something defaults to term at cursor position"
+ (interactive)
+ (setq default (thing-at-point 'symbol))
+ (setq needle (or (read-string (concat "grep for <" default "> ")) default))
+ (setq needle (if (equal needle "") default needle))
+ (grep (concat "egrep -s -i -n " needle " * /dev/null")))
+(global-set-key "\C-x." 'grep-on-the-fly)
+(global-set-key [f8] 'next-error)
+
+; fullscreen
+(defun toggle-fullscreen ()
+ (interactive)
+ (set-frame-parameter nil 'fullscreen (if (frame-parameter nil
+ 'fullscreen) nil
+ 'fullboth)))
+(global-set-key [(meta return)] 'toggle-fullscreen)
diff --git a/elisp/color-theme.el b/elisp/color-theme.el
new file mode 100644
index 0000000..0e8ea56
--- /dev/null
+++ b/elisp/color-theme.el
@@ -0,0 +1,1669 @@
+;;; 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.
+
+
+
+(provide 'color-theme)
+;;; 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
diff --git a/elisp/figlet.el b/elisp/figlet.el
new file mode 100644
index 0000000..f7ecc96
--- /dev/null
+++ b/elisp/figlet.el
@@ -0,0 +1,73 @@
+;;; figlet definitions for Emacs. (C) Martin Giese
+;;;
+;;; Use this to separate sections in TeX files, Program source, etc.
+;;;
+;;; customize the figlet-font-dir variable below to point to your
+;;; figlet font directory.
+;;;
+;;; M-x figlet to get a figlet comment in standard font.
+;;; C-u M-x figlet to be asked for the font first.
+;;; M-x banner for an old-fashioned banner font.
+;;;
+;;; These functions use comment-region to wrap the figlet output
+;;; in comments.
+;;;
+
+;;; _____ ___ ____ _ _ ____ _ __ __
+;;; | ___|_ _/ ___| | ___| |_ / ___|| |_ _ _ / _|/ _|
+;;; | |_ | | | _| |/ _ \ __| \___ \| __| | | | |_| |_
+;;; | _| | | |_| | | __/ |_ ___) | |_| |_| | _| _|
+;;; |_| |___\____|_|\___|\__| |____/ \__|\__,_|_| |_|
+
+
+(defconst figlet-font-dir "/usr/share/figlet")
+(defconst figlet-font-file-regexp "\\.flf$")
+(defconst figlet-match-font-name-regexp "^\\([^.]*\\)\\.flf$")
+
+(defun figlet-font-name-for-file (filename)
+ (string-match figlet-match-font-name-regexp filename)
+ (match-string 1 filename))
+
+(defun figlet-font-names ()
+ (mapcar 'figlet-font-name-for-file
+ (directory-files figlet-font-dir nil figlet-font-file-regexp)))
+
+(defun read-figlet-font (prompt)
+ (let* ((figlet-fonts (figlet-font-names))
+ (font-alist (mapcar (lambda (x) (list x)) figlet-fonts)))
+ (completing-read prompt font-alist)))
+
+(defun call-figlet (font string)
+ (push-mark)
+ (call-process "figlet" nil (current-buffer) nil
+ "-f" (if (null font) "standard" font)
+ string
+ )
+ (exchange-point-and-mark))
+
+(defun figlet-block-comment-region ()
+ (comment-region (region-beginning) (region-end)
+ (if (member major-mode
+ '(emacs-lisp-mode
+ lisp-mode
+ scheme-mode))
+ 3 ; 3 semicolons for lisp
+ nil)
+ ))
+
+(defun figlet (s &optional font)
+ (interactive
+ (if current-prefix-arg
+ (let
+ ((font (read-figlet-font "Font: "))
+ (text (read-string "FIGlet Text: ")))
+ (list text font))
+ (list (read-string "FIGlet Text: ") nil)))
+ (save-excursion
+ (call-figlet font s)
+ (figlet-block-comment-region)
+ ))
+
+(defun banner (s)
+ (interactive "sBanner Text: ")
+ (figlet s "banner"))
diff --git a/elisp/linkd.el b/elisp/linkd.el
new file mode 100644
index 0000000..d3327ed
--- /dev/null
+++ b/elisp/linkd.el
@@ -0,0 +1,1256 @@
+;;; linkd.el --- Make hypertext with active links in any buffer
+;;
+;; Filename: linkd.el
+;; Description: Make hypertext with active links in any buffer
+;; Author: David O'Toole <dto@gnu.org>
+;; Additional code by Eduardo Ochs <eduardoochs@gmail.com>
+;; Maintainer: Shaun Johnson <shaun@slugfest.demon.co.uk>
+;; Copyright (C) 2007, David O'Toole.
+;; Copyright (C) 2008-2009, Drew Adams.
+;; Copyright (C) 2009, Shaun Johnson.
+;; Created: Fri Mar 14 07:56:32 2008 (Pacific Daylight Time)
+;; Version: $Id: linkd.el,v 1.64 2008/03/14 $
+;; Last-Updated: Thu Mar 12 19:33 2009
+;; By: sjohnson
+;; Update #: 618
+;; Package-Version: 0.8
+;; Website, original version: http://dto.github.com/notebook/linkd.html
+;; URL: http://www.emacswiki.org/cgi-bin/wiki/linkd.el
+;; URL: http://www.emacswiki.org/emacs/linkd.tar.gz
+;; Keywords: hypermedia help
+;; Compatibility: GNU Emacs 21.x, GNU Emacs 22.x
+;;
+;; Features that might be required by this library:
+;;
+;; `easymenu'.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Commentary:
+;;
+;; Make hypertext with active links in any buffer
+;;
+;;
+;;(@* "Overview") ----------------------------------------------------
+;;
+;; Linkd-mode is a major mode that automatically recognizes and
+;; processes certain S-expressions, called "links", embedded in plain
+;; text files. Links may be followed by invoking certain interactive
+;; functions when point is on the link text. Links may also be
+;; interpreted as marking up the surrounding text. Different types
+;; of links have different behaviors when followed, and they may have
+;; different interpretations as markup.
+;;
+;; With Linkd mode, you can do the following:
+;; * Embed hyperlinks to files, webpages, or documentation into
+;; any type of text file in any major mode.
+;; * Delimit and name regions of text ("blocks") in these text files.
+;; See (@> "Stars")
+;; * Extract and send blocks to other programs for processing.
+;; See (@> "Processing blocks")
+;; * Identify and mark locations and concepts in source code.
+;; See (@> "Tags")
+;; * Embed active data objects ("datablocks") into text files.
+;; See (@> "Datablocks")
+;; * Convert Lisp source-code listings to LaTeX for publication.
+;; See (@> "Literate programming")
+;; * Define new link behaviors.
+;;
+;; For detailed information about using linkd-mode, see the online
+;; manual: http://dto.github.com/notebook/linkd.html.
+;;
+;;
+;;(@* "TODO") --------------------------------------------------------
+;;
+;; * Should have a proper history of link navigation, like in Info,
+;; for forward and backward link following, instead of just saving
+;; the previous location.
+;;
+;; * Should have a link follow behavior that takes you from @> to the
+;; corresponding @*, not just to the next link (@* or @>).
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Change log:
+;;
+;; 2009/03/12 sjohnson
+;; Updated embedded URLs.
+;; 2009/02/17 sjohnson
+;; Removed test for linkd-mode from menu - un-needed.
+;; 2009/02/16 dadams
+;; linkd-html-export: Do nothing if htmlize.el is not available.
+;; Show Linkd menu only in Linkd mode.
+;; linkd-enable-linkd-mode-in-target: Added :tags
+;; linkd-use-menu: Changed default value to t.
+;; 2009/02/15 sjohnson
+;; Added: linkd-use-menu, linkd-enable-linkd-mode-in-target, linkd-maybe-enable-in-target,
+;; linkd-menu.
+;; Restored require of easymenu - used now.
+;; 2009/02/10 dadams
+;; Renamed: linkd-insertion-schemes to linkd-type-keywords-alist,
+;; linkd-export-formats to linkd-export-formats-alist.
+;; Changed defvars to defcustoms: linkd-use-icons, linkd-icons-directory,
+;; linkd-generic-regexp, linkd-type-keywords-alist, linkd-default-bullet-string,
+;; linkd-star-search-string, linkd-block-file-name, linkd-shell-buffer-name,
+;; linkd-export-heading-regexp, linkd-export-commentary-regexp, linkd-export-link-regexp,
+;; linkd-export-formats-alist, linkd-file-handler-alist, linkd-wiki-extensions,
+;; linkd-wiki-directory.
+;; linkd-file-handler-alist:
+;; Default value no longer nil - now covers .el files, find-library, finder-commentary.
+;; @file: Treat :to also for the handler case (since handler just opens the file).
+;; Turn on Linkd mode for the target file.
+;; Removed: (require 'easymenu) - doesn't seem to be used.
+;; 2008/04/18 dadams
+;; linkd-overlay:
+;; Put keymap property back on the overlay (for RET etc.). Thx to Shaun Johnson.
+;; 2008/04/16 dadams
+;; linkd-overlay: Add keymap property of linkd-overlay-map to the display property.
+;; Remove keymap property from the overlay itself.
+;; linkd-map: Removed linkd-follow-mouse binding to mouse-2.
+;; 2008/03/21 dadams
+;; linkd-back: Reset linkd-previous-point.
+;; linkd-map: Bind mouse-2 here also, as workaround for Emacs bug. Remove when bug fixed.
+;; 2008/03/14 dadams
+;; linkd-follow-mouse: Go to the buffer of clicked window.
+;; linkd(-overlay)-map: Bound linkd-follow-mouse to mouse-2 and linkd-back to mouse-4.
+;; linkd-(enable|disable):
+;; Ensure add/remove text props doesn't count as buffer modification.
+;; linkd-overlay: Added mouse-face to links.
+;; Renamed faces, to remove -face suffix and be more specific.
+;; Removed all face variables - just use faces.
+;; Changed face default definitions, to be less gaudy. Still needs work (dark/light bg).
+;; linkd-send-block-to-shell: goto-char point-max instead of end-of-buffer.
+;; Changed require cl to eval-when-compile require.
+;; linkd-activate-datablock: Added missing right paren. Removed extra one elsewhere.
+;; linkd-use-datablocks: defvar, not defun (!).
+;; Collected defvars together and gave them doc strings.
+;; Added doc strings, cleaned up doc strings (still some missing or unclear).
+;; Use header2.el header.
+;; Code cleanup (cosmetic).
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; 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 3, 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; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+;;
+;; This file is not part of GNU Emacs.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Code:
+
+(eval-when-compile (require 'cl)) ;; block, case
+(require 'easymenu) ;; easy-menu-define
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;; (@* "Faces") ------------------------------------------------------
+
+(defgroup linkd nil
+ "Hypertext links."
+ :prefix "linkd-"
+ :group 'convenience :group 'help
+ :link '(url-link :tag "Download" "http://www.emacswiki.org/cgi-bin/wiki/linkd.el")
+ :link '(url-link :tag "Download (with icons)" " http://www.emacswiki.org/emacs/linkd.tar.gz")
+ :link '(emacs-commentary-link :tag "Doc" "linkd"))
+
+(defface linkd-generic-link '((t (:foreground "blue")))
+ "Face for linkd links." :group 'linkd :group 'faces)
+
+(defface linkd-generic-link-name '((t (:foreground "blue")))
+ "Face for linkd links." :group 'linkd :group 'faces)
+
+(defface linkd-star `((t (:foreground ,(frame-parameter nil 'background-color))))
+ "Face for star delimiters." :group 'linkd :group 'faces)
+
+(defface linkd-star-name '((t (:foreground "blue" :background "Pink")))
+ "Face for star names." :group 'linkd :group 'faces)
+
+(defface linkd-tag `((t (:foreground ,(frame-parameter nil 'background-color))))
+ "Face for tags." :group 'linkd :group 'faces)
+
+(defface linkd-tag-name '((t (:foreground "blue" :underline t)))
+ "Face for tag names." :group 'linkd :group 'faces)
+
+(defface linkd-icon '((t (:underline nil)))
+ "Face for icons." :group 'linkd :group 'faces)
+
+(defface linkd-wiki '((t (:foreground "FireBrick" :underline t)))
+ "Face for camel-case wiki links." :group 'linkd :group 'faces)
+
+(defface linkd-command '((t (:foreground "red" :underline t)))
+ "Face for command links." :group 'linkd :group 'faces)
+
+
+;; (@* "User Options") -----------------------------------------------
+
+(defcustom linkd-use-icons nil
+ "Non-nil means icons, instead of text bullets, are displayed for links."
+ :type 'boolean :group 'linkd)
+
+(defcustom linkd-icons-directory "~/.linkd-icons" "Directory where linkd's icons are kept."
+ :type 'directory :group 'linkd)
+
+(defcustom linkd-use-menu t
+ "Non-nil means show the Linkd menu in the menu bar."
+ :type 'boolean :group 'linkd)
+
+(defcustom linkd-enable-linkd-mode-in-target t
+ "Whether to turn on Linkd mode for the target of a @file link.
+* t - turn linkd mode on unconditionally.
+
+* nil - don't turn linkd mode on.
+
+* A list of major mode symbols, Turn on linkd mode if the target
+ buffer's mode is in this list.
+
+* A function to be called in the context of the target buffer.
+ Turn on linkd mode if it returns a non-nil value."
+ :type '(choice
+ (const :tag "Turn on Linkd mode unconditionally" t)
+ (const :tag "Do not turn on Linkd mode" nil)
+ (repeat :tag "Modes to use Linkd"
+ (symbol :tag "Major mode for which to turn on Linkd mode"))
+ (function :tag "Turn on Linkd mode if this function returns non-nil"))
+ :group 'linkd)
+
+(defcustom linkd-generic-regexp (concat "\(" "@" "[^)]*\)")
+ "Regexp to find links."
+ :type 'regexp :group 'linkd)
+
+(defcustom linkd-type-keywords-alist '(("file" :file-name :to :display)
+ ("man" :page :to :display)
+ ("info" :file-name :node :to :display)
+ ("url" :file-name :display))
+ "Alist of possible link types and their associated Linkd keywords.
+Each key is a link type name.
+Each value is a list of Linkd keywords to use for that type (key)."
+ :type '(alist
+ :key-type (string :tag "Link type")
+ :value-type (repeat (symbol :tag "Linkd keywords for this type")))
+ :group 'linkd)
+
+(defcustom linkd-default-bullet-string "."
+ "Default string to use to display a bullet."
+ :type 'string :group 'linkd)
+
+(defcustom linkd-star-search-string (concat "\(" "\@\*")
+ "Regexp that matches a Linkd star."
+ :type 'string :group 'linkd)
+
+(defcustom linkd-block-file-name "~/.linkd-block"
+ "File where temporary block text is stored for external processing."
+ :type 'file :group 'linkd)
+
+(defcustom linkd-shell-buffer-name "*Linkd Shell*"
+ "Name of shell buffer used by Linkd."
+ :type 'string :group 'linkd)
+
+;; Used for export to LaTeX and HTML.
+(defcustom linkd-export-heading-regexp (concat "(" "@\\* \"\\([^\"]*\\)\")")
+ "Regexp to match section headings in the buffer."
+ :type 'regexp :group 'linkd)
+
+;; Used for export to LaTeX and HTML.
+(defcustom linkd-export-commentary-regexp "^;;"
+ "Regexp to match commentary lines in a buffer."
+ :type 'string :group 'linkd)
+
+;; Used for export to LaTeX and HTML.
+;; Of course no regexp can correctly recognize matched parentheses.
+;; But our links are always on a single line, so we can sort of make it work.
+(defcustom linkd-export-link-regexp (concat "(" "@" ".*)$")
+ "Regexp to match Linkd links."
+ :type 'string :group 'linkd)
+
+;; Used for export to LaTeX and HTML.
+(defcustom linkd-export-formats-alist '(("html" . linkd-html-export)
+ ("tex" . linkd-latex-export))
+ "Alist of file extensions and associated export formats, for Linkd."
+ :type '(alist
+ :key-type (string :tag "File-name extension")
+ :value-type (symbol :tag "Export function"))
+ :group 'linkd)
+
+(defcustom linkd-file-handler-alist
+ '(("el" . (lambda (file-name)
+ (let ((curr-mode major-mode))
+ (condition-case nil
+ (if (eq curr-mode 'finder-mode)
+ (condition-case nil
+ (finder-commentary file-name)
+ (error (find-library file-name)))
+ (find-library file-name))
+ (error (find-file file-name)))))))
+ "Alist that maps file extensions to functions that open files.
+Each such function should accept a file name as its argument."
+ :type '(alist
+ :key-type (string :tag "File extension (no period)")
+ :value-type (symbol :tag "Handler function for such files"))
+ :group 'linkd)
+
+(defcustom linkd-wiki-extensions '("linkd" "org" "el")
+ "List of file-name extensions to try, to look for a given wiki page."
+ :type '(repeat string) :group 'linkd)
+
+(defcustom linkd-wiki-directory "~/linkd-wiki"
+ "Default directory to look for wiki pages in."
+ :type 'directory :group 'linkd)
+
+
+;; (@* "Internal Variables") -----------------------------------------
+
+(defvar linkd-previous-buffer nil "Last buffer being shown.")
+
+(defvar linkd-previous-point nil "Value of point before link following.")
+
+;; We may attach keybindings to an overlay, so that the keybindings
+;; are in effect whenever point is within the overlay. For rapid
+;; navigation, we will eventually attach some quick single-character
+;; commands to the links, using the following keymap:
+(defvar linkd-overlay-map nil "Keymap for Linkd overlays.")
+(unless linkd-overlay-map
+ (setq linkd-overlay-map (make-sparse-keymap))
+ (define-key linkd-overlay-map (kbd "RET") 'linkd-follow-at-point)
+ ;; $$$$(define-key linkd-overlay-map [down-mouse-2] 'ignore)
+ (define-key linkd-overlay-map [mouse-2] 'linkd-follow-mouse)
+ (define-key linkd-overlay-map [mouse-4] 'linkd-back)
+ (define-key linkd-overlay-map (kbd "b") 'linkd-back)
+ (define-key linkd-overlay-map (kbd "l") 'linkd-back)
+ (define-key linkd-overlay-map (kbd "[") 'linkd-previous-link)
+ (define-key linkd-overlay-map (kbd "]") 'linkd-next-link))
+
+(defvar linkd-process-block-function nil
+ "Function called by `linkd-process-block'.
+Argument is the contents of the block around point as a string.
+You can set this in the `Local Variables' section of a file.")
+(make-variable-buffer-local 'linkd-process-block-function)
+
+(defvar linkd-use-datablocks nil "When non-nil, Linkd uses datablocks in the current buffer.")
+(make-variable-buffer-local 'linkd-use-datablocks)
+
+(defvar linkd-datablocks-activated nil "When non-nil, Linkd activates datablocks.")
+(make-variable-buffer-local 'linkd-datablocks-activated)
+
+;; Used for export to LaTeX.
+(defvar linkd-latex-in-verbatim nil "Non-nil means we are inside a LaTeX verbatim section.")
+
+(defvar linkd-map nil "Keymap used by Linkd mode.")
+(when (null linkd-map)
+ (setq linkd-map (make-sparse-keymap))
+ (define-key linkd-map (kbd "C-c *") 'linkd-process-block)
+ (define-key linkd-map (kbd "C-c [") 'linkd-previous-link)
+ (define-key linkd-map (kbd "C-c ]") 'linkd-next-link)
+ (define-key linkd-map (kbd "C-c '") 'linkd-follow-at-point)
+ (define-key linkd-map [mouse-4] 'linkd-back)
+ (define-key linkd-map (kbd "C-c , b") 'linkd-back)
+ (define-key linkd-map (kbd "C-c , ,") 'linkd-insert-link)
+ (define-key linkd-map (kbd "C-c , t") 'linkd-insert-tag)
+ (define-key linkd-map (kbd "C-c , s") 'linkd-insert-star)
+ (define-key linkd-map (kbd "C-c , w") 'linkd-insert-wiki)
+ (define-key linkd-map (kbd "C-c , l") 'linkd-insert-lisp)
+ (define-key linkd-map (kbd "C-c , e") 'linkd-edit-link-at-point)
+ (define-key linkd-map (kbd "C-c , x") 'linkd-escape-datablock))
+
+;; Linkd menu for menu bar.
+(easy-menu-define linkd-menu linkd-map "Linkd"
+ '("Linkd"
+ :visible linkd-use-menu
+ ["Follow" linkd-follow-at-point :active (get-char-property (point) 'linkd)]
+ ["Back" linkd-back :active (get-char-property (point) 'linkd)]
+ ["Previous link" linkd-previous-link :active (get-char-property (point) 'linkd)]
+ ["Next link" linkd-next-link :active (get-char-property (point) 'linkd)]
+ ("Insert"
+ ["Tag" linkd-insert-tag]
+ ["Star" linkd-insert-star]
+ ["Link" linkd-insert-link])
+ ["Edit" linkd-edit-link-at-point :active (get-char-property (point) 'linkd)]))
+
+
+;; (@* "Versioning") -------------------------------------------------
+
+(defun linkd-version ()
+ "Display Linkd version."
+ (interactive)
+ ;; (message "$Id: linkd.el,v 1.63 2007/05/19 00:16:17 dto Exp dto $"))
+ (message "$Id: linkd.el,v 1.64 2008/03/14 $"))
+
+
+;; (@* "Recognizing Links") ------------------------------------------
+;;
+;; In working with Emacs' font-lock code to obtain automatic
+;; recognition of a construct, one typically uses a regular expression
+;; to match the construct. But recall that we are looking to match
+;; S-expressions, which cannot be matched by any regular
+;; expression. To overcome this difficulty, we can supply font-lock
+;; with a function to perform the search, instead of a regular
+;; expression. If this function uses the system's built-in Lisp
+;; reader, we can then match proper S-expressions.
+;;
+;; Below is a function that Emacs' font-locking can use to find and
+;; highlight links. See (@> "Fontlocking") below.
+
+(defun linkd-match (limit)
+ "Try to read link sexp between point and LIMIT.
+Return non-nil if a link is found. Set match-data appropriately."
+ (let ((sexp nil))
+ (when (search-forward (concat "(" "@") limit t) (backward-char 2))
+ (let ((begin-point (point)))
+ (condition-case nil (setq sexp (read (current-buffer))) ((error nil)))
+ (when (string-match "@.*" (symbol-name (car-safe sexp)))
+ (let ((begin-marker (make-marker))
+ (end-marker (make-marker)))
+ (set-marker begin-marker begin-point)
+ (set-marker end-marker (point))
+ (set-match-data (list begin-marker end-marker)))
+ t))))
+
+;; Function to extract link data from plain text. It determines the
+;; presence of a link by searching for the `linkd' text property,
+;; instead of using the regular expression given above. This is
+;; because of the way link rendering works. When the activation of
+;; Linkd mode triggers fontification of a buffer containing links, the
+;; links are matched by the font-locking code, and marked with the
+;; `linkd' text property. All the other functions that deal with
+;; links can then use the `linkd' text property, which is simpler than
+;; using regexps throughout. See (@> "Rendering links with overlays")
+;; and (@> "Fontlocking").
+
+(defun linkd-link-at-point ()
+ "Return link around point as a sexp. Return nil if no link found."
+ (when (get-char-property (point) 'linkd)
+ (save-excursion (read (current-buffer)))))
+
+
+;; (@* "Following Links") --------------------------------------------
+;;
+;; Each link is an S-expression. When this S-expression is evaluated,
+;; the result is a property list whose keys represent possible user
+;; actions, and whose values are functions to be invoked when the
+;; corresponding key is chosen. To follow a link, we evaluate the
+;; link's S-expression and invoke the function corresponding to the
+;; `:follow' property in the resulting property list.
+;;
+;; The results of following a link will often change the currently
+;; displayed buffer, so we remember which is the current buffer before
+;; switching, and provide a function, `linkd-back', to return to the
+;; old buffer.
+
+(defun linkd-follow (sexp)
+ "Follow the link represented by SEXP."
+ (let* ((plist (eval sexp))
+ (follower (plist-get plist :follow)))
+ (when follower
+ ;; save current spot so that we can go back if needed
+ (setq linkd-previous-buffer (current-buffer))
+ (setq linkd-previous-point (point))
+ (funcall follower))))
+
+(defun linkd-back ()
+ "Return to the buffer being viewed before the last link was followed."
+ (interactive)
+ (when linkd-previous-buffer
+ (switch-to-buffer linkd-previous-buffer)
+ (let ((start (point)))
+ (goto-char linkd-previous-point)
+ (setq linkd-previous-point start))))
+
+(defun linkd-follow-at-point ()
+ "Follow the link at point."
+ (interactive)
+ (linkd-follow (linkd-link-at-point)))
+
+(defun linkd-follow-mouse (event)
+ "Follow the clicked link."
+ (interactive "e")
+ (when event
+ (select-window (posn-window (event-start event)))
+ (set-buffer (window-buffer (posn-window (event-start event))))
+ (goto-char (posn-point (event-start event)))
+ ;;; $$$$ (beginning-of-line)
+ (linkd-follow (linkd-link-at-point))))
+
+(defun linkd-maybe-enable-in-target ()
+ "Conditionally enable linkd mode in the target of an @file link."
+ (when (or (and (booleanp linkd-enable-linkd-mode-in-target)
+ linkd-enable-linkd-mode-in-target)
+ (and (functionp linkd-enable-linkd-mode-in-target)
+ (funcall linkd-enable-linkd-mode-in-target))
+ (and (listp linkd-enable-linkd-mode-in-target)
+ (memq major-mode linkd-enable-linkd-mode-in-target)))
+ (linkd-mode 1)))
+
+;; (@* "Navigating Links") -------------------------------------------
+;;
+;; Instead of manually positioning point on each link, we can navigate
+;; directly between links. The following interactive functions jump
+;; from link to link.
+
+(defun linkd-next-link ()
+ "Move point to the next link, if any."
+ (interactive)
+ (forward-char 1)
+ (let ((inhibit-point-motion-hooks nil))
+ ;; get out of the current overlay if needed
+ (when (get-char-property (point) 'linkd)
+ (while (and (not (eobp)) (get-char-property (point) 'linkd))
+ (goto-char (min (next-overlay-change (point))
+ (next-single-char-property-change (point) 'linkd)))))
+ ;; now find the next linkd overlay
+ (while (and (not (eobp)) (not (get-char-property (point) 'linkd)))
+ (goto-char (min (next-overlay-change (point))
+ (next-single-char-property-change (point) 'linkd))))))
+
+(defun linkd-previous-link ()
+ "Move point to the previous link, if any."
+ (interactive)
+ (let ((inhibit-point-motion-hooks nil))
+ ;; get out of the current overlay if needed
+ (when (get-char-property (point) 'linkd)
+ (while (and (not (bobp)) (get-char-property (point) 'linkd))
+ (goto-char (max (previous-overlay-change (point))
+ (previous-single-char-property-change (point) 'linkd)))))
+ ;; now find the previous linkd overlay
+ (while (and (not (bobp)) (not (get-char-property (point) 'linkd)))
+ (goto-char (max (previous-overlay-change (point))
+ (previous-single-char-property-change (point) 'linkd))))))
+
+
+;; (@* "Inserting and Editing Links Interactively") ------------------
+;;
+;; It is not necessary to type the links manually. With these
+;; functions, the user may create and edit links interactively.
+
+(defun linkd-insert-single-arg-link (type-string argument)
+ "Insert a link containing ARGUMENT."
+ (insert (if (not (string= "" argument))
+ (format (concat "(" "@%s %S)") type-string argument)
+ (format (concat "(" "@%s)") type-string))))
+
+(defun linkd-insert-tag (tag-name)
+ "Insert a tag."
+ (interactive "sTag name: ")
+ (linkd-insert-single-arg-link ">" tag-name))
+
+(defun linkd-insert-star (star-name)
+ "Insert a star."
+ (interactive "sStar name: ")
+ (linkd-insert-single-arg-link "*" star-name))
+
+(defun linkd-insert-wiki (wiki-name)
+ "Insert a wiki link."
+ (interactive "sWiki page: ")
+ (linkd-insert-single-arg-link "!" wiki-name))
+
+(defun linkd-insert-lisp (sexp)
+ "Insert a Lisp sexp."
+ (interactive "xLisp expression: ")
+ (linkd-insert-single-arg-link "L" sexp))
+
+(defun linkd-insert-link (&optional type current-values)
+ "Insert a link.
+Optional arg TYPE is the link type.
+Optional arg CURRENT-VALUES is a property list of current values."
+ (interactive)
+ (let* ((type (or type (completing-read "Link type: " linkd-type-keywords-alist)))
+ (keys (cdr (assoc type linkd-type-keywords-alist)))
+ (key (car keys))
+ (link-args nil))
+ (while key
+ ;; read an argument value
+ (let ((value (read-from-minibuffer (format "%S " key) (plist-get current-values key))))
+ (when (not (string= "" value)) (setq link-args (plist-put link-args key value))))
+ ;; next
+ (setq keys (cdr keys))
+ (setq key (car keys)))
+ ;; format and insert the link
+ (insert (format (concat "(" "@%s %s)") type (mapconcat (lambda (sexp) (format "%S" sexp))
+ link-args
+ " ")))))
+
+(defun linkd-edit-link-at-point ()
+ "Edit the Linkd link at point."
+ (interactive)
+ (let ((link (linkd-link-at-point)))
+ (when link
+ (if (keywordp (car (cdr link)))
+ (save-excursion ; it's a general link. drop the @ sign
+ (linkd-insert-link (substring (format "%S" (car link)) 1) (cdr link)))
+ ;; it's a single-arg link
+ (let ((new-value (read-from-minibuffer "New value: " (car (cdr link)))))
+ (insert (format "%S" (list (car link) new-value)))))
+ ;; now erase old link
+ (re-search-backward linkd-generic-regexp)
+ (delete-region (match-beginning 0) (match-end 0)))))
+
+
+;; (@* "Rendering Links with Overlays") ------------------------------
+;;
+;; Emacs' overlays allow us to render a link onscreen in ways that make
+;; the meaning of the link clearer. We can do this by hiding the somewhat
+;; ugly link syntax, color-coding the text, and optionally by
+;; displaying graphical icons to help in determining the type of link.
+;;
+;; This is one of the trickiest parts of linkd-mode, as the use of
+;; overlays requires attention to detail in order for things to work
+;; right.
+;;
+;; First some preliminary definitions.
+
+(defun linkd-insert (string)
+ "Insert STRING, removing its text properties."
+ (insert (substring-no-properties string)))
+
+;; The following utility function is our standard way of applying
+;; linkd-style overlays to the text of a link.
+
+(defun linkd-overlay (beg end display-text
+ &optional display-face bullet-text bullet-face bullet-icon)
+ "Apply Linkd overlay to link text.
+$$$$$ FIXME: document args."
+ (let ((overlay (make-overlay beg end)))
+ (overlay-put
+ overlay 'display (propertize display-text
+ 'face (or display-face 'linkd-generic-link-name)
+ 'keymap linkd-overlay-map)) ; add speed-navigation keys
+ (overlay-put overlay 'mouse-face 'highlight)
+ (overlay-put overlay 'linkd t) ; mark overlay so that we can find it later
+ (overlay-put overlay 'keymap linkd-overlay-map) ; add speed-navigation keys
+ (when bullet-text ; add bullet, if appropriate
+ (let* ((face (if (and bullet-icon linkd-use-icons) 'linkd-icon bullet-face))
+ (b1 (if face (propertize bullet-text 'face face) bullet-text))
+ (b2 (if (and bullet-icon linkd-use-icons)
+ (propertize b1 'display
+ `(image :file ,bullet-icon :type xpm :ascent center))
+ b1)))
+ (overlay-put overlay 'before-string (concat b2 " "))))
+ (overlay-put overlay 'evaporate t)
+ (overlay-put overlay 'modification-hooks ; defontify if the user edits the text
+ (list (lambda (ov foo beg end &rest ignore)
+ (delete-overlay ov)
+ (remove-text-properties (point-at-bol) (point-at-eol)
+ (list 'fontified nil
+ 'linkd-fontified nil
+ 'linkd nil)))))))
+
+
+;; (@* "Decorating Links with Graphical Icons") ----------------------
+;;
+;; I have drawn a set of 16x16 icons for use with linkd-mode. When the
+;; icon feature is enabled, an appropriate icon is displayed to the
+;; left of the link.
+;;
+;; The icons are included in the linkd download at:
+;; http://www.emacswiki.org/emacs/linkd.tar.gz
+
+(defun linkd-icon (icon-name)
+ "Returns the name of the icon file for ICON-NAME."
+ (concat (file-name-as-directory linkd-icons-directory) "linkd-" icon-name ".xpm"))
+
+(defun linkd-file-icon (file-name)
+ "Choose an appropriate icon for FILE-NAME based on the name or extension.
+Returns the file-name to the icon image file."
+ (let* ((dir (file-name-as-directory linkd-icons-directory))
+ (icon (concat dir "linkd-file-" (file-name-extension file-name) ".xpm")))
+ (if (file-exists-p icon)
+ icon
+ (concat dir "linkd-file-generic.xpm"))))
+
+
+;; (@* "Stars") ------------------------------------------------------
+;;
+;; Stars delimit (and optionally name) blocks of text. A block of text
+;; is the region between one star and the next. We may think of blocks
+;; as dividing a text file into sections.
+
+(defun @* (&optional star-name)
+ "$$$$$$$$$$$$ FIXME"
+ `(:follow
+ (lambda () (linkd-find-next-tag-or-star ,star-name))
+ :render
+ (lambda (beg end)
+ (linkd-overlay
+ beg end
+ ,(if star-name star-name " ") ; leave space so fontified link won't disappear
+ ',(if star-name 'linkd-star-name 'default)
+ "*" 'linkd-star ,(linkd-icon "star")))))
+
+
+;; (@* "Tags") -------------------------------------------------------
+;;
+;; Tags can be used to navigate within source code. You can mark
+;; those parts of a program that relate to a given concept with a
+;; `tag' link that names the concept.
+;;
+;; Following a `tag' link navigates to the next tag (or star) with the
+;; same name, cycling to the beginning of the buffer when the end is
+;; reached. You can think of following tag links as tracing a concept
+;; through different parts of a program by jumping between related
+;; pieces of code.
+
+(defun linkd-find-next-tag-or-star (name)
+ "Find next Linkd tag or star."
+ (let* ((regexp (concat "\(\@\\(\*\\|>\\) \"" name))
+ (found-position
+ (save-excursion
+ (goto-char (point-at-eol))
+ (if (re-search-forward regexp nil t)
+ (match-beginning 0)
+ (goto-char (point-min)) ; start over at the beginning of the buffer
+ (when (re-search-forward regexp nil t) (match-beginning 0))))))
+ (when found-position (goto-char found-position))))
+
+(defun @> (tag-name)
+ "$$$$$$$$ FIXME"
+ `(:follow
+ (lambda () (linkd-find-next-tag-or-star ,tag-name))
+ :render
+ (lambda (beg end) (linkd-overlay beg end ,tag-name 'linkd-tag-name
+ ">" 'linkd-tag ,(linkd-icon "tag")))))
+
+
+;; (@* "Processing Blocks") ------------------------------------------
+;;
+;; You can divide a text file into sections using stars, and then
+;; selectively process certain of those blocks of text, perhaps with
+;; an external program. You can use this facility to experiment with
+;; such external programs or to develop interactive scripts. For
+;; example, you can send a block of shell-script commands to a shell
+;; window for immediate execution.
+;;
+;; The operation to be performed is determined by the value of the
+;; buffer-local variable `linkd-process-block-function'. You can set
+;; this to an appropriate value in a file's `Local Variables' section.
+
+(defun linkd-block-around-point ()
+ "Return the block around point as a string."
+ (interactive)
+ (let ((beg (save-excursion
+ (search-backward linkd-star-search-string) (beginning-of-line) (point)))
+ (end (save-excursion (search-forward linkd-star-search-string) (point))))
+ (buffer-substring-no-properties beg end)))
+
+(defun linkd-write-block-to-file (block-text)
+ "Write the BLOCK-TEXT to the file named by linkd-block-file-name."
+ (interactive)
+ (with-temp-buffer
+ (insert block-text)
+ (write-file linkd-block-file-name)))
+
+(defun linkd-process-block ()
+ "Process the Linkd block around point."
+ (interactive)
+ (funcall linkd-process-block-function (linkd-block-around-point)))
+
+(defun linkd-send-block-to-shell (block-text)
+ "Send the Linkd block around point to the shell."
+ (interactive)
+ ;; create shell if needed, but not in this window
+ (unless (get-buffer-window linkd-shell-buffer-name)
+ (save-window-excursion (shell linkd-shell-buffer-name))
+ (display-buffer linkd-shell-buffer-name))
+ (linkd-write-block-to-file block-text)
+ (save-selected-window
+ (select-window (get-buffer-window linkd-shell-buffer-name))
+ (goto-char (point-max))
+ (insert (concat ". " linkd-block-file-name)) ; make the shell source the temp file
+ (call-interactively (key-binding "\r"))))
+
+
+;; (@* "Datablocks") -------------------------------------------------
+;;
+;; A datablock is an embedded object of a user-defined type. It
+;; consists of a "type symbol" followed by a printed representation of
+;; a Lisp object called the "embedded object". The type symbol is a
+;; symbol whose `symbol-function' determines the appearance and
+;; behavior of the region of the buffer that contains the embedded
+;; object. By convention, a type symbol's name begins with a caret
+;; (`^').
+;;
+;; When a datablock is "activated", the embedded object is read from
+;; the buffer and fed to the type symbol's function. This function
+;; can temporarily replace the region with an interactive
+;; representation of the embedded object, which can then be
+;; manipulated by the user. The behavior of this representation may
+;; be effected by various uses of Emacs' text properties.
+;;
+;; When a datablock is "deactivated", the interface is replaced with a
+;; plain-text representation of the new embedded object. You can
+;; arrange for the automatic activation and deactivation of datablocks
+;; - for example, upon saving and loading files that contain them.
+;;
+;; Datablocks must be activated on a per-file basis via a `Local
+;; Variables' section in the file.
+
+;; Function to extract the embedded object at point.
+(defun linkd-datablock-object-at-point ()
+ "Returns the Linkd datablock object at point."
+ (get-text-property (point) 'linkd-datablock-object))
+
+;; A function to insert a template datablock. This is what you use to
+;; create new datablocks with specified contents.
+
+(defun linkd-insert-datablock-template (&optional object)
+ "Insert a new datablock with OBJECT as the printed contents."
+ (insert (format "(^begin ^cell)\n%S\n(^end)" object)))
+
+;; This function governs the interaction of linkd-mode's datablock
+;; system with the ``modules'' that implement various types of
+;; embedded objects. First the type symbol and embedded object are
+;; read in from the text. The function value of the module's type
+;; symbol is obtained, and the embedded object is fed to the function
+;; in order to activate or deactivate the datablock as needed. The
+;; function is also passed some markers that delimit the region to
+;; which the module should confine its rendering activity.
+
+(defun linkd-activate-datablock (action)
+ "When ACTION is :begin, activate the current datablock. When
+ACTION is :end, deactivate the datablock."
+ (interactive)
+ (when (search-forward (concat "(^" "begin ") nil t)
+ ;; first read in the datablock
+ (let* ((type-symbol (read (current-buffer)))
+ (datablock-begin (match-beginning 0))
+ (datablock-object (progn (forward-line) (read (current-buffer))))
+ (datablock-end (progn (search-forward "(^end)") (match-end 0)))
+ (activate (symbol-function type-symbol)))
+ (goto-char datablock-begin)
+ (case action
+ (:begin ; insert markers; datablock display happens in between them
+ (let* ((inhibit-read-only t)
+ (beg (make-marker))
+ (end (make-marker)))
+ (set-marker beg (save-excursion (goto-char datablock-begin) (point-at-eol)))
+ (set-marker end (save-excursion (goto-char datablock-end) (point-at-bol)))
+ ;; make the delimiters invisible
+ (add-text-properties datablock-begin beg '(invisible t))
+ (add-text-properties end datablock-end '(invisible t))
+ ;; start the datablock going, tell it what region it is to manage
+ (let ((object (funcall activate :begin datablock-object beg end)))
+ (when (null object) (error "Null object."))
+ ;; save datablock details for later lookup
+ (add-text-properties beg end (list 'linkd-datablock-object object)))
+ ;; move into the region
+ (goto-char (+ 1 datablock-begin))
+ (message "%S" (linkd-datablock-object-at-point))))
+ (:end ; stop managing the region and write the sexp back
+ (forward-line)
+ (let ((object (funcall activate :end datablock-object))
+ (inhibit-read-only t)
+ (inhibit-point-motion-hooks t))
+ (delete-region datablock-begin datablock-end)
+ (insert (format (concat "(^" "begin %S)\n%S\n(^end)") type-symbol object))))))))
+
+(defun linkd-begin-datablock ()
+ "Begin a Linkd datablock."
+ (linkd-activate-datablock :begin))
+
+(defun linkd-end-datablock ()
+ "End a Linkd datablock."
+ (linkd-activate-datablock :end))
+
+(defun linkd-escape-datablock ()
+ "Find the previous datablock beginning."
+ (interactive)
+ (search-backward (concat "(" "^begin "))
+ (forward-line -1))
+
+(defun linkd-activate-all-datablocks ()
+ "Activate all Linkd datablocks."
+ (interactive)
+ (when (and linkd-use-datablocks (not linkd-datablocks-activated))
+ (save-excursion
+ (goto-char (point-min))
+ (while (not (eobp))
+ (linkd-begin-datablock)
+ (forward-line))
+ (setq linkd-datablocks-activated t))))
+
+(defun linkd-deactivate-all-datablocks ()
+ "Deactivate all Linkd datablocks."
+ (interactive)
+ (when (and linkd-use-datablocks linkd-datablocks-activated)
+ (save-excursion
+ (goto-char (point-min))
+ (while (not (eobp))
+ (linkd-end-datablock)
+ (forward-line))
+ (setq linkd-datablocks-activated nil))))
+
+
+;; (@* "Exporting to Other Formats") ---------------------------------
+;;
+;; Linkd supports export to LaTeX and HTML. What follows are some
+;; functions basic to the export process.
+
+(defun linkd-export (export-function output-file-name)
+ "Export the current-buffer using EXPORT-FUNCTION and write
+ output to OUTPUT-FILE-NAME. EXPORT-FUNCTION should convert to
+ the output format, do any required postprocessing, and return
+ the buffer with the ouput."
+ (with-current-buffer (funcall export-function)
+ (write-file (expand-file-name output-file-name))))
+
+(defun linkd-export-default ()
+ "Export the current buffer with default settings to all available formats."
+ (interactive)
+ (dolist (format linkd-export-formats-alist)
+ (let* ((extension (car format))
+ (output-file (concat (buffer-file-name) "." extension))
+ (export-function (cdr format)))
+ (linkd-export export-function output-file))))
+
+
+;; (@* "Exporting to LaTeX") -----------------------------------------
+;;
+;; This section contains routines to transform Lisp source code files
+;; into beautiful LaTeX documents in (roughly) the style of Donald
+;; Knuth's "Literate Programming". To take advantage of this feature,
+;; the source code to be transformed should contain alternating
+;; regions of commentary and code, with appropriate star headings to
+;; group these regions into document sections.
+;;
+;; FIXME: There is no such function: `linkd-latex-render'
+;;
+;; The interactive function `linkd-latex-render' transforms the source
+;; code in a temporary buffer and writes the result to a corresponding
+;; LaTeX file. Where tags appear in Commentary, they are prettified
+;; in the LaTeX output.
+;;
+;; The purist might object that true literate programming requires a
+;; tool capable of resequencing code fragments and performing macro
+;; expansion, neither of which are implemented here. In response to
+;; this objection I (David O'Toole) point out the following: (i) there
+;; is little need for resequencing in a language like Lisp, where
+;; declarations can be ordered more or less as you please; (ii) Lisp
+;; already has a powerful macro expansion facility; and (iii) there is
+;; no reason why a system that deviates somewhat from the
+;; traditionally accepted definition of literate programming should
+;; not still contribute to the writing of better programs.
+;;
+;; FIXME: No such `require' in this file: The `fancyvrb' package is
+;; required.
+
+(defun linkd-latex-begin-verbatim ()
+ "Insert LaTeX `Verbatim' start tag."
+ (setq linkd-latex-in-verbatim t)
+ (insert (concat "\\" "begin{Verbatim}[fontsize=\\small]\n")))
+
+(defun linkd-latex-end-verbatim ()
+ "Insert LaTeX `Verbatim' end tag."
+ (setq linkd-latex-in-verbatim nil)
+ (insert (concat "\\" "end{Verbatim}\n")))
+
+(defun linkd-latex-do-section (title)
+ "Insert LaTeX section tag."
+ (insert (format "\\section{%s}\n" title)))
+
+(defun linkd-latex-toggle-verbatim ()
+ "Insert LaTeX `Verbatim' begin or end tag, as needed."
+ (if linkd-latex-in-verbatim (linkd-latex-end-verbatim) (linkd-latex-begin-verbatim)))
+
+(defun linkd-latex-export ()
+ "Render a buffer as a LaTeX book chapter."
+ (interactive)
+ (let* ((output-buffer (get-buffer-create "*linkd-litprog*"))
+ (source-buffer (current-buffer)))
+ (with-current-buffer output-buffer
+ (let ((linkd-use-datablocks nil))
+ (delete-region (point-min) (point-max)) ; clean up any previous output
+ (insert-buffer-substring-no-properties source-buffer) ; make a copy of the source
+ ;; delete everything before first heading
+ (goto-char (point-min))
+ (re-search-forward linkd-export-heading-regexp)
+ (previous-line)
+ (end-of-line)
+ (delete-region (point-min) (point))
+ ;; now process each block in turn.
+ (while (and (not (eobp)) (re-search-forward linkd-export-heading-regexp nil nil))
+ (let ((title (match-string 1)))
+ (delete-region (point-at-bol) (point-at-eol))
+ (linkd-latex-do-section title)
+ (forward-line)
+ (block processing
+ (while (not (eobp))
+ (cond ((string-match linkd-export-heading-regexp ; heading
+ (buffer-substring (point-at-bol) (point-at-eol)))
+ (when linkd-latex-in-verbatim (linkd-latex-end-verbatim))
+ (return-from processing))
+ ((looking-at linkd-export-commentary-regexp) ; commentary
+ ;; get rid of comment delimiter
+ (delete-region (match-beginning 0) (match-end 0))
+ (when linkd-latex-in-verbatim (linkd-latex-end-verbatim)))
+ (t ; code
+ (when (null linkd-latex-in-verbatim) (linkd-latex-begin-verbatim))))
+ (forward-line 1)))
+ (when linkd-latex-in-verbatim ; close verbatim environment
+ (linkd-latex-end-verbatim))))
+ ;; render linkd's tags nicely
+ (let ((tag-regexp "\(\@> \"\\(.*\\)\")"))
+ (goto-char (point-min))
+ (while (and (not (eobp)) (re-search-forward tag-regexp nil t))
+ (replace-match (format "$\\\\Rightarrow ${\\\\bf %s}" (match-string 1)))))
+ (current-buffer)))))
+
+
+;; (@* "Exporting to HTML") ------------------------------------------
+;;
+;; This functionality is built on top of Hrvoje Niksic's htmlize.el:
+;; http://fly.srk.fer.hr/~hniksic/emacs/htmlize.el
+
+(defun linkd-html-export ()
+ "Convert the current buffer to HTML using htmlize.el and some
+extra rules. Return the buffer."
+ (when (require 'htmlize nil t)
+ (let* ((source-buffer (current-buffer))
+ (output-buffer (htmlize-buffer source-buffer)))
+ ;; now postprocess it
+ (with-current-buffer output-buffer
+ (goto-char (point-min))
+ (let ((star-regexp
+ (concat "<span class=\"linkd-generic\">(" "@" "\\* \"\\(.*\\)\")</span>"))
+ (sexp-regexp
+ (concat "<span class=\"linkd-generic\">(" "@" "[^ ].* \"\\(.*\\)\")</span>")))
+ (while (re-search-forward star-regexp nil t)
+ (replace-match
+ (concat "<img src=\"/images/linkd-star.xpm.png\"> "
+ "<span style=\"color: #ffff00; background-color: #698b22;\">\\1</span>")))))
+ ;; return the buffer
+ output-buffer)))
+
+
+;; (@* "Links to Files") ---------------------------------------------
+;;
+;; Since Emacs works mainly with in text files, one of the most common
+;; uses for a link is in navigating from one text file to another.
+;; The following declarations define such file links. (Note how the
+;; function `@file' returns the type of property list discussed in
+;; section (@> "Following links").
+;;
+;; You can also associate a Lisp function with each type of file, and
+;; then arrange for the function to be used to open the file (instead
+;; of visiting it within Emacs using `find-file'.)
+
+(defun @file (&rest p)
+ "$$$$$$$ FIXME"
+ (let ((file-name (plist-get p :file-name))
+ (to (plist-get p :to))
+ (display (plist-get p :display)))
+ `(:follow
+ (lambda ()
+ (let ((handler (cdr (assoc (file-name-extension ,file-name)
+ linkd-file-handler-alist))))
+ (if handler
+ (funcall handler ,file-name)
+ ;; default action is find-file
+ (find-file ,file-name))
+ (when ,to
+ (beginning-of-buffer)
+ (search-forward ,to)))
+ (linkd-maybe-enable-in-target))
+ :render
+ (lambda (beg end)
+ (linkd-overlay beg end ,(or display (concat file-name (if to (concat " : " to) "")))
+ nil linkd-default-bullet-string nil
+ ,(linkd-file-icon file-name))))))
+
+
+;; (@* "Other Link Types") -------------------------------------------
+;;
+;; Here are more examples of link type definitions. These link types
+;; navigate to UNIX manual pages, GNU Info documentation, and to
+;; webpages.
+
+(defun @man (&rest p)
+ "$$$$$$$$$$ FIXME"
+ (let ((page (plist-get p :page))
+ (to (plist-get p :to))
+ (display (plist-get p :display)))
+ `(:follow
+ (lambda ()
+ (man ,page)
+ (when ,to
+ (beginning-of-buffer)
+ (search-forward ,to)))
+ :render
+ (lambda (beg end)
+ (linkd-overlay
+ beg end ,(or display (concat page " manual" (if to (concat " : " to) "")))
+ nil linkd-default-bullet-string nil ,(linkd-icon "man"))))))
+
+(defun @info (&rest p)
+ "$$$$$$$$$$ FIXME"
+ (let ((file (plist-get p :file-name))
+ (node (plist-get p :node))
+ (to (plist-get p :to))
+ (display (plist-get p :display)))
+ `(:follow
+ (lambda ()
+ (info (concat "(" ,file ")" ,node))
+ (when ,to
+ (beginning-of-buffer)
+ (search-forward ,to)))
+ :render
+ (lambda (beg end)
+ (linkd-overlay
+ beg end ,(or display (concat file " manual" (if to (concat " : " to) "")))
+ 'linkd-generic-link-name linkd-default-bullet-string nil ,(linkd-icon "info"))))))
+
+(defun @url (&rest p)
+ "$$$$$$$$$$ FIXME"
+ (let ((file-name (plist-get p :file-name))
+ (display (plist-get p :display)))
+ `(:follow
+ (lambda ()
+ (browse-url ,file-name))
+ :render
+ (lambda (beg end)
+ (linkd-overlay beg end ,(or display file-name) 'linkd-generic-link-name
+ linkd-default-bullet-string nil ,(linkd-icon "url"))))))
+
+
+;; (@* "Lisp Links") -------------------------------------------------
+
+(defun @L (sexp)
+ "$$$$$$$$$$ FIXME"
+ `(:follow
+ (lambda ()
+ (message "%S" (eval ,sexp)))
+ :render
+ (lambda (beg end)
+ (linkd-overlay beg end ,(format "%S" sexp) 'linkd-command
+ linkd-default-bullet-string nil ,(linkd-icon "url")))))
+
+
+;; (@* "Wiki Features") ----------------------------------------------
+;;
+;; When using Emacs, you typically build up a library of text files.
+;; You can turn this collection into a hypertext wiki by inserting
+;; wiki links from one file to another. Wiki names LookLikeThis.
+
+(defun linkd-wiki-find-page (page-name)
+ "Find Linkd wiki page named PAGE-NAME."
+ (interactive "s")
+ (let ((page-file
+ (block testing
+ (dolist (extension linkd-wiki-extensions)
+ (let ((test-filename (concat (file-name-as-directory linkd-wiki-directory)
+ page-name "." extension)))
+ (if (file-exists-p test-filename)
+ (return-from testing test-filename)
+ (return-from testing nil)))))))
+ (if page-file
+ (find-file page-file)
+ ;; otherwise, query the user which file extension to create
+ (let ((ext (completing-read "Create wiki page with extension: " linkd-wiki-extensions)))
+ (find-file
+ (concat (file-name-as-directory linkd-wiki-directory) page-name "." ext))))))
+
+(defun @! (page)
+ "$$$$$$$$$$ FIXME"
+ `(:follow
+ (lambda () (linkd-wiki-find-page ,page))
+ :render
+ (lambda (beg end) (linkd-overlay beg end ,page 'linkd-wiki))))
+
+
+;; (@* "Minor Mode for Linkd") ---------------------------------------
+;;
+;; When Linkd minor mode is active, links are displayed using
+;; overlays, and keybindings are available for common Linkd functions.
+;; The keybindings are in accord with the convention for minor-modes:
+;; `C-c' followed by one of a set of reserved punctuation characters.
+
+(define-minor-mode linkd-mode
+ "Create or follow hypertext links.
+These link navigation commands are available:
+
+\\<linkd-map>\\[linkd-follow-at-point] - follow link under cursor
+\\[linkd-follow-mouse] - follow clicked link
+\\[linkd-back] - return to last link followed
+\\[linkd-next-link] - go to next link in buffer
+\\[linkd-previous-link] - go to previous link in buffer
+
+These key bindings are in effect on a link:\n
+\\{linkd-overlay-map}These key bindings are effect everywhere:\n
+\\{linkd-map}"
+ nil :lighter " Linkd" :keymap linkd-map (if linkd-mode (linkd-enable) (linkd-disable)))
+
+(defun linkd-enable ()
+ "Enable Linkd mode."
+ (let ((modified-p (buffer-modified-p)))
+ (add-hook 'before-save-hook 'linkd-deactivate-all-datablocks :append :local)
+ (add-hook 'after-save-hook 'linkd-activate-all-datablocks :append :local)
+ (linkd-do-font-lock 'font-lock-add-keywords)
+ (font-lock-fontify-buffer)
+ (set-buffer-modified-p modified-p)))
+
+(defun linkd-disable ()
+ "Disable Linkd mode."
+ (let ((modified-p (buffer-modified-p)))
+ (remove-hook 'before-save-hook 'linkd-deactivate-all-datablocks)
+ (remove-hook 'after-save-hook 'linkd-activate-all-datablocks)
+ ;; remove all linkd's overlays
+ (mapcar (lambda (overlay)
+ (when (get-text-property (overlay-start overlay) 'linkd-fontified)
+ (delete-overlay overlay)))
+ (overlays-in (point-min) (point-max)))
+ ;; remove font-lock rules, textprops, and then refontify the buffer
+ (linkd-do-font-lock 'font-lock-remove-keywords)
+ (remove-text-properties (point-min) (point-max) '(linkd-fontified))
+ (font-lock-fontify-buffer)
+ (set-buffer-modified-p modified-p)))
+
+
+;; (@* "Font-Locking") -----------------------------------------------
+;;
+;; Each link type can execute arbitrary code to render itself. In the
+;; typical case, we use `(linkd-overlay)' to render the link using
+;; overlays and possibly icons.
+;; See also (@> "Rendering links with overlays").
+;;
+;; The following function invokes a link's rendering code.
+
+(defun linkd-render-link (beg end)
+ "Invoke a link's rendering code."
+ (unless (get-text-property beg 'linkd-fontified)
+ (save-excursion
+ (goto-char beg)
+ (add-text-properties beg (+ beg 1) (list 'linkd-fontified t))
+ (let* ((sexp (read (current-buffer)))
+ (plist (eval sexp))
+ (renderer (plist-get plist :render)))
+ (unless renderer (error "No renderer for link."))
+ (funcall renderer beg end)))))
+
+;; Interface with the Emacs font-locking system. You can configure
+;; `linkd-do-font-lock' to add or remove font-locking rules that cause
+;; Linkd's links to be fontified.
+
+(defun linkd-do-font-lock (add-or-remove)
+ "Add or remove font-lock rules for Linkd."
+ (funcall add-or-remove nil `((linkd-match 0 (let ((beg (match-beginning 0))
+ (end (match-end 0)))
+ (linkd-render-link beg end)
+ 'linkd-generic-link)
+ prepend))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(provide 'linkd)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; linkd.el ends here
diff --git a/elisp/mwheel.el b/elisp/mwheel.el
new file mode 100644
index 0000000..e2c8982
--- /dev/null
+++ b/elisp/mwheel.el
@@ -0,0 +1,69 @@
+
+;;; mwheel.el --- Mouse support for MS intelli-mouse type mice
+(defconst mwheel-running-xemacs (string-match "XEmacs" (emacs-version)))
+
+(defcustom mwheel-scroll-amount '(5 . 1)
+ "Amount to scroll windows by when spinning the mouse wheel.
+This is actually a cons cell, where the first item is the amount to scroll
+on a normal wheel event, and the second is the amount to scroll when the
+wheel is moved with the shift key depressed.
+This should be the number of lines to scroll, or `nil' for near
+full screen.
+A near full screen is `next-screen-context-lines' less than a full screen."
+ :group 'mouse
+ :type '(cons
+ (choice :tag "Normal"
+ (const :tag "Full screen" :value nil)
+ (integer :tag "Specific # of lines"))
+ (choice :tag "Shifted"
+ (const :tag "Full screen" :value nil)
+ (integer :tag "Specific # of lines"))))
+
+(defcustom mwheel-follow-mouse nil
+ "Whether the mouse wheel should scroll the window that the mouse is over.
+This can be slightly disconcerting, but some people may prefer it."
+ :group 'mouse
+ :type 'boolean)
+
+(if (not (fboundp 'event-button))
+ (defun mwheel-event-button (event)
+ (let ((x (symbol-name (event-basic-type event))))
+ (if (not (string-match "^mouse-\\([0-9]+\\)" x))
+ (error "Not a button event: %S" event))
+ (string-to-int (substring x (match-beginning 1) (match-end 1)))))
+ (fset 'mwheel-event-button 'event-button))
+
+(if (not (fboundp 'event-window))
+ (defun mwheel-event-window (event)
+ (posn-window (event-start event)))
+ (fset 'mwheel-event-window 'event-window))
+
+(defun mwheel-scroll (event)
+ (interactive "e")
+ (let ((curwin (if mwheel-follow-mouse
+ (prog1
+ (selected-window)
+ (select-window (mwheel-event-window event)))))
+ (amt (if (memq 'shift (event-modifiers event))
+ (cdr mwheel-scroll-amount)
+ (car mwheel-scroll-amount))))
+ (case (mwheel-event-button event)
+ (4 (scroll-down amt))
+ (5 (scroll-up amt))
+ (otherwise (error "Bad binding in mwheel-scroll")))
+ (if curwin (select-window curwin))))
+
+(define-key global-map (if mwheel-running-xemacs 'button4 [mouse-4])
+ 'mwheel-scroll)
+
+(define-key global-map (if mwheel-running-xemacs [(shift button4)] [S-mouse-4])
+ 'mwheel-scroll)
+
+(define-key global-map (if mwheel-running-xemacs 'button5 [mouse-5])
+ 'mwheel-scroll)
+
+(define-key global-map (if mwheel-running-xemacs [(shift button5)] [S-mouse-5])
+ 'mwheel-scroll)
+
+(provide 'mwheel)
+
diff --git a/elisp/no-word.el b/elisp/no-word.el
new file mode 100644
index 0000000..13bf3d9
--- /dev/null
+++ b/elisp/no-word.el
@@ -0,0 +1,241 @@
+;;; no-word.el --- use antiword program to view word documents in emacs
+
+;; Copyright (C) 2002 by Free Software Foundation, Inc.
+
+;; Author: Pierre Gaston <pgas@intracom.gr>
+;; Maintainer:
+;; Version: 1.0
+;; Keywords: Word, word processors
+;; Description: use antiword program to view word documents in emacs
+;; URL: http://www.emacswiki.org/elisp/no-word.el
+;; based on code by Alex Schroeder
+
+
+;; 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.
+
+ ; This file is not part of GNU Emacs.
+
+;; Commentary:
+
+;; this package requires the antiword program is in your path
+;; Antiword can be found here : http://www.winfield.demon.nl/ or http://antiword.cjb.net/
+;; it has been tested only under linux with antiword 0.33 and emacs 21.2.1
+;;
+;; Installation
+;; Put this autoloads in ~/.emacs:
+;; (autoload 'no-word "no-word" "word to txt")
+;; (add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))
+;; antiword will be run on every doc file you open
+;;
+;; You'll probably need to check the options M-x customize-group RET no-word RET
+;; mapping have only been added for iso-8859-1 and iso-8859-7
+;; if you have the file utility installed setting no-word-check-word to true
+;; allows to check if the .doc file is a M$ document
+
+
+;; Alternatively, use
+;; (autoload 'no-word-find-file "no-word" "open word document" t)
+;; and use M-x no-word-find-file RET to open a word document
+;;
+;; (autoload 'no-word-gv-find-file "no-word" "view word document in gv" t)
+;; and use M-x no-word-gv-find-file RET to view a word document in gv
+;; gv (ghost view must be in your path)
+;;
+;; TODO
+;; -fixing and testing :-)
+;; -perhaps use a temp file rather than a pipe for ghostview
+
+
+(defgroup no-word nil
+ "Options controlling the behaviour of no-word mode."
+ :group 'external
+ :group 'wp)
+
+(defcustom no-word-ask-coding t
+ "Non nil if no word asks for a coding"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+
+(defcustom no-word-check-word nil
+ "if non-nil no word uses the file utility to test if the .doc file is actually a M$ document"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+
+(defcustom no-word-rename-buffer t
+ "if non-nil no word will open the X.doc in a buffer *X.doc* otherwise the buffer will be X.doc"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+
+(defcustom no-word-default-coding "iso-8859-1"
+ "default coding used. A mapping to an antiword map file shoud exist. See no-word-coding-systems."
+ :type 'string
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+
+(defcustom no-word-coding-systems '(( "greek-iso-8bit" "8859-7.txt")
+ ("iso-8859-7" "8859-7.txt")
+ ("iso-8859-1" "8859-1.txt"))
+ "Alist mapping coding system to antiword map file. Key must be an emacs coding value the name of an antiword map file used by the -m option of antiword"
+ :type '(alist :key-type string :value-type (group string))
+ :initialize 'custom-initialize-default
+ :group 'no-word )
+
+(defcustom no-word-text-width 78
+ "Width of the text outpout in characters"
+ :type 'integer
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+(defcustom no-word-show-hidden nil
+ "Non nil if no word asks for a coding"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word)
+
+(defgroup no-word-ps nil
+ "Options controlling the ps output."
+ :group 'no-word)
+
+(defcustom no-word-ps-papersize "a4"
+ "paper size 10x14, a3, a4, a5, b4, b5, executive, folio, legal, letter, note, quarto, statement or tabloid"
+ :type 'string
+ :initialize 'custom-initialize-default
+ :group 'no-word-ps)
+
+(defcustom no-word-ps-landscape nil
+ "if non-nil the use landscape mode"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word-ps)
+
+(defcustom no-word-ps-landscape nil
+ "if non-nil the use landscape mode"
+ :type 'boolean
+ :initialize 'custom-initialize-default
+ :group 'no-word-ps)
+
+(defcustom no-word-ps-image-level 2
+ "image level see antiword documentation"
+ :type 'integer
+ :initialize 'custom-initialize-default
+ :group 'no-word-ps)
+
+
+
+
+(defun no-word-command (map-file &optional file)
+ "return the command line to be used"
+ (concat
+ (format "antiword -m %s -w %d " map-file no-word-text-width)
+ (if no-word-show-hidden "-s ")
+ (if file file "-")
+ )
+ )
+
+(defun no-word-is-word ()
+ "test if the current buffer is a word document"
+ (string-match "Microsoft "
+ (shell-command-to-string
+ (concat "file "
+ ;; windows'people like spaces in filenames
+ (replace-regexp-in-string " " "\\ " buffer-file-name t t)
+ )
+ )
+ )
+ )
+
+(defun no-word (&optional file)
+ "Run antiword on the entire buffer."
+ (when (or (not no-word-check-word)
+ (and no-word-check-word (no-word-is-word))
+ )
+ (let* (
+ (no-word-coding (if no-word-ask-coding
+ (completing-read
+ (format "Select coding: (default %s): " no-word-default-coding)
+ no-word-coding-systems
+ nil t nil nil no-word-default-coding)
+ no-word-default-coding
+ ))
+ (map-file (cadr (assoc no-word-coding no-word-coding-systems)))
+ (doc-name (buffer-name))
+ (coding-system-for-read (intern no-word-coding))
+ )
+
+ (save-window-excursion
+ (shell-command-on-region
+ (point-min)
+ (point-max)
+ ;;(no-word-command map-file)
+ (concat
+ (format "antiword -m %s -w %d " map-file no-word-text-width)
+ (if no-word-show-hidden "-s ")
+ (if file (replace-regexp-in-string " " "\\ " file t t) "-")
+ )
+ "*no-word-temp-name*"
+ )
+ (kill-buffer (current-buffer))
+ )
+ (switch-to-buffer "*no-word-temp-name*")
+ (rename-buffer (if no-word-rename-buffer (concat "*" doc-name "*") doc-name))
+ )
+ )
+ )
+
+(defun no-word-find-file (file)
+ "Interactive function used to open emacs document in an emacs buffer using antiword"
+ (interactive "fNo word Find file: ")
+ (no-word file)
+ )
+
+(defun no-word-gv-find-file (file)
+ "Interactive function that use antiword and open ghostview"
+ (interactive "fView Word file: ")
+ (when (or (not no-word-check-word)
+ (and no-word-check-word (no-word-is-word))
+ )
+ (let* (
+ (no-word-coding (if no-word-ask-coding
+ (completing-read
+ (format "Select coding: (default %s): " no-word-default-coding)
+ no-word-coding-systems
+ nil t nil nil no-word-default-coding)
+ no-word-default-coding
+ ))
+ (map-file (cadr (assoc no-word-coding no-word-coding-systems)))
+ )
+ (shell-command
+ (concat
+ (format "antiword -p %s -m %s -i %d " no-word-ps-papersize map-file no-word-ps-image-level)
+ (if no-word-show-hidden "-s ")
+ (if no-word-ps-landscape "-L ")
+ (replace-regexp-in-string " " "\\ " file t t)
+ " | gv -eof - &")
+ )
+ )
+ )
+ )
+
+
+(provide 'no-word)
+;;; no-word.el ends here
diff --git a/elisp/osx.el b/elisp/osx.el
new file mode 100644
index 0000000..9e4de8b
--- /dev/null
+++ b/elisp/osx.el
@@ -0,0 +1,46 @@
+; Apple/OSX friendly setup
+; courtesy of Ovidiu Predescu
+; http://www.webweavertech.com/ovidiu/emacs.html
+
+(provide 'osx)
+
+
+(setq mac-option-modifier 'meta)
+(setq mac-command-modifier 'hyper)
+
+(global-set-key (kbd "A-q") 'fill-paragraph)
+
+(global-set-key [(hyper a)] 'mark-whole-buffer)
+(global-set-key [(hyper v)] 'yank)
+(global-set-key [(hyper c)] 'kill-ring-save)
+(global-set-key [(hyper x)] 'kill-region)
+(global-set-key [(hyper s)] 'save-buffer)
+(global-set-key [(hyper l)] 'goto-line)
+(global-set-key [(hyper o)] 'find-file)
+(global-set-key [(hyper f)] 'isearch-forward)
+(global-set-key [(hyper g)] 'isearch-repeat-forward)
+(global-set-key [(hyper w)]
+ (lambda () (interactive) (kill-buffer (current-buffer))))
+(global-set-key [(hyper .)] 'keyboard-quit)
+;; I disabled this since I want to avoid hitting Cmd-q accidentally.
+(global-set-key [(hyper q)] 'save-buffers-kill-emacs)
+;; I disabled this since I want to avoid hitting Cmd-q accidentally.
+(global-set-key [(hyper q)] 'save-buffers-kill-emacs)
+; (require 'redo)
+(global-set-key [(hyper z)] 'undo)
+(global-set-key [(hyper shift z)] 'redo)
+
+; compat with old-school emacs behaviour and swap of hyper - alt
+(global-set-key [(hyper w)] 'kill-ring-save)
+(global-set-key (kbd "C-w") 'kill-region)
+; if you are an hardcore osx user you might want to comment out the
+; following:
+(global-set-key [(hyper y)] 'yank)
+(global-set-key [(hyper /)] 'complete-symbol)
+
+(defun maximize-frame ()
+ (interactive)
+ (set-frame-position (selected-frame) 0 0)
+ (set-frame-size (selected-frame) 1000 1000))
+(global-set-key [(hyper return)] 'maximize-frame)
+(global-set-key [(hyper f)] 'maximize-frame)
diff --git a/elisp/themes/color-theme-library.el b/elisp/themes/color-theme-library.el
new file mode 100644
index 0000000..1061f7b
--- /dev/null
+++ b/elisp/themes/color-theme-library.el
@@ -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)
+ (color-theme-install
+ '(color-theme-bharadwaj
+ ((background-color . "gainsboro")
+ (background-mode . light)
+ (background-toolbar-color . "#cf3ccf3ccf3c")
+ (border-color . "black")
+ (bottom-toolbar-shadow-color . "#79e77df779e7")
+ (cursor-color . "grey15")
+ (foreground-color . "black")
+ (mouse-color . "grey15")
+ (top-toolbar-shadow-color . "#fffffbeeffff")
+ (viper-saved-cursor-color-in-replace-mode . "Red3"))
+ ((gnus-mouse-face . highlight)
+ (smiley-mouse-face . highlight))
+ (default ((t (nil))))
+ (bbdb-company ((t (nil))))
+ (bbdb-field-name ((t (:bold t))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (blank-space-face ((t (nil))))
+ (blank-tab-face ((t (nil))))
+ (blue ((t (nil))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:bold t))))
+ (border-glyph ((t (nil))))
+ (calendar-today-face ((t (:underline t))))
+ (comint-input-face ((t (:foreground "deepskyblue"))))
+ (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+ (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red"))))
+ (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+ (custom-button-face ((t (:bold t))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "dark green"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
+ (cvs-filename-face ((t (:foreground "blue4"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "blue4"))))
+ (cvs-marked-face ((t (:bold t :foreground "green3"))))
+ (cvs-msg-face ((t (nil))))
+ (cvs-need-action-face ((t (:foreground "orange"))))
+ (cvs-unknown-face ((t (:foreground "red"))))
+ (diary-face ((t (:bold t :foreground "red"))))
+ (dired-face-boring ((t (:foreground "Gray65"))))
+ (dired-face-directory ((t (:bold t :foreground "forestgreen"))))
+ (dired-face-executable ((t (:foreground "indianred"))))
+ (dired-face-flagged ((t (:background "SlateGray"))))
+ (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
+ (dired-face-permissions ((t (nil))))
+ (dired-face-setuid ((t (:foreground "Red"))))
+ (dired-face-socket ((t (:foreground "magenta"))))
+ (dired-face-symlink ((t (:foreground "grey95"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "red"))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+ (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+ (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+ (erc-action-face ((t (:bold t))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (nil))))
+ (erc-error-face ((t (:bold t))))
+ (erc-input-face ((t (nil))))
+ (erc-inverse-face ((t (nil))))
+ (erc-notice-face ((t (nil))))
+ (erc-pal-face ((t (nil))))
+ (erc-prompt-face ((t (nil))))
+ (erc-underline-face ((t (nil))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+ (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+ (eshell-ls-picture-face ((t (nil))))
+ (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+ (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+ (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+ (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+ (excerpt ((t (nil))))
+ (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+ (fg:black ((t (:foreground "black"))))
+ (fixed ((t (:bold t))))
+ (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+ (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+ (font-latex-bold-face ((t (nil))))
+ (font-latex-italic-face ((t (nil))))
+ (font-latex-math-face ((t (nil))))
+ (font-latex-sedate-face ((t (nil))))
+ (font-latex-string-face ((t (nil))))
+ (font-latex-warning-face ((t (nil))))
+ (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
+ (font-lock-comment-face ((t (:foreground "grey55"))))
+ (font-lock-constant-face ((t (:foreground "OliveDrab"))))
+ (font-lock-doc-string-face ((t (:bold t :foreground "blue4"))))
+ (font-lock-exit-face ((t (nil))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue"))))
+ (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
+ (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+ (font-lock-reference-face ((t (:foreground "red3"))))
+ (font-lock-string-face ((t (:foreground "DarkRed"))))
+ (font-lock-type-face ((t (:foreground "SteelBlue4"))))
+ (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
+ (fringe ((t (:background "grey95"))))
+ (gnus-cite-attribution-face ((t (:bold t))))
+ (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+ (gnus-cite-face-3 ((t (:foreground "dark green"))))
+ (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+ (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+ (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+ (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t))))
+ (gnus-emphasis-bold-italic ((t (:bold t))))
+ (gnus-emphasis-highlight-words ((t (nil))))
+ (gnus-emphasis-italic ((t (nil))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-italic ((t (:underline t))))
+ (gnus-filterhist-face-1 ((t (nil))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-header-content-face ((t (:foreground "indianred4"))))
+ (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+ (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
+ (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue"))))
+ (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+ (gnus-picons-face ((t (:background "white" :foreground "black"))))
+ (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+ (gnus-signature-face ((t (nil))))
+ (gnus-splash ((t (nil))))
+ (gnus-splash-face ((t (:foreground "ForestGreen"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-high-unread-face ((t (:bold t))))
+ (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-low-unread-face ((t (nil))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-normal-unread-face ((t (:bold t))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (gnus-x-face ((t (:background "white" :foreground "black"))))
+ (green ((t (nil))))
+ (gui-button-face ((t (:background "grey75"))))
+ (gui-element ((t (:background "Gray80"))))
+ (highlight ((t (:background "LightSkyBlue"))))
+ (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+ (highlight-changes-face ((t (:foreground "red"))))
+ (highline-face ((t (:background "grey95"))))
+ (holiday-face ((t (:background "pink"))))
+ (html-helper-italic-face ((t (nil))))
+ (info-menu-5 ((t (:underline t))))
+ (info-node ((t (:bold t))))
+ (info-xref ((t (:bold t))))
+ (isearch ((t (:background "yellow"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (nil))))
+ (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+ (left-margin ((t (nil))))
+ (linemenu-face ((t (nil))))
+ (list-mode-item-selected ((t (nil))))
+ (makefile-space-face ((t (:background "hotpink"))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
+ (message-header-name-face ((t (:foreground "cornflower blue"))))
+ (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
+ (message-header-other-face ((t (:foreground "steel blue"))))
+ (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+ (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:bold t))))
+ (message-separator-face ((t (:foreground "brown"))))
+ (modeline ((t (:background "white" :foreground "black"))))
+ (modeline-buffer-id ((t (:background "white" :foreground "black"))))
+ (modeline-mousable ((t (:background "white" :foreground "black"))))
+ (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
+ (paren-blink-off ((t (:foreground "gray80"))))
+ (paren-face-match ((t (:background "turquoise"))))
+ (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+ (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+ (paren-mismatch-face ((t (:bold t))))
+ (paren-no-match-face ((t (:bold t))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (nil))))
+ (red ((t (nil))))
+ (region ((t (:background "grey80"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "grey55"))))
+ (sgml-comment-face ((t (:foreground "dark turquoise"))))
+ (sgml-doctype-face ((t (nil))))
+ (sgml-end-tag-face ((t (nil))))
+ (sgml-entity-face ((t (nil))))
+ (sgml-ignored-face ((t (nil))))
+ (sgml-ms-end-face ((t (:foreground "green"))))
+ (sgml-ms-start-face ((t (:foreground "green"))))
+ (sgml-pi-face ((t (:foreground "lime green"))))
+ (sgml-sgml-face ((t (nil))))
+ (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+ (sgml-start-tag-face ((t (nil))))
+ (shell-option-face ((t (:foreground "blue"))))
+ (shell-output-2-face ((t (:foreground "darkseagreen"))))
+ (shell-output-3-face ((t (:foreground "slategrey"))))
+ (shell-output-face ((t (:foreground "palegreen"))))
+ (shell-prompt-face ((t (:foreground "red"))))
+ (show-paren-match-face ((t (:background "grey80"))))
+ (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
+ (speedbar-button-face ((t (:bold t :foreground "green4"))))
+ (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
+ (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
+ (speedbar-highlight-face ((t (:background "green"))))
+ (speedbar-selected-face ((t (:underline t :foreground "red"))))
+ (speedbar-tag-face ((t (:foreground "brown"))))
+ (swbuff-current-buffer-face ((t (:bold t))))
+ (template-message-face ((t (:bold t))))
+ (term-black ((t (:foreground "black"))))
+ (term-blackbg ((t (:background "black"))))
+ (term-blue ((t (:foreground "blue"))))
+ (term-bluebg ((t (:background "blue"))))
+ (term-bold ((t (:bold t))))
+ (term-cyan ((t (:foreground "cyan"))))
+ (term-cyanbg ((t (:background "cyan"))))
+ (term-default-bg ((t (nil))))
+ (term-default-bg-inv ((t (nil))))
+ (term-default-fg ((t (nil))))
+ (term-default-fg-inv ((t (nil))))
+ (term-green ((t (:foreground "green"))))
+ (term-greenbg ((t (:background "green"))))
+ (term-invisible ((t (nil))))
+ (term-invisible-inv ((t (nil))))
+ (term-magenta ((t (:foreground "magenta"))))
+ (term-magentabg ((t (:background "magenta"))))
+ (term-red ((t (:foreground "red"))))
+ (term-redbg ((t (:background "red"))))
+ (term-underline ((t (:underline t))))
+ (term-white ((t (:foreground "white"))))
+ (term-whitebg ((t (:background "white"))))
+ (term-yellow ((t (:foreground "yellow"))))
+ (term-yellowbg ((t (:background "yellow"))))
+ (text-cursor ((t (:background "grey15" :foreground "gainsboro"))))
+ (toolbar ((t (nil))))
+ (underline ((t (:underline t))))
+ (vc-annotate-face-0046FF ((t (nil))))
+ (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+ (vertical-divider ((t (nil))))
+ (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+ (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+ (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+ (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+ (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+ (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+ (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+ (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+ (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+ (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+ (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+ (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+ (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+ (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+ (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+ (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+ (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+ (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+ (vvb-face ((t (:background "pink" :foreground "black"))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "navy" :foreground "white"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "royalblue" :foreground "white"))))
+ (woman-bold-face ((t (:bold t))))
+ (woman-italic-face ((t (nil))))
+ (woman-unknown-face ((t (nil))))
+ (xref-keyword-face ((t (:foreground "blue"))))
+ (xref-list-pilot-face ((t (:foreground "navy"))))
+ (xref-list-symbol-face ((t (:foreground "navy"))))
+ (yellow ((t (nil))))
+ (zmacs-region ((t (:background "royalblue")))))))
+
+(defun color-theme-oswald ()
+ "Color theme by Tom Oswald, created 2001-04-18.
+Green on black, includes font-lock, show-paren, and ediff."
+ (interactive)
+ (color-theme-install
+ '(color-theme-oswald
+ ((background-color . "black")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "black")
+ (foreground-color . "green")
+ (mouse-color . "black"))
+ ((blank-space-face . blank-space-face)
+ (blank-tab-face . blank-tab-face)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight))
+ (default ((t (nil))))
+ (blank-space-face ((t (:background "LightGray"))))
+ (blank-tab-face ((t (:background "green" :foreground "black"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:italic t :bold t))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+ (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+ (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+ (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4"))))
+ (font-lock-constant-face ((t (:italic t :foreground "HotPink"))))
+ (font-lock-doc-string-face ((t (:italic t :foreground "orange"))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "red"))))
+ (font-lock-keyword-face ((t (:foreground "red"))))
+ (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink"))))
+ (font-lock-string-face ((t (:italic t :foreground "orange"))))
+ (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
+ (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue"))))
+ (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+ (highlight ((t (:background "yellow" :foreground "red"))))
+ (isearch ((t (:background "dim gray" :foreground "aquamarine"))))
+ (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow"))))
+ (italic ((t (:italic t))))
+ (modeline ((t (:background "green" :foreground "black"))))
+ (modeline-buffer-id ((t (:background "green" :foreground "black"))))
+ (modeline-mousable ((t (:background "green" :foreground "black"))))
+ (modeline-mousable-minor-mode ((t (:background "green" :foreground "black"))))
+ (region ((t (:background "dim gray" :foreground "aquamarine"))))
+ (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod"))))
+ (show-paren-match-face ((t (:background "turquoise" :foreground "black"))))
+ (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+ (underline ((t (:underline t))))
+ (zmacs-region ((t (:background "dim gray" :foreground "aquamarine")))))))
+
+(defun color-theme-salmon-diff ()
+ "Salmon and aquamarine faces for diff and change-log modes.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+ (color-theme-install
+ '(color-theme-salmon-diff
+ nil
+ (change-log-acknowledgement-face ((t (:foreground "LightBlue"))))
+ (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+ (change-log-date-face ((t (:foreground "LightSalmon"))))
+ (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+ (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+ (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+ (change-log-list-face ((t (:foreground "Salmon"))))
+ (change-log-name-face ((t (:foreground "Aquamarine"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey70"))))
+ (diff-file-header-face ((t (:bold t))))
+ (diff-function-face ((t (:foreground "grey70"))))
+ (diff-header-face ((t (:foreground "light salmon"))))
+ (diff-hunk-header-face ((t (:foreground "light salmon"))))
+ (diff-index-face ((t (:bold t))))
+ (diff-nonexistent-face ((t (:bold t))))
+ (diff-removed-face ((t (nil))))
+ (log-view-message-face ((t (:foreground "light salmon")))))))
+
+(defun color-theme-robin-hood ()
+ "`color-theme-gnome2' with navajo white on green.
+This theme tries to avoid underlined and italic faces, because
+the fonts either look ugly, or do not exist. The author himself
+uses neep, for example."
+ (interactive)
+ (color-theme-gnome2)
+ (let ((color-theme-is-cumulative t))
+ (color-theme-install
+ '(color-theme-robin-hood
+ ((foreground-color . "navajo white")
+ (background-color . "#304020"))
+ ((CUA-mode-read-only-cursor-color . "white")
+ (help-highlight-face . info-xref)
+ (list-matching-lines-buffer-name-face . bold))
+ (default ((t (nil))))
+ (button ((t (:bold t))))
+ (calendar-today-face ((t (:foreground "lemon chiffon"))))
+ (custom-button-face ((t (:bold t :foreground "DodgerBlue1"))))
+ (diary-face ((t (:bold t :foreground "yellow"))))
+ (fringe ((t (:background "#003700"))))
+ (header-line ((t (:background "#030" :foreground "#AA7"))))
+ (holiday-face ((t (:bold t :foreground "peru"))))
+ (ido-subdir-face ((t (:foreground "MediumSlateBlue"))))
+ (isearch ((t (:foreground "pink" :background "red"))))
+ (isearch-lazy-highlight-face ((t (:foreground "red"))))
+ (menu ((t (:background "#304020" :foreground "navajo white"))))
+ (minibuffer-prompt ((t (:foreground "pale green"))))
+ (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button)))))
+ (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button)))))
+ (semantic-dirty-token-face ((t (:background "grey22"))))
+ (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button)))))
+ (tooltip ((t (:background "lemon chiffon" :foreground "black"))))))))
+
+(defun color-theme-snowish ()
+ "Color theme by Girish Bharadwaj, created 2001-05-17.
+Dark slate gray on snow2, lots of blue colors.
+Includes custom, eshell, font-lock, gnus, html-helper,
+hyper-apropos, jde, message, paren, semantic, speedbar,
+term, widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-snowish
+ ((background-color . "snow2")
+ (background-mode . light)
+ (cursor-color . "Red3")
+ (foreground-color . "darkslategray"))
+ ((buffers-tab-face . buffers-tab)
+ (gnus-mouse-face . highlight)
+ (sgml-set-face . t)
+ (smiley-mouse-face . highlight))
+ (default ((t (nil))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t :foreground "peru"))))
+ (bold-italic ((t (:italic t :bold t))))
+ (border-glyph ((t (nil))))
+ (buffers-tab ((t (:background "snow2" :foreground "darkslategray"))))
+ (custom-button-face ((t (:bold t))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "gray85"))))
+ (custom-comment-tag-face ((t (:foreground "blue4"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "dark green"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+ (cyan ((t (:foreground "cyan"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "red"))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+ (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+ (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan"))))
+ (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+ (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+ (font-lock-builtin-face ((t (:underline t :foreground "blue"))))
+ (font-lock-comment-face ((t (:foreground "snow4"))))
+ (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+ (font-lock-doc-string-face ((t (:foreground "mediumblue"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "darkblue"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue"))))
+ (font-lock-preprocessor-face ((t (:underline t :foreground "blue3"))))
+ (font-lock-reference-face ((t (:foreground "red3"))))
+ (font-lock-string-face ((t (:foreground "darkviolet"))))
+ (font-lock-type-face ((t (:foreground "goldenrod"))))
+ (font-lock-variable-name-face ((t (:foreground "tomato"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+ (gnus-cite-attribution-face ((t (nil))))
+ (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+ (gnus-cite-face-3 ((t (:foreground "dark green"))))
+ (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+ (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+ (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+ (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t))))
+ (gnus-emphasis-bold-italic ((t (nil))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (nil))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t))))
+ (gnus-emphasis-underline-italic ((t (:underline t))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-header-content-face ((t (:foreground "indianred4"))))
+ (gnus-header-from-face ((t (:foreground "red3"))))
+ (gnus-header-name-face ((t (:foreground "maroon"))))
+ (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
+ (gnus-header-subject-face ((t (:foreground "red4"))))
+ (gnus-picons-face ((t (:background "white" :foreground "black"))))
+ (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+ (gnus-signature-face ((t (nil))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-high-unread-face ((t (:bold t))))
+ (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
+ (gnus-summary-low-unread-face ((t (nil))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (gnus-x-face ((t (:background "white" :foreground "black"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "black"))))
+ (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+ (highlight ((t (:background "darkseagreen2"))))
+ (html-helper-bold-face ((t (:bold t))))
+ (html-helper-bold-italic-face ((t (nil))))
+ (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
+ (html-helper-italic-face ((t (:foreground "medium sea green"))))
+ (html-helper-underline-face ((t (:underline t))))
+ (html-tag-face ((t (:bold t))))
+ (hyper-apropos-documentation ((t (:foreground "darkred"))))
+ (hyper-apropos-heading ((t (:bold t))))
+ (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
+ (hyper-apropos-major-heading ((t (:bold t))))
+ (hyper-apropos-section-heading ((t (nil))))
+ (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+ (info-menu-6 ((t (nil))))
+ (isearch ((t (:background "paleturquoise"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (nil))))
+ (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+ (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+ (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
+ (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
+ (magenta ((t (:foreground "magenta"))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+ (message-header-name-face ((t (:foreground "cornflower blue"))))
+ (message-header-newsgroups-face ((t (:foreground "blue4"))))
+ (message-header-other-face ((t (:foreground "steel blue"))))
+ (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+ (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:foreground "ForestGreen"))))
+ (message-separator-face ((t (:foreground "brown"))))
+ (modeline ((t (nil))))
+ (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4"))))
+ (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick"))))
+ (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4"))))
+ (paren-blink-off ((t (:foreground "snow2"))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (:background "snow2" :foreground "darkslategray"))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray65"))))
+ (red ((t (:foreground "red"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "paleturquoise"))))
+ (semantic-intangible-face ((t (:foreground "gray25"))))
+ (semantic-read-only-face ((t (:background "gray25"))))
+ (senator-momentary-highlight-face ((t (:background "gray70"))))
+ (speedbar-button-face ((t (:foreground "green4"))))
+ (speedbar-directory-face ((t (:foreground "blue4"))))
+ (speedbar-file-face ((t (:foreground "cyan4"))))
+ (speedbar-highlight-face ((t (:background "green"))))
+ (speedbar-selected-face ((t (:underline t :foreground "red"))))
+ (speedbar-tag-face ((t (:foreground "brown"))))
+ (template-message-face ((t (:bold t))))
+ (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
+ (term-blue-face ((t (:foreground "blue"))))
+ (term-blue-inv-face ((t (:background "blue"))))
+ (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
+ (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
+ (term-cyan-face ((t (:foreground "cyan"))))
+ (term-cyan-inv-face ((t (:background "cyan"))))
+ (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
+ (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
+ (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
+ (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
+ (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
+ (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
+ (term-green-face ((t (:foreground "green"))))
+ (term-green-inv-face ((t (:background "green"))))
+ (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
+ (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
+ (term-magenta-face ((t (:foreground "magenta"))))
+ (term-magenta-inv-face ((t (:background "magenta"))))
+ (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
+ (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
+ (term-red-face ((t (:foreground "red"))))
+ (term-red-inv-face ((t (:background "red"))))
+ (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
+ (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
+ (term-white-face ((t (:foreground "white"))))
+ (term-white-inv-face ((t (:background "snow2"))))
+ (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
+ (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
+ (term-yellow-face ((t (:foreground "yellow"))))
+ (term-yellow-inv-face ((t (:background "yellow"))))
+ (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
+ (text-cursor ((t (:background "Red3" :foreground "snow2"))))
+ (toolbar ((t (nil))))
+ (underline ((t (:underline t))))
+ (vertical-divider ((t (nil))))
+ (white ((t (:foreground "white"))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-dark-laptop ()
+ "Color theme by Laurent Michel, created 2001-05-24.
+Includes custom, fl, font-lock, gnus, message, widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-dark-laptop
+ ((background-color . "black")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "yellow")
+ (foreground-color . "white")
+ (mouse-color . "sienna1"))
+ ((gnus-mouse-face . highlight)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight))
+ (default ((t (nil))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:italic t :bold t))))
+ (custom-button-face ((t (nil))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "lime green"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+ (fl-comment-face ((t (:foreground "pink"))))
+ (fl-doc-string-face ((t (:foreground "purple"))))
+ (fl-function-name-face ((t (:foreground "red"))))
+ (fl-keyword-face ((t (:foreground "cyan"))))
+ (fl-string-face ((t (:foreground "green"))))
+ (fl-type-face ((t (:foreground "yellow"))))
+ (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:foreground "OrangeRed"))))
+ (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+ (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+ (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+ (font-lock-keyword-face ((t (:foreground "Cyan"))))
+ (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+ (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-string-face ((t (:foreground "LightSalmon"))))
+ (font-lock-type-face ((t (:foreground "PaleGreen"))))
+ (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+ (gnus-cite-attribution-face ((t (:italic t))))
+ (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:bold t :foreground "cyan"))))
+ (gnus-cite-face-3 ((t (:bold t :foreground "gold"))))
+ (gnus-cite-face-4 ((t (:foreground "light pink"))))
+ (gnus-cite-face-5 ((t (:foreground "pale green"))))
+ (gnus-cite-face-6 ((t (:bold t :foreground "chocolate"))))
+ (gnus-cite-face-7 ((t (:foreground "orange"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (:italic t))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+ (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+ (gnus-header-content-face ((t (:italic t :foreground "forest green"))))
+ (gnus-header-from-face ((t (:bold t :foreground "spring green"))))
+ (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+ (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple"))))
+ (gnus-header-subject-face ((t (:bold t :foreground "orange"))))
+ (gnus-signature-face ((t (:bold t :foreground "khaki"))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
+ (gnus-summary-high-unread-face ((t (:bold t))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
+ (gnus-summary-low-unread-face ((t (:italic t))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (highlight ((t (:background "darkolivegreen"))))
+ (italic ((t (:italic t))))
+ (message-cited-text-face ((t (:bold t :foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "green4"))))
+ (message-header-name-face ((t (:bold t :foreground "orange"))))
+ (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
+ (message-header-other-face ((t (:bold t :foreground "chocolate"))))
+ (message-header-subject-face ((t (:bold t :foreground "yellow"))))
+ (message-header-to-face ((t (:bold t :foreground "cyan"))))
+ (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
+ (message-mml-face ((t (:bold t :background "Green3"))))
+ (message-separator-face ((t (:foreground "blue3"))))
+ (modeline ((t (:background "white" :foreground "black"))))
+ (modeline-buffer-id ((t (:background "white" :foreground "black"))))
+ (modeline-mousable ((t (:background "white" :foreground "black"))))
+ (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
+ (region ((t (:background "blue"))))
+ (primary-selection ((t (:background "blue"))))
+ (isearch ((t (:background "blue"))))
+ (zmacs-region ((t (:background "blue"))))
+ (secondary-selection ((t (:background "darkslateblue"))))
+ (underline ((t (:underline t))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-taming-mr-arneson ()
+ "Color theme by Erik Arneson, created 2001-06-12.
+Light sky blue on black. Includes bbdb, cperl, custom, cvs, diff,
+dired, font-lock, html-helper, hyper-apropos, info, isearch, man,
+message, paren, shell, and widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-taming-mr-arneson
+ ((background-color . "black")
+ (background-mode . light)
+ (background-toolbar-color . "#cf3ccf3ccf3c")
+ (border-color . "#000000000000")
+ (bottom-toolbar-shadow-color . "#79e77df779e7")
+ (cursor-color . "Red3")
+ (foreground-color . "LightSkyBlue")
+ (top-toolbar-shadow-color . "#fffffbeeffff"))
+ ((buffers-tab-face . buffers-tab)
+ (cperl-here-face . font-lock-string-face)
+ (cperl-invalid-face quote default)
+ (cperl-pod-face . font-lock-comment-face)
+ (cperl-pod-head-face . font-lock-variable-name-face)
+ (ispell-highlight-face . highlight)
+ (vc-mode-face . highlight)
+ (vm-highlight-url-face . bold-italic)
+ (vm-highlighted-header-face . bold)
+ (vm-mime-button-face . gui-button-face)
+ (vm-summary-highlight-face . bold))
+ (default ((t (nil))))
+ (bbdb-company ((t (nil))))
+ (bbdb-field-name ((t (:bold t))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:bold t :foreground "yellow"))))
+ (border-glyph ((t (nil))))
+ (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
+ (cperl-array-face ((t (:bold t :foreground "SkyBlue2"))))
+ (cperl-hash-face ((t (:foreground "LightBlue2"))))
+ (cperl-invalid-face ((t (:foreground "white"))))
+ (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+ (custom-button-face ((t (:bold t))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:foreground "white"))))
+ (custom-comment-tag-face ((t (:foreground "white"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "white"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+ (cvs-filename-face ((t (:foreground "white"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:foreground "green"))))
+ (cvs-marked-face ((t (:bold t :foreground "green3"))))
+ (cvs-msg-face ((t (:foreground "red"))))
+ (cvs-need-action-face ((t (:foreground "yellow"))))
+ (cvs-unknown-face ((t (:foreground "grey"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-file-header-face ((t (:bold t :background "grey70"))))
+ (diff-hunk-header-face ((t (:background "grey85"))))
+ (diff-index-face ((t (:bold t :background "grey70"))))
+ (diff-removed-face ((t (nil))))
+ (dired-face-boring ((t (:foreground "Gray65"))))
+ (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
+ (dired-face-executable ((t (:foreground "Green"))))
+ (dired-face-flagged ((t (:background "LightSlateGray"))))
+ (dired-face-header ((t (:background "grey75" :foreground "black"))))
+ (dired-face-marked ((t (:background "PaleVioletRed"))))
+ (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+ (dired-face-setuid ((t (:foreground "Red"))))
+ (dired-face-socket ((t (:foreground "magenta"))))
+ (dired-face-symlink ((t (:foreground "cyan"))))
+ (excerpt ((t (nil))))
+ (fixed ((t (:bold t))))
+ (font-lock-builtin-face ((t (:foreground "red3"))))
+ (font-lock-comment-face ((t (:foreground "red"))))
+ (font-lock-constant-face ((t (nil))))
+ (font-lock-doc-string-face ((t (:foreground "turquoise"))))
+ (font-lock-function-name-face ((t (:foreground "white"))))
+ (font-lock-keyword-face ((t (:foreground "green"))))
+ (font-lock-preprocessor-face ((t (:foreground "green3"))))
+ (font-lock-reference-face ((t (:foreground "red3"))))
+ (font-lock-string-face ((t (:foreground "turquoise"))))
+ (font-lock-type-face ((t (:foreground "steelblue"))))
+ (font-lock-variable-name-face ((t (:foreground "magenta2"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "black"))))
+ (gui-element ((t (nil))))
+ (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
+ (html-helper-bold-face ((t (:bold t))))
+ (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
+ (html-helper-underline-face ((t (:underline t))))
+ (hyper-apropos-documentation ((t (:foreground "white"))))
+ (hyper-apropos-heading ((t (:bold t))))
+ (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+ (hyper-apropos-major-heading ((t (:bold t))))
+ (hyper-apropos-section-heading ((t (:bold t))))
+ (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+ (info-node ((t (:bold t :foreground "yellow"))))
+ (info-xref ((t (:bold t))))
+ (isearch ((t (:background "paleturquoise" :foreground "dark red"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (:bold t :foreground "yellow"))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
+ (man-bold ((t (:bold t))))
+ (man-heading ((t (:bold t))))
+ (man-italic ((t (:foreground "yellow"))))
+ (man-xref ((t (:underline t))))
+ (message-cited-text ((t (:foreground "orange"))))
+ (message-header-contents ((t (:foreground "white"))))
+ (message-headers ((t (:bold t :foreground "orange"))))
+ (message-highlighted-header-contents ((t (:bold t))))
+ (message-url ((t (:bold t :foreground "pink"))))
+ (mmm-face ((t (:background "black" :foreground "green"))))
+ (modeline ((t (nil))))
+ (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
+ (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
+ (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+ (paren-blink-off ((t (:foreground "gray80"))))
+ (paren-match ((t (:background "dark blue"))))
+ (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue"))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray65" :foreground "DarkBlue"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "gray65" :foreground "DarkBlue"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "paleturquoise" :foreground "black"))))
+ (shell-option-face ((t (:foreground "blue4"))))
+ (shell-output-2-face ((t (:foreground "green4"))))
+ (shell-output-3-face ((t (:foreground "green4"))))
+ (shell-output-face ((t (:bold t))))
+ (shell-prompt-face ((t (:foreground "red4"))))
+ (text-cursor ((t (:background "Red3" :foreground "black"))))
+ (toolbar ((t (:background "Gray80" :foreground "black"))))
+ (underline ((t (:underline t))))
+ (vertical-divider ((t (nil))))
+ (vm-xface ((t (:background "white" :foreground "black"))))
+ (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
+ (vmpc-sig-face ((t (:foreground "steelblue"))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85" :foreground "black"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (x-face ((t (:background "white" :foreground "black"))))
+ (xrdb-option-name-face ((t (:foreground "red"))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-digital-ofs1 ()
+ "Color theme by Gareth Owen, created 2001-06-13.
+This works well on an old, beat-up Digital Unix box with its 256 colour
+display, on which other color themes hog too much of the palette.
+Black on some shade of dark peach. Includes bbdb, cperl, custom,
+cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus,
+highlight, hproperty, html-helper, hyper-apropos, info, jde, man,
+message, paren, searchm, semantic, sgml, shell, speedbar, term,
+vhdl, viper, w3m, widget, woman, x-symbol, xref."
+ (interactive)
+ (color-theme-install
+ '(color-theme-digital-ofs1
+ ((background-color . "#CA94AA469193")
+ (background-mode . light)
+ (background-toolbar-color . "#cf3ccf3ccf3c")
+ (border-color . "black")
+ (bottom-toolbar-shadow-color . "#79e77df779e7")
+ (cursor-color . "Black")
+ (foreground-color . "Black")
+ (mouse-color . "Black")
+ (top-toolbar-shadow-color . "#fffffbeeffff")
+ (viper-saved-cursor-color-in-replace-mode . "Red3"))
+ ((Man-overstrike-face . bold)
+ (Man-underline-face . underline)
+ (gnus-mouse-face . highlight)
+ (goto-address-mail-face . italic)
+ (goto-address-mail-mouse-face . secondary-selection)
+ (goto-address-url-face . bold)
+ (goto-address-url-mouse-face . highlight)
+ (ispell-highlight-face . highlight)
+ (list-matching-lines-face . bold)
+ (rmail-highlight-face . font-lock-function-name-face)
+ (view-highlight-face . highlight))
+ (default ((t (:bold t))))
+ (bbdb-company ((t (:italic t))))
+ (bbdb-field-name ((t (:bold t))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (blank-space-face ((t (nil))))
+ (blank-tab-face ((t (nil))))
+ (blue ((t (:bold t :foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:italic t :bold t))))
+ (border-glyph ((t (:bold t))))
+ (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
+ (calendar-today-face ((t (:underline t :bold t :foreground "white"))))
+ (comint-input-face ((t (nil))))
+ (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+ (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
+ (cperl-here-face ((t (nil))))
+ (cperl-invalid-face ((t (:foreground "white"))))
+ (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+ (cperl-pod-face ((t (nil))))
+ (cperl-pod-head-face ((t (nil))))
+ (custom-button-face ((t (:bold t))))
+ (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:foreground "white"))))
+ (custom-comment-tag-face ((t (:foreground "white"))))
+ (custom-documentation-face ((t (:bold t))))
+ (custom-face-tag-face ((t (:underline t :bold t))))
+ (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue"))))
+ (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red"))))
+ (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t :bold t))))
+ (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
+ (custom-state-face ((t (:bold t :foreground "dark green"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
+ (cvs-filename-face ((t (:foreground "white"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "green"))))
+ (cvs-marked-face ((t (:bold t :foreground "green3"))))
+ (cvs-msg-face ((t (:italic t :foreground "red"))))
+ (cvs-need-action-face ((t (:foreground "yellow"))))
+ (cvs-unknown-face ((t (:foreground "grey"))))
+ (cyan ((t (:foreground "cyan"))))
+ (diary-face ((t (:bold t :foreground "red"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-file-header-face ((t (:bold t :background "grey70"))))
+ (diff-hunk-header-face ((t (:background "grey85"))))
+ (diff-index-face ((t (:bold t :background "grey70"))))
+ (diff-removed-face ((t (nil))))
+ (dired-face-boring ((t (:foreground "Gray65"))))
+ (dired-face-directory ((t (:bold t))))
+ (dired-face-executable ((t (:foreground "SeaGreen"))))
+ (dired-face-flagged ((t (:background "LightSlateGray"))))
+ (dired-face-header ((t (:background "grey75" :foreground "black"))))
+ (dired-face-marked ((t (:background "PaleVioletRed"))))
+ (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+ (dired-face-setuid ((t (:foreground "Red"))))
+ (dired-face-socket ((t (:foreground "magenta"))))
+ (dired-face-symlink ((t (:foreground "cyan"))))
+ (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue"))))
+ (display-time-time-balloon-face ((t (:bold t :foreground "red"))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+ (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+ (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+ (erc-action-face ((t (:bold t))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (nil))))
+ (erc-error-face ((t (:bold t))))
+ (erc-input-face ((t (nil))))
+ (erc-inverse-face ((t (nil))))
+ (erc-notice-face ((t (nil))))
+ (erc-pal-face ((t (nil))))
+ (erc-prompt-face ((t (nil))))
+ (erc-underline-face ((t (nil))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+ (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+ (eshell-ls-picture-face ((t (:foreground "Violet"))))
+ (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+ (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
+ (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine"))))
+ (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+ (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+ (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+ (excerpt ((t (:italic t))))
+ (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+ (fg:black ((t (:foreground "black"))))
+ (fixed ((t (:bold t))))
+ (fl-comment-face ((t (:foreground "medium purple"))))
+ (fl-doc-string-face ((t (nil))))
+ (fl-function-name-face ((t (:foreground "green"))))
+ (fl-keyword-face ((t (:foreground "LightGreen"))))
+ (fl-string-face ((t (:foreground "light coral"))))
+ (fl-type-face ((t (:foreground "cyan"))))
+ (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+ (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+ (font-latex-bold-face ((t (:bold t))))
+ (font-latex-italic-face ((t (:italic t))))
+ (font-latex-math-face ((t (nil))))
+ (font-latex-sedate-face ((t (nil))))
+ (font-latex-string-face ((t (nil))))
+ (font-latex-warning-face ((t (nil))))
+ (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid"))))
+ (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
+ (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue"))))
+ (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4"))))
+ (font-lock-emphasized-face ((t (:bold t))))
+ (font-lock-exit-face ((t (:foreground "green"))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "dark olive green"))))
+ (font-lock-other-emphasized-face ((t (:italic t :bold t))))
+ (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue"))))
+ (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3"))))
+ (font-lock-reference-face ((t (:italic t :bold t :foreground "red3"))))
+ (font-lock-special-comment-face ((t (nil))))
+ (font-lock-special-keyword-face ((t (nil))))
+ (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue"))))
+ (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen"))))
+ (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+ (fringe ((t (:background "grey95"))))
+ (gdb-arrow-face ((t (:bold t))))
+ (gnus-cite-attribution-face ((t (:italic t :bold t))))
+ (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:bold t :foreground "firebrick"))))
+ (gnus-cite-face-3 ((t (:bold t :foreground "dark green"))))
+ (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+ (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+ (gnus-cite-face-6 ((t (:bold t :foreground "dark violet"))))
+ (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-cite-face-list ((t (nil))))
+ (gnus-emphasis-bold ((t (:bold t))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (:italic t))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+ (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+ (gnus-filterhist-face-1 ((t (nil))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+ (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+ (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
+ (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
+ (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+ (gnus-picons-face ((t (:background "white" :foreground "black"))))
+ (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+ (gnus-signature-face ((t (:italic t :bold t))))
+ (gnus-splash ((t (nil))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-high-unread-face ((t (:italic t :bold t))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+ (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
+ (gnus-summary-low-unread-face ((t (:italic t))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-summary-normal-unread-face ((t (:bold t))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (gnus-x-face ((t (:background "white" :foreground "black"))))
+ (green ((t (:bold t :foreground "green"))))
+ (gui-button-face ((t (:bold t :background "grey75" :foreground "black"))))
+ (gui-element ((t (:bold t :background "Gray80"))))
+ (highlight ((t (:bold t :background "darkseagreen2"))))
+ (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+ (highlight-changes-face ((t (:foreground "red"))))
+ (highline-face ((t (:background "black" :foreground "white"))))
+ (holiday-face ((t (:bold t :background "pink" :foreground "white"))))
+ (hproperty:but-face ((t (:bold t))))
+ (hproperty:flash-face ((t (:bold t))))
+ (hproperty:highlight-face ((t (:bold t))))
+ (hproperty:item-face ((t (:bold t))))
+ (html-helper-bold-face ((t (:bold t))))
+ (html-helper-bold-italic-face ((t (nil))))
+ (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
+ (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow"))))
+ (html-helper-underline-face ((t (:underline t))))
+ (html-tag-face ((t (:bold t))))
+ (hyper-apropos-documentation ((t (:foreground "white"))))
+ (hyper-apropos-heading ((t (:bold t))))
+ (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+ (hyper-apropos-major-heading ((t (:bold t))))
+ (hyper-apropos-section-heading ((t (:bold t))))
+ (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+ (ibuffer-marked-face ((t (:foreground "red"))))
+ (info-menu-5 ((t (:underline t :bold t))))
+ (info-menu-6 ((t (nil))))
+ (info-node ((t (:italic t :bold t))))
+ (info-xref ((t (:bold t))))
+ (isearch ((t (:bold t :background "paleturquoise"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (ispell-face ((t (:bold t))))
+ (italic ((t (:italic t :bold t))))
+ (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+ (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+ (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
+ (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+ (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+ (left-margin ((t (:bold t))))
+ (linemenu-face ((t (nil))))
+ (list-mode-item-selected ((t (:bold t :background "gray68"))))
+ (magenta ((t (:foreground "magenta"))))
+ (makefile-space-face ((t (:background "hotpink"))))
+ (man-bold ((t (:bold t))))
+ (man-heading ((t (:bold t))))
+ (man-italic ((t (:foreground "yellow"))))
+ (man-xref ((t (:underline t))))
+ (message-cited-text ((t (:bold t :foreground "orange"))))
+ (message-cited-text-face ((t (:bold t :foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
+ (message-header-contents ((t (:italic t :bold t :foreground "white"))))
+ (message-header-name-face ((t (:bold t :foreground "cornflower blue"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+ (message-header-other-face ((t (:bold t :foreground "steel blue"))))
+ (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+ (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+ (message-header-xheader-face ((t (:bold t :foreground "blue"))))
+ (message-headers ((t (:bold t :foreground "orange"))))
+ (message-highlighted-header-contents ((t (:bold t))))
+ (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
+ (message-separator-face ((t (:foreground "brown"))))
+ (message-url ((t (:bold t :foreground "pink"))))
+ (mmm-face ((t (:background "black" :foreground "green"))))
+ (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193"))))
+ (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4"))))
+ (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick"))))
+ (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4"))))
+ (my-tab-face ((t (nil))))
+ (nil ((t (nil))))
+ (p4-diff-del-face ((t (:bold t))))
+ (paren-blink-off ((t (:foreground "gray80"))))
+ (paren-face ((t (nil))))
+ (paren-face-match ((t (nil))))
+ (paren-face-mismatch ((t (nil))))
+ (paren-face-no-match ((t (nil))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+ (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white"))))
+ (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white"))))
+ (pointer ((t (:bold t))))
+ (primary-selection ((t (:bold t :background "gray65"))))
+ (red ((t (:bold t :foreground "red"))))
+ (region ((t (:bold t :background "gray"))))
+ (right-margin ((t (:bold t))))
+ (searchm-buffer ((t (:bold t))))
+ (searchm-button ((t (:bold t))))
+ (searchm-field ((t (nil))))
+ (searchm-field-label ((t (:bold t))))
+ (searchm-highlight ((t (:bold t))))
+ (secondary-selection ((t (:bold t :background "paleturquoise"))))
+ (semantic-intangible-face ((t (:foreground "gray25"))))
+ (semantic-read-only-face ((t (:background "gray25"))))
+ (senator-momentary-highlight-face ((t (:background "gray70"))))
+ (setnu-line-number-face ((t (:italic t :bold t))))
+ (sgml-comment-face ((t (:foreground "dark green"))))
+ (sgml-doctype-face ((t (:foreground "maroon"))))
+ (sgml-end-tag-face ((t (:foreground "blue2"))))
+ (sgml-entity-face ((t (:foreground "red2"))))
+ (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
+ (sgml-ms-end-face ((t (:foreground "maroon"))))
+ (sgml-ms-start-face ((t (:foreground "maroon"))))
+ (sgml-pi-face ((t (:foreground "maroon"))))
+ (sgml-sgml-face ((t (:foreground "maroon"))))
+ (sgml-short-ref-face ((t (:foreground "goldenrod"))))
+ (sgml-start-tag-face ((t (:foreground "blue2"))))
+ (shell-input-face ((t (:bold t))))
+ (shell-option-face ((t (:bold t :foreground "blue4"))))
+ (shell-output-2-face ((t (:bold t :foreground "green4"))))
+ (shell-output-3-face ((t (:bold t :foreground "green4"))))
+ (shell-output-face ((t (:bold t))))
+ (shell-prompt-face ((t (:bold t :foreground "red4"))))
+ (show-paren-match-face ((t (:bold t :background "turquoise"))))
+ (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
+ (speedbar-button-face ((t (:bold t :foreground "magenta"))))
+ (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
+ (speedbar-file-face ((t (:bold t :foreground "pink"))))
+ (speedbar-highlight-face ((t (:background "black"))))
+ (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
+ (speedbar-tag-face ((t (:foreground "yellow"))))
+ (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+ (template-message-face ((t (:bold t))))
+ (term-black ((t (:foreground "black"))))
+ (term-blackbg ((t (:background "black"))))
+ (term-blue ((t (:foreground "blue"))))
+ (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
+ (term-blue-face ((t (:foreground "blue"))))
+ (term-blue-inv-face ((t (:background "blue"))))
+ (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
+ (term-bluebg ((t (:background "blue"))))
+ (term-bold ((t (:bold t))))
+ (term-cyan ((t (:foreground "cyan"))))
+ (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
+ (term-cyan-face ((t (:foreground "cyan"))))
+ (term-cyan-inv-face ((t (:background "cyan"))))
+ (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
+ (term-cyanbg ((t (:background "cyan"))))
+ (term-default-bg ((t (nil))))
+ (term-default-bg-inv ((t (nil))))
+ (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
+ (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
+ (term-default-fg ((t (nil))))
+ (term-default-fg-inv ((t (nil))))
+ (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
+ (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
+ (term-green ((t (:foreground "green"))))
+ (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
+ (term-green-face ((t (:foreground "green"))))
+ (term-green-inv-face ((t (:background "green"))))
+ (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
+ (term-greenbg ((t (:background "green"))))
+ (term-invisible ((t (nil))))
+ (term-invisible-inv ((t (nil))))
+ (term-magenta ((t (:foreground "magenta"))))
+ (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
+ (term-magenta-face ((t (:foreground "magenta"))))
+ (term-magenta-inv-face ((t (:background "magenta"))))
+ (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
+ (term-magentabg ((t (:background "magenta"))))
+ (term-red ((t (:foreground "red"))))
+ (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
+ (term-red-face ((t (:foreground "red"))))
+ (term-red-inv-face ((t (:background "red"))))
+ (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
+ (term-redbg ((t (:background "red"))))
+ (term-underline ((t (:underline t))))
+ (term-white ((t (:foreground "white"))))
+ (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
+ (term-white-face ((t (:foreground "white"))))
+ (term-white-inv-face ((t (:background "snow2"))))
+ (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
+ (term-whitebg ((t (:background "white"))))
+ (term-yellow ((t (:foreground "yellow"))))
+ (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
+ (term-yellow-face ((t (:foreground "yellow"))))
+ (term-yellow-inv-face ((t (:background "yellow"))))
+ (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
+ (term-yellowbg ((t (:background "yellow"))))
+ (text-cursor ((t (:bold t :background "Red3" :foreground "gray80"))))
+ (toolbar ((t (:bold t :background "Gray80"))))
+ (underline ((t (:underline t :bold t))))
+ (vc-annotate-face-0046FF ((t (nil))))
+ (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+ (vertical-divider ((t (:bold t :background "Gray80"))))
+ (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+ (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+ (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+ (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+ (vhdl-font-lock-generic-/constant-face ((t (nil))))
+ (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+ (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+ (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+ (vhdl-font-lock-type-face ((t (nil))))
+ (vhdl-font-lock-variable-face ((t (nil))))
+ (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+ (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+ (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+ (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+ (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+ (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+ (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+ (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+ (vhdl-speedbar-subprogram-face ((t (nil))))
+ (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+ (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+ (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+ (vm-xface ((t (:background "white" :foreground "black"))))
+ (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
+ (vmpc-sig-face ((t (:foreground "steelblue"))))
+ (vvb-face ((t (nil))))
+ (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
+ (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
+ (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+ (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+ (white ((t (:foreground "white"))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:bold t :foreground "red"))))
+ (widget-documentation-face ((t (:bold t :foreground "dark green"))))
+ (widget-field-face ((t (:bold t :background "gray85"))))
+ (widget-inactive-face ((t (:bold t :foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "gray85"))))
+ (woman-bold-face ((t (:bold t))))
+ (woman-italic-face ((t (:foreground "beige"))))
+ (woman-unknown-face ((t (:foreground "LightSalmon"))))
+ (x-face ((t (:bold t :background "white" :foreground "black"))))
+ (x-symbol-adobe-fontspecific-face ((t (nil))))
+ (x-symbol-face ((t (nil))))
+ (x-symbol-heading-face ((t (:bold t))))
+ (x-symbol-info-face ((t (nil))))
+ (x-symbol-invisible-face ((t (nil))))
+ (x-symbol-revealed-face ((t (nil))))
+ (xrdb-option-name-face ((t (:foreground "red"))))
+ (xref-keyword-face ((t (:foreground "blue"))))
+ (xref-list-default-face ((t (nil))))
+ (xref-list-pilot-face ((t (:foreground "navy"))))
+ (xref-list-symbol-face ((t (:foreground "navy"))))
+ (yellow ((t (:bold t :foreground "yellow"))))
+ (zmacs-region ((t (:bold t :background "gray65")))))))
+
+(defun color-theme-mistyday ()
+ "Color theme by K.C. Hari Kumar, created 2001-06-13.
+Black on mistyrose. Includes CUA, calendar, diary, font-latex and
+font-lock. Uses backgrounds on some font-lock faces."
+ (interactive)
+ (color-theme-install
+ '(color-theme-mistyday
+ ((background-color . "mistyrose")
+ (background-mode . light)
+ (border-color . "black")
+ (cursor-color . "deep pink")
+ (foreground-color . "Black")
+ (mouse-color . "black"))
+ ((goto-address-mail-face . italic)
+ (goto-address-mail-mouse-face . secondary-selection)
+ (goto-address-url-face . bold)
+ (goto-address-url-mouse-face . highlight)
+ (list-matching-lines-face . bold)
+ (paren-match-face . paren-face-match)
+ (paren-mismatch-face . paren-face-mismatch)
+ (paren-no-match-face . paren-face-no-match))
+ (default ((t (nil))))
+ (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
+ (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
+ (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:italic t :bold t))))
+ (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown"))))
+ (custom-button-face ((t (:background "dark slate grey" :foreground "azure"))))
+ (custom-documentation-face ((t (:background "white" :foreground "blue"))))
+ (diary-face ((t (:background "navy" :foreground "yellow"))))
+ (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen"))))
+ (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen"))))
+ (font-latex-math-face ((t (:foreground "navy"))))
+ (font-latex-sedate-face ((t (:foreground "DimGray"))))
+ (font-latex-string-face ((t (nil))))
+ (font-latex-warning-face ((t (nil))))
+ (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
+ (font-lock-comment-face ((t (:italic t :foreground "royal blue"))))
+ (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue"))))
+ (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
+ (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue"))))
+ (font-lock-keyword-face ((t (:foreground "dark magenta"))))
+ (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue"))))
+ (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
+ (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
+ (font-lock-type-face ((t (:background "steel blue" :foreground "khaki"))))
+ (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red"))))
+ (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red"))))
+ (highlight ((t (:background "dark slate grey" :foreground "light cyan"))))
+ (holiday-face ((t (:background "orangered" :foreground "lightyellow"))))
+ (ido-first-match-face ((t (:bold t))))
+ (ido-only-match-face ((t (:foreground "ForestGreen"))))
+ (ido-subdir-face ((t (:foreground "red"))))
+ (italic ((t (:italic t))))
+ (isearch ((t (:background "sienna" :foreground "light cyan"))))
+ (modeline ((t (:background "Royalblue4" :foreground "lawn green"))))
+ (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green"))))
+ (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green"))))
+ (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green"))))
+ (paren-face-match ((t (:background "turquoise"))))
+ (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+ (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+ (primary-selection ((t (:background "sienna" :foreground "light cyan"))))
+ (region ((t (:background "sienna" :foreground "light cyan"))))
+ (secondary-selection ((t (:background "forest green" :foreground "white smoke"))))
+ (underline ((t (:underline t))))
+ (zmacs-region ((t (:background "sienna" :foreground "light cyan")))))))
+
+(defun color-theme-marine ()
+ "Color theme by Girish Bharadwaj, created 2001-06-22.
+Matches the MS Windows Marine color theme.
+Includes custom, font-lock, paren, widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-marine
+ ((background-color . "#9dcec9")
+ (background-mode . light)
+ (border-color . "black")
+ (cursor-color . "yellow")
+ (foreground-color . "darkslategray")
+ (mouse-color . "sienna1"))
+ ((buffers-tab-face . buffers-tab)
+ (gnus-mouse-face . highlight)
+ (smiley-mouse-face . highlight))
+ (default ((t (nil))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (nil))))
+ (border-glyph ((t (nil))))
+ (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray"))))
+ (custom-button-face ((t (nil))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "gray85"))))
+ (custom-comment-tag-face ((t (:foreground "blue4"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "darkgreen"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "red"))))
+ (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
+ (font-lock-comment-face ((t (:foreground "cadetblue"))))
+ (font-lock-constant-face ((t (:foreground "OrangeRed"))))
+ (font-lock-doc-string-face ((t (:foreground "Salmon"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "purple"))))
+ (font-lock-preprocessor-face ((t (:foreground "SteelBlue"))))
+ (font-lock-reference-face ((t (:foreground "SteelBlue"))))
+ (font-lock-string-face ((t (:foreground "royalblue"))))
+ (font-lock-type-face ((t (:foreground "darkmagenta"))))
+ (font-lock-variable-name-face ((t (:foreground "violetred"))))
+ (font-lock-warning-face ((t (:bold t :foreground "red"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "black"))))
+ (gui-element ((t (:background "#489088" :foreground "black"))))
+ (highlight ((t (:background "darkolivegreen" :foreground "white"))))
+ (isearch ((t (:background "blue"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (nil))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
+ (modeline ((t (:background "black" :foreground "white"))))
+ (modeline-buffer-id ((t (:background "black" :foreground "white"))))
+ (modeline-mousable ((t (:background "black" :foreground "white"))))
+ (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
+ (paren-blink-off ((t (:foreground "black"))))
+ (paren-match ((t (:background "darkolivegreen" :foreground "white"))))
+ (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray"))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "blue"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "blue"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "darkslateblue" :foreground "white"))))
+ (template-message-face ((t (:bold t))))
+ (text-cursor ((t (:background "yellow" :foreground "#9dcec9"))))
+ (toolbar ((t (nil))))
+ (underline ((t (:underline t))))
+ (vertical-divider ((t (nil))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "forestgreen"))))
+ (widget-field-face ((t (:background "gray"))))
+ (widget-inactive-face ((t (:foreground "dimgray"))))
+ (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "blue")))))))
+
+(defun color-theme-blue-erc ()
+ "Color theme for erc faces only.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+ (color-theme-install
+ '(color-theme-blue-erc
+ nil
+ (erc-action-face ((t (nil))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-current-nick-face ((t (:bold t :foreground "yellow"))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "pale green"))))
+ (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+ (erc-highlight-face ((t (:bold t :foreground "pale green"))))
+ (erc-input-face ((t (:foreground "light blue"))))
+ (erc-inverse-face ((t (:background "steel blue"))))
+ (erc-keyword-face ((t (:foreground "orange" :bold t))))
+ (erc-notice-face ((t (:foreground "light salmon"))))
+ (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+ (erc-pal-face ((t (:foreground "pale green"))))
+ (erc-prompt-face ((t (:foreground "light blue" :bold t))))
+ (fg:erc-color-face0 ((t (:foreground "white"))))
+ (fg:erc-color-face1 ((t (:foreground "beige"))))
+ (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+ (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+ (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+ (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+ (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+ (fg:erc-color-face7 ((t (:foreground "pale green"))))
+ (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+ (fg:erc-color-face9 ((t (:foreground "khaki"))))
+ (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+ (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+ (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+ (fg:erc-color-face13 ((t (:foreground "yellow"))))
+ (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+ (fg:erc-color-face15 ((t (:foreground "lime green"))))
+ (bg:erc-color-face0 ((t (nil))))
+ (bg:erc-color-face1 ((t (nil))))
+ (bg:erc-color-face2 ((t (nil))))
+ (bg:erc-color-face3 ((t (nil))))
+ (bg:erc-color-face4 ((t (nil))))
+ (bg:erc-color-face5 ((t (nil))))
+ (bg:erc-color-face6 ((t (nil))))
+ (bg:erc-color-face7 ((t (nil))))
+ (bg:erc-color-face8 ((t (nil))))
+ (bg:erc-color-face9 ((t (nil))))
+ (bg:erc-color-face10 ((t (nil))))
+ (bg:erc-color-face11 ((t (nil))))
+ (bg:erc-color-face12 ((t (nil))))
+ (bg:erc-color-face13 ((t (nil))))
+ (bg:erc-color-face14 ((t (nil))))
+ (bg:erc-color-face15 ((t (nil)))))))
+
+(defun color-theme-dark-erc ()
+ "Color theme for erc faces only.
+This is intended for other color themes to use (eg. `color-theme-late-night')."
+ (interactive)
+ (color-theme-install
+ '(color-theme-dark-erc
+ nil
+ (erc-action-face ((t (nil))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-current-nick-face ((t (:bold t))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (nil))))
+ (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+ (erc-highlight-face ((t (:bold t :foreground "pale green"))))
+ (erc-input-face ((t (:foreground "#555"))))
+ (erc-inverse-face ((t (:background "steel blue"))))
+ (erc-keyword-face ((t (:foreground "#999" :bold t))))
+ (erc-nick-msg-face ((t (:foreground "#888"))))
+ (erc-notice-face ((t (:foreground "#444"))))
+ (erc-pal-face ((t (:foreground "#888"))))
+ (erc-prompt-face ((t (:foreground "#777" :bold t))))
+ (erc-timestamp-face ((t (:foreground "#777" :bold t))))
+ (fg:erc-color-face0 ((t (:foreground "white"))))
+ (fg:erc-color-face1 ((t (:foreground "beige"))))
+ (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+ (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+ (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+ (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+ (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+ (fg:erc-color-face7 ((t (:foreground "pale green"))))
+ (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+ (fg:erc-color-face9 ((t (:foreground "khaki"))))
+ (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+ (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+ (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+ (fg:erc-color-face13 ((t (:foreground "yellow"))))
+ (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+ (fg:erc-color-face15 ((t (:foreground "lime green"))))
+ (bg:erc-color-face0 ((t (nil))))
+ (bg:erc-color-face1 ((t (nil))))
+ (bg:erc-color-face2 ((t (nil))))
+ (bg:erc-color-face3 ((t (nil))))
+ (bg:erc-color-face4 ((t (nil))))
+ (bg:erc-color-face5 ((t (nil))))
+ (bg:erc-color-face6 ((t (nil))))
+ (bg:erc-color-face7 ((t (nil))))
+ (bg:erc-color-face8 ((t (nil))))
+ (bg:erc-color-face9 ((t (nil))))
+ (bg:erc-color-face10 ((t (nil))))
+ (bg:erc-color-face11 ((t (nil))))
+ (bg:erc-color-face12 ((t (nil))))
+ (bg:erc-color-face13 ((t (nil))))
+ (bg:erc-color-face14 ((t (nil))))
+ (bg:erc-color-face15 ((t (nil)))))))
+
+(defun color-theme-subtle-blue ()
+ "Color theme by Chris McMahan, created 2001-09-06.
+Light blue background. Includes bbdb, comint, cperl, custom, cvs,
+diary, dired, display-time, ecb, ediff, erc, eshell, font-lock,
+gnus, html-helper, info, isearch, jde, message, paren, semantic,
+sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml."
+ (interactive)
+ (color-theme-install
+ '(color-theme-subtle-blue
+ ((background-color . "#65889C")
+ (background-mode . dark)
+ (background-toolbar-color . "#cf3ccf3ccf3c")
+ (border-color . "black")
+ (bottom-toolbar-shadow-color . "#79e77df779e7")
+ (cursor-color . "white")
+ (foreground-color . "#eedfcc")
+ (mouse-color . "Grey")
+ (top-toolbar-shadow-color . "#fffffbeeffff")
+ (viper-saved-cursor-color-in-replace-mode . "Red3"))
+ ((blank-space-face . blank-space-face)
+ (blank-tab-face . blank-tab-face)
+ (ecb-source-in-directories-buffer-face . ecb-sources-face)
+ (gnus-mouse-face . highlight)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight)
+ (vm-highlight-url-face . my-url-face)
+ (vm-highlighted-header-face . my-url-face)
+ (vm-mime-button-face . gui-button-face)
+ (vm-summary-highlight-face . my-summary-highlight-face))
+ (default ((t (nil))))
+ (bbdb-company ((t (:italic t))))
+ (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine"))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (blank-space-face ((t (:background "gray80"))))
+ (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray"))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t :foreground "MediumAquamarine"))))
+ (bold-italic ((t (:italic t :bold t :foreground "SkyBlue"))))
+ (border ((t (:background "black"))))
+ (border-glyph ((t (nil))))
+ (calendar-today-face ((t (:underline t))))
+ (comint-highlight-input ((t (:bold t))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (comint-input-face ((t (:foreground "deepskyblue"))))
+ (cperl-array-face ((t (:bold t :foreground "Yellow"))))
+ (cperl-hash-face ((t (:italic t :bold t :foreground "White"))))
+ (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+ (cursor ((t (:background "white"))))
+ (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine"))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "dim gray"))))
+ (custom-comment-tag-face ((t (:foreground "gray80"))))
+ (custom-documentation-face ((t (:foreground "Grey"))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine"))))
+ (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "yellow"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine"))))
+ (cvs-filename-face ((t (:foreground "blue4"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "blue4"))))
+ (cvs-marked-face ((t (:bold t :foreground "green3"))))
+ (cvs-msg-face ((t (:italic t))))
+ (cvs-need-action-face ((t (:foreground "orange"))))
+ (cvs-unknown-face ((t (:foreground "red"))))
+ (diary-face ((t (:bold t :foreground "cyan"))))
+ (dired-face-boring ((t (:foreground "Gray65"))))
+ (dired-face-directory ((t (:bold t :foreground "sky blue"))))
+ (dired-face-executable ((t (:foreground "MediumAquaMarine"))))
+ (dired-face-flagged ((t (:foreground "Cyan"))))
+ (dired-face-marked ((t (:foreground "cyan"))))
+ (dired-face-permissions ((t (:foreground "aquamarine"))))
+ (dired-face-setuid ((t (:foreground "LightSalmon"))))
+ (dired-face-socket ((t (:foreground "LightBlue"))))
+ (dired-face-symlink ((t (:foreground "gray95"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "red"))))
+ (ecb-sources-face ((t (:foreground "LightBlue1"))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white"))))
+ (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+ (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black"))))
+ (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black"))))
+ (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White"))))
+ (erc-action-face ((t (:bold t))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
+ (erc-error-face ((t (:bold t :foreground "yellow"))))
+ (erc-input-face ((t (:foreground "Beige"))))
+ (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+ (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+ (erc-pal-face ((t (:foreground "PaleGreen"))))
+ (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+ (erc-underline-face ((t (:underline t))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "wheat"))))
+ (eshell-ls-backup-face ((t (:foreground "Grey"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "wheat"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Yellow"))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "wheat"))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "wheat"))))
+ (eshell-ls-picture-face ((t (:foreground "wheat"))))
+ (eshell-ls-product-face ((t (:foreground "wheat"))))
+ (eshell-ls-readonly-face ((t (:foreground "wheat"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "wheat"))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
+ (eshell-ls-text-face ((t (:foreground "wheat"))))
+ (eshell-ls-todo-face ((t (:foreground "wheat"))))
+ (eshell-ls-unreadable-face ((t (:foreground "wheat3"))))
+ (eshell-prompt-face ((t (:bold t :foreground "PaleGreen"))))
+ (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+ (excerpt ((t (:italic t))))
+ (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+ (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+ (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+ (font-latex-italic-face ((t (nil))))
+ (font-latex-math-face ((t (nil))))
+ (font-latex-sedate-face ((t (:foreground "Gray85"))))
+ (font-latex-string-face ((t (:foreground "orange"))))
+ (font-latex-warning-face ((t (:foreground "gold"))))
+ (font-lock-builtin-face ((t (:foreground "PaleGreen"))))
+ (font-lock-comment-face ((t (:italic t :foreground "Wheat3"))))
+ (font-lock-constant-face ((t (:foreground "LightBlue"))))
+ (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen"))))
+ (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen"))))
+ (font-lock-exit-face ((t (:foreground "green"))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "LightBlue"))))
+ (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+ (font-lock-reference-face ((t (:foreground "PaleGreen"))))
+ (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine"))))
+ (font-lock-type-face ((t (:bold t :foreground "LightBlue"))))
+ (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue"))))
+ (font-lock-warning-face ((t (:bold t :foreground "LightSalmon"))))
+ (fringe ((t (:background "darkslategrey"))))
+ (gnus-cite-attribution-face ((t (:italic t :bold t))))
+ (gnus-cite-face-1 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-10 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-11 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-2 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-3 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-4 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-5 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-6 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-7 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-8 ((t (:foreground "LightBlue"))))
+ (gnus-cite-face-9 ((t (:foreground "LightBlue"))))
+ (gnus-emphasis-bold ((t (:bold t))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (:italic t))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+ (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+ (gnus-filterhist-face-1 ((t (nil))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine"))))
+ (gnus-group-news-3-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
+ (gnus-group-news-4-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-4-face ((t (:bold t :foreground "Wheat"))))
+ (gnus-group-news-5-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
+ (gnus-group-news-6-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
+ (gnus-group-news-low-empty-face ((t (:foreground "gray80"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
+ (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3"))))
+ (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
+ (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
+ (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+ (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
+ (gnus-picons-face ((t (:background "white" :foreground "black"))))
+ (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+ (gnus-signature-face ((t (:italic t :foreground "LightBlue"))))
+ (gnus-splash ((t (:foreground "Brown"))))
+ (gnus-splash-face ((t (:foreground "LightBlue"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "gray80"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
+ (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat"))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue"))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green"))))
+ (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue"))))
+ (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "gray80"))))
+ (gnus-summary-normal-read-face ((t (:foreground "gray80"))))
+ (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown"))))
+ (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat"))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (gnus-x-face ((t (:background "white" :foreground "black"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "cyan" :foreground "#65889C"))))
+ (gui-element ((t (:background "Gray"))))
+ (header-line ((t (:background "grey20" :foreground "grey90"))))
+ (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+ (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+ (highlight-changes-face ((t (:foreground "red"))))
+ (highline-face ((t (:background "SeaGreen"))))
+ (holiday-face ((t (:background "DimGray"))))
+ (html-helper-bold-face ((t (:foreground "DarkRed"))))
+ (html-helper-italic-face ((t (:foreground "DarkBlue"))))
+ (html-helper-underline-face ((t (:underline t :foreground "Black"))))
+ (html-tag-face ((t (:foreground "Blue"))))
+ (info-menu-5 ((t (:underline t))))
+ (info-node ((t (:underline t :italic t :bold t :foreground "light blue"))))
+ (info-xref ((t (:bold t :foreground "light blue"))))
+ (isearch ((t (:background "Aquamarine" :foreground "SteelBlue"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (:italic t))))
+ (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+ (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+ (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-bold-face ((t (:bold t))))
+ (jde-java-font-lock-code-face ((t (nil))))
+ (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-italic-face ((t (:italic t))))
+ (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue"))))
+ (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-number-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-pre-face ((t (nil))))
+ (jde-java-font-lock-underline-face ((t (:underline t))))
+ (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+ (left-margin ((t (nil))))
+ (linemenu-face ((t (:background "gray30"))))
+ (list-mode-item-selected ((t (nil))))
+ (makefile-space-face ((t (:background "hotpink"))))
+ (menu ((t (:background "wheat" :foreground "gray30"))))
+ (message-cited-text-face ((t (:foreground "White"))))
+ (message-header-cc-face ((t (:bold t :foreground "light cyan"))))
+ (message-header-name-face ((t (:foreground "LightBlue"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+ (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+ (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
+ (message-header-to-face ((t (:bold t :foreground "light cyan"))))
+ (message-header-xheader-face ((t (:foreground "LightBlue"))))
+ (message-mml-face ((t (:bold t :foreground "LightBlue"))))
+ (message-separator-face ((t (:foreground "LightBlue"))))
+ (mmm-default-submode-face ((t (:background "#c0c0c5"))))
+ (modeline ((t (:background "#4f657d" :foreground "gray80"))))
+ (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80"))))
+ (modeline-mousable ((t (:background "#4f657d" :foreground "gray80"))))
+ (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80"))))
+ (mouse ((t (:background "Grey"))))
+ (my-summary-highlight-face ((t (:foreground "White"))))
+ (my-url-face ((t (:foreground "PaleTurquoise"))))
+ (nil ((t (nil))))
+ (paren-blink-off ((t (:foreground "gray"))))
+ (paren-face-match ((t (:background "turquoise"))))
+ (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+ (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+ (paren-mismatch-face ((t (:bold t))))
+ (paren-no-match-face ((t (:bold t))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray65"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "CadetBlue" :foreground "gray80"))))
+ (right-margin ((t (nil))))
+ (scroll-bar ((t (nil))))
+ (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d"))))
+ (semantic-dirty-token-face ((t (:background "gray10"))))
+ (semantic-intangible-face ((t (:foreground "gray25"))))
+ (semantic-read-only-face ((t (:background "gray25"))))
+ (senator-intangible-face ((t (:foreground "gray75"))))
+ (senator-momentary-highlight-face ((t (:background "gray80"))))
+ (senator-read-only-face ((t (:background "#664444"))))
+ (sgml-comment-face ((t (:foreground "dark turquoise"))))
+ (sgml-doctype-face ((t (:foreground "red"))))
+ (sgml-end-tag-face ((t (:foreground "blue"))))
+ (sgml-entity-face ((t (:foreground "magenta"))))
+ (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+ (sgml-ms-end-face ((t (:foreground "green"))))
+ (sgml-ms-start-face ((t (:foreground "yellow"))))
+ (sgml-pi-face ((t (:foreground "lime green"))))
+ (sgml-sgml-face ((t (:foreground "brown"))))
+ (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+ (sgml-start-tag-face ((t (:foreground "dark green"))))
+ (shell-option-face ((t (:foreground "blue"))))
+ (shell-output-2-face ((t (:foreground "darkseagreen"))))
+ (shell-output-3-face ((t (:foreground "slategray"))))
+ (shell-output-face ((t (:foreground "palegreen"))))
+ (shell-prompt-face ((t (:foreground "red"))))
+ (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue"))))
+ (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White"))))
+ (speedbar-button-face ((t (:bold t :foreground "LightBlue"))))
+ (speedbar-directory-face ((t (:bold t :foreground "yellow"))))
+ (speedbar-file-face ((t (:bold t :foreground "wheat"))))
+ (speedbar-highlight-face ((t (:background "sea green"))))
+ (speedbar-selected-face ((t (:underline t))))
+ (speedbar-tag-face ((t (:foreground "LightBlue"))))
+ (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+ (template-message-face ((t (:bold t))))
+ (term-black ((t (:foreground "black"))))
+ (term-blackbg ((t (:background "black"))))
+ (term-blue ((t (:foreground "blue"))))
+ (term-bluebg ((t (:background "blue"))))
+ (term-bold ((t (:bold t))))
+ (term-cyan ((t (:foreground "cyan"))))
+ (term-cyanbg ((t (:background "cyan"))))
+ (term-default-bg ((t (nil))))
+ (term-default-bg-inv ((t (nil))))
+ (term-default-fg ((t (nil))))
+ (term-default-fg-inv ((t (nil))))
+ (term-green ((t (:foreground "green"))))
+ (term-greenbg ((t (:background "green"))))
+ (term-invisible ((t (nil))))
+ (term-invisible-inv ((t (nil))))
+ (term-magenta ((t (:foreground "magenta"))))
+ (term-magentabg ((t (:background "magenta"))))
+ (term-red ((t (:foreground "red"))))
+ (term-redbg ((t (:background "red"))))
+ (term-underline ((t (:underline t))))
+ (term-white ((t (:foreground "white"))))
+ (term-whitebg ((t (:background "white"))))
+ (term-yellow ((t (:foreground "yellow"))))
+ (term-yellowbg ((t (:background "yellow"))))
+ (text-cursor ((t (:background "Red3" :foreground "white"))))
+ (tool-bar ((t (:background "grey75" :foreground "black"))))
+ (toolbar ((t (:background "Gray"))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (nil))))
+ (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
+ (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+ (vertical-divider ((t (:background "Gray"))))
+ (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+ (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+ (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+ (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+ (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+ (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+ (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+ (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+ (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+ (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+ (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+ (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+ (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+ (vhdl-speedbar-package-face ((t (:foreground "Gray50"))))
+ (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50"))))
+ (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+ (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen"))))
+ (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+ (vm-header-content-face ((t (:italic t :foreground "gray80"))))
+ (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan"))))
+ (vm-header-name-face ((t (:foreground "cyan"))))
+ (vm-header-subject-face ((t (:foreground "cyan"))))
+ (vm-header-to-face ((t (:italic t :foreground "cyan"))))
+ (vm-message-cited-face ((t (:foreground "Gray80"))))
+ (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-highlight-face ((t (:foreground "White"))))
+ (vmpc-pre-sig-face ((t (:foreground "Aquamarine"))))
+ (vmpc-sig-face ((t (:foreground "LightBlue"))))
+ (vvb-face ((t (:background "pink" :foreground "black"))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "cyan"))))
+ (widget-documentation-face ((t (:foreground "LightBlue"))))
+ (widget-field-face ((t (:foreground "LightBlue"))))
+ (widget-inactive-face ((t (:foreground "Wheat3"))))
+ (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+ (woman-bold-face ((t (:bold t))))
+ (woman-italic-face ((t (:foreground "beige"))))
+ (woman-unknown-face ((t (:foreground "LightSalmon"))))
+ (xref-keyword-face ((t (:foreground "Cyan"))))
+ (xref-list-pilot-face ((t (:foreground "navy"))))
+ (xref-list-symbol-face ((t (:foreground "navy"))))
+ (xxml-emph-1-face ((t (:background "lightyellow"))))
+ (xxml-emph-2-face ((t (:background "lightyellow"))))
+ (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
+ (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
+ (xxml-header-3-face ((t (:background "seashell1"))))
+ (xxml-header-4-face ((t (:background "seashell1"))))
+ (xxml-interaction-face ((t (:background "lightcyan"))))
+ (xxml-rug-face ((t (:background "cyan"))))
+ (xxml-sparkle-face ((t (:background "yellow"))))
+ (xxml-unbreakable-space-face ((t (:underline t :foreground "grey"))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "#4f657d")))))))
+
+(defun color-theme-dark-blue ()
+ "Color theme by Chris McMahan, created 2001-09-09.
+Based on `color-theme-subtle-blue' with a slightly darker background."
+ (interactive)
+ (color-theme-subtle-blue)
+ (let ((color-theme-is-cumulative t))
+ (color-theme-install
+ '(color-theme-dark-blue
+ ((background-color . "#537182")
+ (foreground-color . "AntiqueWhite2"))
+ nil
+ (default ((t (nil))))
+ (blank-space-face ((t (:background "LightGray"))))
+ (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray"))))
+ (cursor ((t (:background "LightGray"))))
+ (dired-face-executable ((t (:foreground "green yellow"))))
+ (dired-face-flagged ((t (:foreground "tomato"))))
+ (dired-face-marked ((t (:foreground "light salmon"))))
+ (dired-face-setuid ((t (:foreground "Red"))))
+ (dired-face-socket ((t (:foreground "magenta"))))
+ (fixed ((t (:bold t))))
+ (font-lock-comment-face ((t (:italic t :foreground "Gray80"))))
+ (font-lock-doc-face ((t (:bold t))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow"))))
+ (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen"))))
+ (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
+ (gui-button-face ((t (:background "DarkSalmon" :foreground "white"))))
+ (modeline ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+ (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+ (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+ (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+ (my-url-face ((t (:foreground "LightBlue"))))
+ (region ((t (:background "PaleTurquoise4" :foreground "gray80"))))
+ (secondary-selection ((t (:background "sea green" :foreground "yellow"))))
+ (vm-header-content-face ((t (:italic t :foreground "wheat"))))
+ (vm-header-from-face ((t (:italic t :foreground "wheat"))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (xref-keyword-face ((t (:foreground "blue"))))
+ (zmacs-region ((t (:background "SlateGray"))))))))
+
+(defun color-theme-jonadabian-slate ()
+ "Another slate-and-wheat color theme by Jonadab the Unsightly One.
+Updated 2001-10-12."
+ (interactive)
+ (color-theme-install
+ '(color-theme-jonadabian-slate
+ ((background-color . "#305050")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "medium turquoise")
+ (foreground-color . "#CCBB77")
+ (mouse-color . "black"))
+ ((list-matching-lines-face . bold)
+ (ued-mode-keyname-face . modeline)
+ (view-highlight-face . highlight))
+ (default ((t (nil))))
+ (fringe ((t (:background "#007080"))))
+ (bold ((t (:bold t :foreground "#EEDDAA"))))
+ (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA"))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA"))))
+ (bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
+ (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
+ (calendar-today-face ((t (:underline t :background "darkslategrey"))))
+ (cperl-array-face ((t (:background "#004060"))))
+ (cperl-hash-face ((t (:background "#004400"))))
+ (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00"))))
+ (custom-documentation-face ((t (:foreground "#10D010"))))
+ (custom-face-tag-face ((t (:underline t :foreground "goldenrod"))))
+ (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:foreground "#6666dd"))))
+ (custom-state-face ((t (:foreground "mediumaquamarine"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+ (diary-face ((t (:foreground "red"))))
+ (eshell-ls-archive-face ((t (:foreground "green"))))
+ (eshell-ls-backup-face ((t (:foreground "grey60"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue"))))
+ (eshell-ls-executable-face ((t (:foreground "white"))))
+ (eshell-ls-missing-face ((t (:foreground "red"))))
+ (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+ (eshell-ls-readonly-face ((t (:foreground "indian red"))))
+ (eshell-ls-special-face ((t (:foreground "yellow"))))
+ (eshell-ls-symlink-face ((t (:foreground "#6666dd"))))
+ (eshell-ls-unreadable-face ((t (:foreground "red"))))
+ (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99"))))
+ (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66"))))
+ (font-lock-constant-face ((t (:foreground "indian red"))))
+ (font-lock-function-name-face ((t (:foreground "#D0D000"))))
+ (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
+ (font-lock-string-face ((t (:foreground "#10D010"))))
+ (font-lock-type-face ((t (:bold t :foreground "#ff7788"))))
+ (font-lock-variable-name-face ((t (:foreground "#eeddaa"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+ (header-line ((t (:box (:line-width 1 :style released-button)))))
+ (highlight ((t (:background "#226644"))))
+ (highlight-changes-delete-face ((t (:background "navy" :foreground "red"))))
+ (highlight-changes-face ((t (:background "navy"))))
+ (holiday-face ((t (:foreground "#ff7744"))))
+ (italic ((t (:italic t :foreground "#AA0000"))))
+ (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000"))))
+ (modeline ((t (:background "#007080" :foreground "cyan"))))
+ (modeline-buffer-id ((t (:background "#007080" :foreground "cyan"))))
+ (modeline-mousable ((t (:background "#007080" :foreground "cyan"))))
+ (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan"))))
+ (region ((t (:background "#226644"))))
+ (secondary-selection ((t (:background "darkslategrey"))))
+ (sgml-comment-face ((t (:foreground "grey60"))))
+ (sgml-doctype-face ((t (:foreground "red"))))
+ (sgml-end-tag-face ((t (:foreground "#00D0D0"))))
+ (sgml-entity-face ((t (:foreground "indian red"))))
+ (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+ (sgml-ms-end-face ((t (:foreground "green"))))
+ (sgml-ms-start-face ((t (:foreground "green"))))
+ (sgml-pi-face ((t (:foreground "lime green"))))
+ (sgml-sgml-face ((t (:foreground "brown"))))
+ (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+ (sgml-start-tag-face ((t (:foreground "#D0D000"))))
+ (show-paren-match-face ((t (:background "#400055" :foreground "cyan"))))
+ (show-paren-mismatch-face ((t (:background "red"))))
+ (special-string-face ((t (:foreground "light green"))))
+ (term-black ((t (:background "#000055" :foreground "black"))))
+ (term-blackbg ((t (:background "black" :foreground "#CCBB77"))))
+ (term-blue ((t (:background "#000055" :foreground "blue"))))
+ (term-bluebg ((t (:background "blue" :foreground "#CCBB77"))))
+ (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77"))))
+ (term-cyan ((t (:background "#000055" :foreground "cyan"))))
+ (term-cyanbg ((t (:background "darkcyan"))))
+ (term-default-bg ((t (:foreground "#CCBB77"))))
+ (term-default-bg-inv ((t (:foreground "#CCBB77"))))
+ (term-default-fg ((t (:background "#000055"))))
+ (term-default-fg-inv ((t (:background "#000055"))))
+ (term-green ((t (:background "#000055" :foreground "green"))))
+ (term-greenbg ((t (:background "darkgreen"))))
+ (term-invisible ((t (:foreground "#CCBB77"))))
+ (term-invisible-inv ((t (:foreground "#CCBB77"))))
+ (term-magenta ((t (:background "#000055" :foreground "magenta"))))
+ (term-magentabg ((t (:background "darkmagenta"))))
+ (term-red ((t (:background "#000055" :foreground "red"))))
+ (term-redbg ((t (:background "darkred"))))
+ (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77"))))
+ (term-white ((t (:background "#000055" :foreground "white"))))
+ (term-whitebg ((t (:background "grey50"))))
+ (term-yellow ((t (:background "#000055" :foreground "yellow"))))
+ (term-yellowbg ((t (:background "#997700"))))
+ (trailing-whitespace ((t (:background "#23415A"))))
+ (underline ((t (:underline t))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "green"))))
+ (widget-field-face ((t (:background "grey35" :foreground "black"))))
+ (widget-inactive-face ((t (:foreground "gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-gray1 ()
+ "Color theme by Paul Pulli, created 2001-10-19."
+ (interactive)
+ (color-theme-install
+ '(color-theme-gray1
+ ((background-color . "darkgray")
+ (background-mode . light)
+ (background-toolbar-color . "#949494949494")
+ (border-color . "#000000000000")
+ (bottom-toolbar-shadow-color . "#595959595959")
+ (cursor-color . "Yellow")
+ (foreground-color . "black")
+ (top-toolbar-shadow-color . "#b2b2b2b2b2b2"))
+ nil
+ (default ((t (nil))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:italic t :bold t))))
+ (border-glyph ((t (nil))))
+ (cperl-here-face ((t (:background "gray68" :foreground "DeepPink"))))
+ (font-lock-builtin-face ((t (:bold t :foreground "red3"))))
+ (font-lock-comment-face ((t (:foreground "gray50"))))
+ (font-lock-constant-face ((t (:bold t :foreground "blue3"))))
+ (font-lock-doc-string-face ((t (:foreground "black"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "red"))))
+ (font-lock-other-type-face ((t (:bold t :foreground "green4"))))
+ (font-lock-preprocessor-face ((t (:bold t :foreground "blue3"))))
+ (font-lock-reference-face ((t (:bold t :foreground "red3"))))
+ (font-lock-string-face ((t (:foreground "red"))))
+ (font-lock-type-face ((t (:bold t :foreground "white"))))
+ (font-lock-variable-name-face ((t (:bold t :foreground "blue3"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+ (green ((t (:foreground "green4"))))
+ (gui-button-face ((t (:background "black" :foreground "red"))))
+ (gui-element ((t (:background "gray58"))))
+ (highlight ((t (:background "magenta" :foreground "yellow"))))
+ (isearch ((t (:background "red" :foreground "yellow"))))
+ (italic ((t (:italic t))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray90" :foreground "purple"))))
+ (m4-face ((t (:background "gray90" :foreground "orange3"))))
+ (message-cited-text ((t (nil))))
+ (message-header-contents ((t (nil))))
+ (message-headers ((t (nil))))
+ (message-highlighted-header-contents ((t (nil))))
+ (modeline ((t (:background "#aa80aa" :foreground "White"))))
+ (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen"))))
+ (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan"))))
+ (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow"))))
+ (paren-blink-off ((t (:foreground "gray58"))))
+ (paren-blink-on ((t (:foreground "purple"))))
+ (paren-match ((t (:background "gray68" :foreground "white"))))
+ (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray"))))
+ (red ((t (:foreground "red"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "paleturquoise"))))
+ (text-cursor ((t (:background "Yellow" :foreground "darkgray"))))
+ (toolbar ((t (:background "#aa80aa" :foreground "linen"))))
+ (underline ((t (:underline t))))
+ (vertical-divider ((t (nil))))
+ (x-face ((t (:background "black" :foreground "lavenderblush"))))
+ (yellow ((t (:foreground "yellow3"))))
+ (zmacs-region ((t (:background "paleturquoise" :foreground "black")))))))
+
+(defun color-theme-word-perfect ()
+ "White on blue background, based on WordPerfect 5.1.
+Color theme by Thomas Gehrlein, created 2001-10-21."
+ (interactive)
+ (color-theme-install
+ '(color-theme-word-perfect
+ ((background-color . "blue4")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "gold")
+ (foreground-color . "white")
+ (mouse-color . "black"))
+ ((ecb-source-in-directories-buffer-face . ecb-sources-face)
+ (gnus-mouse-face . highlight)
+ (goto-address-mail-face . italic)
+ (goto-address-mail-mouse-face . secondary-selection)
+ (goto-address-url-face . bold)
+ (goto-address-url-mouse-face . highlight)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight))
+ (default ((t (nil))))
+ (bbdb-field-name ((t (:foreground "lime green"))))
+ (bbdb-field-value ((t (:foreground "white"))))
+ (bbdb-name ((t (:underline t :foreground "lime green"))))
+ (bold ((t (:bold t :foreground "white"))))
+ (bold-italic ((t (:italic t :bold t :foreground "yellow"))))
+ (calendar-today-face ((t (:underline t :foreground "deep sky blue"))))
+ (diary-face ((t (:foreground "gold"))))
+ (ecb-sources-face ((t (:foreground "LightBlue1"))))
+ (edb-inter-field-face ((t (:foreground "deep sky blue"))))
+ (edb-normal-summary-face ((t (:foreground "gold"))))
+ (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral"))))
+ (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan"))))
+ (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:foreground "deep sky blue"))))
+ (font-lock-constant-face ((t (:foreground "lime green"))))
+ (font-lock-doc-face ((t (:foreground "gold"))))
+ (font-lock-doc-string-face ((t (:foreground "gold"))))
+ (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed"))))
+ (font-lock-keyword-face ((t (:foreground "lime green"))))
+ (font-lock-preprocessor-face ((t (:foreground "lime green"))))
+ (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-string-face ((t (:foreground "gold"))))
+ (font-lock-type-face ((t (:foreground "lime green"))))
+ (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "firebrick"))))
+ (gnus-emphasis-bold ((t (:foreground "yellow2"))))
+ (gnus-emphasis-bold-italic ((t (:foreground "yellow2"))))
+ (gnus-emphasis-italic ((t (:foreground "yellow2"))))
+ (gnus-emphasis-underline ((t (:foreground "yellow2"))))
+ (gnus-emphasis-underline-bold ((t (:foreground "yellow2"))))
+ (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2"))))
+ (gnus-emphasis-underline-italic ((t (:foreground "yellow2"))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+ (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue"))))
+ (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue"))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+ (gnus-header-content-face ((t (:foreground "gold"))))
+ (gnus-header-from-face ((t (:foreground "gold"))))
+ (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+ (gnus-header-newsgroups-face ((t (:foreground "gold"))))
+ (gnus-header-subject-face ((t (:foreground "gold"))))
+ (gnus-signature-face ((t (:foreground "gold"))))
+ (gnus-splash-face ((t (:foreground "firebrick"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue"))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue"))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue"))))
+ (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green"))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue"))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue"))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue"))))
+ (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green"))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "deep sky blue"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue"))))
+ (gnus-summary-normal-unread-face ((t (:foreground "lime green"))))
+ (gnus-summary-selected-face ((t (:underline t :foreground "gold"))))
+ (highlight ((t (:background "steel blue" :foreground "black"))))
+ (holiday-face ((t (:background "blue4" :foreground "IndianRed1"))))
+ (info-menu-5 ((t (:underline t :foreground "gold"))))
+ (info-node ((t (:italic t :bold t :foreground "gold"))))
+ (info-xref ((t (:bold t :foreground "gold"))))
+ (isearch ((t (:background "firebrick" :foreground "white"))))
+ (italic ((t (:italic t :foreground "yellow2"))))
+ (message-cited-text-face ((t (:foreground "gold"))))
+ (message-header-cc-face ((t (:bold t :foreground "green4"))))
+ (message-header-name-face ((t (:foreground "deep sky blue"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
+ (message-header-other-face ((t (:foreground "gold"))))
+ (message-header-subject-face ((t (:foreground "gold"))))
+ (message-header-to-face ((t (:bold t :foreground "gold"))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-separator-face ((t (:foreground "lime green"))))
+ (modeline ((t (:foreground "white" :background "black"))))
+ (modeline-buffer-id ((t (:foreground "white" :background "black"))))
+ (modeline-mousable ((t (:foreground "white" :background "black"))))
+ (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
+ (overlay-empty-face ((t (nil))))
+ (primary-selection ((t (:background "firebrick" :foreground "white"))))
+ (region ((t (:background "firebrick" :foreground "white"))))
+ (secondary-selection ((t (:background "yellow2" :foreground "black"))))
+ (semantic-dirty-token-face ((t (:background "gray10"))))
+ (show-paren-match-face ((t (:background "deep sky blue" :foreground "black"))))
+ (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white"))))
+ (underline ((t (:underline t :background "blue4" :foreground "white")))))))
+
+;; In order to produce this, follow these steps:
+;;
+;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related
+;; entries.
+;;
+;; 1. cd into the Emacs lisp directory and run the following command:
+;; ( for d in `find -type d`; \
+;; do grep --files-with-matches 'defface[ ]' $d/*.el; \
+;; done ) | sort | uniq
+;; Put the result in a lisp block, using load-library calls.
+;;
+;; Repeat this for any directories on your load path which you want to
+;; include in the standard. This might include W3, eshell, etc.
+;;
+;; Add some of the libraries that don't use defface:
+;;
+;; 2. Start emacs using the --no-init-file and --no-site-file command line
+;; arguments. Evaluate the lisp block you prepared.
+;; 3. Load color-theme and run color-theme-print. Save the output and use it
+;; to define color-theme-standard.
+;;
+;; (progn
+;; (load-library "add-log")
+;; (load-library "calendar")
+;; (load-library "comint")
+;; (load-library "cus-edit")
+;; (load-library "cus-face")
+;; (load-library "custom")
+;; (load-library "diff-mode")
+;; (load-library "ediff-init")
+;; (load-library "re-builder")
+;; (load-library "viper-init")
+;; (load-library "enriched")
+;; (load-library "em-ls")
+;; (load-library "em-prompt")
+;; (load-library "esh-test")
+;; (load-library "faces")
+;; (load-library "font-lock")
+;; (load-library "generic-x")
+;; (load-library "gnus-art")
+;; (load-library "gnus-cite")
+;; (load-library "gnus")
+;; (load-library "message")
+;; (load-library "hilit-chg")
+;; (load-library "hi-lock")
+;; (load-library "info")
+;; (load-library "isearch")
+;; (load-library "log-view")
+;; (load-library "paren")
+;; (load-library "pcvs-info")
+;; (load-library "antlr-mode")
+;; (load-library "cperl-mode")
+;; (load-library "ebrowse")
+;; (load-library "idlwave")
+;; (load-library "idlw-shell")
+;; (load-library "make-mode")
+;; (load-library "sh-script")
+;; (load-library "vhdl-mode")
+;; (load-library "smerge-mode")
+;; (load-library "speedbar")
+;; (load-library "strokes")
+;; (load-library "artist")
+;; (load-library "flyspell")
+;; (load-library "texinfo")
+;; (load-library "tex-mode")
+;; (load-library "tooltip")
+;; (load-library "vcursor")
+;; (load-library "wid-edit")
+;; (load-library "woman")
+;; (load-library "term")
+;; (load-library "man")
+;; (load-file "/home/alex/elisp/color-theme.el")
+;; (color-theme-print))
+;;
+;; 4. Make the color theme usable on Xemacs (add more faces, resolve
+;; :inherit attributes)
+;;
+(defun color-theme-emacs-21 ()
+ "Color theme used by Emacs 21.1.
+Added and adapted for XEmacs by Alex Schroeder. Adaptation mostly
+consisted of resolving :inherit attributes and adding missing faces.
+This theme includes faces from the following Emacs libraries: add-log
+calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder
+viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x
+gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view
+paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell
+make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist
+flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man"
+ (interactive)
+ (color-theme-install
+ '(color-theme-emacs-21
+ ((background-color . "white")
+ (background-mode . light)
+ (border-color . "black")
+ (cursor-color . "black")
+ (foreground-color . "black")
+ (mouse-color . "black"))
+ ((Man-overstrike-face . bold)
+ (Man-underline-face . underline)
+ (cperl-here-face . font-lock-string-face)
+ (cperl-invalid-face . underline)
+ (cperl-pod-face . font-lock-comment-face)
+ (cperl-pod-head-face . font-lock-variable-name-face)
+ (gnus-article-button-face . bold)
+ (gnus-article-mouse-face . highlight)
+ (gnus-cite-attribution-face . gnus-cite-attribution-face)
+ (gnus-mouse-face . highlight)
+ (gnus-signature-face . gnus-signature-face)
+ (gnus-summary-selected-face . gnus-summary-selected-face)
+ (help-highlight-face . underline)
+ (idlwave-class-arrow-face . bold)
+ (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
+ (idlwave-shell-expression-face . secondary-selection)
+ (idlwave-shell-stop-line-face . highlight)
+ (ispell-highlight-face . highlight)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight)
+ (viper-insert-state-cursor-color . "Green")
+ (viper-replace-overlay-cursor-color . "Red")
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+ (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+ (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+ (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+ (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
+ (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
+ (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
+ (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
+ (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
+ (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (calendar-today-face ((t (:underline t))))
+ (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
+ (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
+ (change-log-date-face ((t (:foreground "RosyBrown"))))
+ (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
+ (change-log-file-face ((t (:foreground "Blue"))))
+ (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
+ (change-log-list-face ((t (:foreground "Purple"))))
+ (change-log-name-face ((t (:foreground "CadetBlue"))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "dark blue"))))
+ (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+ (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+ (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+ (cursor ((t (:background "black"))))
+ (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "gray85"))))
+ (custom-comment-tag-face ((t (:foreground "blue4"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+ (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+ (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "dark green"))))
+ (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+ (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+ (cvs-filename-face ((t (:foreground "blue4"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
+ (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+ (cvs-msg-face ((t (:italic t :slant italic))))
+ (cvs-need-action-face ((t (:foreground "orange"))))
+ (cvs-unknown-face ((t (:foreground "red"))))
+ (diary-face ((t (:foreground "red"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey50"))))
+ (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+ (diff-function-face ((t (:foreground "grey50"))))
+ (diff-header-face ((t (:background "grey85"))))
+ (diff-hunk-header-face ((t (:background "grey85"))))
+ (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
+ (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
+ (diff-removed-face ((t (nil))))
+ (dired-face-boring ((t (:foreground "RosyBrown"))))
+ (dired-face-directory ((t (:foreground "Blue"))))
+ (dired-face-executable ((t (nil))))
+ (dired-face-flagged ((t (:foreground "Red" :weight bold))))
+ (dired-face-marked ((t (:foreground "Red" :weight bold))))
+ (dired-face-permissions ((t (nil))))
+ (dired-face-setuid ((t (nil))))
+ (dired-face-socket ((t (nil))))
+ (dired-face-symlink ((t (:foreground "Purple"))))
+ (ebrowse-default-face ((t (nil))))
+ (ebrowse-file-name-face ((t (:italic t :slant italic))))
+ (ebrowse-member-attribute-face ((t (:foreground "red"))))
+ (ebrowse-member-class-face ((t (:foreground "purple"))))
+ (ebrowse-progress-face ((t (:background "blue"))))
+ (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
+ (ebrowse-tree-mark-face ((t (:foreground "red"))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+ (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+ (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+ (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+ (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+ (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+ (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
+ (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+ (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+ (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+ (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
+ (excerpt ((t (:italic t :slant italic))))
+ (fixed ((t (:bold t :weight bold))))
+ (fixed-pitch ((t (:family "courier"))))
+ (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+ (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+ (font-lock-builtin-face ((t (:foreground "Orchid"))))
+ (font-lock-comment-face ((t (:foreground "Firebrick"))))
+ (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+ (font-lock-doc-face ((t (:foreground "RosyBrown"))))
+ (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
+ (font-lock-function-name-face ((t (:foreground "Blue"))))
+ (font-lock-keyword-face ((t (:foreground "Purple"))))
+ (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+ (font-lock-reference-face ((t (:foreground "Orchid"))))
+ (font-lock-string-face ((t (:foreground "RosyBrown"))))
+ (font-lock-type-face ((t (:foreground "ForestGreen"))))
+ (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+ (fringe ((t (:background "grey95"))))
+ (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+ (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+ (gnus-cite-face-3 ((t (:foreground "dark green"))))
+ (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+ (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+ (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+ (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t :weight bold))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (:italic t :slant italic))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+ (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+ (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
+ (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+ (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t :weight bold))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t :weight bold))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t :weight bold))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t :weight bold))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+ (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
+ (gnus-header-from-face ((t (:foreground "red3"))))
+ (gnus-header-name-face ((t (:foreground "maroon"))))
+ (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
+ (gnus-header-subject-face ((t (:foreground "red4"))))
+ (gnus-signature-face ((t (:italic t :slant italic))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
+ (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+ (hi-black-b ((t (:bold t :weight bold))))
+ (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
+ (hi-blue ((t (:background "light blue"))))
+ (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+ (hi-green ((t (:background "green"))))
+ (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+ (hi-pink ((t (:background "pink"))))
+ (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+ (hi-yellow ((t (:background "yellow"))))
+ (highlight ((t (:background "darkseagreen2"))))
+ (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+ (highlight-changes-face ((t (:foreground "red"))))
+ (holiday-face ((t (:background "pink"))))
+ (idlwave-help-link-face ((t (:foreground "Blue"))))
+ (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+ (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
+ (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
+ (info-menu-5 ((t (:foreground "red1"))))
+ (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+ (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+ (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+ (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+ (italic ((t (:italic t :slant italic))))
+ (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+ (log-view-message-face ((t (:background "grey85"))))
+ (makefile-space-face ((t (:background "hotpink"))))
+ (menu ((t (nil))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+ (message-header-name-face ((t (:foreground "cornflower blue"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
+ (message-header-other-face ((t (:foreground "steel blue"))))
+ (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
+ (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:foreground "ForestGreen"))))
+ (message-separator-face ((t (:foreground "brown"))))
+ (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (mouse ((t (:background "black"))))
+ (primary-selection ((t (:background "lightgoldenrod2"))))
+ (reb-match-0 ((t (:background "lightblue"))))
+ (reb-match-1 ((t (:background "aquamarine"))))
+ (reb-match-2 ((t (:background "springgreen"))))
+ (reb-match-3 ((t (:background "yellow"))))
+ (region ((t (:background "lightgoldenrod2"))))
+ (scroll-bar ((t (:background "grey75"))))
+ (secondary-selection ((t (:background "yellow"))))
+ (sh-heredoc-face ((t (:foreground "tan"))))
+ (show-paren-match-face ((t (:background "turquoise"))))
+ (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+ (show-tabs-space-face ((t (:foreground "yellow"))))
+ (show-tabs-tab-face ((t (:foreground "red"))))
+ (smerge-base-face ((t (:foreground "red"))))
+ (smerge-markers-face ((t (:background "grey85"))))
+ (smerge-mine-face ((t (:foreground "blue"))))
+ (smerge-other-face ((t (:foreground "darkgreen"))))
+ (speedbar-button-face ((t (:foreground "green4"))))
+ (speedbar-directory-face ((t (:foreground "blue4"))))
+ (speedbar-file-face ((t (:foreground "cyan4"))))
+ (speedbar-highlight-face ((t (:background "green"))))
+ (speedbar-selected-face ((t (:foreground "red" :underline t))))
+ (speedbar-tag-face ((t (:foreground "brown"))))
+ (strokes-char-face ((t (:background "lightgray"))))
+ (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
+ (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+ (tex-math-face ((t (:foreground "RosyBrown"))))
+ (texinfo-heading-face ((t (:foreground "Blue"))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+ (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+ (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+ (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+ (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+ (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+ (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
+ (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+ (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+ (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+ (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+ (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+ (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+ (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+ (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+ (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+ (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+ (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+ (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+ (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+ (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "gray85"))))
+ (woman-addition-face ((t (:foreground "orange"))))
+ (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
+ (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
+ (woman-unknown-face ((t (:foreground "brown"))))
+ (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-jsc-light2 ()
+ "Color theme by John S Cooper, created 2001-10-29.
+This builds on `color-theme-jsc-light'."
+ (interactive)
+ (color-theme-jsc-light)
+ (let ((color-theme-is-cumulative t))
+ (color-theme-install
+ '(color-theme-jsc-light2
+ ((vc-annotate-very-old-color . "#0046FF")
+ (senator-eldoc-use-color . t))
+ nil
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (change-log-file-face ((t (:foreground "Blue"))))
+ (change-log-name-face ((t (:foreground "Maroon"))))
+ (comint-highlight-prompt ((t (:foreground "dark blue"))))
+ (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+ (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+ (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+ (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+ (font-lock-constant-face ((t (:foreground "Maroon"))))
+ (font-lock-function-name-face ((t (:foreground "Blue"))))
+ (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic))))
+ (fringe ((t (:background "grey88"))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "Blue2"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+ (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
+ (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold))))
+ (gnus-header-subject-face ((t (:foreground "red4"))))
+ (gnus-signature-face ((t (:italic t :slant italic))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+ (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "Navy"))))
+ (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+ (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
+ (highlight ((t (:background "darkseagreen2"))))
+ (ido-subdir-face ((t (:foreground "red"))))
+ (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+ (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (region ((t (:background "lightgoldenrod2"))))
+ (scroll-bar ((t (nil))))
+ (secondary-selection ((t (:background "yellow"))))
+ (show-paren-match-face ((t (:background "turquoise"))))
+ (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))))))
+
+(defun color-theme-ld-dark ()
+ "Dark Color theme by Linh Dang, created 2001-11-06."
+ (interactive)
+ (color-theme-install
+ '(color-theme-ld-dark
+ ((background-color . "black")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "yellow")
+ (foreground-color . "white")
+ (mouse-color . "white"))
+ ((align-highlight-change-face . highlight)
+ (align-highlight-nochange-face . secondary-selection)
+ (apropos-keybinding-face . underline)
+ (apropos-label-face . italic)
+ (apropos-match-face . secondary-selection)
+ (apropos-property-face . bold-italic)
+ (apropos-symbol-face . bold)
+ (ebnf-except-border-color . "Black")
+ (ebnf-line-color . "Black")
+ (ebnf-non-terminal-border-color . "Black")
+ (ebnf-repeat-border-color . "Black")
+ (ebnf-special-border-color . "Black")
+ (ebnf-terminal-border-color . "Black")
+ (gnus-article-button-face . bold)
+ (gnus-article-mouse-face . highlight)
+ (gnus-carpal-button-face . bold)
+ (gnus-carpal-header-face . bold-italic)
+ (gnus-cite-attribution-face . gnus-cite-attribution-face)
+ (gnus-mouse-face . highlight)
+ (gnus-selected-tree-face . modeline)
+ (gnus-signature-face . gnus-signature-face)
+ (gnus-summary-selected-face . gnus-summary-selected-face)
+ (help-highlight-face . underline)
+ (list-matching-lines-face . bold)
+ (ps-line-number-color . "black")
+ (ps-zebra-color . 0.95)
+ (tags-tag-face . default)
+ (vc-annotate-very-old-color . "#0046FF")
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+ (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+ (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+ (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+ (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+ (bbdb-company ((t (:italic t :slant italic))))
+ (bbdb-field-name ((t (:bold t :weight bold))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
+ (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
+ (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+ (change-log-email-face ((t (:foreground "Aquamarine"))))
+ (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
+ (change-log-function-face ((t (:foreground "Aquamarine"))))
+ (change-log-list-face ((t (:foreground "LightSkyBlue"))))
+ (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
+ (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (cursor ((t (:background "yellow"))))
+ (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "dim gray"))))
+ (custom-comment-tag-face ((t (:foreground "gray80"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
+ (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
+ (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "lime green"))))
+ (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+ (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey70"))))
+ (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
+ (diff-function-face ((t (:foreground "grey70"))))
+ (diff-header-face ((t (:background "grey45"))))
+ (diff-hunk-header-face ((t (:background "grey45"))))
+ (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-removed-face ((t (nil))))
+ (fixed-pitch ((t (:family "courier"))))
+ (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
+ (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique))))
+ (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold))))
+ (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+ (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana"))))
+ (font-lock-keyword-face ((t (:foreground "LightSkyBlue"))))
+ (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold))))
+ (font-lock-reference-face ((t (:foreground "SteelBlue"))))
+ (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique))))
+ (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana"))))
+ (font-lock-variable-name-face ((t (:foreground "Aquamarine"))))
+ (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold))))
+ (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat"))))
+ (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+ (gnus-cite-face-1 ((t (:foreground "light blue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+ (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+ (gnus-cite-face-4 ((t (:foreground "light pink"))))
+ (gnus-cite-face-5 ((t (:foreground "pale green"))))
+ (gnus-cite-face-6 ((t (:foreground "beige"))))
+ (gnus-cite-face-7 ((t (:foreground "orange"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t :weight bold))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (:italic t :slant italic))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+ (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+ (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t :weight bold))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t :weight bold))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t :weight bold))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t :weight bold))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+ (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
+ (gnus-header-from-face ((t (:foreground "spring green"))))
+ (gnus-header-name-face ((t (:foreground "SeaGreen"))))
+ (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
+ (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
+ (gnus-signature-face ((t (:italic t :slant italic))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+ (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9))))
+ (highlight ((t (:background "darkolivegreen"))))
+ (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
+ (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
+ (info-menu-5 ((t (:foreground "red1"))))
+ (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+ (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
+ (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
+ (isearch ((t (:background "palevioletred2"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+ (italic ((t (:italic t :slant italic))))
+ (makefile-space-face ((t (:background "hotpink"))))
+ (menu ((t (nil))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
+ (message-header-name-face ((t (:foreground "DarkGreen"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+ (message-header-other-face ((t (:foreground "#b00000"))))
+ (message-header-subject-face ((t (:foreground "green3"))))
+ (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:foreground "ForestGreen"))))
+ (message-separator-face ((t (:foreground "blue3"))))
+ (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+ (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+ (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+ (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+ (mouse ((t (:background "white"))))
+ (primary-selection ((t (:background "DarkSlateGray"))))
+ (region ((t (:background "DarkSlateGray"))))
+ (scroll-bar ((t (nil))))
+ (secondary-selection ((t (:background "SkyBlue4"))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (trailing-whitespace ((t (:background "white"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray"))))
+ (zmacs-region ((t (:background "DarkSlateGray")))))))
+
+(defun color-theme-deep-blue ()
+ "Color theme by Tomas Cerha, created 2001-11-13."
+ (interactive)
+ (color-theme-install
+ '(color-theme-deep-blue
+ ((background-color . "#102e4e")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "green")
+ (foreground-color . "#eeeeee")
+ (mouse-color . "white"))
+ ((browse-kill-ring-separator-face . bold)
+ (display-time-mail-face . mode-line)
+ (help-highlight-face . underline)
+ (list-matching-lines-face . secondary-selection)
+ (vc-annotate-very-old-color . "#0046FF")
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
+ (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+ (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+ (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+ (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (calendar-today-face ((t (:background "blue"))))
+ (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
+ (change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
+ (change-log-date-face ((t (:foreground "burlywood"))))
+ (change-log-email-face ((t (:foreground "SeaGreen2"))))
+ (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
+ (change-log-function-face ((t (:foreground "SeaGreen2"))))
+ (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1"))))
+ (change-log-name-face ((t (:foreground "gold"))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (cursor ((t (:background "green" :foreground "black"))))
+ (cvs-filename-face ((t (:foreground "lightblue"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
+ (cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
+ (cvs-msg-face ((t (:italic t :slant italic))))
+ (cvs-need-action-face ((t (:foreground "orange"))))
+ (cvs-unknown-face ((t (:foreground "red"))))
+ (diary-face ((t (:foreground "orange red"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey70"))))
+ (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
+ (diff-function-face ((t (:foreground "grey70"))))
+ (diff-header-face ((t (:background "grey45"))))
+ (diff-hunk-header-face ((t (:background "grey45"))))
+ (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-removed-face ((t (nil))))
+ (fixed-pitch ((t (:family "fixed"))))
+ (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
+ (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
+ (font-latex-math-face ((t (:foreground "burlywood"))))
+ (font-latex-sedate-face ((t (:foreground "LightGray"))))
+ (font-latex-string-face ((t (:foreground "LightSalmon"))))
+ (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+ (font-lock-builtin-face ((t (:foreground "LightCoral"))))
+ (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
+ (font-lock-constant-face ((t (:foreground "gold"))))
+ (font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
+ (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
+ (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold))))
+ (font-lock-preprocessor-face ((t (:foreground "gold"))))
+ (font-lock-reference-face ((t (:foreground "LightCoral"))))
+ (font-lock-string-face ((t (:foreground "burlywood"))))
+ (font-lock-type-face ((t (:foreground "CadetBlue1"))))
+ (font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
+ (font-lock-warning-face ((t (:foreground "yellow"))))
+ (fringe ((t (:background "#405060"))))
+ (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+ (highlight ((t (:background "darkgreen"))))
+ (holiday-face ((t (:foreground "green"))))
+ (info-header-node ((t (:foreground "DeepSkyBlue1"))))
+ (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
+ (info-menu-5 ((t (:foreground "wheat"))))
+ (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+ (info-node ((t (:foreground "DeepSkyBlue1"))))
+ (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
+ (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+ (italic ((t (:italic t :slant italic))))
+ (menu ((t (:background "gray" :foreground "black" :family "helvetica"))))
+ (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (mouse ((t (:background "white"))))
+ (region ((t (:background "DarkCyan"))))
+ (scroll-bar ((t (:background "gray" :foreground "#506070"))))
+ (secondary-selection ((t (:background "yellow" :foreground "gray10"))))
+ (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
+ (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))
+ (trailing-whitespace ((t (:background "#102e4e"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-kingsajz ()
+ "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04.
+Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker.
+Used on Emacs 21.1 @ WinMe. Not tested on any other systems.
+
+Some faces uses Andale mono font (nice fixed-width font).
+It is available at: http://www.microsoft.com/typography/downloads/andale32.exe
+
+Hail Eris! All hail Discordia!"
+ (interactive)
+ (color-theme-install
+ '(color-theme-kingsajz
+ ((background-color . "darkslategrey")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "LightGray")
+ (foreground-color . "wheat")
+ (mouse-color . "Grey"))
+ ((apropos-keybinding-face . underline)
+ (apropos-label-face face italic mouse-face highlight)
+ (apropos-match-face . secondary-selection)
+ (apropos-property-face . bold-italic)
+ (apropos-symbol-face . info-xref)
+ (display-time-mail-face . mode-line)
+ (gnus-article-button-face . bold)
+ (gnus-article-mouse-face . highlight)
+ (gnus-carpal-button-face . bold)
+ (gnus-carpal-header-face . bold-italic)
+ (gnus-cite-attribution-face . gnus-cite-attribution-face)
+ (gnus-mouse-face . highlight)
+ (gnus-selected-tree-face . modeline)
+ (gnus-signature-face . gnus-signature-face)
+ (gnus-summary-selected-face . gnus-summary-selected-face)
+ (gnus-treat-display-xface . head)
+ (help-highlight-face . underline)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono"))))
+ (bbdb-field-name ((t (:foreground "green"))))
+ (bg:erc-color-face0 ((t (:background "White"))))
+ (bg:erc-color-face1 ((t (:background "black"))))
+ (bg:erc-color-face10 ((t (:background "lightblue1"))))
+ (bg:erc-color-face11 ((t (:background "cyan"))))
+ (bg:erc-color-face12 ((t (:background "blue"))))
+ (bg:erc-color-face13 ((t (:background "deeppink"))))
+ (bg:erc-color-face14 ((t (:background "gray50"))))
+ (bg:erc-color-face15 ((t (:background "gray90"))))
+ (bg:erc-color-face2 ((t (:background "blue4"))))
+ (bg:erc-color-face3 ((t (:background "green4"))))
+ (bg:erc-color-face4 ((t (:background "red"))))
+ (bg:erc-color-face5 ((t (:background "brown"))))
+ (bg:erc-color-face6 ((t (:background "purple"))))
+ (bg:erc-color-face7 ((t (:background "orange"))))
+ (bg:erc-color-face8 ((t (:background "yellow"))))
+ (bg:erc-color-face9 ((t (:background "green"))))
+ (blue ((t (:foreground "cyan"))))
+ (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial"))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial"))))
+ (border ((t (:background "black"))))
+ (calendar-today-face ((t (:underline t))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (cperl-array-face ((t (:foreground "Yellow"))))
+ (cperl-hash-face ((t (:foreground "White"))))
+ (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+ (cursor ((t (:background "LightGray"))))
+ (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "dim gray"))))
+ (custom-comment-tag-face ((t (:foreground "gray80"))))
+ (custom-documentation-face ((t (:foreground "Grey"))))
+ (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2))))
+ (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
+ (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "Coral"))))
+ (custom-variable-button-face ((t (:underline t))))
+ (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
+ (date ((t (:foreground "green"))))
+ (diary-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+ (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
+ (dired-face-executable ((t (:foreground "green yellow"))))
+ (dired-face-flagged ((t (:foreground "tomato"))))
+ (dired-face-marked ((t (:foreground "light salmon"))))
+ (dired-face-permissions ((t (:foreground "aquamarine"))))
+ (erc-action-face ((t (:bold t :weight bold))))
+ (erc-bold-face ((t (:bold t :weight bold))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "pale green"))))
+ (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+ (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
+ (erc-host-danger-face ((t (:foreground "red"))))
+ (erc-input-face ((t (:foreground "light blue"))))
+ (erc-inverse-face ((t (:background "steel blue"))))
+ (erc-notice-face ((t (:foreground "light salmon"))))
+ (erc-pal-face ((t (:foreground "pale green"))))
+ (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
+ (erc-underline-face ((t (:underline t))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+ (eshell-ls-backup-face ((t (:foreground "Grey"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
+ (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold))))
+ (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold))))
+ (eshell-ls-picture-face ((t (:foreground "Violet"))))
+ (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+ (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+ (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold))))
+ (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold))))
+ (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
+ (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+ (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+ (eshell-prompt-face ((t (:foreground "powder blue"))))
+ (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono"))))
+ (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono"))))
+ (face-3 ((t (:stipple nil :foreground "NavajoWhite3"))))
+ (fg:erc-color-face0 ((t (:foreground "white"))))
+ (fg:erc-color-face1 ((t (:foreground "beige"))))
+ (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+ (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+ (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+ (fg:erc-color-face13 ((t (:foreground "yellow"))))
+ (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+ (fg:erc-color-face15 ((t (:foreground "lime green"))))
+ (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+ (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+ (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+ (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+ (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+ (fg:erc-color-face7 ((t (:foreground "pale green"))))
+ (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+ (fg:erc-color-face9 ((t (:foreground "khaki"))))
+ (fixed-pitch ((t (:family "courier"))))
+ (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+ (font-lock-comment-face ((t (:foreground "White"))))
+ (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+ (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon"))))
+ (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
+ (font-lock-keyword-face ((t (:foreground "Salmon"))))
+ (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
+ (font-lock-reference-face ((t (:foreground "pale green"))))
+ (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic))))
+ (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold))))
+ (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold))))
+ (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+ (fringe ((t (:background "darkslategrey"))))
+ (gnus-cite-attribution-face ((t (:family "arial"))))
+ (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3"))))
+ (gnus-cite-face-10 ((t (nil))))
+ (gnus-cite-face-11 ((t (nil))))
+ (gnus-cite-face-2 ((t (:foreground "IndianRed3"))))
+ (gnus-cite-face-3 ((t (:foreground "tomato"))))
+ (gnus-cite-face-4 ((t (:foreground "yellow green"))))
+ (gnus-cite-face-5 ((t (:foreground "SteelBlue3"))))
+ (gnus-cite-face-6 ((t (:foreground "Azure3"))))
+ (gnus-cite-face-7 ((t (:foreground "Azure4"))))
+ (gnus-cite-face-8 ((t (:foreground "SpringGreen4"))))
+ (gnus-cite-face-9 ((t (:foreground "SlateGray4"))))
+ (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial"))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial"))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki"))))
+ (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial"))))
+ (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t))))
+ (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial"))))
+ (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial"))))
+ (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial"))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold))))
+ (gnus-group-news-1-empty-face ((t (:foreground "Salmon4"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold))))
+ (gnus-group-news-2-empty-face ((t (:foreground "darkorange3"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold))))
+ (gnus-group-news-3-empty-face ((t (:foreground "turquoise4"))))
+ (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+ (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4"))))
+ (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold))))
+ (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4"))))
+ (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold))))
+ (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4"))))
+ (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold))))
+ (gnus-group-news-low-empty-face ((t (:foreground "wheat4"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold))))
+ (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
+ (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
+ (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
+ (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
+ (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+ (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic))))
+ (gnus-splash-face ((t (:foreground "Firebrick1"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic))))
+ (gnus-summary-low-read-face ((t (:foreground "SeaGreen4"))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic))))
+ (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "khaki4"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "khaki3"))))
+ (gnus-summary-normal-unread-face ((t (:foreground "khaki"))))
+ (gnus-summary-selected-face ((t (:foreground "gold" :underline t))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:foreground "red" :background "black"))))
+ (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold))))
+ (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+ (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+ (highline-face ((t (:background "SeaGreen"))))
+ (holiday-face ((t (:background "DimGray"))))
+ (info-menu-5 ((t (:underline t))))
+ (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold))))
+ (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
+ (isearch ((t (:background "sea green" :foreground "black"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+ (italic ((t (:italic t :foreground "chocolate3" :slant italic))))
+ (menu ((t (nil))))
+ (message-cited-text-face ((t (:foreground "White"))))
+ (message-header-cc-face ((t (:foreground "light cyan"))))
+ (message-header-name-face ((t (:foreground "DodgerBlue1"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
+ (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+ (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+ (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
+ (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
+ (message-mml-face ((t (:foreground "ForestGreen"))))
+ (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate"))))
+ (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button)))))
+ (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial"))))
+ (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial"))))
+ (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial"))))
+ (mouse ((t (:background "Grey"))))
+ (paren-blink-off ((t (:foreground "brown"))))
+ (region ((t (:background "dark cyan" :foreground "cyan"))))
+ (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black"))))
+ (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold))))
+ (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button)))))
+ (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red"))))
+ (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64"))))
+ (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue"))))
+ (scroll-bar ((t (nil))))
+ (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+ (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold))))
+ (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+ (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold))))
+ (text-cursor ((t (:background "Red" :foreground "white"))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "Arial"))))
+ (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
+ (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
+ (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+ (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+ (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier"))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:foreground "LightBlue"))))
+ (widget-inactive-face ((t (:foreground "DimGray"))))
+ (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+ (woman-bold-face ((t (:bold t :weight bold :family "Arial"))))
+ (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial"))))
+ (woman-unknown-face ((t (:foreground "LightSalmon"))))
+ (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))
+
+(defun color-theme-comidia ()
+ "Color theme by Marcelo Dias de Toledo, created 2001-12-17.
+Steel blue on black."
+ (interactive)
+ (color-theme-install
+ '(color-theme-comidia
+ ((background-color . "Black")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "SteelBlue")
+ (foreground-color . "SteelBlue")
+ (mouse-color . "SteelBlue"))
+ ((display-time-mail-face . mode-line)
+ (gnus-mouse-face . highlight)
+ (gnus-summary-selected-face . gnus-summary-selected-face)
+ (help-highlight-face . underline)
+ (ispell-highlight-face . highlight)
+ (list-matching-lines-face . bold)
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
+ (bg:erc-color-face0 ((t (:background "White"))))
+ (bg:erc-color-face1 ((t (:background "black"))))
+ (bg:erc-color-face10 ((t (:background "lightblue1"))))
+ (bg:erc-color-face11 ((t (:background "cyan"))))
+ (bg:erc-color-face12 ((t (:background "blue"))))
+ (bg:erc-color-face13 ((t (:background "deeppink"))))
+ (bg:erc-color-face14 ((t (:background "gray50"))))
+ (bg:erc-color-face15 ((t (:background "gray90"))))
+ (bg:erc-color-face2 ((t (:background "blue4"))))
+ (bg:erc-color-face3 ((t (:background "green4"))))
+ (bg:erc-color-face4 ((t (:background "red"))))
+ (bg:erc-color-face5 ((t (:background "brown"))))
+ (bg:erc-color-face6 ((t (:background "purple"))))
+ (bg:erc-color-face7 ((t (:background "orange"))))
+ (bg:erc-color-face8 ((t (:background "yellow"))))
+ (bg:erc-color-face9 ((t (:background "green"))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (cursor ((t (:background "SteelBlue"))))
+ (erc-action-face ((t (:bold t :weight bold))))
+ (erc-bold-face ((t (:bold t :weight bold))))
+ (erc-dangerous-host-face ((t (:foreground "red"))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+ (erc-error-face ((t (:background "Red" :foreground "White"))))
+ (erc-fool-face ((t (:foreground "dim gray"))))
+ (erc-input-face ((t (:foreground "brown"))))
+ (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+ (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+ (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
+ (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
+ (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
+ (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+ (erc-underline-face ((t (:underline t))))
+ (fg:erc-color-face0 ((t (:foreground "White"))))
+ (fg:erc-color-face1 ((t (:foreground "black"))))
+ (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+ (fg:erc-color-face11 ((t (:foreground "cyan"))))
+ (fg:erc-color-face12 ((t (:foreground "blue"))))
+ (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+ (fg:erc-color-face14 ((t (:foreground "gray50"))))
+ (fg:erc-color-face15 ((t (:foreground "gray90"))))
+ (fg:erc-color-face2 ((t (:foreground "blue4"))))
+ (fg:erc-color-face3 ((t (:foreground "green4"))))
+ (fg:erc-color-face4 ((t (:foreground "red"))))
+ (fg:erc-color-face5 ((t (:foreground "brown"))))
+ (fg:erc-color-face6 ((t (:foreground "purple"))))
+ (fg:erc-color-face7 ((t (:foreground "orange"))))
+ (fg:erc-color-face8 ((t (:foreground "yellow"))))
+ (fg:erc-color-face9 ((t (:foreground "green"))))
+ (fixed-pitch ((t (:family "courier"))))
+ (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:foreground "chocolate1"))))
+ (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+ (font-lock-doc-face ((t (:foreground "LightSalmon"))))
+ (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+ (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+ (font-lock-keyword-face ((t (:foreground "Cyan"))))
+ (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+ (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-string-face ((t (:foreground "LightSalmon"))))
+ (font-lock-type-face ((t (:foreground "PaleGreen"))))
+ (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+ (fringe ((t (:background "grey10"))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold t :weight bold))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold t :weight bold))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold t :weight bold))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold t :weight bold))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+ (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+ (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil))))
+ (highlight ((t (:background "darkolivegreen"))))
+ (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+ (italic ((t (:italic t :slant italic))))
+ (menu ((t (nil))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
+ (message-header-name-face ((t (:foreground "DarkGreen"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+ (message-header-other-face ((t (:foreground "#b00000"))))
+ (message-header-subject-face ((t (:foreground "green3"))))
+ (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:foreground "ForestGreen"))))
+ (message-separator-face ((t (:foreground "blue3"))))
+ (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+ (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+ (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+ (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+ (mouse ((t (:background "SteelBlue"))))
+ (primary-selection ((t (:background "blue3"))))
+ (region ((t (:background "blue3"))))
+ (scroll-bar ((t (:background "grey75"))))
+ (secondary-selection ((t (:background "SkyBlue4"))))
+ (speedbar-button-face ((t (:foreground "green3"))))
+ (speedbar-directory-face ((t (:foreground "light blue"))))
+ (speedbar-file-face ((t (:foreground "cyan"))))
+ (speedbar-highlight-face ((t (:background "sea green"))))
+ (speedbar-selected-face ((t (:foreground "red" :underline t))))
+ (speedbar-tag-face ((t (:foreground "yellow"))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray"))))
+ (zmacs-region ((t (:background "blue3")))))))
+
+(defun color-theme-katester ()
+ "Color theme by walterh@rocketmail.com, created 2001-12-12.
+A pastelly-mac like color-theme."
+ (interactive)
+ (color-theme-standard)
+ (let ((color-theme-is-cumulative t))
+ (color-theme-install
+ '(color-theme-katester
+ ((background-color . "ivory")
+ (cursor-color . "slateblue")
+ (foreground-color . "black")
+ (mouse-color . "slateblue"))
+ (default ((t ((:background "ivory" :foreground "black")))))
+ (bold ((t (:bold t))))
+ (font-lock-string-face ((t (:foreground "maroon"))))
+ (font-lock-keyword-face ((t (:foreground "blue"))))
+ (font-lock-constant-face ((t (:foreground "darkblue"))))
+ (font-lock-type-face ((t (:foreground "black"))))
+ (font-lock-variable-name-face ((t (:foreground "black"))))
+ (font-lock-function-name-face ((t (:bold t :underline t))))
+ (font-lock-comment-face ((t (:background "seashell"))))
+ (highlight ((t (:background "lavender"))))
+ (italic ((t (:italic t))))
+ (modeline ((t (:background "moccasin" :foreground "black"))))
+ (region ((t (:background "lavender" ))))
+ (underline ((t (:underline t))))))))
+
+(defun color-theme-arjen ()
+ "Color theme by awiersma, created 2001-08-27."
+ (interactive)
+ (color-theme-install
+ '(color-theme-arjen
+ ((background-color . "black")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "yellow")
+ (foreground-color . "White")
+ (mouse-color . "sienna1"))
+ ((buffers-tab-face . buffers-tab)
+ (cperl-here-face . font-lock-string-face)
+ (cperl-invalid-face quote underline)
+ (cperl-pod-face . font-lock-comment-face)
+ (cperl-pod-head-face . font-lock-variable-name-face)
+ (vc-mode-face . highlight))
+ (default ((t (:background "black" :foreground "white"))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (:bold t))))
+ (border-glyph ((t (nil))))
+ (buffers-tab ((t (:background "black" :foreground "white"))))
+ (calendar-today-face ((t (:underline t))))
+ (cperl-array-face ((t (:foreground "darkseagreen"))))
+ (cperl-hash-face ((t (:foreground "darkseagreen"))))
+ (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+ (custom-button-face ((t (nil))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "lime green"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+ (diary-face ((t (:foreground "IndianRed"))))
+ (erc-action-face ((t (:bold t))))
+ (erc-bold-face ((t (:bold t))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "sandybrown"))))
+ (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+ (erc-input-face ((t (:foreground "Beige"))))
+ (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+ (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+ (erc-pal-face ((t (:foreground "pale green"))))
+ (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+ (erc-underline-face ((t (:underline t))))
+ (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+ (eshell-ls-backup-face ((t (:foreground "Grey"))))
+ (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
+ (eshell-ls-executable-face ((t (:foreground "Coral"))))
+ (eshell-ls-missing-face ((t (:foreground "black"))))
+ (eshell-ls-picture-face ((t (:foreground "Violet"))))
+ (eshell-ls-product-face ((t (:foreground "sandybrown"))))
+ (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+ (eshell-ls-special-face ((t (:foreground "Gold"))))
+ (eshell-ls-symlink-face ((t (:foreground "White"))))
+ (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+ (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
+ (fl-comment-face ((t (:foreground "pink"))))
+ (fl-doc-string-face ((t (:foreground "purple"))))
+ (fl-function-name-face ((t (:foreground "red"))))
+ (fl-keyword-face ((t (:foreground "cadetblue"))))
+ (fl-string-face ((t (:foreground "green"))))
+ (fl-type-face ((t (:foreground "yellow"))))
+ (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+ (font-lock-comment-face ((t (:foreground "IndianRed"))))
+ (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+ (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
+ (font-lock-function-name-face ((t (:foreground "YellowGreen"))))
+ (font-lock-keyword-face ((t (:foreground "PaleYellow"))))
+ (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+ (font-lock-reference-face ((t (:foreground "SlateBlue"))))
+ (font-lock-string-face ((t (:foreground "Orange"))))
+ (font-lock-type-face ((t (:foreground "Green"))))
+ (font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
+ (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+ (qt-classes-face ((t (:foreground "Red"))))
+ (gnus-cite-attribution-face ((t (nil))))
+ (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue"))))
+ (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue"))))
+ (gnus-cite-face-3 ((t (:bold nil :foreground "gold"))))
+ (gnus-cite-face-4 ((t (:foreground "light pink"))))
+ (gnus-cite-face-5 ((t (:foreground "pale green"))))
+ (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate"))))
+ (gnus-cite-face-7 ((t (:foreground "orange"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold nil))))
+ (gnus-emphasis-bold-italic ((t (:bold nil))))
+ (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+ (gnus-emphasis-italic ((t (nil))))
+ (gnus-emphasis-underline ((t (:underline t))))
+ (gnus-emphasis-underline-bold ((t (:underline t :bold nil))))
+ (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil))))
+ (gnus-emphasis-underline-italic ((t (:underline t))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+ (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1"))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2"))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+ (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3"))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+ (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4"))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise"))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise"))))
+ (gnus-group-news-3-empty-face ((t (nil))))
+ (gnus-group-news-3-face ((t (:bold nil))))
+ (gnus-group-news-4-empty-face ((t (nil))))
+ (gnus-group-news-4-face ((t (:bold nil))))
+ (gnus-group-news-5-empty-face ((t (nil))))
+ (gnus-group-news-5-face ((t (:bold nil))))
+ (gnus-group-news-6-empty-face ((t (nil))))
+ (gnus-group-news-6-face ((t (:bold nil))))
+ (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+ (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise"))))
+ (gnus-header-content-face ((t (:foreground "forest green"))))
+ (gnus-header-from-face ((t (:bold nil :foreground "spring green"))))
+ (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+ (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple"))))
+ (gnus-header-subject-face ((t (:bold nil :foreground "orange"))))
+ (gnus-signature-face ((t (:bold nil :foreground "khaki"))))
+ (gnus-splash-face ((t (:foreground "Brown"))))
+ (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+ (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue"))))
+ (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen"))))
+ (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink"))))
+ (gnus-summary-high-unread-face ((t (:bold nil))))
+ (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-low-read-face ((t (:foreground "PaleGreen"))))
+ (gnus-summary-low-ticked-face ((t (:foreground "pink"))))
+ (gnus-summary-low-unread-face ((t (nil))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+ (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+ (gnus-summary-normal-unread-face ((t (nil))))
+ (gnus-summary-selected-face ((t (:underline t))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "black"))))
+ (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+ (highlight ((t (:background "darkolivegreen"))))
+ (highline-face ((t (:background "SeaGreen"))))
+ (holiday-face ((t (:background "DimGray"))))
+ (info-menu-5 ((t (:underline t))))
+ (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
+ (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
+ (isearch ((t (:background "blue"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (nil))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
+ (message-cited-text-face ((t (:bold t :foreground "green"))))
+ (message-header-cc-face ((t (:bold t :foreground "green4"))))
+ (message-header-name-face ((t (:bold t :foreground "orange"))))
+ (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
+ (message-header-other-face ((t (:bold t :foreground "chocolate"))))
+ (message-header-subject-face ((t (:bold t :foreground "yellow"))))
+ (message-header-to-face ((t (:bold t :foreground "cadetblue"))))
+ (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
+ (message-mml-face ((t (:bold t :foreground "Green3"))))
+ (message-separator-face ((t (:foreground "blue3"))))
+ (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
+ (modeline-buffer-id ((t (:background "DarkRed" :foreground "white"))))
+ (modeline-mousable ((t (:background "DarkRed" :foreground "white"))))
+ (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
+ (p4-depot-added-face ((t (:foreground "blue"))))
+ (p4-depot-deleted-face ((t (:foreground "red"))))
+ (p4-depot-unmapped-face ((t (:foreground "grey30"))))
+ (p4-diff-change-face ((t (:foreground "dark green"))))
+ (p4-diff-del-face ((t (:foreground "red"))))
+ (p4-diff-file-face ((t (:background "gray90"))))
+ (p4-diff-head-face ((t (:background "gray95"))))
+ (p4-diff-ins-face ((t (:foreground "blue"))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "blue"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "blue"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "darkslateblue"))))
+ (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+ (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+ (text-cursor ((t (:background "yellow" :foreground "black"))))
+ (toolbar ((t (nil))))
+ (underline ((nil (:underline nil))))
+ (vertical-divider ((t (nil))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray"))))
+ (woman-bold-face ((t (:bold t))))
+ (woman-italic-face ((t (:foreground "beige"))))
+ (woman-unknown-face ((t (:foreground "LightSalmon"))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "snow" :foreground "blue")))))))
+
+(defun color-theme-tty-dark ()
+ "Color theme by Oivvio Polite, created 2002-02-01. Good for tty display."
+ (interactive)
+ (color-theme-install
+ '(color-theme-tty-dark
+ ((background-color . "black")
+ (background-mode . dark)
+ (border-color . "blue")
+ (cursor-color . "red")
+ (foreground-color . "white")
+ (mouse-color . "black"))
+ ((ispell-highlight-face . highlight)
+ (list-matching-lines-face . bold)
+ (tinyreplace-:face . highlight)
+ (view-highlight-face . highlight))
+ (default ((t (nil))))
+ (bold ((t (:underline t :background "black" :foreground "white"))))
+ (bold-italic ((t (:underline t :foreground "white"))))
+ (calendar-today-face ((t (:underline t))))
+ (diary-face ((t (:foreground "red"))))
+ (font-lock-builtin-face ((t (:foreground "blue"))))
+ (font-lock-comment-face ((t (:foreground "cyan"))))
+ (font-lock-constant-face ((t (:foreground "magenta"))))
+ (font-lock-function-name-face ((t (:foreground "cyan"))))
+ (font-lock-keyword-face ((t (:foreground "red"))))
+ (font-lock-string-face ((t (:foreground "green"))))
+ (font-lock-type-face ((t (:foreground "yellow"))))
+ (font-lock-variable-name-face ((t (:foreground "blue"))))
+ (font-lock-warning-face ((t (:bold t :foreground "magenta"))))
+ (highlight ((t (:background "blue" :foreground "yellow"))))
+ (holiday-face ((t (:background "cyan"))))
+ (info-menu-5 ((t (:underline t))))
+ (info-node ((t (:italic t :bold t))))
+ (info-xref ((t (:bold t))))
+ (italic ((t (:underline t :background "red"))))
+ (message-cited-text-face ((t (:foreground "red"))))
+ (message-header-cc-face ((t (:bold t :foreground "green"))))
+ (message-header-name-face ((t (:foreground "green"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+ (message-header-other-face ((t (:foreground "#b00000"))))
+ (message-header-subject-face ((t (:foreground "green"))))
+ (message-header-to-face ((t (:bold t :foreground "green"))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-mml-face ((t (:foreground "green"))))
+ (message-separator-face ((t (:foreground "blue"))))
+
+ (modeline ((t (:background "white" :foreground "blue"))))
+ (modeline-buffer-id ((t (:background "white" :foreground "red"))))
+ (modeline-mousable ((t (:background "white" :foreground "magenta"))))
+ (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow"))))
+ (region ((t (:background "white" :foreground "black"))))
+ (zmacs-region ((t (:background "cyan" :foreground "black"))))
+ (secondary-selection ((t (:background "blue"))))
+ (show-paren-match-face ((t (:background "red"))))
+ (show-paren-mismatch-face ((t (:background "magenta" :foreground "white"))))
+ (underline ((t (:underline t)))))))
+
+(defun color-theme-aliceblue ()
+ "Color theme by Girish Bharadwaj, created 2002-03-27.
+Includes comint prompt, custom, font-lock, isearch,
+jde, senator, speedbar, and widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-aliceblue
+ ((background-color . "AliceBlue")
+ (background-mode . light)
+ (border-color . "black")
+ (cursor-color . "black")
+ (foreground-color . "DarkSlateGray4")
+ (mouse-color . "black"))
+ ((help-highlight-face . underline)
+ (list-matching-lines-face . bold)
+ (semantic-which-function-use-color . t)
+ (senator-eldoc-use-color . t)
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "dark blue"))))
+ (cursor ((t (:background "black"))))
+ (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:background "gray85"))))
+ (custom-comment-tag-face ((t (:foreground "blue4"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+ (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+ (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "dark green"))))
+ (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+ (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+ (fixed-pitch ((t (:family "courier"))))
+ (font-lock-builtin-face ((t (:foreground "Orchid"))))
+ (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique))))
+ (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana"))))
+ (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+ (font-lock-reference-face ((t (:foreground "Orchid"))))
+ (font-lock-string-face ((t (:foreground "RosyBrown"))))
+ (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic))))
+ (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed))))
+ (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+ (fringe ((t (:background "DarkSlateBlue"))))
+ (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+ (highlight ((t (:background "darkseagreen2"))))
+ (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+ (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+ (italic ((t (:italic t :slant italic))))
+ (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+ (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+ (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+ (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+ (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
+ (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+ (jde-java-font-lock-code-face ((t (nil))))
+ (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
+ (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
+ (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+ (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
+ (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
+ (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+ (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+ (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
+ (jde-java-font-lock-pre-face ((t (nil))))
+ (jde-java-font-lock-underline-face ((t (:underline t))))
+ (menu ((t (nil))))
+ (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+ (modeline-buffer-id ((t (:background "grey75" :foreground "black"))))
+ (modeline-mousable ((t (:background "grey75" :foreground "black"))))
+ (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black"))))
+ (mouse ((t (:background "black"))))
+ (primary-selection ((t (:background "lightgoldenrod2"))))
+ (region ((t (:background "lightgoldenrod2"))))
+ (scroll-bar ((t (nil))))
+ (secondary-selection ((t (:background "yellow"))))
+ (semantic-dirty-token-face ((t (:background "lightyellow"))))
+ (semantic-unmatched-syntax-face ((t (:underline "red"))))
+ (senator-intangible-face ((t (:foreground "gray25"))))
+ (senator-momentary-highlight-face ((t (:background "gray70"))))
+ (senator-read-only-face ((t (:background "#CCBBBB"))))
+ (show-paren-match-face ((t (:background "turquoise"))))
+ (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+ (speedbar-button-face ((t (:foreground "green4"))))
+ (speedbar-directory-face ((t (:foreground "blue4"))))
+ (speedbar-file-face ((t (:foreground "cyan4"))))
+ (speedbar-highlight-face ((t (:background "green"))))
+ (speedbar-selected-face ((t (:foreground "red" :underline t))))
+ (speedbar-tag-face ((t (:foreground "brown"))))
+ (template-message-face ((t (:bold t :weight bold))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "gray85"))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "gray85"))))
+ (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-black-on-gray ()
+ "Color theme by sbhojwani, created 2002-04-03.
+Includes ecb, font-lock, paren, semantic, and widget faces.
+Some of the font-lock faces are disabled, ie. they look just
+like the default face. This is for people that don't like
+the look of \"angry fruit salad\" when editing."
+ (interactive)
+ (color-theme-install
+ '(color-theme-black-on-gray
+ ((background-color . "white")
+ (background-mode . light)
+ (border-color . "blue")
+ (foreground-color . "black"))
+ ((buffers-tab-face . buffers-tab)
+ (ecb-directories-general-face . ecb-default-general-face)
+ (ecb-directory-face . ecb-default-highlight-face)
+ (ecb-history-face . ecb-default-highlight-face)
+ (ecb-history-general-face . ecb-default-general-face)
+ (ecb-method-face . ecb-default-highlight-face)
+ (ecb-methods-general-face . ecb-default-general-face)
+ (ecb-source-face . ecb-default-highlight-face)
+ (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face)
+ (ecb-sources-general-face . ecb-default-general-face)
+ (ecb-token-header-face . ecb-token-header-face))
+ (default ((t (nil))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t :size "10pt"))))
+ (bold-italic ((t (:italic t :bold t :size "10pt"))))
+ (border-glyph ((t (:size "11pt"))))
+ (buffers-tab ((t (:background "gray75"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "red"))))
+ (ecb-bucket-token-face ((t (:bold t :size "10pt"))))
+ (ecb-default-general-face ((t (nil))))
+ (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow"))))
+ (ecb-directories-general-face ((t (nil))))
+ (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow"))))
+ (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow"))))
+ (ecb-history-general-face ((t (nil))))
+ (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow"))))
+ (ecb-methods-general-face ((t (nil))))
+ (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow"))))
+ (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue"))))
+ (ecb-sources-general-face ((t (nil))))
+ (ecb-token-header-face ((t (:background "SeaGreen1"))))
+ (ecb-type-token-class-face ((t (:bold t :size "10pt"))))
+ (ecb-type-token-enum-face ((t (:bold t :size "10pt"))))
+ (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray"))))
+ (ecb-type-token-interface-face ((t (:bold t :size "10pt"))))
+ (ecb-type-token-struct-face ((t (:bold t :size "10pt"))))
+ (ecb-type-token-typedef-face ((t (:bold t :size "10pt"))))
+ (font-lock-builtin-face ((t (:foreground "red3"))))
+ (font-lock-constant-face ((t (:foreground "blue3"))))
+ (font-lock-comment-face ((t (:foreground "blue"))))
+ (font-lock-doc-face ((t (:foreground "green4"))))
+ (font-lock-doc-string-face ((t (:foreground "green4"))))
+ (font-lock-function-name-face ((t (nil))))
+ (font-lock-keyword-face ((t (nil))))
+ (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+ (font-lock-reference-face ((t (:foreground "red3"))))
+ (font-lock-string-face ((t (nil))))
+ (font-lock-type-face ((t (nil))))
+ (font-lock-variable-name-face ((t (nil))))
+ (font-lock-warning-face ((t (nil))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75"))))
+ (gui-element ((t (:size "8pt" :background "gray75"))))
+ (highlight ((t (:background "darkseagreen2"))))
+ (isearch ((t (:background "paleturquoise"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (:size "10pt"))))
+ (left-margin ((t (nil))))
+ (list-mode-item-selected ((t (:background "gray68"))))
+ (modeline ((t (:background "gray75"))))
+ (modeline-buffer-id ((t (:background "gray75" :foreground "blue4"))))
+ (modeline-mousable ((t (:background "gray75" :foreground "firebrick"))))
+ (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4"))))
+ (paren-blink-off ((t (:foreground "gray"))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (nil))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray65"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "gray65"))))
+ (right-margin ((t (nil))))
+ (secondary-selection ((t (:background "paleturquoise"))))
+ (semantic-dirty-token-face ((t (nil))))
+ (semantic-unmatched-syntax-face ((t (nil))))
+ (text-cursor ((t (:background "red" :foreground "gray"))))
+ (toolbar ((t (:background "gray75"))))
+ (underline ((t (:underline t))))
+ (vertical-divider ((t (:background "gray75"))))
+ (widget ((t (:size "8pt" :background "gray75"))))
+ (widget-button-face ((t (:bold t))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85"))))
+ (widget-inactive-face ((t (nil))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-dark-blue2 ()
+ "Color theme by Chris McMahan, created 2002-04-12.
+Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff,
+dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock,
+gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde,
+message, mmm, paren, semantic, senator, sgml, smerge, speedbar,
+strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml. Yes, it is
+a large theme."
+ (interactive)
+ (color-theme-install
+ '(color-theme-dark-blue2
+ ((background-color . "#233b5a")
+ (background-mode . dark)
+ (background-toolbar-color . "#cf3ccf3ccf3c")
+ (border-color . "black")
+ (bottom-toolbar-shadow-color . "#79e77df779e7")
+ (cursor-color . "Yellow")
+ (foreground-color . "#fff8dc")
+ (mouse-color . "Grey")
+ (top-toolbar-shadow-color . "#fffffbeeffff")
+ (viper-saved-cursor-color-in-replace-mode . "Red3"))
+ ((blank-space-face . blank-space-face)
+ (blank-tab-face . blank-tab-face)
+ (cperl-invalid-face . underline)
+ (ecb-directories-general-face . ecb-directories-general-face)
+ (ecb-directory-face . ecb-directory-face)
+ (ecb-history-face . ecb-history-face)
+ (ecb-history-general-face . ecb-history-general-face)
+ (ecb-method-face . ecb-method-face)
+ (ecb-methods-general-face . ecb-methods-general-face)
+ (ecb-source-face . ecb-source-face)
+ (ecb-source-in-directories-buffer-face . ecb-sources-face)
+ (ecb-sources-general-face . ecb-sources-general-face)
+ (ecb-token-header-face . ecb-token-header-face)
+ (gnus-article-button-face . bold)
+ (gnus-article-mouse-face . highlight)
+ (gnus-cite-attribution-face . gnus-cite-attribution-face)
+ (gnus-signature-face . gnus-signature-face)
+ (gnus-summary-selected-face . gnus-summary-selected-face)
+ (help-highlight-face . underline)
+ (highline-face . highline-face)
+ (highline-vertical-face . highline-vertical-face)
+ (list-matching-lines-face . bold)
+ (ps-zebra-color . 0.95)
+ (senator-eldoc-use-color . t)
+ (sgml-set-face . t)
+ (tags-tag-face . default)
+ (view-highlight-face . highlight)
+ (vm-highlight-url-face . bold-italic)
+ (vm-highlighted-header-face . bold)
+ (vm-mime-button-face . gui-button-face)
+ (vm-summary-highlight-face . bold)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
+ (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
+ (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
+ (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
+ (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
+ (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (antlr-font-lock-ruleref-face ((t (:foreground "Gray85"))))
+ (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (antlr-font-lock-tokenref-face ((t (:foreground "Gray85"))))
+ (bbdb-company ((t (:italic t :slant italic))))
+ (bbdb-field-name ((t (:bold t :weight bold))))
+ (bbdb-field-value ((t (nil))))
+ (bbdb-name ((t (:underline t))))
+ (bg:erc-color-face0 ((t (:background "White"))))
+ (bg:erc-color-face1 ((t (:background "black"))))
+ (bg:erc-color-face10 ((t (:background "lightblue1"))))
+ (bg:erc-color-face11 ((t (:background "cyan"))))
+ (bg:erc-color-face12 ((t (:background "blue"))))
+ (bg:erc-color-face13 ((t (:background "deeppink"))))
+ (bg:erc-color-face14 ((t (:background "gray50"))))
+ (bg:erc-color-face15 ((t (:background "gray90"))))
+ (bg:erc-color-face2 ((t (:background "blue4"))))
+ (bg:erc-color-face3 ((t (:background "green4"))))
+ (bg:erc-color-face4 ((t (:background "red"))))
+ (bg:erc-color-face5 ((t (:background "brown"))))
+ (bg:erc-color-face6 ((t (:background "purple"))))
+ (bg:erc-color-face7 ((t (:background "orange"))))
+ (bg:erc-color-face8 ((t (:background "yellow"))))
+ (bg:erc-color-face9 ((t (:background "green"))))
+ (blank-space-face ((t (:background "LightGray"))))
+ (blank-tab-face ((t (:background "Wheat"))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t :foreground "cyan" :weight bold))))
+ (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (border-glyph ((t (nil))))
+ (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue"))))
+ (calendar-today-face ((t (:underline t))))
+ (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
+ (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki"))))
+ (change-log-date-face ((t (:foreground "gold"))))
+ (change-log-email-face ((t (:foreground "khaki" :underline t))))
+ (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold))))
+ (change-log-function-face ((t (:background "sienna" :foreground "khaki"))))
+ (change-log-list-face ((t (:foreground "wheat"))))
+ (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (comint-input-face ((t (:foreground "deepskyblue"))))
+ (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+ (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+ (cperl-invalid-face ((t (:foreground "white"))))
+ (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+ (cursor ((t (:background "Yellow"))))
+ (custom-button-face ((t (:bold t :weight bold))))
+ (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30"))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-comment-face ((t (:foreground "white"))))
+ (custom-comment-tag-face ((t (:foreground "white"))))
+ (custom-documentation-face ((t (:foreground "light blue"))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
+ (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "gray30" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:foreground "gray85"))))
+ (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+ (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
+ (cvs-filename-face ((t (:foreground "white"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:foreground "green"))))
+ (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+ (cvs-msg-face ((t (:foreground "gray85"))))
+ (cvs-need-action-face ((t (:foreground "yellow"))))
+ (cvs-unknown-face ((t (:foreground "grey"))))
+ (cyan ((t (:foreground "cyan"))))
+ (diary-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey50"))))
+ (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+ (diff-function-face ((t (:foreground "grey50"))))
+ (diff-header-face ((t (:foreground "lemon chiffon"))))
+ (diff-hunk-header-face ((t (:background "grey85"))))
+ (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
+ (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
+ (diff-removed-face ((t (nil))))
+ (dired-face-boring ((t (:foreground "Gray65"))))
+ (dired-face-directory ((t (:bold t :weight bold))))
+ (dired-face-executable ((t (:foreground "gray85"))))
+ (dired-face-flagged ((t (:background "LightSlateGray"))))
+ (dired-face-header ((t (:background "grey75" :foreground "gray30"))))
+ (dired-face-marked ((t (:background "PaleVioletRed"))))
+ (dired-face-permissions ((t (:background "grey75" :foreground "gray30"))))
+ (dired-face-setuid ((t (:foreground "gray85"))))
+ (dired-face-socket ((t (:foreground "gray85"))))
+ (dired-face-symlink ((t (:foreground "cyan"))))
+ (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+ (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+ (display-time-time-balloon-face ((t (:foreground "gray85"))))
+ (ebrowse-default-face ((t (nil))))
+ (ebrowse-file-name-face ((t (:italic t :slant italic))))
+ (ebrowse-member-attribute-face ((t (:foreground "red"))))
+ (ebrowse-member-class-face ((t (:foreground "Gray85"))))
+ (ebrowse-progress-face ((t (:background "blue"))))
+ (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (ebrowse-tree-mark-face ((t (:foreground "Gray85"))))
+ (ecb-bucket-token-face ((t (:bold t :weight bold))))
+ (ecb-default-general-face ((t (:height 1.0))))
+ (ecb-default-highlight-face ((t (:background "magenta" :height 1.0))))
+ (ecb-directories-general-face ((t (:height 0.9))))
+ (ecb-directory-face ((t (:background "Cyan4"))))
+ (ecb-history-face ((t (:background "Cyan4"))))
+ (ecb-history-general-face ((t (:height 0.9))))
+ (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal))))
+ (ecb-methods-general-face ((t (:slant normal))))
+ (ecb-source-face ((t (:background "Cyan4"))))
+ (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1"))))
+ (ecb-sources-face ((t (:foreground "LightBlue1"))))
+ (ecb-sources-general-face ((t (:height 0.9))))
+ (ecb-token-header-face ((t (:background "Steelblue4"))))
+ (ecb-type-token-class-face ((t (:bold t :weight bold))))
+ (ecb-type-token-enum-face ((t (:bold t :weight bold))))
+ (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold))))
+ (ecb-type-token-interface-face ((t (:bold t :weight bold))))
+ (ecb-type-token-struct-face ((t (:bold t :weight bold))))
+ (ecb-type-token-typedef-face ((t (:bold t :weight bold))))
+ (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+ (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30"))))
+ (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+ (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+ (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30"))))
+ (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+ (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30"))))
+ (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+ (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30"))))
+ (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30"))))
+ (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30"))))
+ (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+ (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30"))))
+ (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30"))))
+ (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+ (erc-action-face ((t (:bold t :weight bold))))
+ (erc-bold-face ((t (:bold t :weight bold))))
+ (erc-dangerous-host-face ((t (:foreground "red"))))
+ (erc-default-face ((t (nil))))
+ (erc-direct-msg-face ((t (:foreground "pale green"))))
+ (erc-error-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (erc-fool-face ((t (:foreground "Gray85"))))
+ (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
+ (erc-input-face ((t (:foreground "light blue"))))
+ (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+ (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+ (erc-notice-face ((t (:foreground "light salmon"))))
+ (erc-pal-face ((t (:foreground "pale green"))))
+ (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
+ (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+ (erc-underline-face ((t (:underline t))))
+ (eshell-ls-archive-face ((t (:bold t :weight bold))))
+ (eshell-ls-backup-face ((t (:foreground "gray85"))))
+ (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold))))
+ (eshell-ls-executable-face ((t (:bold t :weight bold))))
+ (eshell-ls-missing-face ((t (:bold t :weight bold))))
+ (eshell-ls-picture-face ((t (:foreground "gray85"))))
+ (eshell-ls-product-face ((t (:foreground "gray85"))))
+ (eshell-ls-readonly-face ((t (:foreground "gray70"))))
+ (eshell-ls-special-face ((t (:bold t :weight bold))))
+ (eshell-ls-symlink-face ((t (:bold t :weight bold))))
+ (eshell-ls-text-face ((t (:foreground "gray85"))))
+ (eshell-ls-todo-face ((t (:bold t :weight bold))))
+ (eshell-ls-unreadable-face ((t (:foreground "gray85"))))
+ (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold))))
+ (eshell-test-failed-face ((t (:bold t :weight bold))))
+ (eshell-test-ok-face ((t (:bold t :weight bold))))
+ (excerpt ((t (:italic t :slant italic))))
+ (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (fg:black ((t (:foreground "black"))))
+ (fg:erc-color-face0 ((t (:foreground "White"))))
+ (fg:erc-color-face1 ((t (:foreground "black"))))
+ (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+ (fg:erc-color-face11 ((t (:foreground "cyan"))))
+ (fg:erc-color-face12 ((t (:foreground "blue"))))
+ (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+ (fg:erc-color-face14 ((t (:foreground "gray50"))))
+ (fg:erc-color-face15 ((t (:foreground "gray90"))))
+ (fg:erc-color-face2 ((t (:foreground "blue4"))))
+ (fg:erc-color-face3 ((t (:foreground "green4"))))
+ (fg:erc-color-face4 ((t (:foreground "red"))))
+ (fg:erc-color-face5 ((t (:foreground "brown"))))
+ (fg:erc-color-face6 ((t (:foreground "purple"))))
+ (fg:erc-color-face7 ((t (:foreground "orange"))))
+ (fg:erc-color-face8 ((t (:foreground "yellow"))))
+ (fg:erc-color-face9 ((t (:foreground "green"))))
+ (fixed ((t (:bold t :weight bold))))
+ (fixed-pitch ((t (:family "outline-lucida console"))))
+ (fl-comment-face ((t (:foreground "gray85"))))
+ (fl-function-name-face ((t (:foreground "green"))))
+ (fl-keyword-face ((t (:foreground "LightGreen"))))
+ (fl-string-face ((t (:foreground "light coral"))))
+ (fl-type-face ((t (:foreground "cyan"))))
+ (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+ (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+ (font-latex-bold-face ((t (nil))))
+ (font-latex-italic-face ((t (nil))))
+ (font-latex-math-face ((t (nil))))
+ (font-latex-sedate-face ((t (:foreground "Gray85"))))
+ (font-latex-string-face ((t (:foreground "orange"))))
+ (font-latex-warning-face ((t (:foreground "gold"))))
+ (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
+ (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
+ (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+ (font-lock-doc-face ((t (:bold t :weight bold))))
+ (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+ (font-lock-exit-face ((t (:foreground "green"))))
+ (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
+ (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
+ (font-lock-preprocessor-face ((t (:foreground "Gray85"))))
+ (font-lock-reference-face ((t (:foreground "cyan"))))
+ (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
+ (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+ (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
+ (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
+ (fringe ((t (:background "#3c5473"))))
+ (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold))))
+ (gnus-cite-face-1 ((t (:foreground "gold"))))
+ (gnus-cite-face-10 ((t (:foreground "coral"))))
+ (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+ (gnus-cite-face-2 ((t (:foreground "wheat"))))
+ (gnus-cite-face-3 ((t (:foreground "light pink"))))
+ (gnus-cite-face-4 ((t (:foreground "khaki"))))
+ (gnus-cite-face-5 ((t (:foreground "pale green"))))
+ (gnus-cite-face-6 ((t (:foreground "beige"))))
+ (gnus-cite-face-7 ((t (:foreground "orange"))))
+ (gnus-cite-face-8 ((t (:foreground "magenta"))))
+ (gnus-cite-face-9 ((t (:foreground "violet"))))
+ (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold))))
+ (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
+ (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold"))))
+ (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic))))
+ (gnus-emphasis-underline ((t (:foreground "white" :underline t))))
+ (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold))))
+ (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold))))
+ (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic))))
+ (gnus-filterhist-face-1 ((t (nil))))
+ (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
+ (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold))))
+ (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+ (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+ (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
+ (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold))))
+ (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
+ (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold))))
+ (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+ (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+ (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+ (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+ (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
+ (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold))))
+ (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
+ (gnus-group-news-4-face ((t (:bold t :weight bold))))
+ (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
+ (gnus-group-news-5-face ((t (:bold t :weight bold))))
+ (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
+ (gnus-group-news-6-face ((t (:bold t :weight bold))))
+ (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
+ (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+ (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic))))
+ (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold))))
+ (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold))))
+ (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
+ (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold))))
+ (gnus-picons-face ((t (:background "white" :foreground "gray30"))))
+ (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30"))))
+ (gnus-signature-face ((t (:italic t :foreground "white" :slant italic))))
+ (gnus-splash ((t (:foreground "Brown"))))
+ (gnus-splash-face ((t (:foreground "orange"))))
+ (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange"))))
+ (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+ (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
+ (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
+ (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+ (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic))))
+ (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold))))
+ (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic))))
+ (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+ (gnus-summary-normal-read-face ((t (:foreground "gray70"))))
+ (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+ (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (gnus-summary-selected-face ((t (:foreground "white" :underline t))))
+ (gnus-x-face ((t (:background "white" :foreground "gray30"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "gray30"))))
+ (gui-element ((t (:background "Gray80"))))
+ (header-line ((t (:background "grey20" :foreground "grey90"))))
+ (hi-black-b ((t (:bold t :weight bold))))
+ (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
+ (hi-blue ((t (:background "light blue"))))
+ (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+ (hi-green ((t (:background "green"))))
+ (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+ (hi-pink ((t (:background "pink"))))
+ (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+ (hi-yellow ((t (:background "yellow"))))
+ (highlight ((t (:background "SkyBlue3"))))
+ (highlight-changes-delete-face ((t (:foreground "gray85" :underline t))))
+ (highlight-changes-face ((t (:foreground "gray85"))))
+ (highline-face ((t (:background "#3c5473"))))
+ (highline-vertical-face ((t (:background "lightcyan"))))
+ (holiday-face ((t (:background "pink" :foreground "gray30"))))
+ (html-helper-bold-face ((t (:bold t :weight bold))))
+ (html-helper-bold-italic-face ((t (nil))))
+ (html-helper-builtin-face ((t (:foreground "gray85" :underline t))))
+ (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
+ (html-helper-underline-face ((t (:underline t))))
+ (html-tag-face ((t (:bold t :weight bold))))
+ (hyper-apropos-documentation ((t (:foreground "white"))))
+ (hyper-apropos-heading ((t (:bold t :weight bold))))
+ (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+ (hyper-apropos-major-heading ((t (:bold t :weight bold))))
+ (hyper-apropos-section-heading ((t (:bold t :weight bold))))
+ (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold))))
+ (ibuffer-marked-face ((t (:foreground "gray85"))))
+ (idlwave-help-link-face ((t (:foreground "Blue"))))
+ (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+ (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+ (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+ (info-menu-5 ((t (:underline t))))
+ (info-menu-6 ((t (nil))))
+ (info-menu-header ((t (:bold t :weight bold :family "helv"))))
+ (info-node ((t (:italic t :bold t :slant italic :weight bold))))
+ (info-xref ((t (:bold t :weight bold))))
+ (isearch ((t (:background "LightSeaGreen"))))
+ (isearch-lazy-highlight-face ((t (:background "cyan4"))))
+ (isearch-secondary ((t (:foreground "red3"))))
+ (italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+ (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+ (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+ (jde-java-font-lock-code-face ((t (nil))))
+ (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+ (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t))))
+ (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+ (jde-java-font-lock-operator-face ((t (:foreground "cyan3"))))
+ (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
+ (jde-java-font-lock-pre-face ((t (nil))))
+ (jde-java-font-lock-underline-face ((t (:underline t))))
+ (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold))))
+ (left-margin ((t (nil))))
+ (linemenu-face ((t (:background "gray30"))))
+ (list-mode-item-selected ((t (:background "gray68"))))
+ (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+ (log-view-message-face ((t (:background "grey85"))))
+ (magenta ((t (:foreground "gray85"))))
+ (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
+ (man-bold ((t (:bold t :weight bold))))
+ (man-heading ((t (:bold t :weight bold))))
+ (man-italic ((t (:foreground "yellow"))))
+ (man-xref ((t (:underline t))))
+ (menu ((t (:background "wheat" :foreground "gray30"))))
+ (message-cited-text ((t (:foreground "orange"))))
+ (message-cited-text-face ((t (:foreground "medium aquamarine"))))
+ (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (message-header-contents ((t (:foreground "white"))))
+ (message-header-name-face ((t (:foreground "gray85"))))
+ (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+ (message-header-other-face ((t (:foreground "gray85"))))
+ (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold))))
+ (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+ (message-header-xheader-face ((t (:foreground "blue"))))
+ (message-headers ((t (:bold t :foreground "orange" :weight bold))))
+ (message-highlighted-header-contents ((t (:bold t :weight bold))))
+ (message-mml-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (message-separator-face ((t (:foreground "gray85"))))
+ (message-url ((t (:bold t :foreground "pink" :weight bold))))
+ (mmm-default-submode-face ((t (:background "#c0c0c5"))))
+ (mmm-face ((t (:background "black" :foreground "green"))))
+ (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv")))))
+ (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana"))))
+ (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
+ (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
+ (mouse ((t (:background "Grey"))))
+ (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White"))))
+ (my-url-face ((t (:foreground "LightBlue"))))
+ (nil ((t (nil))))
+ (paren-blink-off ((t (:foreground "gray80"))))
+ (paren-face-match ((t (:background "turquoise"))))
+ (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+ (paren-face-no-match ((t (:background "yellow" :foreground "gray30"))))
+ (paren-match ((t (:background "darkseagreen2"))))
+ (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30"))))
+ (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
+ (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
+ (pointer ((t (nil))))
+ (primary-selection ((t (:background "gray40"))))
+ (reb-match-0 ((t (:background "lightblue"))))
+ (reb-match-1 ((t (:background "aquamarine"))))
+ (reb-match-2 ((t (:background "springgreen"))))
+ (reb-match-3 ((t (:background "yellow"))))
+ (red ((t (:foreground "red"))))
+ (region ((t (:background "Cyan4"))))
+ (right-margin ((t (nil))))
+ (scroll-bar ((t (:background "grey75"))))
+ (secondary-selection ((t (:background "gray60"))))
+ (semantic-dirty-token-face ((t (:background "gray10"))))
+ (semantic-intangible-face ((t (:foreground "gray25"))))
+ (semantic-read-only-face ((t (:background "gray25"))))
+ (semantic-unmatched-syntax-face ((t (:underline "red"))))
+ (senator-intangible-face ((t (:foreground "gray75"))))
+ (senator-momentary-highlight-face ((t (:background "gray70"))))
+ (senator-read-only-face ((t (:background "#664444"))))
+ (sgml-comment-face ((t (:foreground "dark turquoise"))))
+ (sgml-doctype-face ((t (:foreground "turquoise"))))
+ (sgml-end-tag-face ((t (:foreground "aquamarine"))))
+ (sgml-entity-face ((t (:foreground "gray85"))))
+ (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+ (sgml-ms-end-face ((t (:foreground "green"))))
+ (sgml-ms-start-face ((t (:foreground "yellow"))))
+ (sgml-pi-face ((t (:foreground "lime green"))))
+ (sgml-sgml-face ((t (:foreground "brown"))))
+ (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+ (sgml-start-tag-face ((t (:foreground "aquamarine"))))
+ (sh-heredoc-face ((t (:foreground "tan"))))
+ (shell-option-face ((t (:foreground "gray85"))))
+ (shell-output-2-face ((t (:foreground "gray85"))))
+ (shell-output-3-face ((t (:foreground "gray85"))))
+ (shell-output-face ((t (:bold t :weight bold))))
+ (shell-prompt-face ((t (:foreground "yellow"))))
+ (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold))))
+ (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold))))
+ (show-tabs-space-face ((t (:foreground "yellow"))))
+ (show-tabs-tab-face ((t (:foreground "red"))))
+ (smerge-base-face ((t (:foreground "red"))))
+ (smerge-markers-face ((t (:background "grey85"))))
+ (smerge-mine-face ((t (:foreground "Gray85"))))
+ (smerge-other-face ((t (:foreground "darkgreen"))))
+ (speedbar-button-face ((t (:bold t :weight bold))))
+ (speedbar-directory-face ((t (:bold t :weight bold))))
+ (speedbar-file-face ((t (:bold t :weight bold))))
+ (speedbar-highlight-face ((t (:background "sea green"))))
+ (speedbar-selected-face ((t (:underline t))))
+ (speedbar-tag-face ((t (:foreground "yellow"))))
+ (strokes-char-face ((t (:background "lightgray"))))
+ (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (template-message-face ((t (:bold t :weight bold))))
+ (term-black ((t (:foreground "black"))))
+ (term-blackbg ((t (:background "black"))))
+ (term-blue ((t (:foreground "blue"))))
+ (term-bluebg ((t (:background "blue"))))
+ (term-bold ((t (:bold t :weight bold))))
+ (term-cyan ((t (:foreground "cyan"))))
+ (term-cyanbg ((t (:background "cyan"))))
+ (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
+ (term-default-bg ((t (nil))))
+ (term-default-bg-inv ((t (nil))))
+ (term-default-fg ((t (nil))))
+ (term-default-fg-inv ((t (nil))))
+ (term-green ((t (:foreground "green"))))
+ (term-greenbg ((t (:background "green"))))
+ (term-invisible ((t (nil))))
+ (term-invisible-inv ((t (nil))))
+ (term-magenta ((t (:foreground "magenta"))))
+ (term-magentabg ((t (:background "magenta"))))
+ (term-red ((t (:foreground "red"))))
+ (term-redbg ((t (:background "red"))))
+ (term-underline ((t (:underline t))))
+ (term-white ((t (:foreground "white"))))
+ (term-whitebg ((t (:background "white"))))
+ (term-yellow ((t (:foreground "yellow"))))
+ (term-yellowbg ((t (:background "yellow"))))
+ (tex-math-face ((t (:foreground "RosyBrown"))))
+ (texinfo-heading-face ((t (:foreground "Blue"))))
+ (text-cursor ((t (:background "Red3" :foreground "gray80"))))
+ (tool-bar ((t (:background "grey75" :foreground "black"))))
+ (toolbar ((t (:background "Gray80"))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))
+ (trailing-whitespace ((t (:background "red"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
+ (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+ (vertical-divider ((t (:background "Gray80"))))
+ (vhdl-font-lock-attribute-face ((t (:foreground "gray85"))))
+ (vhdl-font-lock-directive-face ((t (:foreground "gray85"))))
+ (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85"))))
+ (vhdl-font-lock-function-face ((t (:foreground "gray85"))))
+ (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+ (vhdl-speedbar-architecture-face ((t (:foreground "gray85"))))
+ (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t))))
+ (vhdl-speedbar-configuration-face ((t (:foreground "gray85"))))
+ (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t))))
+ (vhdl-speedbar-entity-face ((t (:foreground "gray85"))))
+ (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t))))
+ (vhdl-speedbar-instantiation-face ((t (:foreground "gray85"))))
+ (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t))))
+ (vhdl-speedbar-package-face ((t (:foreground "gray85"))))
+ (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t))))
+ (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+ (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+ (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+ (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+ (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic))))
+ (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic))))
+ (vm-header-name-face ((t (:foreground "cyan"))))
+ (vm-header-subject-face ((t (:foreground "cyan"))))
+ (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic))))
+ (vm-message-cited-face ((t (:foreground "Gray80"))))
+ (vm-monochrome-image ((t (:background "white" :foreground "gray30"))))
+ (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
+ (vm-summary-highlight-face ((t (:foreground "White"))))
+ (vm-xface ((t (:background "white" :foreground "gray30"))))
+ (vmpc-pre-sig-face ((t (:foreground "gray85"))))
+ (vmpc-sig-face ((t (:foreground "gray85"))))
+ (vvb-face ((t (:background "pink" :foreground "gray30"))))
+ (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
+ (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+ (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+ (white ((t (:foreground "white"))))
+ (widget ((t (nil))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "gray85"))))
+ (widget-documentation-face ((t (:foreground "dark green"))))
+ (widget-field-face ((t (:background "gray85" :foreground "gray30"))))
+ (widget-inactive-face ((t (:foreground "dim gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
+ (woman-addition-face ((t (:foreground "orange"))))
+ (woman-bold-face ((t (:bold t :weight bold))))
+ (woman-italic-face ((t (:foreground "beige"))))
+ (woman-unknown-face ((t (:foreground "LightSalmon"))))
+ (x-face ((t (:background "white" :foreground "gray30"))))
+ (xrdb-option-name-face ((t (:foreground "gray85"))))
+ (xref-keyword-face ((t (:foreground "gray85"))))
+ (xref-list-default-face ((t (nil))))
+ (xref-list-pilot-face ((t (:foreground "gray85"))))
+ (xref-list-symbol-face ((t (:foreground "navy"))))
+ (xsl-fo-alternate-face ((t (:foreground "Yellow"))))
+ (xsl-fo-main-face ((t (:foreground "PaleGreen"))))
+ (xsl-other-element-face ((t (:foreground "Coral"))))
+ (xsl-xslt-alternate-face ((t (:foreground "LightGray"))))
+ (xsl-xslt-main-face ((t (:foreground "Wheat"))))
+ (xxml-emph-1-face ((t (:background "lightyellow"))))
+ (xxml-emph-2-face ((t (:background "lightyellow"))))
+ (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
+ (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
+ (xxml-header-3-face ((t (:background "seashell1"))))
+ (xxml-header-4-face ((t (:background "seashell1"))))
+ (xxml-interaction-face ((t (:background "lightcyan"))))
+ (xxml-rug-face ((t (:background "cyan"))))
+ (xxml-sparkle-face ((t (:background "yellow"))))
+ (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t))))
+ (yellow ((t (:foreground "yellow"))))
+ (zmacs-region ((t (:background "Cyan4")))))))
+
+(defun color-theme-blue-mood ()
+ "Color theme by Nelson Loyola, created 2002-04-15.
+Includes cperl, custom, font-lock, p4, speedbar, widget."
+ (interactive)
+ (color-theme-install
+ '(color-theme-blue-mood
+ ((background-color . "DodgerBlue4")
+ (background-mode . dark)
+ (background-toolbar-color . "#bfbfbfbfbfbf")
+ (border-color . "Blue")
+ (border-color . "#000000000000")
+ (bottom-toolbar-shadow-color . "#6c6c68686868")
+ (cursor-color . "DarkGoldenrod1")
+ (foreground-color . "white smoke")
+ (mouse-color . "black")
+ (top-toolbar-shadow-color . "#e5e5e0e0e1e1"))
+ ((vc-annotate-very-old-color . "#0046FF"))
+ (default ((t (nil))))
+ (blue ((t (:foreground "blue"))))
+ (bold ((t (:bold t))))
+ (bold-italic ((t (nil))))
+ (border-glyph ((t (nil))))
+ (cmode-bracket-face ((t (:bold t))))
+ (cperl-array-face ((t (:bold t :foreground "wheat"))))
+ (cperl-hash-face ((t (:bold t :foreground "chartreuse"))))
+ (custom-button-face ((t (nil))))
+ (custom-changed-face ((t (:background "blue" :foreground "white"))))
+ (custom-documentation-face ((t (nil))))
+ (custom-face-tag-face ((t (:underline t))))
+ (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+ (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+ (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+ (custom-modified-face ((t (:background "blue" :foreground "white"))))
+ (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+ (custom-saved-face ((t (:underline t))))
+ (custom-set-face ((t (:background "white" :foreground "blue"))))
+ (custom-state-face ((t (:bold t :foreground "cyan"))))
+ (custom-variable-button-face ((t (:underline t :bold t))))
+ (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+ (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+ (font-lock-builtin-face ((t (:bold t :foreground "wheat"))))
+ (font-lock-comment-face ((t (:bold t :foreground "gray72"))))
+ (font-lock-constant-face ((t (:bold t :foreground "cyan3"))))
+ (font-lock-doc-string-face ((t (:foreground "#00C000"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "chartreuse"))))
+ (font-lock-keyword-face ((t (:bold t :foreground "gold1"))))
+ (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1"))))
+ (font-lock-other-type-face ((t (:bold t :foreground "gold1"))))
+ (font-lock-preprocessor-face ((t (:foreground "plum"))))
+ (font-lock-reference-face ((t (:bold t :foreground "orangered"))))
+ (font-lock-string-face ((t (:foreground "tomato"))))
+ (font-lock-type-face ((t (:bold t :foreground "gold1"))))
+ (font-lock-variable-name-face ((t (:foreground "light yellow"))))
+ (font-lock-warning-face ((t (:foreground "tomato"))))
+ (green ((t (:foreground "green"))))
+ (gui-button-face ((t (:background "grey75" :foreground "black"))))
+ (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000"))))
+ (highlight ((t (:background "red" :foreground "yellow"))))
+ (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
+ (italic ((t (nil))))
+ (lazy-highlight-face ((t (:bold t :foregrou