color-theme-tango.el

;;; Emacs Color theme based on the Tango Palette colors. 
;;; First derived from color-theme-tango.el,  created by danranx@gmail.com :
;;; http://www.emacswiki.org/emacs/color-theme-tango.el

;; Copyright (C) 2010 Julien Barnier <julien@nozav.org>

;; Project homepage : http://blog.nozav.org/post/2010/07/12/Updated-tangotango-emacs-color-theme

;; This file is NOT part of GNU Emacs.

;; This 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 2, 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 Emacs; see the file COPYING, or type `C-h C-c'. If not,
;; write to the Free Software Foundation at this address:

;;   Free Software Foundation
;;   51 Franklin Street, Fifth Floor
;;   Boston, MA 02110-1301
;;   USA

;;; Code:

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

;; Note there are two themes in here.
;;
;; color-theme-tango - 
;;  Color theme based on Tango Palette. Created by danranx@gmail.com
;;  http://www.emacswiki.org/cgi-bin/emacs/color-theme-tango.el
;;  Removed italics
;;
;; color-theme-tango-light -
;;  Original theme by matt harrison, for those who prefer a light
;;  background
;;
;; Installation
;;  Copy this file into your .emacs

(defvar butter1 "#fce94f") (defvar butter2  "#edd400") (defvar butter3 "#c4a000")
(defvar orange1 "#fcaf3e" ) (defvar orange2 "#f57900") (defvar orange3 "#ce5c00")
(defvar choc1 "#e9b96e") (defvar choc2 "#c17d11") (defvar choc3  "#8f5902")
(defvar cham1 "#8ae234") (defvar cham2 "#73d216") (defvar cham3 "#4e9a06")
(defvar blue1 "#729fcf") (defvar blue2 "#3465a4") (defvar blue3 "#204a87")
(defvar plum1 "#ad7fa8") (defvar plum2 "#75507b") (defvar plum3 "#5c3566")
(defvar red1 "#ef2929")  (defvar red2 "#cc0000")  (defvar red3 "#a40000")
(defvar alum1 "#eeeeec")  (defvar alum2 "#d3d7cf")  (defvar alum3 "#babdb6")
(defvar alum4 "#888a85")  (defvar alum5 "#555753")
(defvar alum6 "#2e3436")
;; since '(color-theme-tango is quoted below we need to unquote the
;; colors so the actual values get put in.  To be able to unquote
;; (with ,) change the '  to a `
;; ie `(color-theme-tango
;; list-faces-display will show all font faces
(defun color-theme-tango ()
  "A color theme based on Tango Palette."
  (interactive)
  (color-theme-install
   `(color-theme-tango
     ((background-color . ,alum6)
      (background-mode . dark)
      (border-color . ,alum4)
      (cursor-color . ,butter1)
      (foreground-color . ,alum1)
      (mouse-color . ,choc1))
     ((help-highlight-face . underline)
      (ibuffer-dired-buffer-face . font-lock-function-name-face)
      (ibuffer-help-buffer-face . font-lock-comment-face)
      (ibuffer-hidden-buffer-face . font-lock-warning-face)
      (ibuffer-occur-match-face . font-lock-warning-face)
      (ibuffer-read-only-buffer-face . font-lock-type-face)
      (ibuffer-special-buffer-face . font-lock-keyword-face)
      (ibuffer-title-face . font-lock-type-face))
     (border ((t (:background ,alum4))))
     (fringe ((t (:background "grey10"))))
     (mode-line ((t (:foreground ,alum1 :background ,alum5))))
     (region ((t (:background ,alum5))))
     (font-lock-builtin-face ((t (:foreground ,blue1))))
     (font-lock-comment-face ((t (:foreground ,alum4))))
     (font-lock-constant-face ((t (:foreground ,cham1))))
     (font-lock-doc-face ((t (:foreground ,alum4))))
     (font-lock-keyword-face ((t (:foreground ,blue1 :bold t))))
     ;; remove italic from strings
     (font-lock-string-face ((t (:foreground ,plum1))))
     (font-lock-type-face ((t (:foreground ,cham1 :bold t))))
     (font-lock-variable-name-face ((t (:foreground ,alum1))))
     (font-lock-warning-face ((t (:bold t :foreground ,orange2))))
     (font-lock-function-name-face ((t (:foreground ,butter2 :bold t :italic t))))
     (comint-highlight-input ((t (:italic t :bold t))))
     (comint-highlight-prompt ((t (:foreground ,choc1))))
     (isearch ((t (:background ,orange2 :foreground ,alum6))))
     (isearch-lazy-highlight-face ((t (:foreground ,alum6 :background ,choc1))))
     (show-paren-match-face ((t (:foreground ,alum6 :background ,cham2))))
     (show-paren-mismatch-face ((t (:background ,plum1 :foreground ,alum6))))
     (minibuffer-prompt ((t (:foreground ,blue1 :bold t))))
     (info-xref ((t (:foreground ,blue1))))
     (info-xref-visited ((t (:foreground ,plum1))))
     ;; ECB - matt added
     ;; see - http://ecb.sourceforge.net/docs/ecb-faces.html
     (ecb-default-highlight-face((t (:background ,plum2))))
     ;; need to figure out mouseover font, these don't work'
     ;;(ecb-directory-face((t (:background ,plum2))))
     ;;(ecb-source-face((t (:background "#204a87"))))
     ;;(ecb-method-face((t (:background "#204a87"))))
     ;;(ecb-tag-header-face((t (:background "#204a87"))))
     (ecb-tag-header-face((t (:background ,cham3))))
     (mumamo-background-chunk-submode ((t (:background ,alum5))))
     (highlight ((t (:background ,blue3))))
     (link ((t (:foreground ,cham1))))
     (link-visited ((t (:foreground ,plum2))))
     (whitespace-empty ((t (:foreground ,red3 :background ,butter2))))
     (whitespace-line ((t (:background ,alum5))))
     )))
