/vendor/color-theme/themes/color-theme-library.el

http://github.com/rejeep/emacs · Emacs Lisp · 4450 lines · 4338 code · 77 blank · 35 comment · 38 complexity · cefa00572d65aabc7c2f88710c24435f MD5 · raw file

Large files are truncated click here to view the full file

  1. ;;; color-theme-library.el --- The real color theme functions
  2. ;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
  3. ;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
  4. ;; Version: 0.0.9
  5. ;; Keywords: faces
  6. ;; Author: Brian Palmer, Xavier Maillard
  7. ;; Maintainer: Xavier Maillard <zedek@gnu.org>
  8. ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme
  9. ;; This file is not (YET) part of GNU Emacs.
  10. ;; This is free software; you can redistribute it and/or modify it under
  11. ;; the terms of the GNU General Public License as published by the Free
  12. ;; Software Foundation; either version 2, or (at your option) any later
  13. ;; version.
  14. ;;
  15. ;; This is distributed in the hope that it will be useful, but WITHOUT
  16. ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  17. ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
  18. ;; for more details.
  19. ;;
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING. If not, write to the
  22. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  23. ;; MA 02111-1307, USA.
  24. ;; Code:
  25. (eval-when-compile
  26. (require 'color-theme))
  27. (defun color-theme-gnome ()
  28. "Wheat on darkslategrey scheme.
  29. From one version of Emacs in RH6 and Gnome, modified by Jonadab."
  30. (interactive)
  31. (color-theme-install
  32. '(color-theme-gnome
  33. ((foreground-color . "wheat")
  34. (background-color . "darkslategrey")
  35. (background-mode . dark))
  36. (default ((t (nil))))
  37. (region ((t (:foreground "cyan" :background "dark cyan"))))
  38. (underline ((t (:foreground "yellow" :underline t))))
  39. (modeline ((t (:foreground "dark cyan" :background "wheat"))))
  40. (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
  41. (modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
  42. (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
  43. (italic ((t (:foreground "dark red" :italic t))))
  44. (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
  45. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  46. (bold ((t (:bold)))))))
  47. (defun color-theme-blue-gnus ()
  48. "Color theme for gnus and message faces only.
  49. This is intended for other color themes to use (eg. `color-theme-gnome2'
  50. and `color-theme-blue-sea')."
  51. (interactive)
  52. (color-theme-install
  53. '(color-theme-blue-gnus
  54. nil
  55. (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
  56. (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
  57. (gnus-cite-face-2 ((t (:foreground "Khaki"))))
  58. (gnus-cite-face-3 ((t (:foreground "Coral"))))
  59. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  60. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  61. (gnus-cite-face-6 ((t (:foreground "bisque"))))
  62. (gnus-cite-face-7 ((t (:foreground "peru"))))
  63. (gnus-cite-face-8 ((t (:foreground "light coral"))))
  64. (gnus-cite-face-9 ((t (:foreground "plum"))))
  65. (gnus-emphasis-bold ((t (:bold t))))
  66. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  67. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  68. (gnus-emphasis-italic ((t (:italic t))))
  69. (gnus-emphasis-underline ((t (:underline t))))
  70. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  71. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
  72. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  73. (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
  74. (gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
  75. (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
  76. (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
  77. (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
  78. (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
  79. (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
  80. (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
  81. (gnus-group-news-1-empty-face ((t (:foreground "White"))))
  82. (gnus-group-news-1-face ((t (:bold t :foreground "White"))))
  83. (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
  84. (gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
  85. (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
  86. (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
  87. (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
  88. (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
  89. (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
  90. (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
  91. (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
  92. (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
  93. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  94. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
  95. (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
  96. (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
  97. (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
  98. (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
  99. (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
  100. (gnus-signature-face ((t (:foreground "Grey"))))
  101. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  102. (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
  103. (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
  104. (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
  105. (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
  106. (gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
  107. (gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
  108. (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
  109. (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
  110. (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
  111. (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
  112. (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
  113. (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
  114. (gnus-summary-normal-unread-face ((t (nil))))
  115. (gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
  116. (message-cited-text-face ((t (:foreground "LightSalmon"))))
  117. (message-header-cc-face ((t (:foreground "light cyan"))))
  118. (message-header-name-face ((t (:foreground "LightBlue"))))
  119. (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
  120. (message-header-other-face ((t (:foreground "MediumAquamarine"))))
  121. (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
  122. (message-header-to-face ((t (:bold t :foreground "light cyan"))))
  123. (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
  124. (message-separator-face ((t (:foreground "chocolate")))))))
  125. (defun color-theme-dark-gnus ()
  126. "Color theme for gnus and message faces only.
  127. This is intended for other color themes to use
  128. \(eg. `color-theme-late-night')."
  129. (interactive)
  130. (color-theme-install
  131. '(color-theme-blue-gnus
  132. nil
  133. (gnus-cite-attribution-face ((t (:foreground "#bbb"))))
  134. (gnus-cite-face-1 ((t (:foreground "#aaa"))))
  135. (gnus-cite-face-2 ((t (:foreground "#aaa"))))
  136. (gnus-cite-face-3 ((t (:foreground "#aaa"))))
  137. (gnus-cite-face-4 ((t (:foreground "#aaa"))))
  138. (gnus-cite-face-5 ((t (:foreground "#aaa"))))
  139. (gnus-cite-face-6 ((t (:foreground "#aaa"))))
  140. (gnus-cite-face-7 ((t (:foreground "#aaa"))))
  141. (gnus-cite-face-8 ((t (:foreground "#aaa"))))
  142. (gnus-cite-face-9 ((t (:foreground "#aaa"))))
  143. (gnus-emphasis-bold ((t (:bold t))))
  144. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  145. (gnus-emphasis-highlight-words ((t (:foreground "#ccc"))))
  146. (gnus-emphasis-italic ((t (:italic t))))
  147. (gnus-emphasis-underline ((t (:underline t))))
  148. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  149. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
  150. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  151. (gnus-group-mail-1-empty-face ((t (:foreground "#999"))))
  152. (gnus-group-mail-1-face ((t (:bold t :foreground "#999"))))
  153. (gnus-group-mail-2-empty-face ((t (:foreground "#999"))))
  154. (gnus-group-mail-2-face ((t (:bold t :foreground "#999"))))
  155. (gnus-group-mail-3-empty-face ((t (:foreground "#888"))))
  156. (gnus-group-mail-3-face ((t (:bold t :foreground "#888"))))
  157. (gnus-group-mail-low-empty-face ((t (:foreground "#777"))))
  158. (gnus-group-mail-low-face ((t (:bold t :foreground "#777"))))
  159. (gnus-group-news-1-empty-face ((t (:foreground "#999"))))
  160. (gnus-group-news-1-face ((t (:bold t :foreground "#999"))))
  161. (gnus-group-news-2-empty-face ((t (:foreground "#888"))))
  162. (gnus-group-news-2-face ((t (:bold t :foreground "#888"))))
  163. (gnus-group-news-3-empty-face ((t (:foreground "#777"))))
  164. (gnus-group-news-3-face ((t (:bold t :foreground "#777"))))
  165. (gnus-group-news-4-empty-face ((t (:foreground "#666"))))
  166. (gnus-group-news-4-face ((t (:bold t :foreground "#666"))))
  167. (gnus-group-news-5-empty-face ((t (:foreground "#666"))))
  168. (gnus-group-news-5-face ((t (:bold t :foreground "#666"))))
  169. (gnus-group-news-6-empty-face ((t (:foreground "#666"))))
  170. (gnus-group-news-6-face ((t (:bold t :foreground "#666"))))
  171. (gnus-group-news-low-empty-face ((t (:foreground "#666"))))
  172. (gnus-group-news-low-face ((t (:bold t :foreground "#666"))))
  173. (gnus-header-content-face ((t (:foreground "#888"))))
  174. (gnus-header-from-face ((t (:bold t :foreground "#888"))))
  175. (gnus-header-name-face ((t (:bold t :foreground "#777"))))
  176. (gnus-header-newsgroups-face ((t (:bold t :foreground "#777"))))
  177. (gnus-header-subject-face ((t (:bold t :foreground "#999"))))
  178. (gnus-signature-face ((t (:foreground "#444"))))
  179. (gnus-splash-face ((t (:foreground "#ccc"))))
  180. (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000"))))
  181. (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555"))))
  182. (gnus-summary-high-read-face ((t (:bold t :foreground "#666"))))
  183. (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777"))))
  184. (gnus-summary-high-unread-face ((t (:bold t :foreground "#888"))))
  185. (gnus-summary-low-ancient-face ((t (:foreground "#444"))))
  186. (gnus-summary-low-read-face ((t (:foreground "#555"))))
  187. (gnus-summary-low-ticked-face ((t (:foreground "#666"))))
  188. (gnus-summary-low-unread-face ((t (:foreground "#777"))))
  189. (gnus-summary-normal-ancient-face ((t (:foreground "#555"))))
  190. (gnus-summary-normal-read-face ((t (:foreground "#666"))))
  191. (gnus-summary-normal-ticked-face ((t (:foreground "#777"))))
  192. (gnus-summary-normal-unread-face ((t (:foreground "#888"))))
  193. (gnus-summary-selected-face ((t (:background "#333"))))
  194. (message-cited-text-face ((t (:foreground "#aaa"))))
  195. (message-header-cc-face ((t (:foreground "#888"))))
  196. (message-header-name-face ((t (:bold t :foreground "#777"))))
  197. (message-header-newsgroups-face ((t (:bold t :foreground "#777"))))
  198. (message-header-other-face ((t (:foreground "#666"))))
  199. (message-header-subject-face ((t (:bold t :foreground "#999"))))
  200. (message-header-to-face ((t (:bold t :foreground "#777"))))
  201. (message-header-xheader-face ((t (:foreground "#666"))))
  202. (message-separator-face ((t (:foreground "#999")))))))
  203. (defun color-theme-blue-eshell ()
  204. "Color theme for eshell faces only.
  205. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  206. (interactive)
  207. (color-theme-install
  208. '(color-theme-blue-eshell
  209. nil
  210. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  211. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  212. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  213. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
  214. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  215. (eshell-ls-missing-face ((t (:foreground "black"))))
  216. (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face
  217. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  218. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  219. (eshell-ls-special-face ((t (:foreground "Gold"))))
  220. (eshell-ls-symlink-face ((t (:foreground "White"))))
  221. (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face
  222. (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face
  223. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  224. (eshell-prompt-face ((t (:foreground "powder blue")))))))
  225. (defun color-theme-salmon-font-lock ()
  226. "Color theme for font-lock faces only.
  227. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  228. (interactive)
  229. (color-theme-install
  230. '(color-theme-salmon-font-lock
  231. nil
  232. (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
  233. (font-lock-comment-face ((t (:foreground "LightBlue"))))
  234. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  235. (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
  236. (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine"))))
  237. (font-lock-keyword-face ((t (:foreground "Salmon"))))
  238. (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
  239. (font-lock-reference-face ((t (:foreground "pale green"))))
  240. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  241. (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
  242. (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine"))))
  243. (font-lock-warning-face ((t (:bold t :foreground "red")))))))
  244. (defun color-theme-dark-font-lock ()
  245. "Color theme for font-lock faces only.
  246. This is intended for other color themes to use (eg. `color-theme-late-night')."
  247. (interactive)
  248. (color-theme-install
  249. '(color-theme-dark-font-lock
  250. nil
  251. (font-lock-builtin-face ((t (:bold t :foreground "#777"))))
  252. (font-lock-comment-face ((t (:foreground "#555"))))
  253. (font-lock-constant-face ((t (:foreground "#777"))))
  254. (font-lock-doc-string-face ((t (:foreground "#777"))))
  255. (font-lock-doc-face ((t (:foreground "#777"))))
  256. (font-lock-function-name-face ((t (:bold t :foreground "#777"))))
  257. (font-lock-keyword-face ((t (:foreground "#777"))))
  258. (font-lock-preprocessor-face ((t (:foreground "#777"))))
  259. (font-lock-reference-face ((t (:foreground "#777"))))
  260. (font-lock-string-face ((t (:foreground "#777"))))
  261. (font-lock-type-face ((t (:bold t))))
  262. (font-lock-variable-name-face ((t (:bold t :foreground "#888"))))
  263. (font-lock-warning-face ((t (:bold t :foreground "#999")))))))
  264. (defun color-theme-dark-info ()
  265. "Color theme for info, help and apropos faces.
  266. This is intended for other color themes to use (eg. `color-theme-late-night')."
  267. (interactive)
  268. (color-theme-install
  269. '(color-theme-dark-info
  270. nil
  271. (info-header-node ((t (:foreground "#666"))))
  272. (info-header-xref ((t (:foreground "#666"))))
  273. (info-menu-5 ((t (:underline t))))
  274. (info-menu-header ((t (:bold t :foreground "#666"))))
  275. (info-node ((t (:bold t :foreground "#888"))))
  276. (info-xref ((t (:bold t :foreground "#777")))))))
  277. (defun color-theme-gnome2 ()
  278. "Wheat on darkslategrey scheme.
  279. `color-theme-gnome' started it all.
  280. This theme supports standard faces, font-lock, eshell, info, message,
  281. gnus, custom, widget, woman, diary, cperl, bbdb, and erc. This theme
  282. includes faces for Emacs and XEmacs.
  283. The theme does not support w3 faces because w3 faces can be controlled
  284. by your default style sheet.
  285. This is what you should put in your .Xdefaults file, if you want to
  286. change the colors of the menus in Emacs 20 as well:
  287. emacs*Background: DarkSlateGray
  288. emacs*Foreground: Wheat"
  289. (interactive)
  290. (color-theme-blue-gnus)
  291. (let ((color-theme-is-cumulative t))
  292. (color-theme-blue-erc)
  293. (color-theme-blue-eshell)
  294. (color-theme-salmon-font-lock)
  295. (color-theme-salmon-diff)
  296. (color-theme-install
  297. '(color-theme-gnome2
  298. ((foreground-color . "wheat")
  299. (background-color . "darkslategrey")
  300. (mouse-color . "Grey")
  301. (cursor-color . "LightGray")
  302. (border-color . "black")
  303. (background-mode . dark))
  304. ((apropos-keybinding-face . underline)
  305. (apropos-label-face . italic)
  306. (apropos-match-face . secondary-selection)
  307. (apropos-property-face . bold-italic)
  308. (apropos-symbol-face . info-xref)
  309. (goto-address-mail-face . message-header-to-face)
  310. (goto-address-mail-mouse-face . secondary-selection)
  311. (goto-address-url-face . info-xref)
  312. (goto-address-url-mouse-face . highlight)
  313. (list-matching-lines-face . bold)
  314. (view-highlight-face . highlight))
  315. (default ((t (nil))))
  316. (bbdb-company ((t (:foreground "pale green"))))
  317. (bbdb-name ((t (:bold t :foreground "pale green"))))
  318. (bbdb-field-name ((t (:foreground "medium sea green"))))
  319. (bbdb-field-value ((t (:foreground "dark sea green"))))
  320. (bold ((t (:bold t))))
  321. (bold-italic ((t (:italic t :bold t :foreground "beige"))))
  322. (calendar-today-face ((t (:underline t))))
  323. (comint-highlight-prompt ((t (:foreground "medium aquamarine"))))
  324. (cperl-array-face ((t (:foreground "Yellow"))))
  325. (cperl-hash-face ((t (:foreground "White"))))
  326. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  327. (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
  328. (custom-documentation-face ((t (:foreground "Grey"))))
  329. (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
  330. (custom-state-face ((t (:foreground "LightSalmon"))))
  331. (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
  332. (diary-face ((t (:foreground "IndianRed"))))
  333. (dired-face-directory ((t (:bold t :foreground "sky blue"))))
  334. (dired-face-permissions ((t (:foreground "aquamarine"))))
  335. (dired-face-flagged ((t (:foreground "tomato"))))
  336. (dired-face-marked ((t (:foreground "light salmon"))))
  337. (dired-face-executable ((t (:foreground "green yellow"))))
  338. (fringe ((t (:background "darkslategrey"))))
  339. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  340. (highline-face ((t (:background "SeaGreen"))))
  341. (holiday-face ((t (:background "DimGray"))))
  342. (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1"))))
  343. (hyper-apropos-documentation ((t (:foreground "LightSalmon"))))
  344. (info-header-xref ((t (:foreground "DodgerBlue1" :bold t))))
  345. (info-menu-5 ((t (:underline t))))
  346. (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
  347. (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
  348. (isearch ((t (:background "sea green"))))
  349. (italic ((t (:italic t))))
  350. (menu ((t (:foreground "wheat" :background "darkslategrey"))))
  351. (modeline ((t (:background "dark olive green" :foreground "wheat"))))
  352. (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige"))))
  353. (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green"))))
  354. (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat"))))
  355. (region ((t (:background "dark cyan" :foreground "cyan"))))
  356. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  357. (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue"))))
  358. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  359. (underline ((t (:underline t))))
  360. (widget-field-face ((t (:foreground "LightBlue"))))
  361. (widget-inactive-face ((t (:foreground "DimGray"))))
  362. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  363. (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
  364. (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
  365. (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green"))))
  366. (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green"))))
  367. (woman-bold-face ((t (:bold t))))
  368. (woman-italic-face ((t (:foreground "beige"))))
  369. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  370. (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))))
  371. (defun color-theme-simple-1 ()
  372. "Black background.
  373. Doesn't mess with most faces, but does turn on dark background mode."
  374. (interactive)
  375. (color-theme-install
  376. '(color-theme-simple-1
  377. ((foreground-color . "white")
  378. (background-color . "black")
  379. (cursor-color . "indian red")
  380. (background-mode . dark))
  381. (default ((t (nil))))
  382. (modeline ((t (:foreground "black" :background "white"))))
  383. (modeline-buffer-id ((t (:foreground "black" :background "white"))))
  384. (modeline-mousable ((t (:foreground "black" :background "white"))))
  385. (modeline-mousable-minor-mode ((t (:foreground "black" :background "white"))))
  386. (underline ((t (:underline t))))
  387. (region ((t (:background "grey")))))))
  388. (defun color-theme-jonadabian ()
  389. "Dark blue background.
  390. Supports standard faces, font-lock, highlight-changes, widget and
  391. custom."
  392. (interactive)
  393. (color-theme-install
  394. '(color-theme-jonadabian
  395. ((foreground-color . "#CCBB77")
  396. (cursor-color . "medium turquoise")
  397. (background-color . "#000055")
  398. (background-mode . dark))
  399. (default ((t (nil))))
  400. (modeline ((t (:foreground "cyan" :background "#007080"))))
  401. (modeline-buffer-id ((t (:foreground "cyan" :background "#007080"))))
  402. (modeline-mousable ((t (:foreground "cyan" :background "#007080"))))
  403. (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080"))))
  404. (underline ((t (:underline t))))
  405. (region ((t (:background "#004080"))))
  406. (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
  407. (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t))))
  408. (font-lock-string-face ((t (:foreground "#10D010"))))
  409. (font-lock-constant-face ((t (:foreground "indian red"))))
  410. (highlight-changes-face ((t (:background "navy"))))
  411. (highlight-changes-delete-face ((t (:foreground "red" :background "navy"))))
  412. (widget-field-face ((t (:foreground "black" :background "grey35"))))
  413. (widget-inactive-face ((t (:foreground "gray"))))
  414. (custom-button-face ((t (:foreground "yellow" :background "dark blue"))))
  415. (custom-state-face ((t (:foreground "mediumaquamarine"))))
  416. (custom-face-tag-face ((t (:foreground "goldenrod" :underline t))))
  417. (custom-documentation-face ((t (:foreground "#10D010"))))
  418. (custom-set-face ((t (:foreground "#2020D0")))))))
  419. (defun color-theme-ryerson ()
  420. "White on midnightblue scheme.
  421. Used at Ryerson Polytechnic University in the Electronic Engineering department."
  422. (interactive)
  423. (color-theme-install
  424. '(color-theme-ryerson
  425. ((foreground-color . "white")
  426. (background-color . "midnightblue")
  427. (cursor-color . "red")
  428. (background-mode . dark))
  429. (default ((t (nil))))
  430. (modeline ((t (:foreground "black" :background "slategray3"))))
  431. (modeline-buffer-id ((t (:foreground "black" :background "slategray3"))))
  432. (modeline-mousable ((t (:foreground "black" :background "slategray3"))))
  433. (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3"))))
  434. (underline ((t (:underline t))))
  435. (region ((t (:foreground "black" :background "slategray3")))))))
  436. (defun color-theme-wheat ()
  437. "Default colors on a wheat background.
  438. Calls the standard color theme function `color-theme-standard' in order
  439. to reset all faces."
  440. (interactive)
  441. (color-theme-standard)
  442. (let ((color-theme-is-cumulative t))
  443. (color-theme-install
  444. '(color-theme-wheat
  445. ((background-color . "Wheat"))))))
  446. (defun color-theme-standard ()
  447. "Emacs default colors.
  448. If you are missing standard faces in this theme, please notify the maintainer."
  449. (interactive)
  450. ;; Note that some of the things that make up a color theme are
  451. ;; actually variable settings!
  452. (color-theme-install
  453. '(color-theme-standard
  454. ((foreground-color . "black")
  455. (background-color . "white")
  456. (mouse-color . "black")
  457. (cursor-color . "black")
  458. (border-color . "black")
  459. (background-mode . light))
  460. ((Man-overstrike-face . bold)
  461. (Man-underline-face . underline)
  462. (apropos-keybinding-face . underline)
  463. (apropos-label-face . italic)
  464. (apropos-match-face . secondary-selection)
  465. (apropos-property-face . bold-italic)
  466. (apropos-symbol-face . bold)
  467. (goto-address-mail-face . italic)
  468. (goto-address-mail-mouse-face . secondary-selection)
  469. (goto-address-url-face . bold)
  470. (goto-address-url-mouse-face . highlight)
  471. (help-highlight-face . underline)
  472. (list-matching-lines-face . bold)
  473. (view-highlight-face . highlight))
  474. (default ((t (nil))))
  475. (bold ((t (:bold t))))
  476. (bold-italic ((t (:bold t :italic t))))
  477. (calendar-today-face ((t (:underline t))))
  478. (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t))))
  479. (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t))))
  480. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  481. (custom-button-face ((t (nil))))
  482. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  483. (custom-documentation-face ((t (nil))))
  484. (custom-face-tag-face ((t (:underline t))))
  485. (custom-group-tag-face ((t (:foreground "blue" :underline t))))
  486. (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
  487. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  488. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  489. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  490. (custom-saved-face ((t (:underline t))))
  491. (custom-set-face ((t (:foreground "blue" :background "white"))))
  492. (custom-state-face ((t (:foreground "dark green"))))
  493. (custom-variable-button-face ((t (:bold t :underline t))))
  494. (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
  495. (diary-face ((t (:foreground "red"))))
  496. (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
  497. (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
  498. (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
  499. (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
  500. (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
  501. (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
  502. (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
  503. (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
  504. (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
  505. (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
  506. (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
  507. (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
  508. (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
  509. (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
  510. (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
  511. (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
  512. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  513. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  514. (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
  515. (eshell-ls-directory-face ((t (:foreground "Blue" :bold t))))
  516. (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t))))
  517. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  518. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  519. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  520. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  521. (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
  522. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  523. (eshell-prompt-face ((t (:foreground "Red" :bold t))))
  524. (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
  525. (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
  526. (excerpt ((t (:italic t))))
  527. (fixed ((t (:bold t))))
  528. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
  529. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  530. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  531. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  532. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  533. (font-lock-function-name-face ((t (:foreground "Blue"))))
  534. (font-lock-keyword-face ((t (:foreground "Purple"))))
  535. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  536. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  537. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  538. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  539. (fringe ((t (:background "grey95"))))
  540. (gnus-cite-attribution-face ((t (:italic t))))
  541. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  542. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  543. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  544. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  545. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  546. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  547. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  548. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  549. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  550. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  551. (gnus-cite-face-9 ((t (:foreground "violet"))))
  552. (gnus-emphasis-bold ((t (:bold t))))
  553. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  554. (gnus-emphasis-italic ((t (:italic t))))
  555. (gnus-emphasis-underline ((t (:underline t))))
  556. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  557. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  558. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  559. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  560. (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
  561. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  562. (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
  563. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  564. (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
  565. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  566. (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
  567. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  568. (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
  569. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  570. (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
  571. (gnus-group-news-3-empty-face ((t (nil))))
  572. (gnus-group-news-3-face ((t (:bold t))))
  573. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  574. (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
  575. (gnus-header-content-face ((t (:foreground "indianred4" :italic t))))
  576. (gnus-header-from-face ((t (:foreground "red3"))))
  577. (gnus-header-name-face ((t (:foreground "maroon"))))
  578. (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t))))
  579. (gnus-header-subject-face ((t (:foreground "red4"))))
  580. (gnus-signature-face ((t (:italic t))))
  581. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  582. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  583. (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
  584. (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
  585. (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
  586. (gnus-summary-high-unread-face ((t (:bold t))))
  587. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
  588. (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
  589. (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
  590. (gnus-summary-low-unread-face ((t (:italic t))))
  591. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  592. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  593. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  594. (gnus-summary-normal-unread-face ((t (nil))))
  595. (gnus-summary-selected-face ((t (:underline t))))
  596. (highlight ((t (:background "darkseagreen2"))))
  597. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  598. (highlight-changes-face ((t (:foreground "red"))))
  599. (highline-face ((t (:background "paleturquoise"))))
  600. (holiday-face ((t (:background "pink"))))
  601. (info-menu-5 ((t (:underline t))))
  602. (info-node ((t (:bold t :italic t))))
  603. (info-xref ((t (:bold t))))
  604. (italic ((t (:italic t))))
  605. (makefile-space-face ((t (:background "hotpink"))))
  606. (message-cited-text-face ((t (:foreground "red"))))
  607. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  608. (message-header-name-face ((t (:foreground "cornflower blue"))))
  609. (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t))))
  610. (message-header-other-face ((t (:foreground "steel blue"))))
  611. (message-header-subject-face ((t (:foreground "navy blue" :bold t))))
  612. (message-header-to-face ((t (:foreground "MidnightBlue" :bold t))))
  613. (message-header-xheader-face ((t (:foreground "blue"))))
  614. (message-separator-face ((t (:foreground "brown"))))
  615. (modeline ((t (:foreground "white" :background "black"))))
  616. (modeline-buffer-id ((t (:foreground "white" :background "black"))))
  617. (modeline-mousable ((t (:foreground "white" :background "black"))))
  618. (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
  619. (region ((t (:background "gray"))))
  620. (secondary-selection ((t (:background "paleturquoise"))))
  621. (show-paren-match-face ((t (:background "turquoise"))))
  622. (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
  623. (speedbar-button-face ((t (:foreground "green4"))))
  624. (speedbar-directory-face ((t (:foreground "blue4"))))
  625. (speedbar-file-face ((t (:foreground "cyan4"))))
  626. (speedbar-highlight-face ((t (:background "green"))))
  627. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  628. (speedbar-tag-face ((t (:foreground "brown"))))
  629. (term-black ((t (:foreground "black"))))
  630. (term-blackbg ((t (:background "black"))))
  631. (term-blue ((t (:foreground "blue"))))
  632. (term-bluebg ((t (:background "blue"))))
  633. (term-bold ((t (:bold t))))
  634. (term-cyan ((t (:foreground "cyan"))))
  635. (term-cyanbg ((t (:background "cyan"))))
  636. (term-default-bg ((t (nil))))
  637. (term-default-bg-inv ((t (nil))))
  638. (term-default-fg ((t (nil))))
  639. (term-default-fg-inv ((t (nil))))
  640. (term-green ((t (:foreground "green"))))
  641. (term-greenbg ((t (:background "green"))))
  642. (term-invisible ((t (nil))))
  643. (term-invisible-inv ((t (nil))))
  644. (term-magenta ((t (:foreground "magenta"))))
  645. (term-magentabg ((t (:background "magenta"))))
  646. (term-red ((t (:foreground "red"))))
  647. (term-redbg ((t (:background "red"))))
  648. (term-underline ((t (:underline t))))
  649. (term-white ((t (:foreground "white"))))
  650. (term-whitebg ((t (:background "white"))))
  651. (term-yellow ((t (:foreground "yellow"))))
  652. (term-yellowbg ((t (:background "yellow"))))
  653. (underline ((t (:underline t))))
  654. (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
  655. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  656. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  657. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  658. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  659. (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
  660. (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
  661. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  662. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  663. (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
  664. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  665. (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
  666. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  667. (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
  668. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  669. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
  670. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  671. (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
  672. (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
  673. (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
  674. (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
  675. (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
  676. (viper-search-face ((t (:foreground "Black" :background "khaki"))))
  677. (widget-button-face ((t (:bold t))))
  678. (widget-button-pressed-face ((t (:foreground "red"))))
  679. (widget-documentation-face ((t (:foreground "dark green"))))
  680. (widget-field-face ((t (:background "gray85"))))
  681. (widget-inactive-face ((t (:foreground "dim gray"))))
  682. (widget-single-line-field-face ((t (:background "gray85")))))))
  683. (defun color-theme-fischmeister ()
  684. "The light colors on a grey blackground.
  685. Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>"
  686. (interactive)
  687. (color-theme-install
  688. '(color-theme-fischmeister
  689. ((foreground-color . "black")
  690. (background-color . "gray80")
  691. (mouse-color . "red")
  692. (cursor-color . "yellow")
  693. (border-color . "black")
  694. (background-mode . light))
  695. (default ((t (nil))))
  696. (modeline ((t (:foreground "gray80" :background "black"))))
  697. (modeline-buffer-id ((t (:foreground "gray80" :background "black"))))
  698. (modeline-mousable ((t (:foreground "gray80" :background "black"))))
  699. (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black"))))
  700. (highlight ((t (:background "darkseagreen2"))))
  701. (bold ((t (:bold t))))
  702. (italic ((t (:italic t))))
  703. (bold-italic ((t (:bold t :italic t))))
  704. (region ((t (:background "gray"))))
  705. (secondary-selection ((t (:background "paleturquoise"))))
  706. (underline ((t (:underline t))))
  707. (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen"))))
  708. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  709. (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t))))
  710. (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t))))
  711. (font-lock-keyword-face ((t (:foreground "navy"))))
  712. (font-lock-builtin-face ((t (:foreground "white"))))
  713. (font-lock-function-name-face ((t (:foreground "Blue"))))
  714. (font-lock-variable-name-face ((t (:foreground "Darkblue"))))
  715. (font-lock-type-face ((t (:foreground "darkgreen"))))
  716. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  717. (font-lock-warning-face ((t (:foreground "Orchid" :bold t))))
  718. (font-lock-reference-face ((t (:foreground "SteelBlue")))))))
  719. (defun color-theme-sitaramv-solaris ()
  720. "White on a midnight blue background. Lots of yellow and orange.
  721. Includes faces for font-lock, widget, custom, speedbar, message, gnus,
  722. eshell."
  723. (interactive)
  724. (color-theme-install
  725. '(color-theme-sitaramv-solaris
  726. ((foreground-color . "white")
  727. (background-color . "MidnightBlue")
  728. (mouse-color . "yellow")
  729. (cursor-color . "magenta2")
  730. (border-color . "black")
  731. (background-mode . dark))
  732. (default ((t (nil))))
  733. (modeline ((t (:foreground "black" :background "gold2"))))
  734. (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
  735. (modeline-mousable ((t (:foreground "black" :background "gold2"))))
  736. (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
  737. (highlight ((t (:foreground "black" :background "Aquamarine"))))
  738. (bold ((t (:bold t))))
  739. (italic ((t (:italic t))))
  740. (bold-italic ((t (:bold t :italic t))))
  741. (region ((t (:foreground "black" :background "snow3"))))
  742. (secondary-selection ((t (:foreground "black" :background "aquamarine"))))
  743. (underline ((t (:underline t))))
  744. (lazy-highlight-face ((t (:foreground "yellow"))))
  745. (font-lock-comment-face ((t (:foreground "orange" :italic t))))
  746. (font-lock-string-face ((t (:foreground "orange"))))
  747. (font-lock-keyword-face ((t (:foreground "green"))))
  748. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  749. (font-lock-function-name-face ((t (:foreground "cyan" :bold t))))
  750. (font-lock-variable-name-face ((t (:foreground "white"))))
  751. (font-lock-type-face ((t (:foreground "cyan"))))
  752. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  753. (font-lock-warning-face ((t (:foreground "Pink" :bold t))))
  754. (widget-documentation-face ((t (:foreground "lime green"))))
  755. (widget-button-face ((t (:bold t))))
  756. (widget-field-face ((t (:background "dim gray"))))
  757. (widget-single-line-field-face ((t (:background "dim gray"))))
  758. (widget-inactive-face ((t (:foreground "light gray"))))
  759. (widget-button-pressed-face ((t (:foreground "red"))))
  760. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  761. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  762. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  763. (custom-set-face ((t (:foreground "blue" :background "white"))))
  764. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  765. (custom-saved-face ((t (:underline t))))
  766. (custom-button-face ((t (nil))))
  767. (custom-documentation-face ((t (nil))))
  768. (custom-state-face ((t (:foreground "lime green"))))
  769. (custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
  770. (custom-variable-button-face ((t (:bold t :underline t))))
  771. (custom-face-tag-face ((t (:underline t))))
  772. (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
  773. (custom-group-tag-face ((t (:foreground "light blue" :underline t))))
  774. (speedbar-button-face ((t (:foreground "green3"))))
  775. (speedbar-file-face ((t (:foreground "cyan"))))
  776. (speedbar-directory-face ((t (:foreground "light blue"))))
  777. (speedbar-tag-face ((t (:foreground "yellow"))))
  778. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  779. (speedbar-highlight-face ((t (:background "sea green"))))
  780. (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t))))
  781. (font-lock-exit-face ((t (:foreground "green"))))
  782. (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
  783. (show-paren-match-face ((t (:background "red"))))
  784. (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
  785. (message-header-to-face ((t (:foreground "green2" :bold t))))
  786. (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
  787. (message-header-subject-face ((t (:foreground "green3"))))
  788. (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
  789. (message-header-other-face ((t (:foreground "Salmon"))))
  790. (message-header-name-face ((t (:foreground "green3"))))
  791. (message-header-xheader-face ((t (:foreground "GreenYellow"))))
  792. (message-separator-face ((t (:foreground "Tan"))))
  793. (message-cited-text-face ((t (:foreground "Gold"))))
  794. (message-mml-face ((t (:foreground "ForestGreen"))))
  795. (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
  796. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  797. (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
  798. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  799. (gnus-group-news-3-face ((t (:bold t))))
  800. (gnus-group-news-3-empty-face ((t (nil))))
  801. (gnus-group-news-4-face ((t (:bold t))))
  802. (gnus-group-news-4-empty-face ((t (nil))))
  803. (gnus-group-news-5-face ((t (:bold t))))
  804. (gnus-group-news-5-empty-face ((t (nil))))
  805. (gnus-group-news-6-face ((t (:bold t))))
  806. (gnus-group-news-6-empty-face ((t (nil))))
  807. (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
  808. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  809. (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
  810. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  811. (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
  812. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  813. (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
  814. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  815. (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
  816. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  817. (gnus-summary-selected-face ((t (:underline t))))
  818. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  819. (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
  820. (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
  821. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  822. (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
  823. (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
  824. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  825. (gnus-summary-high-unread-face ((t (:bold t))))
  826. (gnus-summary-low-unread-face ((t (:italic t))))
  827. (gnus-summary-normal-unread-face ((t (nil))))
  828. (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
  829. (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
  830. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  831. (gnus-splash-face ((t (:foreground "Brown"))))
  832. (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
  833. (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
  834. (eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
  835. (eshell-ls-readonly-face ((t (:foreground "Pink"))))
  836. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  837. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  838. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  839. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  840. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  841. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  842. (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
  843. (eshell-prompt-face ((t (:foreground "Pink" :bold t))))
  844. (term-default-fg ((t (nil))))
  845. (term-default-bg ((t (nil))))
  846. (term-default-fg-inv ((t (nil))))
  847. (term-default-bg-inv ((t (nil))))
  848. (term-bold ((t (:bold t))))
  849. (term-underline ((t (:underline t))))
  850. (term-invisible ((t (nil))))
  851. (term-invisible-inv ((t (nil))))
  852. (term-black ((t (:foreground "black"))))
  853. (term-red ((t (:foreground "red"))))
  854. (term-green ((t (:foreground "green"))))
  855. (term-yellow ((t (:foreground "yellow"))))
  856. (term-blue ((t (:foreground "blue"))))
  857. (term-magenta ((t (:foreground "magenta"))))
  858. (term-cyan ((t (:foreground "cyan"))))
  859. (term-white ((t (:foreground "white"))))
  860. (term-blackbg ((t (:background "black"))))
  861. (term-redbg ((t (:background "red"))))
  862. (term-greenbg ((t (:background "green"))))
  863. (term-yellowbg ((t (:background "yellow"))))
  864. (term-bluebg ((t (:background "blue"))))
  865. (term-magentabg ((t (:background "magenta"))))
  866. (term-cyanbg ((t (:background "cyan"))))
  867. (term-whitebg ((t (:background "white"))))
  868. (gnus-emphasis-bold ((t (:bold t))))
  869. (gnus-emphasis-italic ((t (:italic t))))
  870. (gnus-emphasis-underline ((t (:underline t))))
  871. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  872. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  873. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  874. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  875. (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
  876. (gnus-signature-face ((t (:italic t))))
  877. (gnus-header-from-face ((t (:foreground "spring green"))))
  878. (gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
  879. (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
  880. (gnus-header-name-face ((t (:foreground "pink"))))
  881. (gnus-header-content-face ((t (:foreground "lime green" :italic t))))
  882. (gnus-cite-attribution-face ((t (:italic t))))
  883. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  884. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  885. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  886. (gnus-cite-face-4 ((t (:foreground "light pin…