color-theme-leuven.el 36 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649
  1. ;;; color-theme-leuven.el --- Light, but colorful color theme
  2. ;; Copyright (C) 2003-2011 Sebastien Vauban
  3. ;; $Date: 2011-02-24 12:09:40 +0100 (Thu, 24 Feb 2011) $
  4. ;; This file is NOT part of GNU Emacs.
  5. ;; This file is free software; you can redistribute it and/or
  6. ;; modify it under the terms of the GNU General Public License as
  7. ;; published by the Free Software Foundation; either version 2 of
  8. ;; the License, or (at your option) any later version.
  9. ;; This file is distributed in the hope that it will be
  10. ;; useful, but WITHOUT ANY WARRANTY; without even the implied
  11. ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  12. ;; PURPOSE. See the GNU General Public License for more details.
  13. ;; You should have received a copy of the GNU General Public
  14. ;; License along with this file; if not, write to the Free
  15. ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  16. ;; MA 02111-1307, USA.
  17. ;;* TODO:
  18. ;; - [ ] Have a look at http://websitetips.com/colortools/sitepro/
  19. ;; - [ ] Remove inherit properties
  20. ;;* Code:
  21. (require 'color-theme)
  22. (defun color-theme-leuven ()
  23. "Color theme by Sebastien Vauban."
  24. (interactive)
  25. (let*
  26. ;; inherit properties, independently of definition order
  27. ((block-code '(:foreground "blue" :background "#FFFFEA"))
  28. (cancel '(:slant italic :strike-through t :foreground "gray55"))
  29. (clock-line '(:box (:line-width 1 :color "#FFBB00") :foreground "black" :background "#BFBF00"))
  30. (column '(:height 1.0 :weight normal :slant normal :underline nil :strike-through nil :foreground "black" :background "#BFBF00"))
  31. (diff-added '(:foreground "#2B7E2A" :background "#CCFFCC"))
  32. (diff-hunk-header '(:box (:line-width 1 :color "#D7D7D7") :foreground "#999999" :background "#F7F7F7"))
  33. (diff-none '(:foreground "gray33"))
  34. (diff-removed '(:foreground "dark magenta" :background "#FFCCCC"))
  35. (directory '(:weight bold :foreground "blue" :background "#FFFFD2"))
  36. (inline-code '(:box (:line-width 1 :color "#EFEF99") :foreground "#444444"))
  37. (marked-line '(:weight bold :foreground "white" :background "red"))
  38. (ol1 '(:height 1.0 :weight bold :overline "#0000CC" :foreground "#0077CC" :background "#DFF1FA")) ; 1.8
  39. (ol2 '(:height 1.0 :weight bold :overline "#00CC00" :foreground "#2EAE2C" :background "#E8FADA")) ; 1.6
  40. (ol3 '(:height 1.0 :weight bold :foreground "#FD8008")) ; 1.3
  41. (ol4 '(:height 1.0 :weight bold :slant normal :foreground "#E3258D")) ; 1.2
  42. (ol5 '(:height 1.0 :weight bold :slant italic :foreground "#0077CC")) ; 1.1
  43. (ol6 '(:height 1.0 :weight bold :slant italic :foreground "#2EAE2C")) ; 1.1
  44. (ol7 '(:height 1.0 :weight bold :slant italic :foreground "#FD8008")) ; 1.1
  45. (ol8 '(:height 1.0 :weight bold :slant italic :foreground "#E3258D")) ; 1.1
  46. (symlink '(:foreground "deep sky blue")))
  47. (color-theme-install
  48. `(color-theme-leuven
  49. ;; frame parameters
  50. ((background-color . "white")
  51. (background-mode . light)
  52. (border-color . "black")
  53. (cursor-color . "#15FF00")
  54. (foreground-color . "black")
  55. (mouse-color . "black"))
  56. ;; faces
  57. (default ((t (nil))))
  58. (bold ((t (:weight bold))))
  59. (bold-italic ((t (:weight bold :slant italic))))
  60. (italic ((t (:slant italic))))
  61. (underline ((t (:underline t))))
  62. ;; anything
  63. (anything-header ((t (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
  64. ;; under test
  65. (anything-bookmarks-su-face ((t (:foreground "red"))))
  66. (anything-dir-heading ((t (:foreground "blue" :background "pink"))))
  67. (anything-dir-priv ((t (:foreground "dark red" :background "light grey"))))
  68. (anything-file-name ((t (:foreground "blue"))))
  69. (anything-gentoo-match-face ((t (:foreground "red"))))
  70. (anything-isearch-match ((t (:background "yellow"))))
  71. (anything-overlay-line-face ((t (:underline t :foreground "white" :background "IndianRed4"))))
  72. (anything-visible-mark ((t (:foreground "black" :background "green1"))))
  73. (anything-w3m-bookmarks-face ((t (:underline t :foreground "cyan1"))))
  74. ;; bbdb
  75. (bbdb-company ((t (:slant italic :foreground "steel blue"))))
  76. (bbdb-field-name ((t (:weight bold :foreground "steel blue"))))
  77. (bbdb-field-value ((t (:foreground "steel blue"))))
  78. (bbdb-name ((t (:underline t :foreground "#FF6633"))))
  79. ;; browse-kill-ring
  80. (browse-kill-ring-separator-face ((t (:weight bold :foreground "slate gray"))))
  81. ;; calendar
  82. (calendar-today-face ((t (:weight bold :background "#CCCCFF")))) ; "yellow"
  83. (diary-face ((t (:foreground "#87C9FC")))) ;"dark cyan"
  84. (holiday-face ((t (:background "#B6B2AE")))) ; "red"
  85. (change-log-date-face ((t (:foreground "purple"))))
  86. ;; (change-log-email
  87. (change-log-file ((t (:weight bold :foreground "#4183C4"))))
  88. ;; (change-log-list
  89. ;; (change-log-name
  90. ;; IRC
  91. (circe-highlight-all-nicks-face ((t (:foreground "blue" :background "#F0F0F0")))) ; other nick names
  92. (circe-highlight-nick-face ((t (:foreground "#009300" :background "#F0F0F0")))) ; messages with my nick cited
  93. (circe-my-message-face ((t (:foreground "#8B8B8B" :background "#F0F0F0"))))
  94. (circe-originator-face ((t (:foreground "blue"))))
  95. (circe-prompt-face ((t (:foreground "red"))))
  96. (circe-server-face ((t (:foreground "#99CAE5"))))
  97. (lui-button-face ((t (:underline t :foreground "#0077CC"))))
  98. (lui-highlight-face ((t (:box '(:line-width 1 :color "#CC0000") :foreground "#CC0000" :background "#FFFF88")))) ; my nickname
  99. (lui-time-stamp-face ((t (:foreground "purple"))))
  100. ;; column-marker
  101. (column-marker-1-face ((t (:background "#EBFFEB"))))
  102. (column-marker-2-face ((t (:background "#FFFFEB"))))
  103. (column-marker-3-face ((t (:background "#FFEBEB"))))
  104. (comint-highlight-input ((t ,block-code)))
  105. (comint-highlight-prompt ((t (:foreground "#008ED1" :background "#EAEAFF"))))
  106. ;; used in modeline by grep and compile
  107. (compilation-error ((t (:weight bold :foreground "red"))))
  108. (compilation-info ((t (:weight bold :foreground "green3"))))
  109. (compilation-warning ((t (:weight bold :foreground "orange"))))
  110. (css-selector ((t (:weight bold :foreground "blue"))))
  111. ;; custom
  112. (custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  113. (custom-button-mouse ((t (:background "grey90" :foreground "black" :box (:line-width 2 :style released-button)))))
  114. (custom-button-pressed ((t (:foreground "black" :background "light grey" :box (:line-width 2 :style pressed-button)))))
  115. (custom-button-pressed-unraised ((t (:underline t :foreground "magenta4"))))
  116. (custom-button-unraised ((t (:underline t))))
  117. (custom-changed ((t (:foreground "white" :background "blue"))))
  118. (custom-comment ((t (:background "gray85"))))
  119. (custom-comment-tag ((t (:foreground "blue4"))))
  120. (custom-documentation ((t (nil))))
  121. (custom-face-tag ((t (:family "Sans Serif" :weight bold :height 1.2))))
  122. (custom-group-tag ((t (:bold t :foreground "blue1" :weight bold :height 1.2))))
  123. (custom-group-tag-1 ((t (:bold t :family "Sans Serif" :foreground "red1" :weight bold :height 1.2))))
  124. (custom-invalid ((t (:foreground "yellow" :background "red"))))
  125. (custom-link ((t (:underline t :foreground "blue1"))))
  126. (custom-modified ((t (:foreground "white" :background "blue"))))
  127. (custom-rogue ((t (:foreground "pink" :background "black"))))
  128. (custom-saved ((t (:underline t))))
  129. (custom-set ((t (:foreground "blue" :background "white"))))
  130. (custom-state ((t (:foreground "green4"))))
  131. (custom-themed ((t (:background "blue1" :foreground "white"))))
  132. (custom-variable-button ((t (:weight bold :underline t))))
  133. (custom-variable-tag ((t (:bold t :family "Sans Serif" :foreground "blue1" :weight bold :height 1.2))))
  134. ;; cvs
  135. (cvs-filename-face ((t (:foreground "blue4"))))
  136. (cvs-handled-face ((t (:foreground "pink"))))
  137. (cvs-header-face ((t (:weight bold :foreground "blue4"))))
  138. (cvs-marked-face ((t (:weight bold :foreground "green3"))))
  139. (cvs-msg-face ((t (:slant italic :foreground "gray55"))))
  140. (cvs-need-action-face ((t (:foreground "orange"))))
  141. (cvs-unknown-face ((t (:foreground "red"))))
  142. ;; diff
  143. (diff-added ((t ,diff-added)))
  144. (diff-changed ((t (:foreground "blue" :background "#DDDDFF"))))
  145. (diff-context ((t ,diff-none)))
  146. (diff-file-header ((t (:foreground "red" :background "#EAF2F5"))))
  147. (diff-file1-hunk-header ((t (:foreground "dark magenta" :background "#EAF2F5"))))
  148. (diff-file2-hunk-header ((t (:foreground "#2B7E2A" :background "#EAF2F5"))))
  149. (diff-header ((t (:foreground "#999999" :background "#EAF2F5"))))
  150. (diff-hunk-header ((t ,diff-hunk-header)))
  151. (diff-index ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4" :background "#EAF2F5"))))
  152. (diff-indicator-added ((t (:background "#AAFFAA"))))
  153. (diff-indicator-changed ((t (:background "#AAAAFF"))))
  154. (diff-indicator-removed ((t (:background "#FFAAAA"))))
  155. (diff-removed ((t ,diff-removed)))
  156. ;; dircolors
  157. (dircolors-face-asm ((t (:foreground "black"))))
  158. (dircolors-face-backup ((t (:foreground "black"))))
  159. (dircolors-face-compress ((t (:foreground "red"))))
  160. (dircolors-face-dir ((t ,directory)))
  161. (dircolors-face-doc ((t (:foreground "black"))))
  162. (dircolors-face-dos ((t (:foreground "green3"))))
  163. (dircolors-face-emacs ((t (:foreground "black"))))
  164. (dircolors-face-exec ((t (:foreground "green3"))))
  165. (dircolors-face-html ((t (:foreground "black"))))
  166. (dircolors-face-img ((t (:foreground "black"))))
  167. (dircolors-face-lang ((t (:foreground "black"))))
  168. (dircolors-face-lang-interface ((t (:foreground "black"))))
  169. (dircolors-face-make ((t (:foreground "black"))))
  170. (dircolors-face-objet ((t (:foreground "black"))))
  171. (dircolors-face-package ((t (:foreground "red"))))
  172. (dircolors-face-paddb ((t (:foreground "black"))))
  173. (dircolors-face-ps ((t (:foreground "black"))))
  174. (dircolors-face-sound ((t (:foreground "black"))))
  175. (dircolors-face-tar ((t (:foreground "red"))))
  176. (dircolors-face-text ((t (:foreground "black"))))
  177. (dircolors-face-yacc ((t (:foreground "black"))))
  178. ;; dired
  179. (dired-directory ((t ,directory)))
  180. (dired-header ((t ,directory)))
  181. (dired-ignored ((t (:strike-through t :foreground "red"))))
  182. (dired-mark ((t ,marked-line)))
  183. (dired-marked ((t ,marked-line)))
  184. (dired-symlink ((t ,symlink)))
  185. ;; dired+
  186. (diredp-compressed-file-suffix ((t (:foreground "red"))))
  187. (diredp-date-time ((t (:foreground "purple"))))
  188. (diredp-dir-heading ((t ,directory)))
  189. (diredp-dir-priv ((t ,directory)))
  190. (diredp-exec-priv ((t (:background "#03C03C"))))
  191. (diredp-executable-tag ((t (:foreground "green3" :background "white"))))
  192. (diredp-file-name ((t (:foreground "black"))))
  193. (diredp-file-suffix ((t (:foreground "#008000"))))
  194. (diredp-flag-mark-line ((t ,marked-line)))
  195. (diredp-ignored-file-name ((t (:strike-through t :foreground "red"))))
  196. (diredp-read-priv ((t (:background "#0A99FF"))))
  197. (diredp-write-priv ((t (:foreground "white" :background "#FF4040"))))
  198. ;; ediff
  199. (ediff-current-diff-A ((t (:foreground "gray33" :background "#FFFF99"))))
  200. (ediff-current-diff-B ((t (:foreground "gray33" :background "#FFFF99"))))
  201. (ediff-fine-diff-A ((t (:foreground "dark magenta" :background "#FFAAAA"))))
  202. (ediff-fine-diff-B ((t (:foreground "#2B7E2A" :background "#AAFFAA"))))
  203. (ediff-current-diff-C ((t (:foreground "black" :background "cyan"))))
  204. ;; egg
  205. (egg-branch ((t (:foreground "SkyBlue" :height 1.1))))
  206. (egg-diff-add ((t ,diff-added)))
  207. (egg-diff-del ((t ,diff-removed)))
  208. (egg-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
  209. (egg-diff-hunk-header ((t ,diff-hunk-header)))
  210. (egg-diff-none ((t ,diff-none)))
  211. (egg-header ((t (:weight bold :height 1.1))))
  212. (egg-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
  213. ;; flypell
  214. (flyspell-duplicate-face ((t (:underline "#008000"))))
  215. (flyspell-incorrect-face ((t (:underline "red"))))
  216. ;; LaTeX
  217. (font-latex-bold-face ((t (:weight bold :foreground "medium sea green"))))
  218. (font-latex-math-face ((t (:foreground "blue"))))
  219. (font-latex-sectioning-1-face ((t (:family "Sans Serif" :height 2.7 :weight bold :foreground "cornflower blue"))))
  220. (font-latex-sectioning-2-face ((t ,ol1)))
  221. (font-latex-sectioning-3-face ((t ,ol2)))
  222. (font-latex-sectioning-4-face ((t ,ol3)))
  223. (font-latex-sectioning-5-face ((t ,ol4)))
  224. (font-latex-sedate-face ((t (:foreground "gray45"))))
  225. (font-latex-verbatim-face ((t (:foreground "tan1"))))
  226. ;; font-lock
  227. (font-lock-builtin-face ((t (:foreground "orchid"))))
  228. (font-lock-comment-delimiter-face ((t (:foreground "red"))))
  229. (font-lock-comment-face ((t (:slant italic :foreground "red"))))
  230. (font-lock-constant-face ((t (:foreground "dark cyan"))))
  231. (font-lock-doc-face ((t (:foreground "#EB4264"))))
  232. (font-lock-doc-string-face ((t (:foreground "#3041C4"))))
  233. (font-lock-function-name-face ((t (:foreground "blue"))))
  234. (font-lock-keyword-face ((t (:foreground "purple1"))))
  235. (font-lock-preprocessor-face ((t (:foreground "red")))) ;; see `printf' in AWK
  236. (font-lock-reference-face ((t (:foreground "dark cyan"))))
  237. (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
  238. (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
  239. (font-lock-string-face ((t (:foreground "#3AA221"))))
  240. (font-lock-type-face ((t (:foreground "forest green"))))
  241. (font-lock-variable-name-face ((t (:foreground "magenta"))))
  242. (font-lock-warning-face ((t (:weight bold :foreground "red"))))
  243. (fringe ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
  244. ;; Gnus
  245. (gnus-cite-attribution-face ((t (:foreground "#5050B0"))))
  246. (gnus-cite-face-1 ((t (:foreground "#5050B0"))))
  247. (gnus-cite-face-2 ((t (:foreground "#660066"))))
  248. (gnus-cite-face-3 ((t (:foreground "#007777"))))
  249. (gnus-cite-face-4 ((t (:foreground "#990000"))))
  250. (gnus-cite-face-5 ((t (:foreground "#000099"))))
  251. (gnus-cite-face-6 ((t (:foreground "#BB6600"))))
  252. (gnus-cite-face-7 ((t (:foreground "#5050B0"))))
  253. (gnus-cite-face-8 ((t (:foreground "#660066"))))
  254. (gnus-cite-face-9 ((t (:foreground "#007777"))))
  255. (gnus-cite-face-10 ((t (:foreground "#990000"))))
  256. (gnus-emphasis-bold ((t (:weight bold))))
  257. (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
  258. (gnus-group-mail-1-empty-face ((t (:foreground "#5050B0"))))
  259. (gnus-group-mail-1-face ((t (:weight bold :foreground "#FF50B0"))))
  260. (gnus-group-mail-2-empty-face ((t (:foreground "#660066"))))
  261. (gnus-group-mail-2-face ((t (:weight bold :foreground "#FF0066"))))
  262. (gnus-group-mail-3-empty-face ((t (:foreground "gray50"))))
  263. (gnus-group-mail-3-face ((t (:weight bold :foreground "black"))))
  264. (gnus-group-mail-low-empty-face ((t ,cancel)))
  265. (gnus-group-mail-low-face ((t ,cancel)))
  266. (gnus-group-news-1-empty-face ((t (:foreground "#5050B0"))))
  267. (gnus-group-news-1-face ((t (:weight bold :foreground "#FF50B0"))))
  268. (gnus-group-news-2-empty-face ((t (:foreground "#660066"))))
  269. (gnus-group-news-2-face ((t (:weight bold :foreground "#FF0066"))))
  270. (gnus-group-news-3-empty-face ((t (:foreground "gray50"))))
  271. (gnus-group-news-3-face ((t (:weight bold :foreground "black"))))
  272. (gnus-group-news-4-empty-face ((t (:foreground "#990000"))))
  273. (gnus-group-news-4-face ((t (:weight bold :foreground "#FF0000"))))
  274. (gnus-group-news-5-empty-face ((t (:foreground "#000099"))))
  275. (gnus-group-news-5-face ((t (:weight bold :foreground "#FF0099"))))
  276. (gnus-group-news-6-empty-face ((t (:foreground "gray50"))))
  277. (gnus-group-news-6-face ((t (:weight bold :foreground "gray50"))))
  278. (gnus-header-content-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
  279. (gnus-header-from-face ((t (:family "Sans Serif" :foreground "blue"))))
  280. (gnus-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
  281. (gnus-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
  282. (gnus-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
  283. (gnus-picon-face ((t (:foreground "yellow" :background "white"))))
  284. (gnus-picon-xbm-face ((t (:foreground "yellow" :background "white"))))
  285. (gnus-signature-face ((t (:foreground "#7F7F7F"))))
  286. (gnus-splash-face ((t (:foreground "#FF8C00"))))
  287. (gnus-summary-cancelled-face ((t ,cancel)))
  288. (gnus-summary-high-ancient-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
  289. (gnus-summary-high-read-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
  290. (gnus-summary-high-ticked-face ((t (:weight normal :foreground "#009900"))))
  291. (gnus-summary-high-unread-face ((t (:weight normal :foreground "#1A44B6"))))
  292. (gnus-summary-low-ancient-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
  293. (gnus-summary-low-read-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
  294. (gnus-summary-low-ticked-face ((t (:slant italic :foreground "#009900"))))
  295. (gnus-summary-low-unread-face ((t (:slant italic :foreground "gray50"))))
  296. (gnus-summary-normal-ancient-face ((t (:foreground "black" :background "#E0E0E0"))))
  297. (gnus-summary-normal-read-face ((t (:foreground "black" :background "#E0E0E0"))))
  298. (gnus-summary-normal-ticked-face ((t (:foreground "#FD8008")))) ;; #009900
  299. (gnus-summary-normal-unread-face ((t (:foreground "black"))))
  300. (gnus-summary-selected-face ((t (:background "#FFD0D0" :underline t))))
  301. (gnus-x-face ((t (:foreground "black" :background "white"))))
  302. (header-line ((t (:weight bold :underline "black" :overline "black" :foreground "black" :background "#FFFF88"))))
  303. (highlight ((t (:background "#FFFFA0")))) ; used by hlt package of Drew Adams
  304. (highlight-symbol-face ((t (:background "#FFFFA0"))))
  305. (hl-line ((t (:underline t :background "#C6C3C6"))))
  306. (html-helper-bold-face ((t (:weight bold :foreground "black"))))
  307. (html-helper-italic-face ((t (:slant italic :foreground "black"))))
  308. (html-helper-underline-face ((t (:underline t :foreground "black"))))
  309. (html-tag-face ((t (:foreground "blue"))))
  310. ;; Info / info+
  311. (info-file ((t (:family "Sans Serif" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1"))))
  312. (info-header-node ((t (:underline t :foreground "orange")))) ; nodes in header
  313. (info-header-xref ((t (:underline t :foreground "dodger blue")))) ; cross references in header
  314. (info-menu-header ((t (:family "Sans Serif" :height 1.6 :weight bold :underline t :foreground "#00CC00")))) ; menu titles (headers) -- major topics
  315. (info-menu-star ((t (:foreground "black")))) ; every 3rd menu item
  316. (info-node ((t (:underline t :foreground "blue")))) ; node names
  317. (info-quoted-name ((t ,inline-code)))
  318. (info-string ((t (:foreground "green4")))) ; strings ("...")
  319. (Info-title-1-face ((t ,ol1)))
  320. (Info-title-2-face ((t ,ol2)))
  321. (Info-title-3-face ((t ,ol3)))
  322. (Info-title-4-face ((t ,ol4)))
  323. (info-xref ((t (:weight bold :underline t :foreground "blue")))) ; unvisited cross-references
  324. (info-xref-visited ((t (:weight bold :foreground "magenta4")))) ; previously visited cross-references
  325. ;; highlighting matches
  326. (isearch ((t (:weight bold :box (:line-width 1 :color "#A0A0A0") :foreground "#EE6600" :background "yellow"))))
  327. (isearch-fail ((t (:weight bold :foreground "white" :background "red"))))
  328. (isearch-lazy-highlight-face ((t (:weight bold :foreground "blue" :background "#CCFFFF")))) ; for GNU Emacs
  329. (isearch-secondary ((t (:weight bold :foreground "blue" :background "#CCFFFF")))) ; for XEmacs
  330. (light-symbol-face ((t (:background "#FFFFA0"))))
  331. (linum ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
  332. (magit-branch ((t (:foreground "SkyBlue" :height 1.1))))
  333. (magit-diff-add ((t ,diff-added)))
  334. (magit-diff-del ((t ,diff-removed)))
  335. (magit-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
  336. (magit-diff-hunk-header ((t ,diff-hunk-header)))
  337. (magit-diff-none ((t ,diff-none)))
  338. (magit-header ((t (:foreground "white" :background "#FF4040"))))
  339. (magit-item-highlight ((t (:background "#EAF2F5"))))
  340. (magit-item-mark ((t ,marked-line)))
  341. (magit-log-head-label ((t (:box (:line-width 1 :color "blue" :style nil)))))
  342. (magit-log-tag-label ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
  343. (magit-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
  344. ;; make
  345. (makefile-space-face ((t (:background "hot pink"))))
  346. (makefile-targets ((t (:weight bold :foreground "blue"))))
  347. (match ((t (:weight bold :foreground "#EE6600" :background "pink"))))
  348. ;; Message
  349. (message-cited-text-face ((t (:foreground "#5050B0"))))
  350. (message-header-cc-face ((t (:family "Sans Serif" :foreground "blue"))))
  351. (message-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
  352. (message-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
  353. (message-header-other-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
  354. (message-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
  355. (message-header-to-face ((t (:family "Sans Serif" :foreground "blue"))))
  356. (message-header-xheader-face ((t (:foreground "red"))))
  357. (message-mml-face ((t (:foreground "forest green"))))
  358. (message-separator-face ((t (:family "Sans Serif" :weight bold :foreground "red"))))
  359. (mm-uu-extract ((t ,block-code)))
  360. (minibuffer-noticeable-prompt ((t (:weight bold :foreground "black" :background "gold"))))
  361. (minibuffer-prompt ((t (:weight bold :foreground "black" :background "gold"))))
  362. ;; GNU Emacs mode-line
  363. (mode-line ((t (:box (:line-width 1 :color "#254394") :foreground "#D4EAFF" :background "#4241EF"))))
  364. (mode-line-buffer-id ((t (:weight bold :foreground "white"))))
  365. (mode-line-highlight ((t (:foreground "yellow"))))
  366. (mode-line-inactive ((t (:box (:line-width 1 :color "#636363") :foreground "#818181" :background "#C6C3C6"))))
  367. ;; XEmacs modeline
  368. (modeline-mousable ((t (:weight bold :foreground "firebrick")))) ; major-mode
  369. (modeline-mousable-minor-mode ((t (:foreground "green4"))))
  370. (mumamo-background-chunk-major ((t (:background "white"))))
  371. ;; non-breaking space
  372. (nobreak-space ((t (:background "#C6C3C6"))))
  373. (nxml-attribute-local-name-face ((t (:foreground "magenta"))))
  374. (nxml-attribute-value-delimiter-face ((t (:foreground "green4"))))
  375. (nxml-attribute-value-face ((t (:foreground "green4"))))
  376. (nxml-comment-content-face ((t (:slant italic :foreground "red"))))
  377. (nxml-comment-delimiter-face ((t (:foreground "red"))))
  378. (nxml-element-local-name-face ((t (:foreground "blue"))))
  379. (nxml-processing-instruction-delimiter-face ((t (:foreground "purple1"))))
  380. (nxml-processing-instruction-target-face ((t (:foreground "purple1"))))
  381. (nxml-tag-delimiter-face ((t (:foreground "blue"))))
  382. (nxml-tag-slash-face ((t (:foreground "blue"))))
  383. ;; Org
  384. (org-agenda-clocking ((t ,clock-line)))
  385. (org-agenda-column-dateline ((t (:inherit org-column))))
  386. ;; (org-agenda-column-dateline ((t (:background "deep sky blue" :height 79 :family "Consolas"))))
  387. (org-agenda-current-time ((t (:weight bold :underline t :foreground "purple"))))
  388. (org-agenda-date ((t (:height 1.6 :weight bold :foreground "#0063F5")))) ; "#87C9FC"
  389. (org-agenda-date-today ((t (:height 1.6 :weight bold :foreground "purple")))) ; "#CCCCFF" ; inherit
  390. (org-agenda-date-weekend ((t (:height 1.6 :weight bold :foreground "dim gray")))) ; "#B6B2AE" ; inherit
  391. (org-agenda-diary ((t (:weight bold :foreground "green4" :background "light blue"))))
  392. (org-agenda-dimmed-todo-face ((t (:foreground "gold2")))) ; org-blocked-todo
  393. (org-agenda-done ((t (:foreground "gray50" :background "#EAFFEA"))))
  394. (org-agenda-restriction-lock ((t (:foreground "white" :background "SkyBlue4"))))
  395. (org-agenda-structure ((t (:weight bold :foreground "white" :background "#0099FF"))))
  396. (org-archived ((t (:foreground "gray70"))))
  397. (org-beamer-tag ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
  398. (org-block ((t ,block-code)))
  399. (org-block-background ((t (:background "#FFFFEA"))))
  400. (org-block-begin-line ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
  401. (org-block-end-line ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
  402. (org-checkbox ((t (:weight bold :foreground "white" :background "#777777" :box (:line-width 1 :style pressed-button)))))
  403. (org-clock-overlay ((t (:foreground "white" :background "SkyBlue4"))))
  404. (org-code ((t (:foreground "#0077CC" :background "#EAFFEA"))))
  405. (org-column ((t ,column)))
  406. ;; (org-column ((t (:background "gold" :height 79 :family "Consolas"))))
  407. (org-column-title ((t (:inherit org-column))))
  408. ;; (org-column-title ((t (:background "gold" :height 79 :family "Consolas"))))
  409. (org-date ((t (:underline t :foreground "purple"))))
  410. (org-dim ((t (:foreground "#AAAAAA"))))
  411. (org-document-info ((t (:foreground "midnight blue"))))
  412. (org-document-info-keyword ((t (:foreground "#008ED1" :background "#EAEAFF"))))
  413. (org-document-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "blue"))))
  414. (org-done ((t (:weight bold :box (:line-width 1 :color "#666666") :foreground "white" :background "#888888"))))
  415. (org-drawer ((t (:foreground "light sky blue"))))
  416. (org-ellipsis ((t (:underline "#B0EEB0" :foreground "#00BB00"))))
  417. (org-example ((t (:foreground "blue" :background "#EAFFEA"))))
  418. (org-footnote ((t (:underline t :foreground "#008ED1"))))
  419. (org-formula ((t (:foreground "chocolate1"))))
  420. (org-headline-done ((t (:height 1.0 :weight bold :strike-through t :foreground "#A7A6AA")))) ; 1.4
  421. (org-hide ((t (:foreground "#666666" :background "#FFFFCC"))))
  422. (org-latex-and-export-specials ((t (:foreground "blue"))))
  423. (org-level-1 ((t ,ol1)))
  424. (org-level-2 ((t ,ol2)))
  425. (org-level-3 ((t ,ol3)))
  426. (org-level-4 ((t ,ol4)))
  427. (org-level-5 ((t ,ol5)))
  428. (org-level-6 ((t ,ol6)))
  429. (org-level-7 ((t ,ol7)))
  430. (org-level-8 ((t ,ol8)))
  431. (org-link ((t (:underline t :foreground "#0077CC"))))
  432. (org-meta-line ((t (:foreground "#008ED1" :background "#EAEAFF"))))
  433. (org-mode-line-clock ((t ,clock-line)))
  434. (org-mode-line-clock-overrun ((t (:weight bold :box (:line-width 1 :color "#FFBB00") :foreground "white" :background "#FF4040"))))
  435. (org-property-value ((t (nil))))
  436. (org-quote ((t (:slant italic :foreground "dim gray"))))
  437. (org-scheduled ((t (:foreground "#0077CC"))))
  438. (org-scheduled-previously ((t (:foreground "#0077CC"))))
  439. (org-scheduled-today ((t (:slant italic :foreground "purple"))))
  440. (org-sexp-date ((t (:foreground "purple"))))
  441. (org-special-keyword ((t (:foreground "#00BB00" :background "#EAFFEA"))))
  442. (org-table ((t (:foreground "blue" :background "#EAFFEA"))))
  443. (org-tag ((t (:height 1.0 :weight normal :slant italic :foreground "#816A7D" :background "#F7B8DE"))))
  444. (org-target ((t (:underline t))))
  445. (org-time-grid ((t (:foreground "#008ED1"))))
  446. (org-todo ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
  447. (org-upcoming-deadline ((t (:foreground "#FF5555"))))
  448. ;; (org-upcoming-deadline ((t (:foreground "white" :background "#E9A36A" :weight bold))))
  449. (org-verbatim ((t ,inline-code)))
  450. (org-verse ((t (:slant italic :foreground "dim gray" :background "#EEEEEE"))))
  451. (org-warning ((t (:weight bold :box (:line-width 1 :color "#4488BB") :foreground "#5C88D3" :background "#BBDDFF"))))
  452. ;; pabbrev
  453. (pabbrev-debug-display-label-face ((t (:background "chartreuse"))))
  454. (pabbrev-suggestions-label-face ((t (:weight bold :foreground "white" :background "purple"))))
  455. (pabbrev-suggestions-face ((t (:weight bold :foreground "white" :background "red"))))
  456. ;; parentheses
  457. (paren-face-match ((t (:background "chartreuse"))))
  458. (paren-face-mismatch ((t (:weight bold :foreground "white" :background "purple"))))
  459. (paren-face-no-match ((t (:weight bold :foreground "white" :background "purple"))))
  460. (pesche-space ((t (:background "lemon chiffon"))))
  461. (pesche-tab ((t (:background "gold"))))
  462. ;; pretty print ^L
  463. (pp^L-highlight ((t (:strike-through t :inherit shadow))))
  464. (recover-this-file ((t (:background "tomato"))))
  465. ;; selection, selected region
  466. (region ((t (:background "#D2D9E0")))) ; for GNU Emacs ; was seashell2
  467. (zmacs-region ((t (:background "gray84")))) ; for XEmacs
  468. ;; used by Org-mode for highlighting matched entries and keywords
  469. (secondary-selection ((t (:weight bold :foreground "white" :background "#335EA8"))))
  470. (shadow ((t (:weight bold :foreground "#666666" :background "#FFFFCC"))))
  471. ;; for `cat <<EOF' in shell scripts
  472. (sh-heredoc ((t (:foreground "blue"))))
  473. ;; shell
  474. (shell-option-face ((t (:foreground "forest green"))))
  475. (shell-output-2-face ((t (:foreground "blue"))))
  476. (shell-output-3-face ((t (:foreground "purple"))))
  477. (shell-output-face ((t (:foreground "black"))))
  478. (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
  479. ;; parentheses
  480. (show-paren-match-face ((t (:background "chartreuse"))))
  481. (show-paren-mismatch-face ((t (:weight bold :foreground "white" :background "purple"))))
  482. ;; speedbar
  483. (speedbar-button-face ((t (:foreground "green4"))))
  484. (speedbar-directory-face ((t (:foreground "blue4"))))
  485. (speedbar-file-face ((t (:foreground "cyan4"))))
  486. (speedbar-highlight-face ((t (:background "green"))))
  487. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  488. (speedbar-tag-face ((t (:foreground "brown"))))
  489. ;; subversion
  490. (svn-status-directory-face ((t ,directory)))
  491. (svn-status-filename-face ((t (:weight bold :foreground "#4183C4"))))
  492. (svn-status-locked-face ((t (:weight bold :foreground "red"))))
  493. (svn-status-marked-face ((t ,marked-line)))
  494. (svn-status-marked-popup-face ((t (:weight bold :foreground "green3"))))
  495. (svn-status-switched-face ((t (:slant italic :foreground "gray55"))))
  496. (svn-status-symlink-face ((t ,symlink)))
  497. (svn-status-update-available-face ((t (:foreground "orange"))))
  498. ;; TeX
  499. (tex-verbatim ((t (:foreground "blue"))))
  500. ;; tool-bar
  501. (tool-bar ((t (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
  502. ;; tooltip
  503. (tooltip ((t (:foreground "black" :background "light yellow"))))
  504. ;; show trailing whitespace
  505. (trailing-whitespace ((t (:background "#D5FFD5"))))
  506. (traverse-match-face ((t (:weight bold :foreground "blue violet"))))
  507. (vc-annotate-face-FF3F3F ((t (:foreground "#FF3F3F" :background "black"))))
  508. (vc-annotate-face-FF6C3F ((t (:foreground "#FF3F3F" :background "black"))))
  509. (vc-annotate-face-FF993F ((t (:foreground "#FF993F" :background "black"))))
  510. (vc-annotate-face-FFC63F ((t (:foreground "#FF993F" :background "black"))))
  511. (vc-annotate-face-FFF33F ((t (:foreground "#FFF33F" :background "black"))))
  512. (vc-annotate-face-DDFF3F ((t (:foreground "#FFF33F" :background "black"))))
  513. (vc-annotate-face-B0FF3F ((t (:foreground "#B0FF3F" :background "black"))))
  514. (vc-annotate-face-83FF3F ((t (:foreground "#B0FF3F" :background "black"))))
  515. (vc-annotate-face-56FF3F ((t (:foreground "#4BFF4B" :background "black"))))
  516. (vc-annotate-face-3FFF56 ((t (:foreground "#4BFF4B" :background "black"))))
  517. (vc-annotate-face-3FFF83 ((t (:foreground "#3FFFB0" :background "black"))))
  518. (vc-annotate-face-3FFFB0 ((t (:foreground "#3FFFB0" :background "black"))))
  519. (vc-annotate-face-3FFFDD ((t (:foreground "#3FF3FF" :background "black"))))
  520. (vc-annotate-face-3FF3FF ((t (:foreground "#3FF3FF" :background "black"))))
  521. (vc-annotate-face-3FC6FF ((t (:foreground "#3F99FF" :background "black"))))
  522. (vc-annotate-face-3F99FF ((t (:foreground "#3F99FF" :background "black"))))
  523. (vc-annotate-face-3F6CFF ((t (:foreground "#3F3FFF" :background "black"))))
  524. (vc-annotate-face-3F3FFF ((t (:foreground "#3F3FFF" :background "black"))))
  525. ;; w3m
  526. (w3m-anchor ((t (:foreground "blue"))))
  527. (w3m-arrived-anchor ((t (:foreground "purple1"))))
  528. (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
  529. (w3m-bold ((t (:weight bold :foreground "medium sea green"))))
  530. (w3m-current-anchor ((t (:weight bold :underline t :foreground "blue"))))
  531. (w3m-form ((t (:underline t :foreground "tan1"))))
  532. (w3m-form-button-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
  533. ;; (w3m-form-button-face ((t (:background "lightgray" :foreground "black"))))
  534. (w3m-form-button-mouse-face ((t (:underline t :foreground "light grey" :background "#2B7E2A"))))
  535. ;; (w3m-form-button-mouse-face ((t (:background "orange"))))
  536. (w3m-form-button-pressed-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
  537. ;; (w3m-form-button-pressed-face ((t (:background "yellow"))))
  538. (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
  539. (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
  540. (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))
  541. ;; (w3m-history-current-url-face ((t (:foreground "LightSkyBlue" :background "SkyBlue4"))))
  542. (w3m-image-face ((t (:weight bold :foreground "DarkSeaGreen2"))))
  543. (w3m-link-numbering ((t (:foreground "#B4C7EB")))) ;; mouseless browsing
  544. (w3m-strike-through-face ((t (:strike-through t))))
  545. (w3m-underline-face ((t (:underline t))))
  546. ;; (w3m-tab-background-face ((t (:foreground "white" :background "#21364B"))))
  547. ;; (w3m-tab-selected-face ((t (:foreground "black" :background "Gray85" :box (:line-width 1 :style nil)))))
  548. ;; (w3m-tab-selected-retrieving-face ((t (:background "gray85" :foreground "white" :box (:line-width -1 :style nil)))))
  549. ;; (w3m-tab-unselected-face ((t (:foreground "gray20" :background "gray70" :box (:line-width 1 :style nil)))))
  550. ;; (w3m-tab-unselected-retrieving-face ((t (:foreground "white" :background "gray50" :box (:line-width -1 :style nil)))))
  551. (widget-button-face ((t (:weight bold))))
  552. (widget-button-pressed-face ((t (:foreground "red"))))
  553. (widget-documentation-face ((t (:foreground "green4"))))
  554. (widget-field-face ((t (:background "gray85"))))
  555. (widget-inactive-face ((t (:foreground "dim gray"))))
  556. (widget-single-line-field-face ((t (:background "gray85"))))
  557. (yas/field-debug-face ((t (:background "ivory2"))))
  558. (yas/field-highlight-face ((t (:background "DarkSeaGreen1"))))
  559. ))))
  560. (add-to-list 'color-themes
  561. '(color-theme-leuven "Leuven" "Sebastien Vauban"))
  562. (provide 'color-theme-leuven)
  563. ;; This is for the sake of Emacs.
  564. ;; Local Variables:
  565. ;; ispell-local-dictionary: "en_US"
  566. ;; mode: outline-minor
  567. ;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode))
  568. ;; End:
  569. ;;; color-theme-leuven.el ends here