(provide 'color-theme-tango)


(defun color-theme-tango-light ()
  "A color theme based on Tango Palette."
  (interactive)
  (color-theme-install
   `(color-theme-tango-light
     ((background-color . ,alum1)
      (background-mode . dark)
      (border-color . ,alum4)
      (cursor-color . ,alum4)
      (foreground-color . ,alum6)
      (mouse-color . ,choc1))
     ((help-highlight-face . underline)
      (ibuffer-dired-buffer-face . font-lock-function-name-face)
      (ibuffer-help-buffer-face . font-lock-comment-face)
      (ibuffer-hidden-buffer-face . font-lock-warning-face)
      (ibuffer-occur-match-face . font-lock-warning-face)
      (ibuffer-read-only-buffer-face . font-lock-type-face)
      (ibuffer-special-buffer-face . font-lock-keyword-face)
      (ibuffer-title-face . font-lock-type-face))
     (border ((t (:background ,alum4))))
     (fringe ((t (:background "grey10"))))
     ;; active buffer
     (mode-line ((t (:foreground ,alum6 :background ,alum3))))
     (region ((t (:background ,alum2))))
     (font-lock-builtin-face ((t (:foreground ,blue3))))
     (font-lock-comment-face ((t (:foreground ,alum4))))
     (font-lock-constant-face ((t (:foreground ,cham3))))
     (font-lock-doc-face ((t (:foreground ,alum4))))
     (font-lock-keyword-face ((t (:foreground ,blue3 :bold t))))
     ;; remove italic from strings
     (font-lock-string-face ((t (:foreground ,red3))))
     (font-lock-type-face ((t (:foreground ,cham3 :bold t))))
     (font-lock-variable-name-face ((t (:foreground ,alum6))))
     (font-lock-warning-face ((t (:bold t :foreground ,orange2))))
     (font-lock-function-name-face ((t (:foreground ,plum3 :bold t :italic t))))
     (comint-highlight-input ((t (:italic t :bold t))))
     (comint-highlight-prompt ((t (:foreground ,choc1))))
     (isearch ((t (:background ,orange3 :foreground ,alum6))))
     (isearch-lazy-highlight-face ((t (:foreground ,alum6 :background ,alum1))))
     (show-paren-match-face ((t (:foreground ,alum6 :background ,cham2))))
     (show-paren-mismatch-face ((t (:background ,plum3 :foreground ,alum6))))
     (minibuffer-prompt ((t (:foreground ,blue3 :bold t))))
     (info-xref ((t (:foreground ,blue3))))
     (info-xref-visited ((t (:foreground ,plum3))))
     ;; ECB - matt added
     ;; see - http://ecb.sourceforge.net/docs/ecb-faces.html
     (ecb-default-highlight-face((t (:background ,plum2))))
     ;; need to figure out mouseover font, these don't work'
     ;;(ecb-directory-face((t (:background ,plum2))))
     ;;(ecb-source-face((t (:background "#204a87"))))
     ;;(ecb-method-face((t (:background "#204a87"))))
     ;;(ecb-tag-header-face((t (:background "#204a87"))))
     (ecb-tag-header-face((t (:background ,cham3))))
     (mumamo-background-chunk-submode ((t (:background ,alum2))))
     (highlight ((t (:background ,alum2))))
     (link ((t (:foreground ,cham3))))
     (link-visited ((t (:foreground ,plum2))))
     (whitespace-empty ((t (:foreground ,red3 :background ,butter2))))
     (whitespace-line ((t (:background ,alum2))))
     )))

(provide 'color-theme-tango-light)