secret
Last active

  • Download Gist
color-theme-tango.el
Emacs Lisp
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187
;;; 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)

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.