;; -*- self-compile-mode: t -*-

(eval-when-compile
  (require 'color-theme))

(defun color-theme-alex ()
  "Color theme by Alexander Sulfrian, created 2012-03-14."
  (interactive)
  (color-theme-install
   '(color-theme-alex
     ((foreground-color . "grey90")
      (background-color . "black")
      (background-mode . dark))
     (default ((t (:height 79))))
     (border ((t (:background "gray50"))))
     (fixed-pitch ((t (:family "terminus"))))
     (font-lock-comment-face ((nil (:foreground "green3"))))
     (font-lock-constant-face ((nil (:weight bold))))
     (font-lock-negation-char-face ((t (:foreground "red" :weight bold))))
     (font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground "magenta"))))
     (font-lock-string-face ((nil (:foreground "red2"))))
     (font-lock-warning-face ((t (:foreground "Red" :weight bold))))
     (highlight ((nil (:background "grey10"))))
     (linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) 
     (mode-line ((t (:box (:line-width 1 :color "grey75")))))
     (mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button)))))
     (mode-line-inactive ((default (:inherit mode-line :foreground "gray60")) (nil nil)))
     (region ((((class color) (min-colors 88) (background dark)) (:inverse-video t))))
     (scroll-bar ((t (:background "black" :foreground "gray25")))))))

;;  '(custom-face-tag ((t (:weight bold))))
;;  '(custom-group-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold))))
;;  '(custom-group-tag-1 ((((min-colors 88) (class color) (background light)) (:foreground "red1" :weight bold :height 1.2))))
;;  '(custom-variable-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold))))
;;  '(fringe ((((class color) (background light)) (:background "gray80"))))
;;  '(isearch ((((class color) (min-colors 88) (background dark)) (:background "yellow3" :foreground "black" :weight bold))))
;;  '(italic ((((supports :underline t)) (:underline t))))
;;  '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1" :underline t))))
;;  '(linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal))))
;;  '(menu ((t nil)))
;;  '(mumamo-background-chunk-major ((((class color) (min-colors 88) (background light)) nil)))
;;  '(mumamo-background-chunk-submode ((((class color) (min-colors 88) (background light)) nil)))
;;  '(newsticker-immortal-item-face ((t (:foreground "blue" :slant italic :weight bold))))
;;  '(newsticker-new-item-face ((t (:weight bold))))
;;  '(newsticker-obsolete-item-face ((t (:strike-through t :weight bold))))
;;  '(newsticker-old-item-face ((t (:foreground "red4" :weight bold))))
;;  '(shadow ((((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey50"))))
;;  '(sml-modeline-end-face ((t (:inherit modeline))))
;;  '(sml-modeline-vis-face ((t (:background "gray30"))))
;;  '(tooltip ((t (:background "lightyellow" :foreground "black"))))
;;  '(variable-pitch ((t (:family "terminus"))))
;;  '(vhdl-font-lock-attribute-face ((((class color) (background light)) (:foreground "Orchid"))))
;;  '(vhdl-font-lock-directive-face ((((class color) (background light)) (:foreground "cyan3"))))
;;  '(vhdl-font-lock-prompt-face ((t (:foreground "Red"))))
;;  '(vhl/default-face ((t (:inherit secondary-selection :background "darkred"))))
;;  '(widget-button ((t (:background "grey75" :foreground "black" :box (:line-width 2 :color "grey75" :style released-button)))))
;;  '(widget-field ((t (:background "gray85" :foreground "black"))))
;;  '(widget-single-line-field ((t (:background "gray85")))))

(defun color-theme-alex-console ()
  "Color theme by Alexander Sulfrian for console, created 2012-03-14."
  (interactive)
  (color-theme-alex)
  (let ((color-theme-is-cumulative t))
    (color-theme-install
     '(color-theme-alex-console
       ((foreground-color . "white"))
       (default ((t (:height 0.75))))
       (region ((nil (:inverse-video t))))))))

(provide 'color-themes-alex)