Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
;;; 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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.