;; -*- 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))
     (border ((t (:background "gray50"))))
     (diff-removed ((t (:inherit diff-changed :foreground "red3"))))
     (diff-added ((t (:inherit diff-changed :foreground "Lime green"))))
     (diff-header ((t (:weight bold :background nil))))
     (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))))
     (fringe ((t (:background "gray10"))))
     (highlight ((nil (:background "grey10"))))
     (linum ((t (:background "gray10" :foreground "gray50" :height 0.8))))
     (magit-item-highlight ((t (:background "gray10"))))
     (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")))))))

(defun color-theme-alex-console ()
  "Color theme by Alexander Sulfrian for console, created 2012-03-14."
  (interactive)
  (color-theme-alex)
  (color-theme-install
   '(color-theme-alex-console
     ()
     (default ((t (:background nil :foreground "white"))))
     (linum ((t (:background   nil :foreground "white" :box nil
                 :strike-through nil :overline nil :underline nil
                 :slant normal :weight normal))))
     (region ((nil (:inverse-video t)))))))

(provide 'color-themes-alex)