(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")))))))
(provide 'color-theme-jonadabian-slate)
(
geocities.com/kensanata/elisp) (
geocities.com/kensanata)