color-themes/color-theme-tangotango.el

   1 ;;; Emacs Color theme based on the Tango Palette colors.
   2 ;;; First derived from color-theme-tango.el,  created by danranx@gmail.com :
   3 ;;; http://www.emacswiki.org/emacs/color-theme-tango.el
   4
   5 ;; Copyright (C) 2010 Julien Barnier <julien@nozav.org>
   6
   7 ;; Project homepage : http://blog.nozav.org/post/2010/07/12/Updated-tangotango-emacs-color-theme
   8
   9 ;; This file is NOT part of GNU Emacs.
  10
  11 ;; This is free software; you can redistribute it and/or modify it under
  12 ;; the terms of the GNU General Public License as published by the Free
  13 ;; Software Foundation; either version 2, or (at your option) any later
  14 ;; version.
  15
  16 ;; This file is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with Emacs; see the file COPYING, or type `C-h C-c'. If not,
  23 ;; write to the Free Software Foundation at this address:
  24
  25 ;;   Free Software Foundation
  26 ;;   51 Franklin Street, Fifth Floor
  27 ;;   Boston, MA 02110-1301
  28 ;;   USA
  29
  30 ;;; Code:
  31
  32 (eval-when-compile
  33   (require 'color-theme))
  34
  35 (defun color-theme-tangotango ()
  36   "A color theme based on Tango Palette colors."
  37   ;; Color codes :
  38   ;; - blue :       "dodger blue"
  39   ;; - yellow :     "#edd400"
  40   ;; - green :      "#6ac214"
  41   ;; - orange/red : "tomato"
  42   (interactive)
  43   (color-theme-install
  44    '(color-theme-tangotango
  45      ((background-color . "#000000")
  46       (background-mode . dark)
  47       (border-color . "#888a85")
  48       (cursor-color . "#fce94f")
  49       (foreground-color . "#eeeeec")
  50       (mouse-color . "#8ae234"))
  51      ((help-highlight-face . underline)
  52       (ibuffer-dired-buffer-face . font-lock-function-name-face)
  53       (ibuffer-help-buffer-face . font-lock-comment-face)
  54       (ibuffer-hidden-buffer-face . font-lock-warning-face)
  55       (ibuffer-occur-match-face . font-lock-warning-face)
  56       (ibuffer-read-only-buffer-face . font-lock-type-face)
  57       (ibuffer-special-buffer-face . font-lock-keyword-face)
  58       (ibuffer-title-face . font-lock-type-face))
  59      (highlight ((t (:background "brown4" :foreground nil))))
  60      (border ((t (:background "#888a85"))))
  61      (fringe ((t (:background "grey10"))))
  62      (mode-line ((t (:foreground "#bbbbbc" :background "#222222" :box (:line-width 1 :color nil :style released-button)))))
  63      (mode-line-inactive ((t (:foreground "#bbbbbc" :background "#555753"))))
  64      (mode-line-buffer-id ((t (:bold t :foreground "orange" :background nil))))
  65      (region ((t (:background "dark slate blue"))))
  66      (link ((t (:underline t :foreground "dodger blue"))))
  67      (custom-link ((t (:inherit 'link))))
  68      (match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
  69      (tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
  70      (tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
  71      (bold ((t (:bold t :underline nil :background nil))))
  72      (italic ((t (:italic t :underline nil :background nil))))
  73      (font-lock-builtin-face ((t (:foreground "#729fcf"))))
  74      (font-lock-comment-face ((t (:foreground "#888a85"))))
  75      (font-lock-constant-face ((t (:foreground "#8ae234"))))
  76      (font-lock-doc-face ((t (:foreground "#888a85"))))
  77      (font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
  78      (font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
  79      (font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
  80      (font-lock-variable-name-face ((t (:foreground "tomato"))))
  81      (font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
  82      (font-lock-function-name-face ((t (:foreground "#edd400" :bold t))))
  83      (comint-highlight-input ((t (:italic t :bold t))))
  84      (comint-highlight-prompt ((t (:foreground "#8ae234"))))
  85      (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
  86      (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
  87      (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
  88      (show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
  89      (minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
  90      (info-xref ((t (:foreground "#729fcf"))))
  91      (info-xref-visited ((t (:foreground "#ad7fa8"))))
  92      (diary-face ((t (:bold t :foreground "IndianRed"))))
  93      (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
  94      (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
  95      (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
  96      (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
  97      (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
  98      (widget-button ((t (:bold t))))
  99      (widget-mouse-face ((t (:bold t :foreground "white" :background "brown4"))))
 100      (widget-field ((t (:foreground "orange" :background "gray30"))))
 101      (widget-single-line-field ((t (:foreground "orange" :background "gray30"))))
 102      (custom-group-tag ((t (:bold t :foreground "#edd400" :height 1.3))))
 103      (custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
 104      (custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
 105      (custom-state-face ((t (:foreground "#729fcf"))))
 106      (custom-button  ((t (:box (:line-width 1 :style released-button) :background "grey50" :foreground "black"))))
 107      (custom-variable-button ((t (:inherit 'custom-button))))
 108      (custom-button-mouse  ((t (:inherit 'custom-button :background "grey60"))))
 109      (custom-button-unraised  ((t (:background "grey50" :foreground "black"))))
 110      (custom-button-mouse-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
 111      (custom-button-pressed  ((t (:inherit 'custom-button :box (:style pressed-button)))))
 112      (custom-button-mouse-pressed-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
 113      (custom-documentation ((t (:italic t))))
 114      (message-cited-text ((t (:foreground "#edd400"))))
 115      (gnus-cite-face-1 ((t (:foreground "#ad7fa8"))))
 116      (gnus-cite-face-2 ((t (:foreground "sienna4"))))
 117      (gnus-cite-face-3 ((t (:foreground "khaki4"))))
 118      (gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
 119      (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
 120      (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
 121      (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
 122      (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
 123      (gnus-group-mail-3-empty-face ((t (:foreground "#729fcf"))))
 124      (gnus-group-mail-3-face ((t (:bold t :foreground "#edd400"))))
 125      (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
 126      (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
 127      (gnus-group-news-1-empty-face ((t (:foreground "light cyan"))))
 128      (gnus-group-news-1-face ((t (:bold t :foreground "light cyan"))))
 129      (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
 130      (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
 131      (gnus-group-news-3-empty-face ((t (:foreground "#729fcf"))))
 132      (gnus-group-news-3-face ((t (:bold t :foreground "#edd400"))))
 133      (gnus-group-news-low-empty-face ((t (:foreground "dodger blue"))))
 134      (gnus-group-news-low-face ((t (:bold t :foreground "dodger blue"))))
 135      (gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
 136      (gnus-header-from ((t (:bold t :foreground "#edd400"))))
 137      (gnus-header-subject ((t (:foreground "#edd400"))))
 138      (gnus-header-content ((t (:italic t :foreground "#8ae234"))))
 139      (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 140      (gnus-signature-face ((t (:italic t :foreground "dark grey"))))
 141      (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
 142      (gnus-summary-high-ancient-face ((t (:bold t :foreground "rotal blue"))))
 143      (gnus-summary-high-read-face ((t (:bold t :foreground "lime green"))))
 144      (gnus-summary-high-ticked-face ((t (:bold t :foreground "tomato"))))
 145      (gnus-summary-high-unread-face ((t (:bold t :foreground "white"))))
 146      (gnus-summary-low-ancient-face ((t (:italic t :foreground "lime green"))))
 147      (gnus-summary-low-read-face ((t (:italic t :foreground "royal blue"))))
 148      (gnus-summary-low-ticked-face ((t (:italic t :foreground "dark red"))))
 149      (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
 150      (gnus-summary-normal-ancient-face ((t (:foreground "royal blue"))))
 151      (gnus-summary-normal-read-face ((t (:foreground "lime green"))))
 152      (gnus-summary-normal-ticked-face ((t (:foreground "indian red"))))
 153      (gnus-summary-normal-unread-face ((t (:foreground "white"))))
 154      (gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
 155      (message-header-name-face ((t (:foreground "tomato"))))
 156      (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 157      (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
 158      (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
 159      (message-header-subject ((t (:foreground "white"))))
 160      (message-header-to ((t (:foreground "white"))))
 161      (message-header-cc ((t (:foreground "white"))))
 162      (org-hide ((t (:foreground "#2e3436"))))
 163      (org-level-1 ((t (:bold t :foreground "dodger blue" :height 1.5))))
 164      (org-level-2 ((t (:bold nil :foreground "#edd400" :height 1.2))))
 165      (org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
 166      (org-level-4 ((t (:bold nil :foreground "tomato" :height 1.0))))
 167      (org-date ((t (:underline t :foreground "magenta3"))))
 168      (org-footnote  ((t (:underline t :foreground "magenta3"))))
 169      (org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
 170      (org-special-keyword ((t (:foreground "brown"))))
 171      (org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
 172      (org-block ((t (:foreground "#bbbbbc"))))
 173      (org-quote ((t (:inherit org-block :slant italic))))
 174      (org-verse ((t (:inherit org-block :slant italic))))
 175      (org-todo ((t (:bold t :foreground "Red"))))
 176      (org-done ((t (:bold t :foreground "ForestGreen"))))
 177      (org-agenda-structure ((t (:weight bold :foreground "tomato"))))
 178      (org-agenda-date ((t (:foreground "#6ac214"))))
 179      (org-agenda-date-weekend ((t (:weight normal :foreground "dodger blue"))))
 180      (org-agenda-date-today ((t (:weight bold :foreground "#edd400"))))
 181      (anything-header ((t (:bold t :background "grey15" :foreground "#edd400"))))
 182      (ess-jb-comment-face ((t (:background "#2e3436" :foreground "firebrick" :slant italic))))
 183      (ess-jb-hide-face ((t (:background "#2e3436" :foreground "#243436"))))
 184      (ess-jb-h1-face ((t (:height 1.6 :foreground "dodger blue" :slant normal))))
 185      (ess-jb-h2-face ((t (:height 1.4 :foreground "#6ac214" :slant normal))))
 186      (ess-jb-h3-face ((t (:height 1.2 :foreground "#edd400" :slant normal))))
 187      (ecb-default-highlight-face ((t (:background "#729fcf"))))
 188      (ecb-tag-header-face ((t (:background "#f57900"))))
 189      (magit-header ((t (:foreground "#edd400"))))
 190      (magit-diff-add ((t (:foreground "#729fcf"))))
 191      (magit-item-highlight ((t (:weight extra-bold :inverse-video t))))
 192 )))
 193
 194 (provide 'color-theme-tangotango)