(defun color-theme-robin-hood ()
  "`color-theme-gnome2' with navajo white on green."
  (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"))
       (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"))))
       (default ((((type x)) (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"))))
       (comint-highlight-prompt ((t (:foreground "medium 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))))
       (fringe ((t (:background "#003700"))))
       (header-line ((t (:background "#030" :foreground "#AA7"))))
       (ido-subdir-face ((t (:foreground "MediumSlateBlue"))))
       (menu ((t (:background "#304020" :foreground "navajo white"))))
       (modeline ((t (:background "dark olive green" :foreground "wheat"))))
       (semantic-dirty-token-face ((t (:background "grey22"))))
       (tooltip ((t (:background "lemon chiffon" :foreground "black"))))))))

(provide 'color-theme-robin-hood)

    Source: geocities.com/kensanata/elisp/themes

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