(defun color-theme-goldenrod ()
  "Brown color theme.  It's ugly, but it's different.
Supports standard, font-lock and info faces."
  (interactive)
  (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))))
    (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))))
    (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"))))
    (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"))))
    (italic ((t (:italic t :foreground "midnight blue"))))
    (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"))))
    (region ((t (:background "dark olive green"))))
    (secondary-selection ((t (:background "dark green"))))
    (underline ((t (:underline t)))))))

(provide 'color-theme-goldenrod)

    Source: geocities.com/kensanata/elisp/themes

               ( geocities.com/kensanata/elisp)                   ( geocities.com/kensanata)