color-theme-tangotango.el 11 KB

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