;;; Hef's color scheme

(defun color-theme-hef ()
  "Color theme based loosely on `color-theme-gnome2' 
and `color-theme-robin-hood'. Dark but warm."
  (interactive)
  (color-theme-gnome2)
  (let ((color-theme-is-cumulative t)
        (background-color "#23241D"))
    (color-theme-install
     `(color-theme-hef
       ((foreground-color . "navajo white")
	(background-color . ,background-color))
       ((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))))
       (custom-button-face ((t (:foreground "White" 
                                :background "#555"                                 
                                :box (:line-width 1 :style released-button)))))
       (custom-link ((t (:foreground "#8cc" :underline t))))
       (font-lock-builtin-face ((t (:foreground "#9DC" ))))   ; "#8C9": greenish
       ;(font-lock-function-name-face ((t (:foreground "#ED6" :bold t))))
       (font-lock-function-name-face ((t (:foreground "#ED6" :underline t :bold t))))
       (font-lock-type-face ((t (:foreground "#FFF" :underline nil :bold t))))
       (font-lock-doc-face ((t (:foreground "#A6978D"))))
       (font-lock-constant-face ((t (:foreground "#C0B398" :bold t))))
       (font-lock-variable-name-face ((t (:foreground "#d8d" :bold t))))
       (font-lock-comment-face ((t (:foreground "#BCC"))))
       (fringe ((t (:background ,background-color))))
       (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 (:background "black" :foreground "#F63" :underline t))))
       (menu ((t (:background "#304020" :foreground "navajo white"))))
       (minibuffer-prompt ((t (:foreground "white"))))
       (modeline ((t (:background "#882810"
                      :foreground "wheat"
                      :box (:line-width 1 :style released-button)))))
       (mode-line-inactive ((t (:background "#524530"
                                :foreground "#524530"
                                :box (:line-width 1 :style released-button)))))
       (modeline-buffer-id ((t (:foreground "beige"))))
       (modeline-mousable ((t (:foreground "yellow green"))))
       (modeline-mousable-minor-mode ((t (:foreground "wheat"))))
       (modeline-highlight ((t (:background "#763" :foreground "wheat" :box (:line-width 1 :style released-button)))))
       (paren-face ((t (:foreground "#A09888"))))
       (semantic-dirty-token-face ((t (:background "grey22"))))
       (show-paren-match ((t (:background "#583c68" :foreground "white"))))
       (slime-reader-conditional-face ((t (:foreground "#888"))))
       (slime-error-face ((t (:background "#500" :foreground "#FA9"))))
       (slime-highlight-face ((t (:background "#9C6A20" :foreground "#FEB"))))
       (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button)))))
       (tooltip ((t (:background "lemon chiffon" :foreground "black"))))
       (header-line ((t (:foreground "beige" :background "black"))))
       (erc-direct-msg-face ((t (:foreground "d8d"))))
       (erc-nick-default-face ((t (:foreground "white" :bold t))))
       (erc-notice-face ((t (:foreground "light salmon"))))
       (erc-timestamp-face ((t (:foreground "#524530"))))
       (erc-current-nick-face ((t (:foreground "#ED6" :underline t :bold t))))
       (erc-prompt-face ((t (:foreground "#ED6" :bold t))))))))