/sarcasm-theme.el

;;; sarcasm-theme.el --- Custom face theme for Emacs

;; Copyright (C) 2010 Guillaume Papin.

;; This file is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;; usage:
;; In init file:
;;
;;     (load-theme 'sarcasm)
;;
;; Or after init:
;; M-x `load-theme' RET `sarcasm' RET
;;
;; Or via `customize':
;; M-x `customize-variable' RET `custom-enabled-themes' RET.

;; Note:
;; M-x `list-faces-display' RET
;;; Code:

(deftheme sarcasm
  "Created 2011-04-10.")

(let* ((black "black")
       (white "white")
       (red "firebrick")
       (green "lime green")      ;lime green, green1, green2, green3 ?
       (blue "DodgerBlue2")
       (yellow "yellow2")
       (orange "orange")
       (pink "deep pink")
       (violet "maroon")
       (brown "saddle brown")
       (grey "gray30")
       (cyan "cornflower blue")

       ;; (soft-black "grey14")
       (soft-black "grey10")
       (soft-white "white smoke")       ;"MistyRose2"
       (soft-blue "#4477aa")
       (soft-gold "DarkGoldenrod2")

       (dark-grey "grey17")
       (dark-red "dark red")
       (dark-orange "chocolate")

       (bright-grey "grey60")

       (background soft-black)
       (foreground soft-white))
  (custom-theme-set-faces 'sarcasm
   `(default ((t (:background ,background :foreground ,foreground))))
   `(cursor ((t (:background ,soft-gold))))
   `(region ((t (:background ,blue :foreground ,soft-white))))
   `(header-line ((t (:background ,dark-red :foreground ,white))))
   `(fringe ((t (:background ,background))))
   `(minibuffer-prompt ((t (:foreground ,blue :bold t))))
   `(isearch ((t (:background ,pink :foreground ,black))))
   `(lazy-highlight ((t (:background ,orange :foreground ,background))))
   `(link ((t (:foreground ,soft-blue :underline t))))
   `(link-visited ((t (:foreground ,blue :underline t))))
   `(button ((t (:foreground ,bright-grey :underline t)))) ;backtick links in lisp
   `(trailing-whitespace ((t (:background ,dark-grey))))
   `(whitespace-line ((t (:background ,dark-red :underline ,dark-red))))
   `(show-paren-match ((t (:background ,yellow :foreground ,dark-grey :bold t))))
   `(highlight ((t (:background ,dark-grey))))
   `(hl-line ((t (:background ,dark-grey))))
   `(secondary-selection ((t (:background ,dark-grey))))
   ;; Mode line
   `(mode-line ((t (:background "#52002c" :foreground ,bright-grey :italic t
                                :box (:line-width 1 :color ,grey)))))
   `(mode-line-inactive ((t (:background ,dark-grey :foreground ,bright-grey :italic nil  :box nil))))
   `(mode-line-buffer-id ((t (:bold t :foreground ,pink :italic nil))))
   `(mode-line-emphasis ((t (:bold t))))
   `(mode-line-highlight ((t (:background ,grey :foreground ,white
                                          :box (:line-width 1 :color ,grey)))))
   `(shadow ((t (:foreground ,bright-grey))))

   ;; TODO: from tango-theme.el
   `(escape-glyph ((t (:foreground ,red))))
   `(success ((t (:foreground ,green))))
   `(warning ((t (:foreground ,orange))))
   `(error ((t (:foreground ,red))))
   ;; Flyspell
   `(flyspell-duplicate ((t (:underline ,orange))))
   `(flyspell-incorrect ((t (:underline ,red))))


   ;; see:
   ;; [[info:elisp#Faces%20for%20Font%20Lock][info: Faces for Font Lock]]
   ;; http://www.gnu.org/s/emacs/manual/html_node/elisp/Faces-for-Font-Lock.html
   `(font-lock-builtin-face ((t (:foreground ,soft-blue)))) ;includes statements, elisp properties, ..
   `(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face))))
   `(font-lock-comment-face ((t (:foreground ,red :italic t))))
   `(font-lock-constant-face ((t (:foreground ,pink :bold t))))
   `(font-lock-doc-face ((t (:inherit font-lock-string-face :italic t)))) ;i.e: elisp docstring
   `(font-lock-function-name-face ((t (:foreground ,soft-blue :bold t))))
   `(font-lock-keyword-face ((t (:foreground ,cyan :bold t))))
   ;; Color the 'n' character in an '#ifndef' directive
   ;; `font-lock-negation-char-face'
   `(font-lock-preprocessor-face ((t (:foreground ,dark-orange :bold t))))
   `(font-lock-string-face ((t (:foreground ,violet))))
   `(font-lock-type-face ((t (:foreground ,dark-orange :bold t))))
   `(font-lock-variable-name-face ((t (:foreground ,pink)))) ;define, variable name, ...
   `(font-lock-warning-face ((t (:foreground ,red :bold t)))) ;cwarn-mode, ###autoloads

   ;; Flymake
   `(flymake-errline ((t (:background ,dark-grey :foreground ,soft-white :underline ,dark-red))))
   `(flymake-warnline ((t (:background ,dark-grey :underline ,soft-blue))))

   ;; C-x m
   `(message-header-name ((t (:foreground ,orange :bold t))))
   `(message-header-to ((t (:foreground ,pink :bold t))))
   `(message-header-other ((t (:foreground ,blue))))
   `(message-separator ((t (:foreground ,red))))
   `(message-header-subject ((t (:foreground ,green :bold t))))
   ;; TODO: (stolen from misterioso-theme.el)
   ;; `(message-header-cc ((,class (:foreground "#e67128"))))
   ;; `(message-cited-text ((,class (:foreground "#74af68"))))

   ;; ERC
   `(erc-prompt-face ((t (:background ,background :foreground ,orange :bold t))))

   ;; ace-window
   `(aw-leading-char-face ((t (:foreground "DarkGoldenrod2" :height 3.0))))

   ;; diff-mode
   `(diff-added ((t (:foreground ,green))))
   `(diff-changed ((t (:foreground ,orange))))
   `(diff-removed ((t (:foreground ,dark-red))))
   `(diff-hunk-header ((t (:bold t))))
   `(diff-function ((t (:foreground ,soft-blue :bold t))))
   `(diff-header ((t (:background ,dark-grey))))
   `(diff-file-header ((t (:foreground ,grey))))
   `(diff-refine-change ((t (:background ,dark-grey))))

   ;; magit
   `(magit-section-title ((t (:background ,dark-red :foreground ,white))))
   `(magit-diff-add ((t (:foreground ,green))))
   `(magit-diff-del ((t (:foreground ,dark-red))))
   `(magit-diff-none ((t (:inherit (diff-context)))))
   `(magit-branch ((t (:foreground ,pink :bold t))))
   `(magit-header ((t (:foreground ,orange :bold t))))
   `(magit-diff-del ((t (:inherit diff-removed :background "gray20" :foreground "red3"))))
   `(magit-diff-hunk-header ((t (:inherit (magit-header diff-hunk-header)))))
   `(magit-diff-file-header  ((t (:inherit (magit-header diff-file-header)))))
   `(magit-log-sha1 ((t (:foreground ,soft-blue))))
   `(magit-log-graph ((t (:foreground ,pink))))
   `(magit-item-highlight ((t (:background ,dark-grey))))
   `(magit-item-mark ((t (:foreground ,pink))))
   `(magit-log-tag-label ((t (:box t))))
   `(magit-log-head-label-bisect-good ((t (:background ,green :box t))))
   `(magit-log-head-label-bisect-bad ((t (:background ,red :box t))))
   `(magit-log-head-label-remote ((t (:background ,soft-gold :box t))))
   '(magit-log-head-label-tags ((t (:inherit (magit-log-tag-label)))))
   `(magit-log-head-label-local ((t (:foreground ,soft-white :background ,dark-grey
                                                 :box t))))

   ;; Ediff interactive resolve with magit
   ;; http://www.gnu.org/software/emacs/manual/html_node/ediff/Highlighting-Difference-Regions.html
   ;; (ediff-current-diff-A ((t (:background "pale green" :foreground "firebrick"))))
   ;; (ediff-current-diff-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
   ;; (ediff-current-diff-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
   ;; (ediff-current-diff-C ((t (:background "Pink" :foreground "Navy"))))
   ;; (ediff-even-diff-A ((t (:background "light grey" :foreground "Black"))))
   ;; (ediff-even-diff-Ancestor ((t (:background "Grey" :foreground "White"))))
   ;; (ediff-even-diff-B ((t (:background "Grey" :foreground "White"))))
   ;; (ediff-even-diff-C ((t (:background "light grey" :foreground "Black"))))
   ;; (ediff-fine-diff-A ((t (:background "sky blue" :foreground "Navy"))))
   ;; (ediff-fine-diff-Ancestor ((t (:background "Green" :foreground "Black"))))
   ;; (ediff-fine-diff-B ((t (:background "cyan" :foreground "Black"))))
   ;; (ediff-fine-diff-C ((t (:background "Turquoise" :foreground "Black"))))
   ;; (ediff-odd-diff-A ((t (:background "Grey" :foreground "White"))))
   ;; (ediff-odd-diff-Ancestor ((t (:background "gray40" :foreground "cyan3"))))
   ;; (ediff-odd-diff-B ((t (:background "light grey" :foreground "Black"))))
   ;; (ediff-odd-diff-C ((t (:background "Grey" :foreground "White"))))
   `(ediff-current-diff-C ((t (:background ,dark-grey))))
   `(ediff-odd-diff-C ((t (:background ,soft-blue))))
   `(ediff-even-diff-C ((t (:background ,dark-orange))))

   ;; Org-Mode & Babel
   `(org-todo ((t (:bold t :foreground ,red))))
   `(org-done ((t (:bold t :foreground ,green))))
   `(org-hide ((t (:foreground ,background))))
   `(org-document-info ((t (:foreground ,orange))))
   `(org-document-title ((t (:foreground ,orange))))
   `(org-document-info ((t (:foreground ,cyan))))
   `(org-document-info-keyword ((t (:foreground ,dark-orange))))

   ;; Company
   `(company-echo-common ((t (:underline t))))
   `(company-preview ((t (:inherit shadow))))
   `(company-preview-common ((t (:inherit company-preview :underline t))))
   `(company-scrollbar-bg ((t (:inherit company-tooltip :background "SteelBlue3"))))
   `(company-scrollbar-fg ((t (:background "DeepSkyBlue4"))))
   `(company-template-field ((t (:background "DeepSkyBlue3" :foreground "black"))))
   `(company-tooltip ((t (:background "LightSteelBlue1" :foreground "dark slate gray"))))
   `(company-tooltip-annotation ((t (:inherit company-tooltip :foreground "slate gray"))))
   `(company-tooltip-annotation-selection ((t (:inherit company-tooltip-annotation :background "LightSteelBlue3"))))
   `(company-tooltip-common ((t (:inherit company-tooltip :underline t))))
   `(company-tooltip-common-selection ((t (:inherit company-tooltip-selection :underline t))))
   `(company-tooltip-mouse ((t (:inherit company-tooltip-selection))))
   `(company-tooltip-selection ((t (:inherit company-tooltip :background "LightSteelBlue3"))))

   ;; Auto-Complete
   `(ac-completion-face ((t (:foreground ,soft-blue :underline ,blue))))
   ;; TODO:
   '(ac-candidate-face ((t :background "NavajoWhite1" :foreground "tomato4")))
   '(ac-selection-face ((t (:background "NavajoWhite3" :foreground "tomato4" :bold t))))
   ;; `(ac-gtags-candidate-face ((t (:background ,blue :foreground ,white))))
   ;; `(ac-gtags-selection-face ((t (:background ,blue :foreground ,white :bold t))))
   ;; `(ac-yasnippet-candidate-face ((t (:background ,dark-red :foreground ,white))))
   ;; `(ac-yasnippet-selection-face ((t (:background ,dark-orange :foreground ,white :bold t))))

   ;; TODO: Gnus
   ;; see: [[file:/usr/share/emacs/24.0.50/etc/themes/tango-theme.el::`(flyspell-duplicate%20((,class%20(:underline%20,orange-1))))][Tango]]

;; Ansi colors (*Shell*, ...)
(custom-theme-set-variables 'sarcasm
 `(ansi-color-names-vector [,black
                            ,red
                            ,green
                            ,yellow
                            ,blue
                            ,pink
                            ,cyan
                            ,white]))))

;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
  (add-to-list 'custom-theme-load-path
               (file-name-as-directory (file-name-directory load-file-name))))

(provide-theme 'sarcasm)

;; Local Variables:
;; no-byte-compile: t
;; End:

;;; sarcasm-theme.el ends here