PageRenderTime 83ms CodeModel.GetById 13ms RepoModel.GetById 0ms app.codeStats 1ms

/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
Possible License(s): GPL-2.0
  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 pink"))))
  887. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  888. (gnus-cite-face-6 ((t (:foreground "beige"))))
  889. (gnus-cite-face-7 ((t (:foreground "orange"))))
  890. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  891. (gnus-cite-face-9 ((t (:foreground "violet"))))
  892. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  893. (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
  894. (defun color-theme-sitaramv-nt ()
  895. "Black foreground on white background.
  896. Includes faces for font-lock, widget, custom, speedbar."
  897. (interactive)
  898. (color-theme-install
  899. '(color-theme-sitaramv-nt
  900. ((foreground-color . "black")
  901. (background-color . "white")
  902. (mouse-color . "sienna3")
  903. (cursor-color . "HotPink")
  904. (border-color . "Blue")
  905. (background-mode . light))
  906. (default ((t (nil))))
  907. (modeline ((t (:foreground "black" :background "gold2"))))
  908. (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
  909. (modeline-mousable ((t (:foreground "black" :background "gold2"))))
  910. (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
  911. (highlight ((t (:foreground "black" :background "darkseagreen2"))))
  912. (bold ((t (:bold t))))
  913. (italic ((t (:italic t))))
  914. (bold-italic ((t (:bold t :italic t))))
  915. (region ((t (:foreground "black" :background "snow3"))))
  916. (secondary-selection ((t (:background "paleturquoise"))))
  917. (underline ((t (:underline t))))
  918. (lazy-highlight-face ((t (:foreground "dark magenta" :bold t))))
  919. (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t))))
  920. (font-lock-string-face ((t (:foreground "red"))))
  921. (font-lock-keyword-face ((t (:foreground "blue" :bold t))))
  922. (font-lock-builtin-face ((t (:foreground "black"))))
  923. (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t))))
  924. (font-lock-variable-name-face ((t (:foreground "black"))))
  925. (font-lock-type-face ((t (:foreground "blue"))))
  926. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  927. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  928. (widget-documentation-face ((t (:foreground "dark green"))))
  929. (widget-button-face ((t (:bold t))))
  930. (widget-field-face ((t (:background "gray85"))))
  931. (widget-single-line-field-face ((t (:background "gray85"))))
  932. (widget-inactive-face ((t (:foreground "dim gray"))))
  933. (widget-button-pressed-face ((t (:foreground "red"))))
  934. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  935. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  936. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  937. (custom-set-face ((t (:foreground "blue" :background "white"))))
  938. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  939. (custom-saved-face ((t (:underline t))))
  940. (custom-button-face ((t (nil))))
  941. (custom-documentation-face ((t (nil))))
  942. (custom-state-face ((t (:foreground "dark green"))))
  943. (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
  944. (custom-variable-button-face ((t (:bold t :underline t))))
  945. (custom-face-tag-face ((t (:underline t))))
  946. (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
  947. (custom-group-tag-face ((t (:foreground "blue" :underline t))))
  948. (speedbar-button-face ((t (:foreground "green4"))))
  949. (speedbar-file-face ((t (:foreground "cyan4"))))
  950. (speedbar-directory-face ((t (:foreground "blue4"))))
  951. (speedbar-tag-face ((t (:foreground "brown"))))
  952. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  953. (speedbar-highlight-face ((t (:background "green"))))
  954. (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
  955. (show-paren-match-face ((t (:background "light blue"))))
  956. (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))))))
  957. (defun color-theme-billw ()
  958. "Cornsilk on black.
  959. Includes info, diary, font-lock, eshell, sgml, message, gnus,
  960. widget, custom, latex, ediff."
  961. (interactive)
  962. (color-theme-install
  963. '(color-theme-billw
  964. ((foreground-color . "cornsilk")
  965. (background-color . "black")
  966. (mouse-color . "black")
  967. (cursor-color . "white")
  968. (border-color . "black")
  969. (background-mode . dark))
  970. (default ((t (nil))))
  971. (modeline ((t (:foreground "black" :background "wheat"))))
  972. (modeline-buffer-id ((t (:foreground "black" :background "wheat"))))
  973. (modeline-mousable ((t (:foreground "black" :background "wheat"))))
  974. (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat"))))
  975. (highlight ((t (:foreground "wheat" :background "darkslategray"))))
  976. (bold ((t (:bold t))))
  977. (italic ((t (:italic t))))
  978. (bold-italic ((t (:bold t :italic t))))
  979. (region ((t (:background "dimgray"))))
  980. (secondary-selection ((t (:background "deepskyblue4"))))
  981. (underline ((t (:underline t))))
  982. (info-node ((t (:foreground "yellow" :bold t :italic t))))
  983. (info-menu-5 ((t (:underline t))))
  984. (info-xref ((t (:foreground "yellow" :bold t))))
  985. (diary-face ((t (:foreground "orange"))))
  986. (calendar-today-face ((t (:underline t))))
  987. (holiday-face ((t (:background "red"))))
  988. (show-paren-match-face ((t (:background "deepskyblue4"))))
  989. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  990. (font-lock-comment-face ((t (:foreground "gold"))))
  991. (font-lock-string-face ((t (:foreground "orange"))))
  992. (font-lock-keyword-face ((t (:foreground "cyan1"))))
  993. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  994. (font-lock-function-name-face ((t (:foreground "mediumspringgreen"))))
  995. (font-lock-variable-name-face ((t (:foreground "light salmon"))))
  996. (font-lock-type-face ((t (:foreground "yellow1"))))
  997. (font-lock-constant-face ((t (:foreground "salmon"))))
  998. (font-lock-warning-face ((t (:foreground "gold" :bold t))))
  999. (blank-space-face ((t (:background "LightGray"))))
  1000. (blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
  1001. (highline-face ((t (:background "gray35"))))
  1002. (eshell-ls-directory-face ((t (:foreground "green" :bold t))))
  1003. (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
  1004. (eshell-ls-executable-face ((t (:foreground "orange" :bold t))))
  1005. (eshell-ls-readonly-face ((t (:foreground "gray"))))
  1006. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  1007. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  1008. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  1009. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  1010. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  1011. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  1012. (eshell-ls-clutter-face ((t (:foreground "blue" :bold t))))
  1013. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  1014. (custom-button-face ((t (:foreground "white"))))
  1015. (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
  1016. (sgml-doctype-face ((t (:foreground "orange"))))
  1017. (sgml-sgml-face ((t (:foreground "yellow"))))
  1018. (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
  1019. (custom-documentation-face ((t (:foreground "white"))))
  1020. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  1021. (linemenu-face ((t (:background "gray30"))))
  1022. (sgml-entity-face ((t (:foreground "gold"))))
  1023. (message-header-to-face ((t (:foreground "floral white" :bold t))))
  1024. (message-header-cc-face ((t (:foreground "ivory"))))
  1025. (message-header-subject-face ((t (:foreground "papaya whip" :bold t))))
  1026. (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t))))
  1027. (message-header-other-face ((t (:foreground "pale turquoise"))))
  1028. (message-header-name-face ((t (:foreground "light sky blue"))))
  1029. (message-header-xheader-face ((t (:foreground "blue"))))
  1030. (message-separator-face ((t (:foreground "sandy brown"))))
  1031. (message-cited-text-face ((t (:foreground "plum1"))))
  1032. (message-mml-face ((t (:foreground "ForestGreen"))))
  1033. (gnus-group-news-1-face ((t (:foreground "white" :bold t))))
  1034. (gnus-group-news-1-empty-face ((t (:foreground "white"))))
  1035. (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t))))
  1036. (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
  1037. (gnus-group-news-3-face ((t (:foreground "tan" :bold t))))
  1038. (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
  1039. (gnus-group-news-4-face ((t (:foreground "white" :bold t))))
  1040. (gnus-group-news-4-empty-face ((t (:foreground "white"))))
  1041. (gnus-group-news-5-face ((t (:foreground "wheat" :bold t))))
  1042. (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
  1043. (gnus-group-news-6-face ((t (:foreground "tan" :bold t))))
  1044. (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
  1045. (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
  1046. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  1047. (gnus-group-mail-1-face ((t (:foreground "white" :bold t))))
  1048. (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
  1049. (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t))))
  1050. (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
  1051. (gnus-group-mail-3-face ((t (:foreground "tan" :bold t))))
  1052. (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
  1053. (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
  1054. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  1055. (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t))))
  1056. (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray"))))
  1057. (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t))))
  1058. (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t))))
  1059. (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t))))
  1060. (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
  1061. (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
  1062. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1063. (gnus-summary-high-unread-face ((t (:bold t))))
  1064. (gnus-summary-low-unread-face ((t (:italic t))))
  1065. (gnus-summary-normal-unread-face ((t (nil))))
  1066. (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
  1067. (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
  1068. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1069. (gnus-splash-face ((t (:foreground "gold"))))
  1070. (font-latex-bold-face ((t (nil))))
  1071. (font-latex-italic-face ((t (nil))))
  1072. (font-latex-math-face ((t (nil))))
  1073. (font-latex-sedate-face ((t (:foreground "Gray85"))))
  1074. (font-latex-string-face ((t (:foreground "orange"))))
  1075. (font-latex-warning-face ((t (:foreground "gold"))))
  1076. (widget-documentation-face ((t (:foreground "lime green"))))
  1077. (widget-button-face ((t (:bold t))))
  1078. (widget-field-face ((t (:background "gray20"))))
  1079. (widget-single-line-field-face ((t (:background "gray20"))))
  1080. (widget-inactive-face ((t (:foreground "wheat"))))
  1081. (widget-button-pressed-face ((t (:foreground "red"))))
  1082. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  1083. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  1084. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  1085. (custom-set-face ((t (:foreground "blue"))))
  1086. (custom-changed-face ((t (:foreground "wheat" :background "skyblue"))))
  1087. (custom-saved-face ((t (:underline t))))
  1088. (custom-state-face ((t (:foreground "light green"))))
  1089. (custom-variable-tag-face ((t (:foreground "skyblue" :underline t))))
  1090. (custom-variable-button-face ((t (:bold t :underline t))))
  1091. (custom-face-tag-face ((t (:foreground "white" :underline t))))
  1092. (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
  1093. (custom-group-tag-face ((t (:foreground "skyblue" :underline t))))
  1094. (swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
  1095. (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
  1096. (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
  1097. (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred"))))
  1098. (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
  1099. (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
  1100. (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
  1101. (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
  1102. (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
  1103. (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
  1104. (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
  1105. (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
  1106. (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
  1107. (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
  1108. (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
  1109. (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
  1110. (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
  1111. (gnus-emphasis-bold ((t (:bold t))))
  1112. (gnus-emphasis-italic ((t (:italic t))))
  1113. (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4"))))
  1114. (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t))))
  1115. (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t))))
  1116. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  1117. (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t))))
  1118. (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
  1119. (gnus-signature-face ((t (:italic t))))
  1120. (gnus-header-from-face ((t (:foreground "wheat"))))
  1121. (gnus-header-subject-face ((t (:foreground "wheat" :bold t))))
  1122. (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t))))
  1123. (gnus-header-name-face ((t (:foreground "white"))))
  1124. (gnus-header-content-face ((t (:foreground "tan" :italic t))))
  1125. (gnus-filterhist-face-1 ((t (nil))))
  1126. (gnus-splash ((t (:foreground "Brown"))))
  1127. (gnus-cite-attribution-face ((t (:italic t))))
  1128. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  1129. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  1130. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  1131. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  1132. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1133. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1134. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1135. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1136. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1137. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  1138. (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
  1139. (defun color-theme-retro-green (&optional color func)
  1140. "Plain green on black faces for those longing for the good old days."
  1141. (interactive)
  1142. ;; Build a list of faces without parameters
  1143. (let ((old-faces (face-list))
  1144. (faces)
  1145. (face)
  1146. (foreground (or color "green")))
  1147. (dolist (face old-faces)
  1148. (cond ((memq face '(bold bold-italic))
  1149. (add-to-list 'faces `(,face (( t (:bold t))))))
  1150. ((memq face '(italic underline show-paren-mismatch-face))
  1151. (add-to-list 'faces `(,face (( t (:underline t))))))
  1152. ((memq face '(modeline modeline-buffer-id modeline-mousable
  1153. modeline-mousable-minor-mode highlight region
  1154. secondary-selection show-paren-match-face))
  1155. (add-to-list 'faces `(,face (( t (:foreground "black"
  1156. :background ,foreground
  1157. :inverse t))))))
  1158. (t
  1159. (add-to-list 'faces `(,face (( t (nil))))))))
  1160. (color-theme-install
  1161. (append
  1162. (list (or func 'color-theme-retro-green)
  1163. (list (cons 'foreground-color foreground)
  1164. (cons 'background-color "black")
  1165. (cons 'mouse-color foreground)
  1166. (cons 'cursor-color foreground)
  1167. (cons 'border-color foreground)
  1168. (cons 'background-mode 'dark)))
  1169. faces))))
  1170. (defun color-theme-retro-orange ()
  1171. "Plain orange on black faces for those longing for the good old days."
  1172. (interactive)
  1173. (color-theme-retro-green "orange" 'color-theme-retro-orange))
  1174. (defun color-theme-subtle-hacker ()
  1175. "Subtle Hacker Color Theme.
  1176. Based on gnome2, but uses white for important things like comments,
  1177. and less of the unreadable tomato. By Colin Walters <levanti@verbum.org>"
  1178. (interactive)
  1179. (color-theme-gnome2)
  1180. (let ((color-theme-is-cumulative t))
  1181. (color-theme-install
  1182. '(color-theme-subtle-hacker
  1183. nil
  1184. nil
  1185. (custom-state-face ((t (:foreground "Coral"))))
  1186. (diary-face ((t (:bold t :foreground "IndianRed"))))
  1187. (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
  1188. (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
  1189. (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
  1190. (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
  1191. (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
  1192. (font-lock-comment-face ((t (:foreground "White"))))
  1193. (font-lock-constant-face ((t (:bold t :foreground "Aquamarine"))))
  1194. (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue"))))
  1195. (font-lock-string-face ((t (:italic t :foreground "LightSalmon"))))
  1196. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine"))))
  1197. (gnus-cite-face-1 ((t (:foreground "dark khaki"))))
  1198. (gnus-cite-face-2 ((t (:foreground "chocolate"))))
  1199. (gnus-cite-face-3 ((t (:foreground "tomato"))))
  1200. (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
  1201. (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
  1202. (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
  1203. (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
  1204. (gnus-group-mail-3-empty-face ((t (:foreground "tomato"))))
  1205. (gnus-group-mail-3-face ((t (:bold t :foreground "tomato"))))
  1206. (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
  1207. (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
  1208. (gnus-group-news-1-empty-face ((t (:foreground "green yellow"))))
  1209. (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
  1210. (gnus-group-news-2-empty-face ((t (:foreground "dark orange"))))
  1211. (gnus-group-news-2-face ((t (:bold t :foreground "dark orange"))))
  1212. (gnus-group-news-3-empty-face ((t (:foreground "tomato"))))
  1213. (gnus-group-news-3-face ((t (:bold t :foreground "tomato"))))
  1214. (gnus-group-news-low-empty-face ((t (:foreground "yellow green"))))
  1215. (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
  1216. (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1"))))
  1217. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  1218. (gnus-signature-face ((t (:foreground "salmon"))))
  1219. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1220. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  1221. (gnus-summary-high-read-face ((t (:bold t :foreground "forest green"))))
  1222. (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
  1223. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan"))))
  1224. (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate"))))
  1225. (gnus-summary-low-read-face ((t (:foreground "light sea green"))))
  1226. (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate"))))
  1227. (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
  1228. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  1229. (gnus-summary-normal-read-face ((t (:foreground "khaki"))))
  1230. (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown"))))
  1231. (gnus-summary-normal-unread-face ((t (:foreground "aquamarine"))))
  1232. (message-cited-text-face ((t (:foreground "White"))))
  1233. (message-header-name-face ((t (:foreground "DodgerBlue1"))))
  1234. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  1235. (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
  1236. (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))))))
  1237. (defun color-theme-pok-wog ()
  1238. "Low-contrast White-on-Gray by S.Pokrovsky.
  1239. The following might be a good addition to your .Xdefaults file:
  1240. Emacs.pane.menubar.background: darkGrey
  1241. Emacs.pane.menubar.foreground: black"
  1242. (interactive)
  1243. (color-theme-install
  1244. '(color-theme-pok-wog
  1245. ((foreground-color . "White")
  1246. (background-color . "DarkSlateGray")
  1247. (mouse-color . "gold")
  1248. (cursor-color . "Cyan")
  1249. (border-color . "black")
  1250. (background-mode . dark))
  1251. (default ((t (nil))))
  1252. (bold ((t (:bold t :foreground "Wheat"))))
  1253. (bold-italic ((t (:italic t :bold t :foreground "wheat"))))
  1254. (calendar-today-face ((t (:underline t :foreground "white"))))
  1255. (diary-face ((t (:foreground "red"))))
  1256. (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
  1257. (font-lock-comment-face ((t (:foreground "Gold"))))
  1258. (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
  1259. (font-lock-function-name-face ((t (:bold t :foreground "Yellow"))))
  1260. (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
  1261. (font-lock-string-face ((t (:foreground "Khaki"))))
  1262. (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
  1263. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  1264. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  1265. (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat"))))
  1266. (gnus-cite-face-1 ((t (:foreground "wheat"))))
  1267. (gnus-cite-face-10 ((t (:foreground "wheat"))))
  1268. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1269. (gnus-cite-face-2 ((t (:foreground "cyan"))))
  1270. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  1271. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  1272. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1273. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1274. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1275. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1276. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1277. (gnus-emphasis-bold ((t (:bold t :foreground "wheat"))))
  1278. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  1279. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  1280. (gnus-emphasis-italic ((t (:italic t :foreground "white"))))
  1281. (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
  1282. (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat"))))
  1283. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  1284. (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
  1285. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  1286. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  1287. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  1288. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  1289. (gnus-group-mail-3-empty-face ((t (:foreground "Salmon"))))
  1290. (gnus-group-mail-3-face ((t (:bold t :foreground "gold"))))
  1291. (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
  1292. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  1293. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  1294. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  1295. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  1296. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  1297. (gnus-group-news-3-empty-face ((t (nil))))
  1298. (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
  1299. (gnus-group-news-4-empty-face ((t (nil))))
  1300. (gnus-group-news-4-face ((t (:bold t))))
  1301. (gnus-group-news-5-empty-face ((t (nil))))
  1302. (gnus-group-news-5-face ((t (:bold t))))
  1303. (gnus-group-news-6-empty-face ((t (nil))))
  1304. (gnus-group-news-6-face ((t (:bold t))))
  1305. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  1306. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  1307. (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
  1308. (gnus-header-from-face ((t (:foreground "light yellow"))))
  1309. (gnus-header-name-face ((t (:foreground "cyan"))))
  1310. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
  1311. (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
  1312. (gnus-signature-face ((t (:italic t :foreground "wheat"))))
  1313. (gnus-splash-face ((t (:foreground "orange"))))
  1314. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1315. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  1316. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  1317. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  1318. (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
  1319. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  1320. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  1321. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  1322. (gnus-summary-low-unread-face ((t (:italic t))))
  1323. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1324. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1325. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  1326. (gnus-summary-normal-unread-face ((t (:foreground "wheat"))))
  1327. (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
  1328. (highlight ((t (:background "Blue" :foreground "white"))))
  1329. (highline-face ((t (:background "black" :foreground "white"))))
  1330. (holiday-face ((t (:background "pink" :foreground "white"))))
  1331. (info-menu-5 ((t (:underline t))))
  1332. (info-node ((t (:italic t :bold t :foreground "white"))))
  1333. (info-xref ((t (:bold t :foreground "wheat"))))
  1334. (italic ((t (:italic t :foreground "white"))))
  1335. (makefile-space-face ((t (:background "hotpink"))))
  1336. (message-cited-text-face ((t (:foreground "green"))))
  1337. (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
  1338. (message-header-name-face ((t (:foreground "Gold"))))
  1339. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  1340. (message-header-other-face ((t (:foreground "lightGray"))))
  1341. (message-header-subject-face ((t (:foreground "Yellow"))))
  1342. (message-header-to-face ((t (:bold t :foreground "green2"))))
  1343. (message-header-xheader-face ((t (:foreground "blue"))))
  1344. (message-mml-face ((t (:bold t :foreground "khaki"))))
  1345. (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
  1346. (modeline ((t (:background "DarkGray" :foreground "Black"))))
  1347. (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black"))))
  1348. (modeline-mousable ((t (:background "DarkGray" :foreground "Black"))))
  1349. (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black"))))
  1350. (paren-mismatch-face ((t (:background "DeepPink" :foreground "white"))))
  1351. (paren-no-match-face ((t (:background "yellow" :foreground "white"))))
  1352. (region ((t (:background "MediumSlateBlue" :foreground "white"))))
  1353. (secondary-selection ((t (:background "Sienna" :foreground "white"))))
  1354. (show-paren-match-face ((t (:background "turquoise" :foreground "white"))))
  1355. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1356. (speedbar-button-face ((t (:bold t :foreground "magenta"))))
  1357. (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
  1358. (speedbar-file-face ((t (:foreground "pink"))))
  1359. (speedbar-highlight-face ((t (:background "black"))))
  1360. (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
  1361. (speedbar-tag-face ((t (:foreground "yellow"))))
  1362. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  1363. (underline ((t (:underline t :foreground "white"))))
  1364. (widget-button-face ((t (:bold t :foreground "wheat"))))
  1365. (widget-button-pressed-face ((t (:foreground "red"))))
  1366. (widget-documentation-face ((t (:foreground "lime green"))))
  1367. (widget-field-face ((t (:background "dim gray" :foreground "white"))))
  1368. (widget-inactive-face ((t (:foreground "light gray"))))
  1369. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
  1370. (defun color-theme-pok-wob ()
  1371. "White-on-Black by S. Pokrovsky.
  1372. The following might be a good addition to your .Xdefaults file:
  1373. Emacs.pane.menubar.background: darkGrey
  1374. Emacs.pane.menubar.foreground: black"
  1375. (interactive)
  1376. ; (setq term-default-fg-color "white"
  1377. ; term-default-bg "black")
  1378. (color-theme-install
  1379. '(color-theme-pok-wob
  1380. ((foreground-color . "white")
  1381. (background-color . "black")
  1382. (mouse-color . "gold")
  1383. (cursor-color . "yellow")
  1384. (border-color . "black")
  1385. (background-mode . dark))
  1386. (default ((t (nil))))
  1387. (bold ((t (:bold t :foreground "light gray"))))
  1388. (bold-italic ((t (:italic t :bold t :foreground "cyan"))))
  1389. (calendar-today-face ((t (:underline t :foreground "white"))))
  1390. (custom-button-face ((t (nil))))
  1391. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1392. (custom-documentation-face ((t (nil))))
  1393. (custom-face-tag-face ((t (:underline t))))
  1394. (custom-group-tag-face ((t (:underline t))))
  1395. (custom-group-tag-face-1 ((t (:underline t))))
  1396. (custom-invalid-face ((t (:background "red" :foreground "white"))))
  1397. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1398. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1399. (custom-saved-face ((t (:underline t))))
  1400. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1401. (custom-state-face ((t (nil))))
  1402. (custom-variable-button-face ((t (:underline t :bold t))))
  1403. (custom-variable-tag-face ((t (:underline t))))
  1404. (diary-face ((t (:foreground "gold"))))
  1405. (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
  1406. (font-lock-comment-face ((t (:foreground "Gold"))))
  1407. (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
  1408. (font-lock-function-name-face ((t (:bold t :foreground "gold"))))
  1409. (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
  1410. (font-lock-string-face ((t (:foreground "Khaki"))))
  1411. (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
  1412. (font-lock-variable-name-face ((t (:italic t :foreground "gold"))))
  1413. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  1414. (gnus-cite-attribution-face ((t (:underline t :foreground "beige"))))
  1415. (gnus-cite-face-1 ((t (:foreground "gold"))))
  1416. (gnus-cite-face-10 ((t (:foreground "coral"))))
  1417. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1418. (gnus-cite-face-2 ((t (:foreground "wheat"))))
  1419. (gnus-cite-face-3 ((t (:foreground "light pink"))))
  1420. (gnus-cite-face-4 ((t (:foreground "khaki"))))
  1421. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1422. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1423. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1424. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1425. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1426. (gnus-emphasis-bold ((t (:bold t :foreground "light gray"))))
  1427. (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan"))))
  1428. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold"))))
  1429. (gnus-emphasis-italic ((t (:italic t :foreground "cyan"))))
  1430. (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
  1431. (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white"))))
  1432. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white"))))
  1433. (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
  1434. (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
  1435. (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta"))))
  1436. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  1437. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  1438. (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
  1439. (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan"))))
  1440. (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
  1441. (gnus-group-mail-low-face ((t (:foreground "aquamarine4"))))
  1442. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  1443. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  1444. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  1445. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  1446. (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
  1447. (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
  1448. (gnus-group-news-4-empty-face ((t (nil))))
  1449. (gnus-group-news-4-face ((t (:bold t))))
  1450. (gnus-group-news-5-empty-face ((t (nil))))
  1451. (gnus-group-news-5-face ((t (:bold t))))
  1452. (gnus-group-news-6-empty-face ((t (nil))))
  1453. (gnus-group-news-6-face ((t (:bold t))))
  1454. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  1455. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
  1456. (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
  1457. (gnus-header-from-face ((t (:foreground "light yellow"))))
  1458. (gnus-header-name-face ((t (:foreground "Wheat"))))
  1459. (gnus-header-newsgroups-face ((t (:italic t :foreground "gold"))))
  1460. (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
  1461. (gnus-signature-face ((t (:italic t :foreground "white"))))
  1462. (gnus-splash-face ((t (:foreground "orange"))))
  1463. (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange"))))
  1464. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  1465. (gnus-summary-high-read-face ((t (:bold t :foreground "red"))))
  1466. (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral"))))
  1467. (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
  1468. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  1469. (gnus-summary-low-read-face ((t (:italic t :foreground "red"))))
  1470. (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral"))))
  1471. (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
  1472. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1473. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1474. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  1475. (gnus-summary-normal-unread-face ((t (:foreground "white"))))
  1476. (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
  1477. (highlight ((t (:background "Blue" :foreground "white"))))
  1478. (highline-face ((t (:background "dark slate gray" :foreground "white"))))
  1479. (holiday-face ((t (:background "red" :foreground "white"))))
  1480. (info-menu-5 ((t (:underline t))))
  1481. (info-node ((t (:italic t :bold t :foreground "white"))))
  1482. (info-xref ((t (:bold t :foreground "light gray"))))
  1483. (italic ((t (:italic t :foreground "cyan"))))
  1484. (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
  1485. (message-cited-text-face ((t (:foreground "green"))))
  1486. (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
  1487. (message-header-name-face ((t (:foreground "Gold"))))
  1488. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
  1489. (message-header-other-face ((t (:foreground "lightGray"))))
  1490. (message-header-subject-face ((t (:foreground "Yellow"))))
  1491. (message-header-to-face ((t (:bold t :foreground "green2"))))
  1492. (message-header-xheader-face ((t (:foreground "sky blue"))))
  1493. (message-mml-face ((t (:bold t :foreground "khaki"))))
  1494. (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
  1495. (modeline ((t (:background "dark gray" :foreground "black"))))
  1496. (modeline-buffer-id ((t (:background "dark gray" :foreground "black"))))
  1497. (modeline-mousable ((t (:background "dark gray" :foreground "black"))))
  1498. (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black"))))
  1499. (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  1500. (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
  1501. (region ((t (:background "MediumSlateBlue" :foreground "white"))))
  1502. (secondary-selection ((t (:background "Sienna" :foreground "white"))))
  1503. (show-paren-match-face ((t (:background "purple" :foreground "white"))))
  1504. (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  1505. (speedbar-button-face ((t (nil))))
  1506. (speedbar-directory-face ((t (nil))))
  1507. (speedbar-file-face ((t (:bold t))))
  1508. (speedbar-highlight-face ((t (nil))))
  1509. (speedbar-selected-face ((t (:underline t))))
  1510. (speedbar-tag-face ((t (nil))))
  1511. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  1512. (underline ((t (:underline t :foreground "white"))))
  1513. (widget-button-face ((t (:bold t :foreground "coral"))))
  1514. (widget-button-pressed-face ((t (:foreground "red"))))
  1515. (widget-documentation-face ((t (:foreground "lime green"))))
  1516. (widget-field-face ((t (:background "dim gray" :foreground "white"))))
  1517. (widget-inactive-face ((t (:foreground "light gray"))))
  1518. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
  1519. (defun color-theme-blue-sea ()
  1520. "The grey on midnight blue theme.
  1521. Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar,
  1522. custom, widget, info, flyspell, gnus, message, man, woman, dired.
  1523. This is what you should put in your .Xdefaults file, if you want to
  1524. change the colors of the menus:
  1525. emacs*Background: DarkSlateGray
  1526. emacs*Foreground: Wheat"
  1527. (interactive)
  1528. (color-theme-blue-gnus)
  1529. (let ((color-theme-is-cumulative t))
  1530. (color-theme-blue-erc)
  1531. (color-theme-install
  1532. '(color-theme-blue-sea
  1533. ((background-color . "MidnightBlue")
  1534. (background-mode . dark)
  1535. (border-color . "Grey")
  1536. (cursor-color . "Grey")
  1537. (foreground-color . "Grey")
  1538. (mouse-color . "Grey"))
  1539. ((Man-overstrike-face . woman-bold-face)
  1540. (Man-underline-face . woman-italic-face))
  1541. (default ((t (nil))))
  1542. (bold ((t (:bold t))))
  1543. (bold-italic ((t (:bold t :foreground "beige"))))
  1544. (calendar-today-face ((t (:underline t))))
  1545. (cperl-array-face ((t (:foreground "light salmon" :bold t))))
  1546. (cperl-hash-face ((t (:foreground "beige" :bold t :italic t))))
  1547. (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
  1548. (custom-button-face ((t (:foreground "gainsboro"))))
  1549. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  1550. (custom-documentation-face ((t (:foreground "light blue"))))
  1551. (custom-face-tag-face ((t (:underline t))))
  1552. (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t))))
  1553. (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
  1554. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  1555. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  1556. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  1557. (custom-saved-face ((t (:underline t))))
  1558. (custom-set-face ((t (:foreground "blue" :background "white"))))
  1559. (custom-state-face ((t (:foreground "light salmon"))))
  1560. (custom-variable-button-face ((t (:bold t :underline t))))
  1561. (custom-variable-tag-face ((t (:foreground "turquoise" :bold t))))
  1562. (diary-face ((t (:foreground "red"))))
  1563. (dired-face-directory ((t (:bold t :foreground "sky blue"))))
  1564. (dired-face-permissions ((t (:foreground "aquamarine"))))
  1565. (dired-face-flagged ((t (:foreground "tomato"))))
  1566. (dired-face-marked ((t (:foreground "light salmon"))))
  1567. (dired-face-executable ((t (:foreground "green yellow"))))
  1568. (eshell-ls-archive-face ((t (:bold t :foreground "medium purple"))))
  1569. (eshell-ls-backup-face ((t (:foreground "dim gray"))))
  1570. (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
  1571. (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue"))))
  1572. (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine"))))
  1573. (eshell-ls-missing-face ((t (:foreground "black"))))
  1574. (eshell-ls-picture-face ((t (:foreground "violet"))))
  1575. (eshell-ls-product-face ((t (:foreground "light steel blue"))))
  1576. (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
  1577. (eshell-ls-special-face ((t (:foreground "gold"))))
  1578. (eshell-ls-symlink-face ((t (:foreground "white"))))
  1579. (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
  1580. (eshell-prompt-face ((t (:foreground "light sky blue" :bold t))))
  1581. (excerpt ((t (:italic t))))
  1582. (fixed ((t (:bold t))))
  1583. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
  1584. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  1585. (font-lock-builtin-face ((t (:foreground "aquamarine"))))
  1586. (font-lock-comment-face ((t (:foreground "light blue"))))
  1587. (font-lock-constant-face ((t (:foreground "pale green"))))
  1588. (font-lock-doc-string-face ((t (:foreground "sky blue"))))
  1589. (font-lock-function-name-face ((t (:bold t :foreground "aquamarine"))))
  1590. (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t))))
  1591. (font-lock-reference-face ((t (:foreground "pale green"))))
  1592. (font-lock-string-face ((t (:foreground "light sky blue"))))
  1593. (font-lock-type-face ((t (:foreground "sky blue" :bold t))))
  1594. (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t))))
  1595. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  1596. (fringe ((t (:background "MidnightBlue"))))
  1597. (header-line ((t (:background "#002" :foreground "cornflower blue"))))
  1598. (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
  1599. (highline-face ((t (:background "DeepSkyBlue4"))))
  1600. (holiday-face ((t (:background "pink"))))
  1601. (info-menu-5 ((t (:underline t))))
  1602. (info-node ((t (:bold t))))
  1603. (info-xref ((t (:bold t :foreground "sky blue"))))
  1604. (isearch ((t (:background "slate blue"))))
  1605. (italic ((t (:foreground "sky blue"))))
  1606. (makefile-space-face ((t (:background "hotpink"))))
  1607. (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
  1608. (modeline ((t (:foreground "wheat" :background "slate blue"))))
  1609. (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat"))))
  1610. (modeline-buffer-id ((t (:foreground "beige" :background "slate blue"))))
  1611. (modeline-mousable ((t (:foreground "light cyan" :background "slate blue"))))
  1612. (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue"))))
  1613. (region ((t (:background "DarkSlateBlue"))))
  1614. (secondary-selection ((t (:background "steel blue"))))
  1615. (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
  1616. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  1617. (speedbar-button-face ((t (:foreground "seashell2"))))
  1618. (speedbar-directory-face ((t (:foreground "seashell3"))))
  1619. (speedbar-file-face ((t (:foreground "seashell4"))))
  1620. (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
  1621. (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
  1622. (speedbar-tag-face ((t (:foreground "antique white"))))
  1623. (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button)))))
  1624. (underline ((t (:underline t))))
  1625. (widget-button-face ((t (:bold t))))
  1626. (widget-button-pressed-face ((t (:foreground "red"))))
  1627. (widget-documentation-face ((t (:foreground "light blue"))))
  1628. (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
  1629. (widget-inactive-face ((t (:foreground "dim gray"))))
  1630. (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
  1631. (woman-bold-face ((t (:foreground "sky blue" :bold t))))
  1632. (woman-italic-face ((t (:foreground "deep sky blue"))))
  1633. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  1634. (zmacs-region ((t (:background "DarkSlateBlue"))))))))
  1635. (defun color-theme-rotor ()
  1636. "Black on Beige color theme by Jinwei Shen, created 2000-06-08.
  1637. Supports default faces, font-lock, custom, widget, message, man,
  1638. show-paren, viper."
  1639. (interactive)
  1640. (color-theme-install
  1641. '(color-theme-rotor
  1642. ((background-color . "Beige")
  1643. (background-mode . light)
  1644. (border-color . "black")
  1645. (cursor-color . "Maroon")
  1646. (foreground-color . "Black")
  1647. (mouse-color . "Black"))
  1648. ((Man-overstrike-face . font-lock-function-name-face)
  1649. (Man-underline-face . font-lock-type-face)
  1650. (list-matching-lines-face . bold)
  1651. (rmail-highlight-face . font-lock-function-name-face)
  1652. (watson-attribution-face . italic)
  1653. (watson-url-face . bold)
  1654. (watson-url-mouse-face . highlight))
  1655. (default ((t (nil))))
  1656. (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
  1657. (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
  1658. (custom-button-face ((t (nil))))
  1659. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1660. (custom-documentation-face ((t (nil))))
  1661. (custom-face-tag-face ((t (:underline t))))
  1662. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1663. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1664. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1665. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1666. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1667. (custom-saved-face ((t (:underline t))))
  1668. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1669. (custom-state-face ((t (:foreground "dark green"))))
  1670. (custom-variable-button-face ((t (:underline t :bold t))))
  1671. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1672. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1673. (font-lock-comment-face ((t (:foreground "MediumBlue"))))
  1674. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  1675. (font-lock-function-name-face ((t (:foreground "MediumSlateBlue"))))
  1676. (font-lock-keyword-face ((t (:foreground "#80a0ff"))))
  1677. (font-lock-string-face ((t (:foreground "red"))))
  1678. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  1679. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  1680. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1681. (highlight ((t (:background "PaleGreen" :foreground "black"))))
  1682. (italic ((t (:italic t :foreground "yellow3"))))
  1683. (message-cited-text-face ((t (:foreground "red"))))
  1684. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  1685. (message-header-name-face ((t (:foreground "cornflower blue"))))
  1686. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  1687. (message-header-other-face ((t (:foreground "steel blue"))))
  1688. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  1689. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  1690. (message-header-xheader-face ((t (:foreground "blue"))))
  1691. (message-separator-face ((t (:foreground "brown"))))
  1692. (modeline ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1693. (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1694. (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1695. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1696. (nil ((t (nil))))
  1697. (region ((t (:background "dark cyan" :foreground "cyan"))))
  1698. (secondary-selection ((t (:background "Turquoise" :foreground "black"))))
  1699. (show-paren-match-face ((t (:background "turquoise"))))
  1700. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1701. (underline ((t (:underline t))))
  1702. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  1703. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  1704. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  1705. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  1706. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  1707. (widget-button-face ((t (:bold t))))
  1708. (widget-button-pressed-face ((t (:foreground "red"))))
  1709. (widget-documentation-face ((t (:foreground "dark green"))))
  1710. (widget-field-face ((t (:background "gray85"))))
  1711. (widget-inactive-face ((t (:foreground "dim gray"))))
  1712. (widget-single-line-field-face ((t (:background "gray85")))))))
  1713. (defun color-theme-pierson ()
  1714. "Black on White color theme by Dan L. Pierson, created 2000-06-08.
  1715. Supports default faces, font-lock, show-paren."
  1716. (interactive)
  1717. (color-theme-install
  1718. '(color-theme-pierson
  1719. ((background-color . "AntiqueWhite")
  1720. (background-mode . light)
  1721. (border-color . "black")
  1722. (cursor-color . "Orchid")
  1723. (foreground-color . "black")
  1724. (mouse-color . "Orchid"))
  1725. ((list-matching-lines-face . bold))
  1726. (default ((t (nil))))
  1727. (bold ((t (:bold t))))
  1728. (bold-italic ((t (:italic t :bold t))))
  1729. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1730. (font-lock-comment-face ((t (:foreground "ForestGreen"))))
  1731. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  1732. (font-lock-function-name-face ((t (:foreground "blue3"))))
  1733. (font-lock-keyword-face ((t (:foreground "Blue"))))
  1734. (font-lock-string-face ((t (:foreground "Firebrick"))))
  1735. (font-lock-type-face ((t (:foreground "Purple"))))
  1736. (font-lock-variable-name-face ((t (:foreground "blue3"))))
  1737. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1738. (highlight ((t (:background "darkseagreen2"))))
  1739. (italic ((t (:italic t))))
  1740. (modeline ((t (:foreground "antiquewhite" :background "black"))))
  1741. (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black"))))
  1742. (modeline-mousable ((t (:foreground "antiquewhite" :background "black"))))
  1743. (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black"))))
  1744. (region ((t (:background "gray"))))
  1745. (secondary-selection ((t (:background "paleturquoise"))))
  1746. (show-paren-match-face ((t (:background "turquoise"))))
  1747. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1748. (underline ((t (:underline t)))))))
  1749. (defun color-theme-xemacs ()
  1750. "XEmacs standard colors.
  1751. If you are missing standard faces in this theme, please notify the maintainer.
  1752. Currently, this theme includes the standard faces and font-lock faces, including
  1753. some faces used in Emacs only but which are needed to recreate the look of the
  1754. XEmacs color theme."
  1755. (interactive)
  1756. (color-theme-install
  1757. '(color-theme-xemacs
  1758. ((background-color . "gray80")
  1759. (background-mode . light)
  1760. (background-toolbar-color . "#cf3ccf3ccf3c")
  1761. (border-color . "#000000000000")
  1762. (bottom-toolbar-shadow-color . "#79e77df779e7")
  1763. (cursor-color . "Red3")
  1764. (foreground-color . "black")
  1765. (top-toolbar-shadow-color . "#fffffbeeffff"))
  1766. (default ((t (nil))))
  1767. (blue ((t (:foreground "blue"))))
  1768. (bold ((t (:bold t))))
  1769. (bold-italic ((t (:italic t :bold t))))
  1770. (border-glyph ((t (nil))))
  1771. (custom-button-face ((t (:bold t))))
  1772. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1773. (custom-documentation-face ((t (nil))))
  1774. (custom-face-tag-face ((t (:underline t))))
  1775. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1776. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1777. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1778. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1779. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1780. (custom-saved-face ((t (:underline t))))
  1781. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1782. (custom-state-face ((t (:foreground "dark green"))))
  1783. (custom-variable-button-face ((t (:underline t :bold t))))
  1784. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1785. (dired-face-boring ((t (:foreground "Gray65"))))
  1786. (dired-face-directory ((t (:bold t))))
  1787. (dired-face-executable ((t (:foreground "SeaGreen"))))
  1788. (dired-face-flagged ((t (:background "LightSlateGray"))))
  1789. (dired-face-marked ((t (:background "PaleVioletRed"))))
  1790. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  1791. (dired-face-setuid ((t (:foreground "Red"))))
  1792. (dired-face-socket ((t (:foreground "magenta"))))
  1793. (dired-face-symlink ((t (:foreground "cyan"))))
  1794. (font-lock-builtin-face ((t (:foreground "red3"))))
  1795. (font-lock-comment-face ((t (:foreground "blue4"))))
  1796. (font-lock-constant-face ((t (:foreground "red3"))))
  1797. (font-lock-doc-string-face ((t (:foreground "green4"))))
  1798. (font-lock-function-name-face ((t (:foreground "brown4"))))
  1799. (font-lock-keyword-face ((t (:foreground "red4"))))
  1800. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  1801. (font-lock-reference-face ((t (:foreground "red3"))))
  1802. (font-lock-string-face ((t (:foreground "green4"))))
  1803. (font-lock-type-face ((t (:foreground "steelblue"))))
  1804. (font-lock-variable-name-face ((t (:foreground "magenta4"))))
  1805. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1806. (green ((t (:foreground "green"))))
  1807. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  1808. (gui-element ((t (:background "Gray80"))))
  1809. (highlight ((t (:background "darkseagreen2"))))
  1810. (info-node ((t (:italic t :bold t))))
  1811. (info-xref ((t (:bold t))))
  1812. (isearch ((t (:background "paleturquoise"))))
  1813. (italic ((t (:italic t))))
  1814. (left-margin ((t (nil))))
  1815. (list-mode-item-selected ((t (:background "gray68"))))
  1816. (modeline ((t (:background "Gray80"))))
  1817. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  1818. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  1819. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  1820. (paren-blink-off ((t (:foreground "gray80"))))
  1821. (paren-match ((t (:background "darkseagreen2"))))
  1822. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  1823. (pointer ((t (nil))))
  1824. (primary-selection ((t (:background "gray65"))))
  1825. (red ((t (:foreground "red"))))
  1826. (region ((t (:background "gray65"))))
  1827. (right-margin ((t (nil))))
  1828. (secondary-selection ((t (:background "paleturquoise"))))
  1829. (text-cursor ((t (:background "Red3" :foreground "gray80"))))
  1830. (toolbar ((t (:background "Gray80"))))
  1831. (underline ((t (:underline t))))
  1832. (vertical-divider ((t (:background "Gray80"))))
  1833. (widget-button-face ((t (:bold t))))
  1834. (widget-button-pressed-face ((t (:foreground "red"))))
  1835. (widget-documentation-face ((t (:foreground "dark green"))))
  1836. (widget-field-face ((t (:background "gray85"))))
  1837. (widget-inactive-face ((t (:foreground "dim gray"))))
  1838. (yellow ((t (:foreground "yellow"))))
  1839. (zmacs-region ((t (:background "gray65")))))))
  1840. (defun color-theme-jsc-light ()
  1841. "Color theme by John S Cooper, created 2000-06-08."
  1842. (interactive)
  1843. (color-theme-install
  1844. '(color-theme-jsc-light
  1845. ((background-color . "white")
  1846. (background-mode . light)
  1847. (border-color . "black")
  1848. (cursor-color . "Red")
  1849. (foreground-color . "black")
  1850. (mouse-color . "black"))
  1851. ((gnus-mouse-face . highlight)
  1852. (list-matching-lines-face . bold)
  1853. (view-highlight-face . highlight))
  1854. (default ((t (nil))))
  1855. (bold ((t (:bold t :foreground "red3"))))
  1856. (bold-italic ((t (:italic t :bold t :foreground "red"))))
  1857. (custom-button-face ((t (nil))))
  1858. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1859. (custom-documentation-face ((t (nil))))
  1860. (custom-face-tag-face ((t (:underline t))))
  1861. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1862. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1863. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1864. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1865. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1866. (custom-saved-face ((t (:underline t))))
  1867. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1868. (custom-state-face ((t (:foreground "dark green"))))
  1869. (custom-variable-button-face ((t (:underline t :bold t))))
  1870. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1871. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1872. (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3"))))
  1873. (font-lock-constant-face ((t (:foreground "navy"))))
  1874. (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
  1875. (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
  1876. (font-lock-string-face ((t (:foreground "Green4"))))
  1877. (font-lock-type-face ((t (:foreground "Navy"))))
  1878. (font-lock-variable-name-face ((t (:foreground "Tan4"))))
  1879. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1880. (gnus-cite-attribution-face ((t (:italic t))))
  1881. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  1882. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  1883. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1884. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  1885. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  1886. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  1887. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  1888. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  1889. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  1890. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1891. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1892. (gnus-emphasis-bold ((t (:bold t))))
  1893. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  1894. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  1895. (gnus-emphasis-italic ((t (:italic t))))
  1896. (gnus-emphasis-underline ((t (:underline t))))
  1897. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  1898. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  1899. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  1900. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  1901. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  1902. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  1903. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  1904. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  1905. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  1906. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  1907. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  1908. (gnus-group-news-1-empty-face ((t (:foreground "blue2"))))
  1909. (gnus-group-news-1-face ((t (:bold t :foreground "blue2"))))
  1910. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  1911. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  1912. (gnus-group-news-3-empty-face ((t (nil))))
  1913. (gnus-group-news-3-face ((t (:bold t))))
  1914. (gnus-group-news-4-empty-face ((t (nil))))
  1915. (gnus-group-news-4-face ((t (:bold t))))
  1916. (gnus-group-news-5-empty-face ((t (nil))))
  1917. (gnus-group-news-5-face ((t (:bold t))))
  1918. (gnus-group-news-6-empty-face ((t (nil))))
  1919. (gnus-group-news-6-face ((t (:bold t))))
  1920. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  1921. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  1922. (gnus-header-content-face ((t (:italic t :foreground "blue"))))
  1923. (gnus-header-from-face ((t (:foreground "red3"))))
  1924. (gnus-header-name-face ((t (:foreground "red3"))))
  1925. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  1926. (gnus-header-subject-face ((t (:bold t :foreground "red"))))
  1927. (gnus-signature-face ((t (:foreground "pink"))))
  1928. (gnus-splash-face ((t (:foreground "Brown"))))
  1929. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1930. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  1931. (gnus-summary-high-read-face ((t (:bold t :foreground "navy"))))
  1932. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  1933. (gnus-summary-high-unread-face ((t (:bold t :foreground "blue"))))
  1934. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  1935. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  1936. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  1937. (gnus-summary-low-unread-face ((t (:italic t))))
  1938. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  1939. (gnus-summary-normal-read-face ((t (:foreground "red3"))))
  1940. (gnus-summary-normal-ticked-face ((t (:foreground "black"))))
  1941. (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3"))))
  1942. (gnus-summary-selected-face ((t (:underline t))))
  1943. (highlight ((t (:background "antiquewhite" :foreground "blue"))))
  1944. (italic ((t (:italic t))))
  1945. (makefile-space-face ((t (:background "hotpink"))))
  1946. (message-cited-text-face ((t (:foreground "red"))))
  1947. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  1948. (message-header-name-face ((t (:foreground "cornflower blue"))))
  1949. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  1950. (message-header-other-face ((t (:foreground "steel blue"))))
  1951. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  1952. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  1953. (message-header-xheader-face ((t (:foreground "blue"))))
  1954. (message-mml-face ((t (:foreground "ForestGreen"))))
  1955. (message-separator-face ((t (:foreground "brown"))))
  1956. (modeline ((t (:background "plum" :foreground "black"))))
  1957. (modeline-buffer-id ((t (:background "plum" :foreground "black"))))
  1958. (modeline-mousable ((t (:background "plum" :foreground "black"))))
  1959. (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black"))))
  1960. (region ((t (:background "plum"))))
  1961. (secondary-selection ((t (:background "palegreen"))))
  1962. (show-paren-match-face ((t (:background "plum"))))
  1963. (show-paren-mismatch-face ((t (:background "navy" :foreground "white"))))
  1964. (speedbar-button-face ((t (:foreground "green4"))))
  1965. (speedbar-directory-face ((t (:foreground "blue4"))))
  1966. (speedbar-file-face ((t (:foreground "cyan4"))))
  1967. (speedbar-highlight-face ((t (:background "green"))))
  1968. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  1969. (speedbar-tag-face ((t (:foreground "brown"))))
  1970. (underline ((t (:underline t))))
  1971. (widget-button-face ((t (:bold t))))
  1972. (widget-button-pressed-face ((t (:foreground "red"))))
  1973. (widget-documentation-face ((t (:foreground "dark green"))))
  1974. (widget-field-face ((t (:background "gray85"))))
  1975. (widget-inactive-face ((t (:foreground "dim gray"))))
  1976. (widget-single-line-field-face ((t (:background "gray85")))))))
  1977. (defun color-theme-jsc-dark ()
  1978. "Color theme by John S Cooper, created 2000-06-11."
  1979. (interactive)
  1980. (color-theme-install
  1981. '(color-theme-jsc-dark
  1982. ((background-color . "black")
  1983. (background-mode . dark)
  1984. (border-color . "black")
  1985. (cursor-color . "white")
  1986. (foreground-color . "cornsilk")
  1987. (mouse-color . "black"))
  1988. ((gnus-mouse-face . highlight)
  1989. (goto-address-mail-face . italic)
  1990. (goto-address-mail-mouse-face . secondary-selection)
  1991. (goto-address-url-face . bold)
  1992. (goto-address-url-mouse-face . highlight)
  1993. (list-matching-lines-face . bold)
  1994. (view-highlight-face . highlight))
  1995. (blank-space-face ((t (:background "LightGray"))))
  1996. (blank-tab-face ((t (:background "cornsilk" :foreground "black"))))
  1997. (default ((t (nil))))
  1998. (bold ((t (:bold t :foreground "white"))))
  1999. (bold-italic ((t (:italic t :bold t))))
  2000. (calendar-today-face ((t (:underline t))))
  2001. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  2002. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  2003. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  2004. (custom-button-face ((t (:foreground "white"))))
  2005. (custom-changed-face ((t (:background "skyblue" :foreground "wheat"))))
  2006. (custom-documentation-face ((t (:foreground "white"))))
  2007. (custom-face-tag-face ((t (:underline t :foreground "white"))))
  2008. (custom-group-tag-face ((t (:underline t :foreground "skyblue"))))
  2009. (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
  2010. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2011. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2012. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2013. (custom-saved-face ((t (:underline t))))
  2014. (custom-set-face ((t (:foreground "blue"))))
  2015. (custom-state-face ((t (:foreground "light green"))))
  2016. (custom-variable-button-face ((t (:underline t :bold t))))
  2017. (custom-variable-tag-face ((t (:underline t :foreground "skyblue"))))
  2018. (diary-face ((t (:bold t :foreground "orange"))))
  2019. (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue"))))
  2020. (font-lock-comment-face ((t (:italic t :foreground "red"))))
  2021. (font-lock-constant-face ((t (:bold t :foreground "salmon"))))
  2022. (font-lock-function-name-face ((t (:bold t :foreground "orange"))))
  2023. (font-lock-keyword-face ((t (:bold t :foreground "gold"))))
  2024. (font-lock-string-face ((t (:italic t :foreground "orange"))))
  2025. (font-lock-type-face ((t (:bold t :foreground "gold"))))
  2026. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon"))))
  2027. (font-lock-warning-face ((t (:bold t :foreground "gold"))))
  2028. (gnus-cite-attribution-face ((t (:italic t))))
  2029. (gnus-cite-face-1 ((t (:foreground "light cyan"))))
  2030. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  2031. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  2032. (gnus-cite-face-2 ((t (:foreground "light blue"))))
  2033. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  2034. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  2035. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  2036. (gnus-cite-face-6 ((t (:foreground "beige"))))
  2037. (gnus-cite-face-7 ((t (:foreground "orange"))))
  2038. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  2039. (gnus-cite-face-9 ((t (:foreground "violet"))))
  2040. (gnus-emphasis-bold ((t (:bold t))))
  2041. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  2042. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  2043. (gnus-emphasis-italic ((t (:italic t))))
  2044. (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white"))))
  2045. (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black"))))
  2046. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black"))))
  2047. (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black"))))
  2048. (gnus-filterhist-face-1 ((t (nil))))
  2049. (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
  2050. (gnus-group-mail-1-face ((t (:bold t :foreground "white"))))
  2051. (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
  2052. (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan"))))
  2053. (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
  2054. (gnus-group-mail-3-face ((t (:bold t :foreground "tan"))))
  2055. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  2056. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  2057. (gnus-group-news-1-empty-face ((t (:foreground "white"))))
  2058. (gnus-group-news-1-face ((t (:bold t :foreground "white"))))
  2059. (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
  2060. (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan"))))
  2061. (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
  2062. (gnus-group-news-3-face ((t (:bold t :foreground "tan"))))
  2063. (gnus-group-news-4-empty-face ((t (:foreground "white"))))
  2064. (gnus-group-news-4-face ((t (:bold t :foreground "white"))))
  2065. (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
  2066. (gnus-group-news-5-face ((t (:bold t :foreground "wheat"))))
  2067. (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
  2068. (gnus-group-news-6-face ((t (:bold t :foreground "tan"))))
  2069. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  2070. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  2071. (gnus-header-content-face ((t (:italic t :foreground "plum1"))))
  2072. (gnus-header-from-face ((t (:bold t :foreground "wheat"))))
  2073. (gnus-header-name-face ((t (:bold t :foreground "gold"))))
  2074. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat"))))
  2075. (gnus-header-subject-face ((t (:bold t :foreground "red"))))
  2076. (gnus-signature-face ((t (:italic t :foreground "maroon"))))
  2077. (gnus-splash ((t (:foreground "Brown"))))
  2078. (gnus-splash-face ((t (:foreground "gold"))))
  2079. (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black"))))
  2080. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  2081. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  2082. (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70"))))
  2083. (gnus-summary-high-unread-face ((t (:italic t :bold t))))
  2084. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  2085. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  2086. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70"))))
  2087. (gnus-summary-low-unread-face ((t (:italic t))))
  2088. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  2089. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  2090. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70"))))
  2091. (gnus-summary-normal-unread-face ((t (:bold t))))
  2092. (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4"))))
  2093. (highlight ((t (:background "darkslategray" :foreground "wheat"))))
  2094. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  2095. (highlight-changes-face ((t (:foreground "red"))))
  2096. (highline-face ((t (:background "gray35"))))
  2097. (holiday-face ((t (:background "red"))))
  2098. (info-menu-5 ((t (:underline t))))
  2099. (info-node ((t (:italic t :bold t :foreground "yellow"))))
  2100. (info-xref ((t (:bold t :foreground "plum"))))
  2101. (italic ((t (:italic t))))
  2102. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  2103. (linemenu-face ((t (:background "gray30"))))
  2104. (makefile-space-face ((t (:background "hotpink"))))
  2105. (message-cited-text-face ((t (:foreground "plum1"))))
  2106. (message-header-cc-face ((t (:bold t :foreground "ivory"))))
  2107. (message-header-name-face ((t (:foreground "light sky blue"))))
  2108. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush"))))
  2109. (message-header-other-face ((t (:foreground "pale turquoise"))))
  2110. (message-header-subject-face ((t (:bold t :foreground "papaya whip"))))
  2111. (message-header-to-face ((t (:bold t :foreground "floral white"))))
  2112. (message-header-xheader-face ((t (:foreground "blue"))))
  2113. (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
  2114. (message-separator-face ((t (:foreground "sandy brown"))))
  2115. (modeline ((t (:background "tan" :foreground "black"))))
  2116. (modeline-buffer-id ((t (:background "tan" :foreground "black"))))
  2117. (modeline-mousable ((t (:background "tan" :foreground "black"))))
  2118. (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black"))))
  2119. (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  2120. (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
  2121. (region ((t (:background "slategrey"))))
  2122. (secondary-selection ((t (:background "deepskyblue4"))))
  2123. (sgml-doctype-face ((t (:foreground "orange"))))
  2124. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  2125. (sgml-entity-face ((t (:foreground "gold"))))
  2126. (sgml-ignored-face ((t (:background "gray60" :foreground "gray20"))))
  2127. (sgml-sgml-face ((t (:foreground "yellow"))))
  2128. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  2129. (show-paren-match-face ((t (:background "deepskyblue4"))))
  2130. (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white"))))
  2131. (speedbar-button-face ((t (:foreground "green4"))))
  2132. (speedbar-directory-face ((t (:foreground "blue4"))))
  2133. (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
  2134. (speedbar-highlight-face ((t (:background "green"))))
  2135. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2136. (speedbar-tag-face ((t (:foreground "brown"))))
  2137. (underline ((t (:underline t))))
  2138. (widget-button-face ((t (:bold t))))
  2139. (widget-button-pressed-face ((t (:foreground "red"))))
  2140. (widget-documentation-face ((t (:foreground "lime green"))))
  2141. (widget-field-face ((t (:background "gray20"))))
  2142. (widget-inactive-face ((t (:foreground "wheat"))))
  2143. (widget-single-line-field-face ((t (:background "gray20"))))
  2144. (woman-bold-face ((t (:bold t))))
  2145. (woman-italic-face ((t (:foreground "beige"))))
  2146. (woman-unknown-face ((t (:foreground "LightSalmon")))))))
  2147. (defun color-theme-greiner ()
  2148. "Color theme by Kevin Greiner, created 2000-06-13.
  2149. Black on Beige, supports default, font-lock, speedbar, custom, widget
  2150. faces. Designed to be easy on the eyes, particularly on Win32
  2151. computers which commonly have white window backgrounds."
  2152. (interactive)
  2153. (color-theme-install
  2154. '(color-theme-greiner
  2155. ((background-color . "beige")
  2156. (background-mode . light)
  2157. (border-color . "black")
  2158. (cursor-color . "black")
  2159. (foreground-color . "black")
  2160. (mouse-color . "black"))
  2161. ((list-matching-lines-face . bold))
  2162. (default ((t (nil))))
  2163. (bold ((t (:bold t))))
  2164. (bold-italic ((t (:italic t :bold t))))
  2165. (custom-button-face ((t (nil))))
  2166. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2167. (custom-documentation-face ((t (nil))))
  2168. (custom-face-tag-face ((t (:underline t))))
  2169. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  2170. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2171. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2172. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2173. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2174. (custom-saved-face ((t (:underline t))))
  2175. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2176. (custom-state-face ((t (:foreground "dark green"))))
  2177. (custom-variable-button-face ((t (:underline t :bold t))))
  2178. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  2179. (font-lock-builtin-face ((t (:foreground "blue4"))))
  2180. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  2181. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  2182. (font-lock-function-name-face ((t (:foreground "Blue"))))
  2183. (font-lock-keyword-face ((t (:foreground "royal blue"))))
  2184. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  2185. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  2186. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  2187. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  2188. (highlight ((t (:background "darkseagreen2"))))
  2189. (info-menu-5 ((t (:underline t))))
  2190. (info-node ((t (:italic t :bold t))))
  2191. (info-xref ((t (:bold t))))
  2192. (italic ((t (:italic t))))
  2193. (modeline ((t (:background "black" :foreground "white"))))
  2194. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  2195. (modeline-mousable ((t (:background "black" :foreground "white"))))
  2196. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  2197. (region ((t (:background "gray"))))
  2198. (secondary-selection ((t (:background "paleturquoise"))))
  2199. (show-paren-match-face ((t (:background "turquoise"))))
  2200. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  2201. (speedbar-button-face ((t (:foreground "green4"))))
  2202. (speedbar-directory-face ((t (:foreground "blue4"))))
  2203. (speedbar-file-face ((t (:foreground "cyan4"))))
  2204. (speedbar-highlight-face ((t (:background "green"))))
  2205. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2206. (speedbar-tag-face ((t (:foreground "brown"))))
  2207. (underline ((t (:underline t))))
  2208. (widget-button-face ((t (:bold t))))
  2209. (widget-button-pressed-face ((t (:foreground "red"))))
  2210. (widget-documentation-face ((t (:foreground "dark green"))))
  2211. (widget-field-face ((t (:background "gray85"))))
  2212. (widget-inactive-face ((t (:foreground "dim gray"))))
  2213. (widget-single-line-field-face ((t (:background "gray85")))))))
  2214. (defun color-theme-jb-simple ()
  2215. "Color theme by jeff, created 2000-06-14.
  2216. Uses white background and bold for many things"
  2217. (interactive)
  2218. (color-theme-install
  2219. '(color-theme-jb-simple
  2220. ((background-color . "white")
  2221. (background-mode . light)
  2222. (background-toolbar-color . "#cf3ccf3ccf3c")
  2223. (border-color . "black")
  2224. (bottom-toolbar-shadow-color . "#79e77df779e7")
  2225. (cursor-color . "black")
  2226. (foreground-color . "black")
  2227. (mouse-color . "black")
  2228. (top-toolbar-shadow-color . "#fffffbeeffff"))
  2229. ((gnus-mouse-face . highlight)
  2230. (list-matching-lines-face . bold)
  2231. (rmail-highlight-face . font-lock-function-name-face)
  2232. (view-highlight-face . highlight))
  2233. (default ((t (nil))))
  2234. (blank-space-face ((t (nil))))
  2235. (blank-tab-face ((t (nil))))
  2236. (blue ((t (nil))))
  2237. (bold ((t (:bold t))))
  2238. (bold-italic ((t (:italic t :bold t))))
  2239. (border-glyph ((t (nil))))
  2240. (calendar-today-face ((t (:underline t))))
  2241. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  2242. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  2243. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  2244. (custom-button-face ((t (:bold t))))
  2245. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2246. (custom-documentation-face ((t (nil))))
  2247. (custom-face-tag-face ((t (:underline t))))
  2248. (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
  2249. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2250. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2251. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2252. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2253. (custom-saved-face ((t (:underline t))))
  2254. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2255. (custom-state-face ((t (:foreground "dark green"))))
  2256. (custom-variable-button-face ((t (:underline t :bold t))))
  2257. (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
  2258. (diary-face ((t (:bold t :foreground "red"))))
  2259. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  2260. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  2261. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  2262. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  2263. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  2264. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  2265. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  2266. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  2267. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  2268. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  2269. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  2270. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  2271. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  2272. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  2273. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  2274. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  2275. (erc-action-face ((t (:bold t))))
  2276. (erc-bold-face ((t (:bold t))))
  2277. (erc-default-face ((t (nil))))
  2278. (erc-direct-msg-face ((t (nil))))
  2279. (erc-error-face ((t (:bold t))))
  2280. (erc-input-face ((t (nil))))
  2281. (erc-inverse-face ((t (nil))))
  2282. (erc-notice-face ((t (nil))))
  2283. (erc-pal-face ((t (nil))))
  2284. (erc-prompt-face ((t (nil))))
  2285. (erc-underline-face ((t (nil))))
  2286. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  2287. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  2288. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  2289. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  2290. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  2291. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  2292. (eshell-ls-picture-face ((t (nil))))
  2293. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  2294. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  2295. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  2296. (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
  2297. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  2298. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  2299. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  2300. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  2301. (excerpt ((t (:italic t))))
  2302. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  2303. (fixed ((t (:bold t))))
  2304. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  2305. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  2306. (font-latex-bold-face ((t (nil))))
  2307. (font-latex-italic-face ((t (nil))))
  2308. (font-latex-math-face ((t (nil))))
  2309. (font-latex-sedate-face ((t (nil))))
  2310. (font-latex-string-face ((t (nil))))
  2311. (font-latex-warning-face ((t (nil))))
  2312. (font-lock-builtin-face ((t (:bold t :foreground "Orchid"))))
  2313. (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4"))))
  2314. (font-lock-constant-face ((t (:bold t :foreground "CadetBlue"))))
  2315. (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4"))))
  2316. (font-lock-exit-face ((t (nil))))
  2317. (font-lock-function-name-face ((t (:bold t :foreground "brown4"))))
  2318. (font-lock-keyword-face ((t (:bold t :foreground "black"))))
  2319. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  2320. (font-lock-reference-face ((t (:foreground "red3"))))
  2321. (font-lock-string-face ((t (:italic t :bold t :foreground "green4"))))
  2322. (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
  2323. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4"))))
  2324. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  2325. (gnus-cite-attribution-face ((t (:italic t :bold t))))
  2326. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  2327. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  2328. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  2329. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  2330. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  2331. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  2332. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  2333. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  2334. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  2335. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  2336. (gnus-cite-face-9 ((t (:foreground "violet"))))
  2337. (gnus-emphasis-bold ((t (:bold t))))
  2338. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  2339. (gnus-emphasis-highlight-words ((t (nil))))
  2340. (gnus-emphasis-italic ((t (:italic t))))
  2341. (gnus-emphasis-underline ((t (:underline t))))
  2342. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  2343. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  2344. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  2345. (gnus-filterhist-face-1 ((t (nil))))
  2346. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  2347. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  2348. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  2349. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  2350. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  2351. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  2352. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  2353. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  2354. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  2355. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  2356. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  2357. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  2358. (gnus-group-news-3-empty-face ((t (nil))))
  2359. (gnus-group-news-3-face ((t (:bold t))))
  2360. (gnus-group-news-4-empty-face ((t (nil))))
  2361. (gnus-group-news-4-face ((t (:bold t))))
  2362. (gnus-group-news-5-empty-face ((t (nil))))
  2363. (gnus-group-news-5-face ((t (:bold t))))
  2364. (gnus-group-news-6-empty-face ((t (nil))))
  2365. (gnus-group-news-6-face ((t (:bold t))))
  2366. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  2367. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  2368. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  2369. (gnus-header-from-face ((t (:bold t :foreground "red3"))))
  2370. (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
  2371. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
  2372. (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
  2373. (gnus-signature-face ((t (:italic t))))
  2374. (gnus-splash ((t (nil))))
  2375. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  2376. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2377. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  2378. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  2379. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  2380. (gnus-summary-high-unread-face ((t (:italic t :bold t))))
  2381. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  2382. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  2383. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
  2384. (gnus-summary-low-unread-face ((t (:italic t))))
  2385. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  2386. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  2387. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
  2388. (gnus-summary-normal-unread-face ((t (:bold t))))
  2389. (gnus-summary-selected-face ((t (:underline t))))
  2390. (green ((t (nil))))
  2391. (gui-button-face ((t (:background "grey75"))))
  2392. (gui-element ((t (:background "Gray80"))))
  2393. (highlight ((t (:background "darkseagreen2"))))
  2394. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  2395. (highlight-changes-face ((t (:foreground "red"))))
  2396. (highline-face ((t (:background "paleturquoise"))))
  2397. (holiday-face ((t (:background "pink"))))
  2398. (html-helper-italic-face ((t (:italic t))))
  2399. (info-menu-5 ((t (:underline t))))
  2400. (info-node ((t (:italic t :bold t))))
  2401. (info-xref ((t (:bold t))))
  2402. (isearch ((t (nil))))
  2403. (italic ((t (:italic t))))
  2404. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  2405. (left-margin ((t (nil))))
  2406. (linemenu-face ((t (nil))))
  2407. (list-mode-item-selected ((t (nil))))
  2408. (makefile-space-face ((t (:background "hotpink"))))
  2409. (message-cited-text-face ((t (:foreground "red"))))
  2410. (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
  2411. (message-header-name-face ((t (:foreground "cornflower blue"))))
  2412. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  2413. (message-header-other-face ((t (:foreground "steel blue"))))
  2414. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  2415. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  2416. (message-header-xheader-face ((t (:foreground "blue"))))
  2417. (message-mml-face ((t (:bold t))))
  2418. (message-separator-face ((t (:foreground "brown"))))
  2419. (modeline ((t (:background "darkblue" :foreground "yellow"))))
  2420. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  2421. (modeline-mousable ((t (:background "black" :foreground "white"))))
  2422. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  2423. (nil ((t (nil))))
  2424. (paren-mismatch-face ((t (:bold t))))
  2425. (paren-no-match-face ((t (:bold t))))
  2426. (pointer ((t (nil))))
  2427. (primary-selection ((t (nil))))
  2428. (red ((t (nil))))
  2429. (region ((t (:background "gray"))))
  2430. (right-margin ((t (nil))))
  2431. (secondary-selection ((t (:background "paleturquoise"))))
  2432. (sgml-doctype-face ((t (nil))))
  2433. (sgml-end-tag-face ((t (nil))))
  2434. (sgml-entity-face ((t (nil))))
  2435. (sgml-ignored-face ((t (nil))))
  2436. (sgml-sgml-face ((t (nil))))
  2437. (sgml-start-tag-face ((t (nil))))
  2438. (show-paren-match-face ((t (:background "turquoise"))))
  2439. (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
  2440. (speedbar-button-face ((t (:bold t :foreground "green4"))))
  2441. (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
  2442. (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
  2443. (speedbar-highlight-face ((t (:background "green"))))
  2444. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2445. (speedbar-tag-face ((t (:foreground "brown"))))
  2446. (swbuff-current-buffer-face ((t (:bold t))))
  2447. (term-black ((t (:foreground "black"))))
  2448. (term-blackbg ((t (:background "black"))))
  2449. (term-blue ((t (:foreground "blue"))))
  2450. (term-bluebg ((t (:background "blue"))))
  2451. (term-bold ((t (:bold t))))
  2452. (term-cyan ((t (:foreground "cyan"))))
  2453. (term-cyanbg ((t (:background "cyan"))))
  2454. (term-default-bg ((t (nil))))
  2455. (term-default-bg-inv ((t (nil))))
  2456. (term-default-fg ((t (nil))))
  2457. (term-default-fg-inv ((t (nil))))
  2458. (term-green ((t (:foreground "green"))))
  2459. (term-greenbg ((t (:background "green"))))
  2460. (term-invisible ((t (nil))))
  2461. (term-invisible-inv ((t (nil))))
  2462. (term-magenta ((t (:foreground "magenta"))))
  2463. (term-magentabg ((t (:background "magenta"))))
  2464. (term-red ((t (:foreground "red"))))
  2465. (term-redbg ((t (:background "red"))))
  2466. (term-underline ((t (:underline t))))
  2467. (term-white ((t (:foreground "white"))))
  2468. (term-whitebg ((t (:background "white"))))
  2469. (term-yellow ((t (:foreground "yellow"))))
  2470. (term-yellowbg ((t (:background "yellow"))))
  2471. (text-cursor ((t (nil))))
  2472. (toolbar ((t (nil))))
  2473. (underline ((t (:underline t))))
  2474. (vc-annotate-face-0046FF ((t (nil))))
  2475. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  2476. (vertical-divider ((t (nil))))
  2477. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  2478. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  2479. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  2480. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  2481. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  2482. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  2483. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  2484. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  2485. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  2486. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  2487. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  2488. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  2489. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  2490. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  2491. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  2492. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  2493. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  2494. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  2495. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  2496. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  2497. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  2498. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  2499. (widget-button-face ((t (:bold t))))
  2500. (widget-button-pressed-face ((t (:foreground "red"))))
  2501. (widget-documentation-face ((t (:foreground "dark green"))))
  2502. (widget-field-face ((t (:background "gray85"))))
  2503. (widget-inactive-face ((t (:foreground "dim gray"))))
  2504. (widget-single-line-field-face ((t (:background "gray85"))))
  2505. (woman-bold-face ((t (:bold t))))
  2506. (woman-italic-face ((t (nil))))
  2507. (woman-unknown-face ((t (nil))))
  2508. (yellow ((t (nil))))
  2509. (zmacs-region ((t (nil)))))))
  2510. (defun color-theme-beige-diff ()
  2511. "Brownish faces for diff and change-log modes.
  2512. This is intended for other color themes to use (eg. `color-theme-gnome2'
  2513. and `color-theme-blue-sea')."
  2514. (color-theme-install
  2515. '(color-theme-beige-diff
  2516. nil
  2517. (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
  2518. (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna"))))
  2519. (change-log-date-face ((t (:foreground "gold"))))
  2520. (change-log-email-face ((t (:foreground "khaki" :underline t))))
  2521. (change-log-file-face ((t (:bold t :foreground "lemon chiffon"))))
  2522. (change-log-function-face ((t (:foreground "khaki" :background "sienna"))))
  2523. (change-log-list-face ((t (:foreground "wheat"))))
  2524. (change-log-name-face ((t (:bold t :foreground "light goldenrod"))))
  2525. (diff-added-face ((t (nil))))
  2526. (diff-changed-face ((t (nil))))
  2527. (diff-context-face ((t (:foreground "grey50"))))
  2528. (diff-file-header-face ((t (:bold t :foreground "lemon chiffon"))))
  2529. (diff-function-face ((t (:foreground "grey50"))))
  2530. (diff-header-face ((t (:foreground "lemon chiffon"))))
  2531. (diff-hunk-header-face ((t (:foreground "light goldenrod"))))
  2532. (diff-index-face ((t (:bold t :underline t))))
  2533. (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
  2534. (diff-removed-face ((t (nil))))
  2535. (log-view-message-face ((t (:foreground "lemon chiffon")))))))
  2536. (defun color-theme-standard-ediff ()
  2537. "Standard colors for ediff faces.
  2538. This is intended for other color themes to use
  2539. \(eg. `color-theme-goldenrod')."
  2540. (color-theme-install
  2541. '(color-theme-beige-diff
  2542. nil
  2543. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  2544. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  2545. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  2546. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  2547. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  2548. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  2549. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  2550. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  2551. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  2552. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  2553. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  2554. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  2555. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  2556. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  2557. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  2558. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))))))
  2559. (defun color-theme-beige-eshell ()
  2560. "Brownish colors for eshell faces only.
  2561. This is intended for other color themes to use (eg. `color-theme-goldenrod')."
  2562. (color-theme-install
  2563. '(color-theme-beige-eshell
  2564. nil
  2565. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  2566. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  2567. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  2568. (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki"))))
  2569. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  2570. (eshell-ls-missing-face ((t (:foreground "black"))))
  2571. (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face
  2572. (eshell-ls-product-face ((t (:foreground "dark sea green"))))
  2573. (eshell-ls-readonly-face ((t (:foreground "light steel blue"))))
  2574. (eshell-ls-special-face ((t (:foreground "gold"))))
  2575. (eshell-ls-symlink-face ((t (:foreground "peach puff"))))
  2576. (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face
  2577. (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face
  2578. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  2579. (eshell-prompt-face ((t (:foreground "lemon chiffon")))))))
  2580. (defun color-theme-goldenrod ()
  2581. "Brown color theme. Very different from the others.
  2582. Supports standard, font-lock and info faces, and it uses
  2583. `color-theme-blue-gnus', `color-theme-blue-erc' , and
  2584. `color-theme-beige-diff'."
  2585. (interactive)
  2586. (color-theme-blue-gnus)
  2587. (let ((color-theme-is-cumulative t))
  2588. (color-theme-blue-erc)
  2589. (color-theme-beige-diff)
  2590. (color-theme-beige-eshell)
  2591. (color-theme-install
  2592. '(color-theme-goldenrod
  2593. ((background-color . "black")
  2594. (background-mode . dark)
  2595. (border-color . "black")
  2596. (cursor-color . "light goldenrod")
  2597. (foreground-color . "goldenrod")
  2598. (mouse-color . "goldenrod"))
  2599. ((goto-address-mail-face . info-xref)
  2600. (list-matching-lines-face . bold)
  2601. (view-highlight-face . highlight))
  2602. (default ((t (nil))))
  2603. (bold ((t (:bold t))))
  2604. (bold-italic ((t (:italic t :bold t :foreground "lavender"))))
  2605. (font-lock-builtin-face ((t (:foreground "pale goldenrod"))))
  2606. (font-lock-comment-face ((t (:foreground "indian red"))))
  2607. (font-lock-constant-face ((t (:foreground "pale green"))))
  2608. (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon"))))
  2609. (font-lock-keyword-face ((t (:foreground "wheat"))))
  2610. (font-lock-string-face ((t (:foreground "gold"))))
  2611. (font-lock-type-face ((t (:foreground "dark khaki" :bold t))))
  2612. (font-lock-variable-name-face ((t (:bold t :foreground "khaki"))))
  2613. (font-lock-warning-face ((t (:bold t :foreground "orange red"))))
  2614. (fringe ((t (:background "gray25"))))
  2615. (header-line ((t (:background "gray20" :foreground "gray70"))))
  2616. (highlight ((t (:background "dark slate blue"))))
  2617. (info-menu-5 ((t (:underline t))))
  2618. (info-node ((t (:bold t))))
  2619. (info-xref ((t (:bold t :foreground "pale goldenrod"))))
  2620. (isearch ((t (:background "SeaGreen4"))))
  2621. (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4"))))
  2622. (italic ((t (:italic t :foreground "lavender"))))
  2623. (menu ((t (:background "gray25" :foreground "lemon chiffon"))))
  2624. (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2625. (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
  2626. (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
  2627. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon"))))
  2628. (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2629. (region ((t (:background "dark olive green"))))
  2630. (secondary-selection ((t (:background "dark green"))))
  2631. (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2632. (underline ((t (:underline t))))))))
  2633. (defun color-theme-ramangalahy ()
  2634. "Color theme by Solofo Ramangalahy, created 2000-10-18.
  2635. Black on light grey, includes faces for vm, ispell, gnus,
  2636. dired, display-time, cperl, font-lock, widget, x-symbol."
  2637. (interactive)
  2638. (color-theme-install
  2639. '(color-theme-ramangalahy
  2640. ((background-color . "lightgrey")
  2641. (background-mode . light)
  2642. (background-toolbar-color . "#bfbfbfbfbfbf")
  2643. (border-color . "#000000000000")
  2644. (bottom-toolbar-shadow-color . "#737373737373")
  2645. (cursor-color . "blue")
  2646. (foreground-color . "black")
  2647. (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
  2648. ((gnus-mouse-face . highlight)
  2649. (goto-address-mail-face . info-xref)
  2650. (ispell-highlight-face . highlight)
  2651. (notes-bold-face . notes-bold-face)
  2652. (setnu-line-number-face . bold)
  2653. (tinyreplace-:face . highlight)
  2654. (vm-highlight-url-face . bold-italic)
  2655. (vm-highlighted-header-face . bold)
  2656. (vm-mime-button-face . gui-button-face)
  2657. (vm-summary-highlight-face . bold))
  2658. (default ((t (nil))))
  2659. (bbdb-company ((t (nil))))
  2660. (blue ((t (:foreground "blue"))))
  2661. (bold ((t (:bold t))))
  2662. (bold-italic ((t (:italic t :bold t))))
  2663. (border-glyph ((t (nil))))
  2664. (cperl-here-face ((t (:foreground "green4"))))
  2665. (cperl-pod-face ((t (:foreground "brown4"))))
  2666. (cperl-pod-head-face ((t (:foreground "steelblue"))))
  2667. (custom-button-face ((t (:bold t))))
  2668. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2669. (custom-documentation-face ((t (nil))))
  2670. (custom-face-tag-face ((t (:underline t))))
  2671. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  2672. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2673. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2674. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2675. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2676. (custom-saved-face ((t (:underline t))))
  2677. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2678. (custom-state-face ((t (:foreground "dark green"))))
  2679. (custom-variable-button-face ((t (:underline t :bold t))))
  2680. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  2681. (dired-face-boring ((t (:foreground "Gray65"))))
  2682. (dired-face-directory ((t (:bold t))))
  2683. (dired-face-executable ((t (:foreground "SeaGreen"))))
  2684. (dired-face-flagged ((t (:background "LightSlateGray"))))
  2685. (dired-face-marked ((t (:background "PaleVioletRed"))))
  2686. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  2687. (dired-face-setuid ((t (:foreground "Red"))))
  2688. (dired-face-socket ((t (:foreground "magenta"))))
  2689. (dired-face-symlink ((t (:foreground "blue"))))
  2690. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  2691. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  2692. (display-time-time-balloon-face ((t (:foreground "red"))))
  2693. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  2694. (font-lock-comment-face ((t (:bold t :foreground "purple"))))
  2695. (font-lock-doc-string-face ((t (:bold t :foreground "slateblue"))))
  2696. (font-lock-emphasized-face ((t (:bold t :background "lightyellow2"))))
  2697. (font-lock-function-name-face ((t (:bold t :foreground "blue"))))
  2698. (font-lock-keyword-face ((t (:bold t :foreground "violetred"))))
  2699. (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2"))))
  2700. (font-lock-other-type-face ((t (:bold t :foreground "orange3"))))
  2701. (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue"))))
  2702. (font-lock-reference-face ((t (:foreground "red3"))))
  2703. (font-lock-string-face ((t (:foreground "green4"))))
  2704. (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
  2705. (font-lock-variable-name-face ((t (:foreground "magenta4"))))
  2706. (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red"))))
  2707. (gnus-emphasis-bold ((t (:bold t))))
  2708. (gnus-emphasis-bold-italic ((t (nil))))
  2709. (gnus-emphasis-italic ((t (nil))))
  2710. (gnus-emphasis-underline ((t (:underline t))))
  2711. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  2712. (gnus-emphasis-underline-bold-italic ((t (:underline t))))
  2713. (gnus-emphasis-underline-italic ((t (:underline t))))
  2714. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  2715. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  2716. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  2717. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  2718. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  2719. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  2720. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  2721. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  2722. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  2723. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  2724. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  2725. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  2726. (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4"))))
  2727. (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4"))))
  2728. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  2729. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  2730. (gnus-header-content-face ((t (:foreground "indianred4"))))
  2731. (gnus-header-from-face ((t (:foreground "red3"))))
  2732. (gnus-header-name-face ((t (:foreground "maroon"))))
  2733. (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
  2734. (gnus-header-subject-face ((t (:foreground "red4"))))
  2735. (gnus-signature-face ((t (:bold t))))
  2736. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  2737. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2738. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  2739. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  2740. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  2741. (gnus-summary-high-unread-face ((t (:bold t))))
  2742. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
  2743. (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
  2744. (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
  2745. (gnus-summary-low-unread-face ((t (nil))))
  2746. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  2747. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  2748. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  2749. (gnus-summary-normal-unread-face ((t (nil))))
  2750. (gnus-summary-selected-face ((t (:underline t))))
  2751. (gnus-x-face ((t (:background "lightgrey" :foreground "black"))))
  2752. (green ((t (:foreground "green"))))
  2753. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  2754. (gui-element ((t (:background "lightgrey"))))
  2755. (highlight ((t (:background "darkseagreen2"))))
  2756. (info-node ((t (:underline t :bold t :foreground "mediumpurple"))))
  2757. (info-xref ((t (:underline t :bold t :foreground "#0000ee"))))
  2758. (isearch ((t (:background "paleturquoise"))))
  2759. (italic ((t (:italic t))))
  2760. (left-margin ((t (nil))))
  2761. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  2762. (message-cited-text ((t (:foreground "slategrey"))))
  2763. (message-cited-text-face ((t (:foreground "red"))))
  2764. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  2765. (message-header-contents ((t (:italic t))))
  2766. (message-header-name-face ((t (:foreground "cornflower blue"))))
  2767. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  2768. (message-header-other-face ((t (:foreground "steel blue"))))
  2769. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  2770. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  2771. (message-header-xheader-face ((t (:foreground "blue"))))
  2772. (message-headers ((t (:bold t))))
  2773. (message-highlighted-header-contents ((t (:bold t))))
  2774. (message-separator-face ((t (:foreground "brown"))))
  2775. (message-url ((t (:bold t))))
  2776. (modeline ((t (:bold t :background "Gray75" :foreground "Black"))))
  2777. (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4"))))
  2778. (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick"))))
  2779. (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4"))))
  2780. (paren-blink-off ((t (:foreground "lightgrey"))))
  2781. (paren-match ((t (:background "darkseagreen2"))))
  2782. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  2783. (pointer ((t (:foreground "blue"))))
  2784. (primary-selection ((t (:background "gray65"))))
  2785. (red ((t (:foreground "red"))))
  2786. (region ((t (:background "black" :foreground "white"))))
  2787. (right-margin ((t (nil))))
  2788. (searchm-buffer ((t (:bold t :background "white" :foreground "red"))))
  2789. (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white"))))
  2790. (searchm-field ((t (:background "grey89"))))
  2791. (searchm-field-label ((t (:bold t))))
  2792. (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black"))))
  2793. (secondary-selection ((t (:background "paleturquoise"))))
  2794. (template-message-face ((t (:bold t))))
  2795. (text-cursor ((t (:background "blue" :foreground "lightgrey"))))
  2796. (toolbar ((t (nil))))
  2797. (underline ((t (:underline t))))
  2798. (vertical-divider ((t (nil))))
  2799. (widget-button-face ((t (:bold t))))
  2800. (widget-button-pressed-face ((t (:foreground "red"))))
  2801. (widget-documentation-face ((t (:foreground "dark green"))))
  2802. (widget-field-face ((t (:background "gray85"))))
  2803. (widget-inactive-face ((t (:foreground "dim gray"))))
  2804. (x-face ((t (:background "white" :foreground "black"))))
  2805. (x-symbol-adobe-fontspecific-face ((t (nil))))
  2806. (x-symbol-face ((t (nil))))
  2807. (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4"))))
  2808. (x-symbol-info-face ((t (:foreground "green4"))))
  2809. (x-symbol-invisible-face ((t (nil))))
  2810. (x-symbol-revealed-face ((t (:background "pink"))))
  2811. (yellow ((t (:foreground "yellow"))))
  2812. (zmacs-region ((t (:background "yellow")))))))
  2813. (defun color-theme-raspopovic ()
  2814. "Color theme by Pedja Raspopovic, created 2000-10-19.
  2815. Includes faces for dired, font-lock, info, paren."
  2816. (interactive)
  2817. (color-theme-install
  2818. '(color-theme-raspopovic
  2819. ((background-color . "darkblue")
  2820. (background-mode . light)
  2821. (background-toolbar-color . "#bfbfbfbfbfbf")
  2822. (border-color . "#000000000000")
  2823. (bottom-toolbar-shadow-color . "#737373737373")
  2824. (cursor-color . "Red3")
  2825. (foreground-color . "yellow")
  2826. (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
  2827. ((setnu-line-number-face . bold)
  2828. (goto-address-mail-face . info-xref))
  2829. (default ((t (nil))))
  2830. (blue ((t (:background "darkblue" :foreground "blue"))))
  2831. (bold ((t (:bold t :background "darkblue" :foreground "yellow"))))
  2832. (bold-italic ((t (:bold t :background "darkblue" :foreground "red3"))))
  2833. (comint-input-face ((t (:foreground "deepskyblue"))))
  2834. (dired-face-boring ((t (:foreground "Gray65"))))
  2835. (dired-face-directory ((t (:foreground "lightgreen"))))
  2836. (dired-face-executable ((t (:foreground "indianred"))))
  2837. (dired-face-flagged ((t (:background "LightSlateGray"))))
  2838. (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
  2839. (dired-face-permissions ((t (:background "darkblue" :foreground "white"))))
  2840. (dired-face-setuid ((t (:foreground "Red"))))
  2841. (dired-face-socket ((t (:foreground "magenta"))))
  2842. (dired-face-symlink ((t (:foreground "grey95"))))
  2843. (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen"))))
  2844. (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen"))))
  2845. (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred"))))
  2846. (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue"))))
  2847. (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange"))))
  2848. (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue"))))
  2849. (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey"))))
  2850. (font-lock-type-face ((t (:background "darkblue" :foreground "orange"))))
  2851. (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white"))))
  2852. (green ((t (:background "darkblue" :foreground "green"))))
  2853. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  2854. (highlight ((t (:background "yellow" :foreground "darkblue"))))
  2855. (info-node ((t (:bold t :background "darkblue" :foreground "red3"))))
  2856. (info-xref ((t (:bold t :background "darkblue" :foreground "yellow"))))
  2857. (isearch ((t (:background "yellow" :foreground "darkblue"))))
  2858. (isearch-secondary ((t (:foreground "red3"))))
  2859. (italic ((t (:background "darkblue" :foreground "red3"))))
  2860. (left-margin ((t (:background "darkblue" :foreground "yellow"))))
  2861. (list-mode-item-selected ((t (:background "gray68" :foreground "yellow"))))
  2862. (makefile-space-face ((t (:background "hotpink"))))
  2863. (modeline ((t (:background "Gray75" :foreground "Black"))))
  2864. (modeline-buffer-id ((t (:background "Gray75" :foreground "blue"))))
  2865. (modeline-mousable ((t (:background "Gray75" :foreground "red"))))
  2866. (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
  2867. (paren-blink-off ((t (:foreground "darkblue"))))
  2868. (paren-match ((t (:background "yellow" :foreground "darkblue"))))
  2869. (paren-mismatch ((t (:background "DeepPink" :foreground "yellow"))))
  2870. (pointer ((t (:background "darkblue" :foreground "red3"))))
  2871. (primary-selection ((t (:background "yellow" :foreground "darkblue"))))
  2872. (red ((t (:background "darkblue" :foreground "red"))))
  2873. (right-margin ((t (:background "darkblue" :foreground "yellow"))))
  2874. (secondary-selection ((t (:background "darkblue" :foreground "yellow"))))
  2875. (shell-option-face ((t (:background "darkblue" :foreground "cyan2"))))
  2876. (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen"))))
  2877. (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey"))))
  2878. (shell-output-face ((t (:background "darkblue" :foreground "white"))))
  2879. (shell-prompt-face ((t (:background "darkblue" :foreground "red"))))
  2880. (text-cursor ((t (:background "Red3" :foreground "white"))))
  2881. (underline ((t (:underline t :background "darkblue" :foreground "yellow"))))
  2882. (vvb-face ((t (:background "pink" :foreground "black"))))
  2883. (yellow ((t (:background "darkblue" :foreground "yellow"))))
  2884. (zmacs-region ((t (:background "gray" :foreground "black")))))))
  2885. (defun color-theme-taylor ()
  2886. "Color theme by Art Taylor, created 2000-10-20.
  2887. Wheat on black. Includes faces for font-lock, gnus, paren."
  2888. (interactive)
  2889. (color-theme-install
  2890. '(color-theme-taylor
  2891. ((background-color . "black")
  2892. (background-mode . dark)
  2893. (border-color . "black")
  2894. (cursor-color . "red")
  2895. (foreground-color . "wheat")
  2896. (mouse-color . "black"))
  2897. ((gnus-mouse-face . highlight)
  2898. (list-matching-lines-face . bold)
  2899. (view-highlight-face . highlight))
  2900. (default ((t (nil))))
  2901. (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
  2902. (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
  2903. (fl-comment-face ((t (:foreground "medium purple"))))
  2904. (fl-function-name-face ((t (:foreground "green"))))
  2905. (fl-keyword-face ((t (:foreground "LightGreen"))))
  2906. (fl-string-face ((t (:foreground "light coral"))))
  2907. (fl-type-face ((t (:foreground "cyan"))))
  2908. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  2909. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  2910. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  2911. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  2912. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  2913. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  2914. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  2915. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  2916. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  2917. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  2918. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  2919. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  2920. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  2921. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  2922. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  2923. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  2924. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  2925. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  2926. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  2927. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  2928. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  2929. (gnus-group-news-3-empty-face ((t (nil))))
  2930. (gnus-group-news-3-face ((t (:bold t))))
  2931. (gnus-group-news-4-empty-face ((t (nil))))
  2932. (gnus-group-news-4-face ((t (:bold t))))
  2933. (gnus-group-news-5-empty-face ((t (nil))))
  2934. (gnus-group-news-5-face ((t (:bold t))))
  2935. (gnus-group-news-6-empty-face ((t (nil))))
  2936. (gnus-group-news-6-face ((t (:bold t))))
  2937. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  2938. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  2939. (gnus-splash-face ((t (:foreground "Brown"))))
  2940. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2941. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  2942. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  2943. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  2944. (gnus-summary-high-unread-face ((t (:bold t))))
  2945. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  2946. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  2947. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  2948. (gnus-summary-low-unread-face ((t (:italic t))))
  2949. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  2950. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  2951. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  2952. (gnus-summary-normal-unread-face ((t (nil))))
  2953. (gnus-summary-selected-face ((t (:underline t))))
  2954. (highlight ((t (:background "black" :foreground "black"))))
  2955. (italic ((t (:italic t :foreground "yellow3"))))
  2956. (message-cited-text-face ((t (:foreground "red"))))
  2957. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  2958. (message-header-name-face ((t (:foreground "DarkGreen"))))
  2959. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  2960. (message-header-other-face ((t (:foreground "#b00000"))))
  2961. (message-header-subject-face ((t (:foreground "green3"))))
  2962. (message-header-to-face ((t (:bold t :foreground "green2"))))
  2963. (message-header-xheader-face ((t (:foreground "blue"))))
  2964. (message-mml-face ((t (:foreground "ForestGreen"))))
  2965. (message-separator-face ((t (:foreground "blue3"))))
  2966. (modeline ((t (:background "wheat" :foreground "black"))))
  2967. (modeline-buffer-id ((t (:background "wheat" :foreground "black"))))
  2968. (modeline-mousable ((t (:background "wheat" :foreground "black"))))
  2969. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black"))))
  2970. (region ((t (:background "blue"))))
  2971. (secondary-selection ((t (:background "darkslateblue" :foreground "black"))))
  2972. (show-paren-match-face ((t (:background "turquoise"))))
  2973. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  2974. (underline ((t (:underline t))))
  2975. (xref-keyword-face ((t (:foreground "blue"))))
  2976. (xref-list-default-face ((t (nil))))
  2977. (xref-list-pilot-face ((t (:foreground "navy"))))
  2978. (xref-list-symbol-face ((t (:foreground "navy")))))))
  2979. (defun color-theme-marquardt ()
  2980. "Color theme by Colin Marquardt, created 2000-10-25.
  2981. Black on bisque, a light color. Based on some settings from Robin S. Socha.
  2982. Features some color changes to programming languages, especially vhdl-mode.
  2983. You might also want to put something like
  2984. Emacs*Foreground: Black
  2985. Emacs*Background: bisque2
  2986. in your ~/.Xdefaults."
  2987. (interactive)
  2988. (color-theme-install
  2989. '(color-theme-marquardt
  2990. ((background-color . "bisque")
  2991. (background-mode . light)
  2992. (background-toolbar-color . "bisque")
  2993. (border-color . "#000000000000")
  2994. (bottom-toolbar-shadow-color . "#909099999999")
  2995. (cursor-color . "Red3")
  2996. (foreground-color . "black")
  2997. (top-toolbar-shadow-color . "#ffffffffffff"))
  2998. (default ((t (nil))))
  2999. (blue ((t (:foreground "blue"))))
  3000. (bold ((t (:bold t))))
  3001. (bold-italic ((t (:bold t))))
  3002. (border-glyph ((t (nil))))
  3003. (calendar-today-face ((t (:underline t))))
  3004. (diary-face ((t (:foreground "red"))))
  3005. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  3006. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  3007. (display-time-time-balloon-face ((t (:foreground "red"))))
  3008. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  3009. (font-lock-comment-face ((t (:foreground "gray50"))))
  3010. (font-lock-doc-string-face ((t (:foreground "green4"))))
  3011. (font-lock-function-name-face ((t (:foreground "darkorange"))))
  3012. (font-lock-keyword-face ((t (:foreground "blue3"))))
  3013. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  3014. (font-lock-reference-face ((t (:foreground "red3"))))
  3015. (font-lock-special-comment-face ((t (:foreground "blue4"))))
  3016. (font-lock-special-keyword-face ((t (:foreground "red4"))))
  3017. (font-lock-string-face ((t (:foreground "green4"))))
  3018. (font-lock-type-face ((t (:foreground "steelblue"))))
  3019. (font-lock-variable-name-face ((t (:foreground "black"))))
  3020. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3021. (green ((t (:foreground "green"))))
  3022. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  3023. (gui-element ((t (:background "azure1" :foreground "Black"))))
  3024. (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
  3025. (holiday-face ((t (:background "pink" :foreground "black"))))
  3026. (info-node ((t (:bold t))))
  3027. (info-xref ((t (:bold t))))
  3028. (isearch ((t (:background "yellow" :foreground "red"))))
  3029. (italic ((t (:bold t))))
  3030. (left-margin ((t (nil))))
  3031. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  3032. (message-cited-text-face ((t (:foreground "red"))))
  3033. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3034. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3035. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  3036. (message-header-other-face ((t (:foreground "steel blue"))))
  3037. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3038. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3039. (message-header-xheader-face ((t (:foreground "blue"))))
  3040. (message-mml-face ((t (:foreground "ForestGreen"))))
  3041. (message-separator-face ((t (:foreground "brown"))))
  3042. (modeline ((t (:background "bisque2" :foreground "steelblue4"))))
  3043. (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4"))))
  3044. (modeline-mousable ((t (:background "bisque2" :foreground "firebrick"))))
  3045. (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4"))))
  3046. (paren-blink-off ((t (:foreground "azure1"))))
  3047. (paren-face ((t (:background "lightgoldenrod"))))
  3048. (paren-match ((t (:background "bisque2"))))
  3049. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  3050. (paren-mismatch-face ((t (:background "DeepPink"))))
  3051. (paren-no-match-face ((t (:background "yellow"))))
  3052. (pointer ((t (:background "white" :foreground "blue"))))
  3053. (primary-selection ((t (:background "gray65"))))
  3054. (red ((t (:foreground "red"))))
  3055. (right-margin ((t (nil))))
  3056. (secondary-selection ((t (:background "paleturquoise"))))
  3057. (shell-option-face ((t (:foreground "gray50"))))
  3058. (shell-output-2-face ((t (:foreground "green4"))))
  3059. (shell-output-3-face ((t (:foreground "green4"))))
  3060. (shell-output-face ((t (:bold t))))
  3061. (shell-prompt-face ((t (:foreground "blue3"))))
  3062. (speedbar-button-face ((t (:foreground "green4"))))
  3063. (speedbar-directory-face ((t (:foreground "blue4"))))
  3064. (speedbar-file-face ((t (:foreground "cyan4"))))
  3065. (speedbar-highlight-face ((t (:background "green"))))
  3066. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  3067. (speedbar-tag-face ((t (:foreground "brown"))))
  3068. (text-cursor ((t (:background "Red3" :foreground "bisque"))))
  3069. (toolbar ((t (:background "Gray80"))))
  3070. (underline ((t (:underline t))))
  3071. (vertical-divider ((t (nil))))
  3072. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  3073. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  3074. (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown"))))
  3075. (vhdl-font-lock-function-face ((t (:foreground "DarkCyan"))))
  3076. (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3"))))
  3077. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  3078. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  3079. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  3080. (vhdl-font-lock-type-face ((t (:foreground "ForestGreen"))))
  3081. (vhdl-font-lock-variable-face ((t (:foreground "Grey50"))))
  3082. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  3083. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  3084. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  3085. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  3086. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  3087. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  3088. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  3089. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  3090. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  3091. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  3092. (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4"))))
  3093. (widget-button-face ((t (:bold t))))
  3094. (widget-button-pressed-face ((t (:foreground "red"))))
  3095. (widget-documentation-face ((t (:foreground "dark green"))))
  3096. (widget-field-face ((t (:background "gray85"))))
  3097. (widget-inactive-face ((t (:foreground "dim gray"))))
  3098. (yellow ((t (:foreground "yellow"))))
  3099. (zmacs-region ((t (:background "steelblue" :foreground "yellow")))))))
  3100. (defun color-theme-parus ()
  3101. "Color theme by Jon K Hellan, created 2000-11-01.
  3102. White on dark blue color theme.
  3103. There is some redundancy in the X resources, but I do not have time to
  3104. find out which should go or which should stay:
  3105. Emacs*dialog*Background: midnightblue
  3106. Emacs*dialog*Foreground: white
  3107. Emacs*popup*Background: midnightblue
  3108. Emacs*popup*Foreground: white
  3109. emacs*background: #00005a
  3110. emacs*cursorColor: gray90
  3111. emacs*foreground: White
  3112. emacs.dialog*.background: midnightblue
  3113. emacs.menu*.background: midnightblue
  3114. emacs.pane.menubar.background: midnightblue"
  3115. (interactive)
  3116. (color-theme-install
  3117. '(color-theme-parus
  3118. ((background-color . "#00005a")
  3119. (background-mode . dark)
  3120. (border-color . "black")
  3121. (cursor-color . "yellow")
  3122. (foreground-color . "White")
  3123. (mouse-color . "yellow"))
  3124. ((gnus-mouse-face . highlight)
  3125. (list-matching-lines-face . bold)
  3126. (paren-face . bold)
  3127. (paren-mismatch-face . paren-mismatch-face)
  3128. (paren-no-match-face . paren-no-match-face)
  3129. (view-highlight-face . highlight))
  3130. (default ((t (nil))))
  3131. (bold ((t (:bold t))))
  3132. (bold-italic ((t (:italic t :bold t))))
  3133. (font-latex-bold-face ((t (:bold t :foreground "OliveDrab"))))
  3134. (font-latex-italic-face ((t (:italic t :foreground "OliveDrab"))))
  3135. (font-latex-math-face ((t (:foreground "burlywood"))))
  3136. (font-latex-sedate-face ((t (:foreground "LightGray"))))
  3137. (font-latex-string-face ((t (:foreground "LightSalmon"))))
  3138. (font-latex-warning-face ((t (:foreground "Pink"))))
  3139. (font-lock-builtin-face ((t (:foreground "#e0e0ff"))))
  3140. (font-lock-reference-face ((t (:foreground "#e0e0ff"))))
  3141. (font-lock-comment-face ((t (:foreground "#FFd1d1"))))
  3142. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  3143. (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
  3144. (font-lock-function-name-face ((t (:foreground "#b2e4ff"))))
  3145. (font-lock-keyword-face ((t (:foreground "#a0ffff"))))
  3146. (font-lock-string-face ((t (:foreground "#efca10"))))
  3147. (font-lock-doc-string-face ((t (:foreground "#efca10"))))
  3148. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  3149. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  3150. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3151. (gnus-cite-attribution-face ((t (:italic t))))
  3152. (gnus-cite-face-1 ((t (:foreground "#dfdfff"))))
  3153. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  3154. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  3155. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  3156. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  3157. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  3158. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  3159. (gnus-cite-face-6 ((t (:foreground "beige"))))
  3160. (gnus-cite-face-7 ((t (:foreground "orange"))))
  3161. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  3162. (gnus-cite-face-9 ((t (:foreground "violet"))))
  3163. (gnus-emphasis-bold ((t (:bold t))))
  3164. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  3165. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3166. (gnus-emphasis-italic ((t (:italic t))))
  3167. (gnus-emphasis-underline ((t (:underline t))))
  3168. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3169. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  3170. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3171. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  3172. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  3173. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  3174. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  3175. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  3176. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  3177. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  3178. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  3179. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  3180. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  3181. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  3182. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  3183. (gnus-group-news-3-empty-face ((t (nil))))
  3184. (gnus-group-news-3-face ((t (:bold t))))
  3185. (gnus-group-news-4-empty-face ((t (nil))))
  3186. (gnus-group-news-4-face ((t (:bold t))))
  3187. (gnus-group-news-5-empty-face ((t (nil))))
  3188. (gnus-group-news-5-face ((t (:bold t))))
  3189. (gnus-group-news-6-empty-face ((t (nil))))
  3190. (gnus-group-news-6-face ((t (:bold t))))
  3191. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  3192. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  3193. (gnus-header-content-face ((t (:italic t :foreground "#90f490"))))
  3194. (gnus-header-from-face ((t (:foreground "#aaffaa"))))
  3195. (gnus-header-name-face ((t (:foreground "#c7e3c7"))))
  3196. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
  3197. (gnus-header-subject-face ((t (:foreground "#a0f0a0"))))
  3198. (gnus-signature-face ((t (:italic t))))
  3199. (gnus-splash-face ((t (:foreground "Brown"))))
  3200. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3201. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  3202. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  3203. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  3204. (gnus-summary-high-unread-face ((t (:bold t))))
  3205. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  3206. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  3207. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  3208. (gnus-summary-low-unread-face ((t (:italic t))))
  3209. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  3210. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  3211. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  3212. (gnus-summary-normal-unread-face ((t (nil))))
  3213. (gnus-summary-selected-face ((t (:underline t))))
  3214. (highlight ((t (:background "darkolivegreen"))))
  3215. (italic ((t (:italic t))))
  3216. (message-cited-text-face ((t (:foreground "#dfdfff"))))
  3217. (message-header-cc-face ((t (:bold t :foreground "#a0f0a0"))))
  3218. (message-header-name-face ((t (:foreground "#c7e3c7"))))
  3219. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  3220. (message-header-other-face ((t (:foreground "#db9b9b"))))
  3221. (message-header-subject-face ((t (:foreground "#a0f0a0"))))
  3222. (message-header-to-face ((t (:bold t :foreground "#aaffaa"))))
  3223. (message-header-xheader-face ((t (:foreground "#e2e2ff"))))
  3224. (message-mml-face ((t (:foreground "#abdbab"))))
  3225. (message-separator-face ((t (:foreground "#dfdfff"))))
  3226. (modeline ((t (:background "White" :foreground "#00005a"))))
  3227. (modeline-buffer-id ((t (:background "White" :foreground "#00005a"))))
  3228. (modeline-mousable ((t (:background "White" :foreground "#00005a"))))
  3229. (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a"))))
  3230. (paren-mismatch-face ((t (:background "DeepPink"))))
  3231. (paren-no-match-face ((t (:background "yellow"))))
  3232. (region ((t (:background "blue"))))
  3233. (primary-selection ((t (:background "blue"))))
  3234. (isearch ((t (:background "blue"))))
  3235. (secondary-selection ((t (:background "darkslateblue"))))
  3236. (underline ((t (:underline t))))
  3237. (widget-button-face ((t (:bold t))))
  3238. (widget-button-pressed-face ((t (:foreground "red"))))
  3239. (widget-documentation-face ((t (:foreground "lime green"))))
  3240. (widget-field-face ((t (:background "dim gray"))))
  3241. (widget-inactive-face ((t (:foreground "light gray"))))
  3242. (widget-single-line-field-face ((t (:background "dim gray")))))))
  3243. (defun color-theme-high-contrast ()
  3244. "High contrast color theme, maybe for the visually impaired.
  3245. Watch out! This will set a very large font-size!
  3246. If you want to modify the font as well, you should customize variable
  3247. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3248. The default setting will prevent color themes from installing specific
  3249. fonts."
  3250. (interactive)
  3251. (color-theme-standard)
  3252. (let ((color-theme-is-cumulative t))
  3253. (color-theme-install
  3254. '(color-theme-high-contrast
  3255. ((cursor-color . "red")
  3256. (width . 60)
  3257. (height . 25)
  3258. (background . dark))
  3259. (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 240 :width normal :family "adobe-courier"))))
  3260. (bold ((t (:bold t :underline t))))
  3261. (bold-italic ((t (:bold t :underline t))))
  3262. (font-lock-builtin-face ((t (:bold t :foreground "Red"))))
  3263. (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
  3264. (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue"))))
  3265. (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
  3266. (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
  3267. (font-lock-string-face ((t (:bold t :foreground "DarkGreen"))))
  3268. (font-lock-type-face ((t (:bold t :foreground "ForestGreen"))))
  3269. (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod"))))
  3270. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3271. (highlight ((t (:background "black" :foreground "white" :bold 1))))
  3272. (info-menu-5 ((t (:underline t :bold t))))
  3273. (info-node ((t (:bold t))))
  3274. (info-xref ((t (:bold t ))))
  3275. (italic ((t (:bold t :underline t))))
  3276. (modeline ((t (:background "black" :foreground "white" :bold 1))))
  3277. (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1))))
  3278. (modeline-mousable ((t (:background "black" :foreground "white" :bold 1))))
  3279. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1))))
  3280. (region ((t (:background "black" :foreground "white" :bold 1))))
  3281. (secondary-selection ((t (:background "black" :foreground "white" :bold 1))))
  3282. (underline ((t (:bold t :underline t))))))))
  3283. (defun color-theme-infodoc ()
  3284. "Color theme by Frederic Giroud, created 2001-01-18.
  3285. Black on wheat scheme. Based on infodoc (xemacs variant distribution),
  3286. with my favorit fontlock color."
  3287. (interactive)
  3288. (color-theme-install
  3289. '(color-theme-infodoc
  3290. ((background-color . "wheat")
  3291. (background-mode . light)
  3292. (background-toolbar-color . "#000000000000")
  3293. (border-color . "#000000000000")
  3294. (bottom-toolbar-shadow-color . "#000000000000")
  3295. (cursor-color . "red")
  3296. (foreground-color . "black")
  3297. (top-toolbar-shadow-color . "#ffffffffffff"))
  3298. nil
  3299. (default ((t (:bold t))))
  3300. (blue ((t (:bold t :foreground "blue"))))
  3301. (bold ((t (:background "wheat" :foreground "black"))))
  3302. (bold-italic ((t (:bold t :background "wheat" :foreground "black"))))
  3303. (border-glyph ((t (:bold t))))
  3304. (calendar-today-face ((t (:underline t :bold t))))
  3305. (custom-button-face ((t (nil))))
  3306. (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
  3307. (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4"))))
  3308. (custom-face-tag-face ((t (:underline t :bold t))))
  3309. (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
  3310. (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red"))))
  3311. (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
  3312. (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
  3313. (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
  3314. (custom-saved-face ((t (:underline t :bold t))))
  3315. (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
  3316. (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green"))))
  3317. (custom-variable-button-face ((t (:underline t))))
  3318. (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
  3319. (diary-face ((t (:bold t :foreground "red"))))
  3320. (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black"))))
  3321. (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue"))))
  3322. (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green"))))
  3323. (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
  3324. (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4"))))
  3325. (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4"))))
  3326. (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
  3327. (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4"))))
  3328. (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3"))))
  3329. (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3330. (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown"))))
  3331. (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate"))))
  3332. (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black"))))
  3333. (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black"))))
  3334. (green ((t (:bold t :foreground "green"))))
  3335. (gui-button-face ((t (:bold t :background "wheat" :foreground "red"))))
  3336. (gui-element ((t (:bold t :background "wheat" :foreground "black"))))
  3337. (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green"))))
  3338. (holiday-face ((t (:bold t :background "pink" :foreground "black"))))
  3339. (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red"))))
  3340. (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80"))))
  3341. (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red"))))
  3342. (hproperty:item-face ((t (:bold t))))
  3343. (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
  3344. (italic ((t (:bold t :background "wheat" :foreground "black"))))
  3345. (left-margin ((t (:bold t :background "wheat" :foreground "black"))))
  3346. (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black"))))
  3347. (message-cited-text ((t (:bold t :background "wheat" :foreground "brown"))))
  3348. (message-header-contents ((t (:bold t :background "wheat" :foreground "black"))))
  3349. (message-headers ((t (:bold t :background "wheat" :foreground "black"))))
  3350. (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue"))))
  3351. (message-url ((t (nil))))
  3352. (modeline ((t (:bold t :background "light salmon" :foreground "dark green"))))
  3353. (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4"))))
  3354. (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick"))))
  3355. (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4"))))
  3356. (pointer ((t (:bold t :background "wheat" :foreground "red"))))
  3357. (primary-selection ((t (:bold t :background "medium sea green"))))
  3358. (red ((t (:bold t :foreground "red"))))
  3359. (right-margin ((t (:bold t :background "wheat" :foreground "black"))))
  3360. (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black"))))
  3361. (shell-input-face ((t (:bold t :background "wheat" :foreground "blue"))))
  3362. (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
  3363. (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3364. (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3365. (shell-output-face ((t (:bold t :background "wheat" :foreground "black"))))
  3366. (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
  3367. (text-cursor ((t (:bold t :background "red" :foreground "wheat"))))
  3368. (toolbar ((t (:bold t :background "wheat" :foreground "black"))))
  3369. (underline ((t (:underline t :bold t :background "wheat" :foreground "black"))))
  3370. (vertical-divider ((t (:bold t))))
  3371. (widget-button-face ((t (nil))))
  3372. (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red"))))
  3373. (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green"))))
  3374. (widget-field-face ((t (:bold t :background "gray85"))))
  3375. (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray"))))
  3376. (x-face ((t (:bold t :background "wheat" :foreground "black"))))
  3377. (yellow ((t (:bold t :foreground "yellow"))))
  3378. (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen")))))))
  3379. (defun color-theme-classic ()
  3380. "Color theme by Frederic Giroud, created 2001-01-18.
  3381. AntiqueWhite on darkslategrey scheme. Based on Gnome 2, with my favorit
  3382. color foreground-color and fontlock color."
  3383. (interactive)
  3384. (color-theme-blue-gnus)
  3385. (let ((color-theme-is-cumulative t))
  3386. (color-theme-install
  3387. '(color-theme-classic
  3388. ((foreground-color . "AntiqueWhite")
  3389. (background-color . "darkslategrey")
  3390. (mouse-color . "Grey")
  3391. (cursor-color . "Red")
  3392. (border-color . "black")
  3393. (background-mode . dark))
  3394. ((apropos-keybinding-face . underline)
  3395. (apropos-label-face . italic)
  3396. (apropos-match-face . secondary-selection)
  3397. (apropos-property-face . bold-italic)
  3398. (apropos-symbol-face . info-xref)
  3399. (goto-address-mail-face . message-header-to-face)
  3400. (goto-address-mail-mouse-face . secondary-selection)
  3401. (goto-address-url-face . info-xref)
  3402. (goto-address-url-mouse-face . highlight)
  3403. (list-matching-lines-face . bold)
  3404. (view-highlight-face . highlight))
  3405. (default ((t (nil))))
  3406. (bold ((t (:bold t))))
  3407. (bold-italic ((t (:italic t :bold t :foreground "beige"))))
  3408. (calendar-today-face ((t (:underline t))))
  3409. (cperl-array-face ((t (:foreground "Yellow"))))
  3410. (cperl-hash-face ((t (:foreground "White"))))
  3411. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  3412. (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
  3413. (custom-documentation-face ((t (:foreground "Grey"))))
  3414. (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
  3415. (custom-state-face ((t (:foreground "LightSalmon"))))
  3416. (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
  3417. (diary-face ((t (:foreground "IndianRed"))))
  3418. (erc-action-face ((t (:bold t))))
  3419. (erc-bold-face ((t (:bold t))))
  3420. (erc-default-face ((t (nil))))
  3421. (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
  3422. (erc-error-face ((t (:bold t :foreground "IndianRed"))))
  3423. (erc-input-face ((t (:foreground "Beige"))))
  3424. (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
  3425. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  3426. (erc-pal-face ((t (:foreground "pale green"))))
  3427. (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
  3428. (erc-underline-face ((t (:underline t))))
  3429. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  3430. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  3431. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  3432. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
  3433. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  3434. (eshell-ls-missing-face ((t (:foreground "black"))))
  3435. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  3436. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  3437. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  3438. (eshell-ls-special-face ((t (:foreground "Gold"))))
  3439. (eshell-ls-symlink-face ((t (:foreground "White"))))
  3440. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  3441. (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
  3442. (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
  3443. (font-lock-comment-face ((t (:foreground "tomato3"))))
  3444. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  3445. (font-lock-doc-string-face ((t (:foreground "LightSalmon3"))))
  3446. (font-lock-function-name-face ((t (:foreground "SteelBlue1"))))
  3447. (font-lock-keyword-face ((t (:foreground "cyan1"))))
  3448. (font-lock-reference-face ((t (:foreground "LightSalmon2"))))
  3449. (font-lock-string-face ((t (:foreground "LightSalmon3"))))
  3450. (font-lock-type-face ((t (:foreground "PaleGreen3"))))
  3451. (font-lock-variable-name-face ((t (:foreground "khaki1"))))
  3452. (font-lock-warning-face ((t (:bold t :foreground "IndianRed"))))
  3453. (font-lock-preprocessor-face ((t (:foreground "SkyBlue3"))))
  3454. (widget-field-face ((t (:background "DarkCyan"))))
  3455. (custom-group-tag-face ((t(:foreground "brown" :underline t))))
  3456. (custom-state-face ((t (:foreground "khaki"))))
  3457. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  3458. (highline-face ((t (:background "SeaGreen"))))
  3459. (holiday-face ((t (:background "DimGray"))))
  3460. (info-menu-5 ((t (:underline t))))
  3461. (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
  3462. (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
  3463. (isearch ((t (:foreground "red" :background "CornflowerBlue"))))
  3464. (italic ((t (:italic t))))
  3465. (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite"))))
  3466. (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue"))))
  3467. (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
  3468. (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat"))))
  3469. (region ((t (:background "dark cyan" :foreground "cyan"))))
  3470. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  3471. (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  3472. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  3473. (underline ((t (:underline t))))
  3474. (widget-field-face ((t (:foreground "LightBlue"))))
  3475. (widget-inactive-face ((t (:foreground "DimGray"))))
  3476. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  3477. (woman-bold-face ((t (:bold t))))
  3478. (woman-italic-face ((t (:foreground "beige"))))
  3479. (woman-unknown-face ((t (:foreground "LightSalmon"))))))))
  3480. (defun color-theme-scintilla ()
  3481. "Color theme by Gordon Messmer, created 2001-02-07.
  3482. Based on the Scintilla editor.
  3483. If you want to modify the font as well, you should customize variable
  3484. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3485. The default setting will prevent color themes from installing specific
  3486. fonts."
  3487. (interactive)
  3488. (color-theme-install
  3489. ;; The light editor style doesn't seem to look right with
  3490. ;; the same font that works in the dark editor style.
  3491. ;; Dark letters on light background just isn't as visible.
  3492. '(color-theme-scintilla
  3493. ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1")
  3494. (width . 95)
  3495. (height . 40)
  3496. (background-color . "white")
  3497. (foreground-color . "black")
  3498. (background-mode . light)
  3499. (mouse-color . "grey15")
  3500. (cursor-color . "grey15"))
  3501. (default ((t nil)))
  3502. (font-lock-comment-face ((t (:italic t :foreground "ForestGreen"))))
  3503. (font-lock-string-face ((t (:foreground "DarkMagenta"))))
  3504. (font-lock-keyword-face ((t (:foreground "NavyBlue"))))
  3505. (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
  3506. (font-lock-constant-face ((t (:foreground "Blue"))))
  3507. (font-lock-type-face ((t (:foreground "NavyBlue"))))
  3508. (font-lock-variable-name-face ((t (:foreground "DarkCyan"))))
  3509. (font-lock-function-name-face ((t (:foreground "DarkCyan"))))
  3510. (font-lock-builtin-face ((t (:foreground "NavyBlue"))))
  3511. (highline-face ((t (:background "Grey95"))))
  3512. (show-paren-match-face ((t (:background "Grey80"))))
  3513. (region ((t (:background "Grey80"))))
  3514. (highlight ((t (:foreground "ForestGreen"))))
  3515. (secondary-selection ((t (:background "NavyBlue" :foreground "white"))))
  3516. (widget-field-face ((t (:background "NavyBlue"))))
  3517. (widget-single-line-field-face ((t (:background "RoyalBlue")))))) )
  3518. (defun color-theme-gtk-ide ()
  3519. "Color theme by Gordon Messmer, created 2001-02-07.
  3520. Inspired by a GTK IDE whose name I've forgotten.
  3521. If you want to modify the font as well, you should customize variable
  3522. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3523. The default setting will prevent color themes from installing specific
  3524. fonts."
  3525. ;; The light editor style doesn't seem to look right with
  3526. ;; the same font that works in the dark editor style.
  3527. ;; Dark letters on light background just isn't as visible.
  3528. (interactive)
  3529. (color-theme-install
  3530. '(color-theme-gtk-ide
  3531. ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15")
  3532. (width . 95)
  3533. (height . 45)
  3534. (background-color . "white")
  3535. (foreground-color . "black")
  3536. (background-mode . light)
  3537. (mouse-color . "grey15")
  3538. (cursor-color . "grey15"))
  3539. (default ((t nil)))
  3540. (font-lock-comment-face ((t (:italic t :foreground "grey55"))))
  3541. (font-lock-string-face ((t (:foreground "DarkRed"))))
  3542. (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
  3543. (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
  3544. (font-lock-constant-face ((t (:foreground "OliveDrab"))))
  3545. (font-lock-type-face ((t (:foreground "SteelBlue4"))))
  3546. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3547. (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
  3548. (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
  3549. (highline-face ((t (:background "grey95"))))
  3550. (show-paren-match-face ((t (:background "grey80"))))
  3551. (region ((t (:background "grey80"))))
  3552. (highlight ((t (:background "LightSkyBlue"))))
  3553. (secondary-selection ((t (:background "grey55"))))
  3554. (widget-field-face ((t (:background "navy"))))
  3555. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3556. (defun color-theme-midnight ()
  3557. "Color theme by Gordon Messmer, created 2001-02-07.
  3558. A color theme inspired by a certain IDE for Windows. It's all from memory,
  3559. since I only used that software in college.
  3560. If you want to modify the font as well, you should customize variable
  3561. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3562. The default setting will prevent color themes from installing specific
  3563. fonts."
  3564. (interactive)
  3565. (color-theme-install
  3566. '(color-theme-midnight
  3567. ((font . "fixed")
  3568. (width . 130)
  3569. (height . 50)
  3570. (background-color . "black")
  3571. (foreground-color . "grey85")
  3572. (background-mode . dark)
  3573. (mouse-color . "grey85")
  3574. (cursor-color . "grey85"))
  3575. (default ((t (nil))))
  3576. (font-lock-comment-face ((t (:italic t :foreground "grey60"))))
  3577. (font-lock-string-face ((t (:foreground "Magenta"))))
  3578. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  3579. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3580. (font-lock-constant-face ((t (:foreground "OliveDrab"))))
  3581. (font-lock-type-face ((t (:foreground "DarkCyan"))))
  3582. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3583. (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
  3584. (font-lock-builtin-face ((t (:foreground "SkyBlue"))))
  3585. (highline-face ((t (:background "grey12"))))
  3586. (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t))))
  3587. (show-paren-match-face ((t (:background "grey30"))))
  3588. (region ((t (:background "grey15"))))
  3589. (highlight ((t (:background "blue"))))
  3590. (secondary-selection ((t (:background "navy"))))
  3591. (widget-field-face ((t (:background "navy"))))
  3592. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3593. (defun color-theme-jedit-grey ()
  3594. "Color theme by Gordon Messmer, created 2001-02-07.
  3595. Based on a screenshot of jedit.
  3596. If you want to modify the font as well, you should customize variable
  3597. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3598. The default setting will prevent color themes from installing specific
  3599. fonts."
  3600. (interactive)
  3601. (color-theme-install
  3602. '(color-theme-jedit-grey
  3603. ((font . "fixed")
  3604. (width . 130)
  3605. (height . 50)
  3606. (background-color . "grey77")
  3607. (foreground-color . "black")
  3608. (background-mode . light)
  3609. (mouse-color . "black")
  3610. (cursor-color . "black"))
  3611. (default ((t (nil))))
  3612. (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4"))))
  3613. (font-lock-string-face ((t (:foreground "Gold4"))))
  3614. (font-lock-keyword-face ((t (:bold t :foreground "DarkRed"))))
  3615. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3616. (font-lock-constant-face ((t (:foreground "DarkCyan"))))
  3617. (font-lock-type-face ((t (:foreground "DarkRed"))))
  3618. (font-lock-function-name-face ((t (:foreground "Green4"))))
  3619. (font-lock-builtin-face ((t (:bold t :foreground "DarkRed"))))
  3620. (highline-face ((t (:background "grey84"))))
  3621. (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t))))
  3622. (show-paren-match-face ((t (:background "grey60"))))
  3623. (region ((t (:background "grey70"))))
  3624. (highlight ((t (:background "grey90"))))
  3625. (secondary-selection ((t (:background "white"))))
  3626. (widget-field-face ((t (:background "royalblue"))))
  3627. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3628. (defun color-theme-snow ()
  3629. "Color theme by Nicolas Rist, created 2001-03-08.
  3630. Black on gainsboro. In Emacs, the text background is a shade darker
  3631. than the frame background: Gainsboro instead of snow. This makes the
  3632. structure of the text clearer without being too agressive on the eyes.
  3633. On XEmacs, this doesn't really work as the frame and the default face
  3634. allways use the same foreground and background colors.
  3635. The color theme includes gnus, message, font-lock, sgml, and speedbar."
  3636. (interactive)
  3637. (color-theme-install
  3638. '(color-theme-snow
  3639. ((background-color . "snow2")
  3640. (background-mode . light)
  3641. (border-color . "black")
  3642. (cursor-color . "RoyalBlue2")
  3643. (foreground-color . "black")
  3644. (mouse-color . "black"))
  3645. ((gnus-mouse-face . highlight)
  3646. (list-matching-lines-face . bold)
  3647. (view-highlight-face . highlight))
  3648. (default ((t (:background "gainsboro" :foreground "dark slate gray"))))
  3649. (bold ((t (:bold t))))
  3650. (bold-italic ((t (:italic t :bold t))))
  3651. (calendar-today-face ((t (:underline t))))
  3652. (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan"))))
  3653. (custom-documentation-face ((t (:background "gainsboro"))))
  3654. (diary-face ((t (:foreground "red"))))
  3655. (fg:black ((t (:foreground "black"))))
  3656. (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid"))))
  3657. (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3"))))
  3658. (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3"))))
  3659. (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3"))))
  3660. (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3"))))
  3661. (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3"))))
  3662. (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan"))))
  3663. (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2"))))
  3664. (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red"))))
  3665. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3666. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3667. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3668. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3669. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3670. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3671. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3672. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3673. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3674. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3675. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3676. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3677. (gnus-group-news-3-empty-face ((t (nil))))
  3678. (gnus-group-news-3-face ((t (:bold t))))
  3679. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3680. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3681. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  3682. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3683. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3684. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3685. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3686. (gnus-summary-high-unread-face ((t (:bold t))))
  3687. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3688. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3689. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3690. (gnus-summary-low-unread-face ((t (:italic t))))
  3691. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3692. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3693. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3694. (gnus-summary-normal-unread-face ((t (nil))))
  3695. (gnus-summary-selected-face ((t (:underline t))))
  3696. (gui-button-face ((t (:foreground "light grey"))))
  3697. (highlight ((t (:background "LightSteelBlue1"))))
  3698. (holiday-face ((t (:background "pink"))))
  3699. (ibuffer-marked-face ((t (:foreground "red"))))
  3700. (italic ((t (:italic t))))
  3701. (message-cited-text-face ((t (:foreground "red"))))
  3702. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3703. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3704. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  3705. (message-header-other-face ((t (:foreground "steel blue"))))
  3706. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3707. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3708. (message-header-xheader-face ((t (:foreground "blue"))))
  3709. (message-separator-face ((t (:foreground "brown"))))
  3710. (modeline ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3711. (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3712. (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3713. (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3714. (region ((t (:background "lavender"))))
  3715. (secondary-selection ((t (:background "paleturquoise"))))
  3716. (sgml-comment-face ((t (:foreground "dark green"))))
  3717. (sgml-doctype-face ((t (:foreground "maroon"))))
  3718. (sgml-end-tag-face ((t (:foreground "blue2"))))
  3719. (sgml-entity-face ((t (:foreground "red2"))))
  3720. (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
  3721. (sgml-ms-end-face ((t (:foreground "maroon"))))
  3722. (sgml-ms-start-face ((t (:foreground "maroon"))))
  3723. (sgml-pi-face ((t (:foreground "maroon"))))
  3724. (sgml-sgml-face ((t (:foreground "maroon"))))
  3725. (sgml-short-ref-face ((t (:foreground "goldenrod"))))
  3726. (sgml-start-tag-face ((t (:foreground "blue2"))))
  3727. (show-paren-match-face ((t (:background "SlateGray1"))))
  3728. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  3729. (speedbar-button-face ((t (:foreground "green4"))))
  3730. (speedbar-directory-face ((t (:foreground "blue4"))))
  3731. (speedbar-file-face ((t (:foreground "cyan4"))))
  3732. (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white"))))
  3733. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  3734. (speedbar-tag-face ((t (:foreground "brown"))))
  3735. (underline ((t (:underline t)))))))
  3736. (defun color-theme-montz ()
  3737. "Color theme by Brady Montz, created 2001-03-08.
  3738. Black on Gray.
  3739. Includes dired, bbdb, font-lock, gnus, message, viper, and widget."
  3740. (interactive)
  3741. (color-theme-install
  3742. '(color-theme-montz
  3743. ((background-color . "gray80")
  3744. (background-mode . light)
  3745. (background-toolbar-color . "#cccccccccccc")
  3746. (border-color . "#000000000000")
  3747. (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
  3748. (cursor-color . "Red3")
  3749. (foreground-color . "black")
  3750. (top-toolbar-shadow-color . "#f5f5f5f5f5f5")
  3751. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  3752. ((gnus-mouse-face . highlight)
  3753. (paren-match-face . paren-face-match)
  3754. (paren-mismatch-face . paren-face-mismatch)
  3755. (paren-no-match-face . paren-face-no-match)
  3756. (smiley-mouse-face . highlight))
  3757. (default ((t (nil))))
  3758. (bbdb-company ((t (:italic t))))
  3759. (bbdb-field-name ((t (:bold t))))
  3760. (bbdb-field-value ((t (nil))))
  3761. (bbdb-name ((t (:underline t))))
  3762. (blue ((t (:foreground "blue"))))
  3763. (bold ((t (:bold t))))
  3764. (bold-italic ((t (:italic t :bold t))))
  3765. (border-glyph ((t (nil))))
  3766. (dired-face-boring ((t (:foreground "Gray65"))))
  3767. (dired-face-directory ((t (:bold t))))
  3768. (dired-face-executable ((t (:foreground "SeaGreen"))))
  3769. (dired-face-flagged ((t (:background "LightSlateGray"))))
  3770. (dired-face-marked ((t (:background "PaleVioletRed"))))
  3771. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  3772. (dired-face-setuid ((t (:foreground "Red"))))
  3773. (dired-face-socket ((t (:foreground "magenta"))))
  3774. (dired-face-symlink ((t (:foreground "cyan"))))
  3775. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  3776. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  3777. (display-time-time-balloon-face ((t (:foreground "red"))))
  3778. (font-lock-builtin-face ((t (:foreground "red3"))))
  3779. (font-lock-comment-face ((t (:foreground "blue"))))
  3780. (font-lock-constant-face ((t (:foreground "red3"))))
  3781. (font-lock-doc-string-face ((t (:foreground "mediumvioletred"))))
  3782. (font-lock-function-name-face ((t (:foreground "firebrick"))))
  3783. (font-lock-keyword-face ((t (:bold t :foreground "black"))))
  3784. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  3785. (font-lock-reference-face ((t (:foreground "red3"))))
  3786. (font-lock-string-face ((t (:foreground "mediumvioletred"))))
  3787. (font-lock-type-face ((t (:foreground "darkgreen"))))
  3788. (font-lock-variable-name-face ((t (:foreground "black"))))
  3789. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3790. (gnus-cite-attribution-face ((t (:italic t))))
  3791. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  3792. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  3793. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  3794. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  3795. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  3796. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  3797. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  3798. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  3799. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  3800. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  3801. (gnus-cite-face-9 ((t (:foreground "violet"))))
  3802. (gnus-emphasis-bold ((t (:bold t))))
  3803. (gnus-emphasis-bold-italic ((t (:bold t))))
  3804. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3805. (gnus-emphasis-italic ((t (:italic t))))
  3806. (gnus-emphasis-underline ((t (:underline t))))
  3807. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3808. (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
  3809. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3810. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3811. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3812. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3813. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3814. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3815. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3816. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3817. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3818. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3819. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3820. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3821. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3822. (gnus-group-news-3-empty-face ((t (nil))))
  3823. (gnus-group-news-3-face ((t (:bold t))))
  3824. (gnus-group-news-4-empty-face ((t (nil))))
  3825. (gnus-group-news-4-face ((t (:bold t))))
  3826. (gnus-group-news-5-empty-face ((t (nil))))
  3827. (gnus-group-news-5-face ((t (:bold t))))
  3828. (gnus-group-news-6-empty-face ((t (nil))))
  3829. (gnus-group-news-6-face ((t (:bold t))))
  3830. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3831. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3832. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  3833. (gnus-header-from-face ((t (:foreground "red3"))))
  3834. (gnus-header-name-face ((t (:foreground "maroon"))))
  3835. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  3836. (gnus-header-subject-face ((t (:foreground "red4"))))
  3837. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  3838. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  3839. (gnus-signature-face ((t (:italic t))))
  3840. (gnus-splash-face ((t (:foreground "Brown"))))
  3841. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3842. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3843. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3844. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3845. (gnus-summary-high-unread-face ((t (:bold t))))
  3846. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3847. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3848. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3849. (gnus-summary-low-unread-face ((t (:italic t))))
  3850. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3851. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3852. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3853. (gnus-summary-normal-unread-face ((t (nil))))
  3854. (gnus-summary-selected-face ((t (:underline t))))
  3855. (gnus-x-face ((t (:background "white" :foreground "black"))))
  3856. (green ((t (:foreground "green"))))
  3857. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  3858. (gui-element ((t (nil))))
  3859. (highlight ((t (:background "darkseagreen2"))))
  3860. (info-node ((t (:bold t))))
  3861. (info-xref ((t (:bold t))))
  3862. (isearch ((t (:background "paleturquoise"))))
  3863. (italic ((t (:italic t))))
  3864. (left-margin ((t (nil))))
  3865. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  3866. (message-cited-text-face ((t (:foreground "red"))))
  3867. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3868. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3869. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  3870. (message-header-other-face ((t (:foreground "steel blue"))))
  3871. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3872. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3873. (message-header-xheader-face ((t (:foreground "blue"))))
  3874. (message-mml-face ((t (:foreground "ForestGreen"))))
  3875. (message-separator-face ((t (:foreground "brown"))))
  3876. (modeline ((t (nil))))
  3877. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  3878. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  3879. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  3880. (paren-face-match ((t (:background "turquoise"))))
  3881. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  3882. (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
  3883. (pointer ((t (nil))))
  3884. (primary-selection ((t (:background "gray65"))))
  3885. (red ((t (:foreground "red"))))
  3886. (right-margin ((t (nil))))
  3887. (secondary-selection ((t (:background "paleturquoise"))))
  3888. (text-cursor ((t (:background "Red3" :foreground "gray80"))))
  3889. (toolbar ((t (nil))))
  3890. (underline ((t (:underline t))))
  3891. (vertical-divider ((t (nil))))
  3892. (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black"))))
  3893. (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black"))))
  3894. (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black"))))
  3895. (viper-replace-overlay-face ((t (:background "black" :foreground "white"))))
  3896. (viper-search-face ((t (:background "black" :foreground "white"))))
  3897. (widget-button-face ((t (:bold t))))
  3898. (widget-button-pressed-face ((t (:foreground "red"))))
  3899. (widget-documentation-face ((t (:foreground "dark green"))))
  3900. (widget-field-face ((t (:background "gray85"))))
  3901. (widget-inactive-face ((t (:foreground "dim gray"))))
  3902. (yellow ((t (:foreground "yellow"))))
  3903. (zmacs-region ((t (:background "black" :foreground "white")))))))
  3904. (defun color-theme-aalto-light ()
  3905. "Color theme by Jari Aalto, created 2001-03-08.
  3906. Black on light yellow.
  3907. Used for Win32 on a Nokia446Xpro monitor.
  3908. Includes cvs, font-lock, gnus, message, sgml, widget"
  3909. (interactive)
  3910. (color-theme-install
  3911. '(color-theme-aalto-light
  3912. ((background-color . "#FFFFE0")
  3913. (background-mode . light)
  3914. (border-color . "black")
  3915. (cursor-color . "black")
  3916. (foreground-color . "black")
  3917. (mouse-color . "LawnGreen"))
  3918. ((gnus-mouse-face . highlight)
  3919. (list-matching-lines-face . bold)
  3920. (tinyreplace-:face . highlight)
  3921. (view-highlight-face . highlight))
  3922. (default ((t (nil))))
  3923. (bold ((t (:bold t))))
  3924. (bold-italic ((t (:italic t :bold t))))
  3925. (calendar-today-face ((t (:underline t))))
  3926. (cvs-filename-face ((t (:foreground "blue4"))))
  3927. (cvs-handled-face ((t (:foreground "pink"))))
  3928. (cvs-header-face ((t (:bold t :foreground "blue4"))))
  3929. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  3930. (cvs-msg-face ((t (:italic t))))
  3931. (cvs-need-action-face ((t (:foreground "orange"))))
  3932. (cvs-unknown-face ((t (:foreground "red"))))
  3933. (diary-face ((t (:foreground "red"))))
  3934. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  3935. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  3936. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  3937. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  3938. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  3939. (font-lock-function-name-face ((t (:foreground "Blue"))))
  3940. (font-lock-keyword-face ((t (:foreground "Purple"))))
  3941. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  3942. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  3943. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3944. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3945. (gnus-emphasis-bold ((t (:bold t))))
  3946. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  3947. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3948. (gnus-emphasis-italic ((t (:italic t))))
  3949. (gnus-emphasis-underline ((t (:underline t))))
  3950. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3951. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  3952. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3953. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3954. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3955. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3956. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3957. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3958. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3959. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3960. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3961. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3962. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3963. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3964. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3965. (gnus-group-news-3-empty-face ((t (nil))))
  3966. (gnus-group-news-3-face ((t (:bold t))))
  3967. (gnus-group-news-4-empty-face ((t (nil))))
  3968. (gnus-group-news-4-face ((t (:bold t))))
  3969. (gnus-group-news-5-empty-face ((t (nil))))
  3970. (gnus-group-news-5-face ((t (:bold t))))
  3971. (gnus-group-news-6-empty-face ((t (nil))))
  3972. (gnus-group-news-6-face ((t (:bold t))))
  3973. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3974. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3975. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  3976. (gnus-header-from-face ((t (:foreground "red3"))))
  3977. (gnus-header-name-face ((t (:foreground "maroon"))))
  3978. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  3979. (gnus-header-subject-face ((t (:foreground "red4"))))
  3980. (gnus-signature-face ((t (:italic t))))
  3981. (gnus-splash-face ((t (:foreground "Brown"))))
  3982. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3983. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3984. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3985. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3986. (gnus-summary-high-unread-face ((t (:bold t))))
  3987. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3988. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3989. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3990. (gnus-summary-low-unread-face ((t (:italic t))))
  3991. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3992. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3993. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3994. (gnus-summary-normal-unread-face ((t (nil))))
  3995. (gnus-summary-selected-face ((t (:underline t))))
  3996. (highlight ((t (:background "darkseagreen2"))))
  3997. (holiday-face ((t (:background "pink"))))
  3998. (info-menu-5 ((t (:underline t))))
  3999. (info-node ((t (:italic t :bold t))))
  4000. (info-xref ((t (:bold t))))
  4001. (italic ((t (:italic t))))
  4002. (message-cited-text-face ((t (:foreground "red"))))
  4003. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  4004. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4005. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  4006. (message-header-other-face ((t (:foreground "steel blue"))))
  4007. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4008. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4009. (message-header-xheader-face ((t (:foreground "blue"))))
  4010. (message-mml-face ((t (:foreground "ForestGreen"))))
  4011. (message-separator-face ((t (:foreground "brown"))))
  4012. (modeline ((t (:background "black" :foreground "white"))))
  4013. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  4014. (modeline-mousable ((t (:background "black" :foreground "white"))))
  4015. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  4016. (region ((t (:background "gray"))))
  4017. (secondary-selection ((t (:background "paleturquoise"))))
  4018. (sgml-comment-face ((t (:foreground "dark turquoise"))))
  4019. (sgml-doctype-face ((t (:foreground "red"))))
  4020. (sgml-end-tag-face ((t (:foreground "blue"))))
  4021. (sgml-entity-face ((t (:foreground "magenta"))))
  4022. (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
  4023. (sgml-ms-end-face ((t (:foreground "green"))))
  4024. (sgml-ms-start-face ((t (:foreground "green"))))
  4025. (sgml-pi-face ((t (:foreground "lime green"))))
  4026. (sgml-sgml-face ((t (:foreground "brown"))))
  4027. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  4028. (sgml-start-tag-face ((t (:foreground "blue"))))
  4029. (show-paren-match-face ((t (:background "turquoise"))))
  4030. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4031. (underline ((t (:underline t))))
  4032. (widget-button-face ((t (:bold t))))
  4033. (widget-button-pressed-face ((t (:foreground "red"))))
  4034. (widget-documentation-face ((t (:foreground "dark green"))))
  4035. (widget-field-face ((t (:background "gray85"))))
  4036. (widget-inactive-face ((t (:foreground "dim gray"))))
  4037. (widget-single-line-field-face ((t (:background "gray85")))))))
  4038. (defun color-theme-aalto-dark ()
  4039. "Color theme by Jari Aalto, created 2001-03-08.
  4040. White on Deep Sky Blue 3.
  4041. Used for Unix Exceed on a Nokia446Xpro monitor.
  4042. Includes font-lock, info, and message."
  4043. (interactive)
  4044. (color-theme-install
  4045. '(color-theme-aalto-dark
  4046. ((background-color . "DeepSkyBlue3")
  4047. (background-mode . dark)
  4048. (border-color . "black")
  4049. (cursor-color . "yellow")
  4050. (foreground-color . "white")
  4051. (mouse-color . "black"))
  4052. ((ispell-highlight-face . highlight)
  4053. (list-matching-lines-face . bold)
  4054. (tinyreplace-:face . highlight)
  4055. (view-highlight-face . highlight))
  4056. (default ((t (nil))))
  4057. (bold ((t (:bold t :background "blue3" :foreground "white"))))
  4058. (bold-italic ((t (:italic t :bold t :foreground "blue3"))))
  4059. (calendar-today-face ((t (:underline t))))
  4060. (diary-face ((t (:foreground "red"))))
  4061. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  4062. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  4063. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  4064. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  4065. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  4066. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  4067. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  4068. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  4069. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  4070. (highlight ((t (:background "blue3" :foreground "white"))))
  4071. (holiday-face ((t (:background "pink"))))
  4072. (info-menu-5 ((t (:underline t))))
  4073. (info-node ((t (:italic t :bold t))))
  4074. (info-xref ((t (:bold t))))
  4075. (italic ((t (:italic t :background "gray"))))
  4076. (message-cited-text-face ((t (:foreground "red"))))
  4077. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  4078. (message-header-name-face ((t (:foreground "DarkGreen"))))
  4079. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  4080. (message-header-other-face ((t (:foreground "#b00000"))))
  4081. (message-header-subject-face ((t (:foreground "green3"))))
  4082. (message-header-to-face ((t (:bold t :foreground "green2"))))
  4083. (message-header-xheader-face ((t (:foreground "blue"))))
  4084. (message-mml-face ((t (:foreground "ForestGreen"))))
  4085. (message-separator-face ((t (:foreground "blue3"))))
  4086. (modeline ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4087. (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4088. (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4089. (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4090. (region ((t (:background "gray"))))
  4091. (secondary-selection ((t (:background "darkslateblue"))))
  4092. (show-paren-match-face ((t (:background "turquoise"))))
  4093. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4094. (underline ((t (:underline t)))))))
  4095. (defun color-theme-blippblopp ()
  4096. "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12.
  4097. Used by researchers at Uppsala University and the Center for Biological
  4098. Sequence Analysis at the Technical University of Denmark. (As some of my
  4099. swedish friends couldn't pronounce Sicheritz - they choose to transform
  4100. it to something more \"swedish\": Blippblopp :-)
  4101. Includes font-lock and message."
  4102. (interactive)
  4103. (color-theme-install
  4104. '(color-theme-blippblopp
  4105. ((background-color . "white")
  4106. (background-mode . light)
  4107. (background-toolbar-color . "#cf3ccf3ccf3c")
  4108. (border-color . "#000000000000")
  4109. (bottom-toolbar-shadow-color . "#79e77df779e7")
  4110. (cursor-color . "Red3")
  4111. (foreground-color . "black")
  4112. (mouse-color . "black")
  4113. (top-toolbar-shadow-color . "#fffffbeeffff")
  4114. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  4115. ((ispell-highlight-face . highlight))
  4116. (default ((t (nil))))
  4117. (blue ((t (:foreground "blue"))))
  4118. (bold ((t (:bold t))))
  4119. (bold-italic ((t (:italic t :bold t))))
  4120. (excerpt ((t (:italic t))))
  4121. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  4122. (fg:black ((t (:foreground "black"))))
  4123. (fixed ((t (:bold t))))
  4124. (font-lock-builtin-face ((t (:foreground "red3"))))
  4125. (font-lock-comment-face ((t (:foreground "orange"))))
  4126. (font-lock-constant-face ((t (:foreground "red3"))))
  4127. (font-lock-doc-string-face ((t (:foreground "darkgreen"))))
  4128. (font-lock-exit-face ((t (:foreground "green"))))
  4129. (font-lock-function-name-face ((t (:bold t :foreground "red"))))
  4130. (font-lock-keyword-face ((t (:bold t :foreground "steelblue"))))
  4131. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  4132. (font-lock-reference-face ((t (:foreground "red3"))))
  4133. (font-lock-string-face ((t (:foreground "green4"))))
  4134. (font-lock-type-face ((t (:bold t :foreground "blue"))))
  4135. (font-lock-variable-name-face ((t (:foreground "black"))))
  4136. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  4137. (green ((t (:foreground "green"))))
  4138. (message-cited-text-face ((t (:foreground "red"))))
  4139. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  4140. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4141. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  4142. (message-header-other-face ((t (:foreground "steel blue"))))
  4143. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4144. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4145. (message-header-xheader-face ((t (:foreground "blue"))))
  4146. (message-mml-face ((t (:foreground "ForestGreen"))))
  4147. (message-separator-face ((t (:foreground "brown"))))
  4148. (modeline ((t (:background "dimgray" :foreground "lemonchiffon"))))
  4149. (modeline-buffer-id ((t (:background "dimgray" :foreground "green3"))))
  4150. (modeline-mousable ((t (:background "dimgray" :foreground "orange"))))
  4151. (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4"))))
  4152. (primary-selection ((t (:background "gray65"))))
  4153. (red ((t (:foreground "red"))))
  4154. (region ((t (:background "gray65"))))
  4155. (secondary-selection ((t (:background "paleturquoise"))))
  4156. (show-paren-match-face ((t (:background "turquoise"))))
  4157. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4158. (text-cursor ((t (:background "Red3" :foreground "white"))))
  4159. (toolbar ((t (:background "Gray80"))))
  4160. (underline ((t (:underline t))))
  4161. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  4162. (vertical-divider ((t (:background "Gray80"))))
  4163. (xref-keyword-face ((t (:foreground "blue"))))
  4164. (xref-list-pilot-face ((t (:foreground "navy"))))
  4165. (xref-list-symbol-face ((t (:foreground "navy"))))
  4166. (yellow ((t (:foreground "yellow"))))
  4167. (zmacs-region ((t (:background "gray65")))))))
  4168. (defun color-theme-hober (&optional preview)
  4169. "Does all sorts of crazy stuff.
  4170. Originally based on color-theme-standard, so I probably still have some
  4171. setting that I haven't changed. I also liberally copied settings from
  4172. the other themes in this package. The end result isn't much like the
  4173. other ones; I hope you like it."
  4174. (interactive)
  4175. (color-theme-install
  4176. '(color-theme-hober
  4177. ((foreground-color . "#c0c0c0")
  4178. (background-color . "black")
  4179. (mouse-color . "black")
  4180. (cursor-color . "medium turquoise")
  4181. (border-color . "black")
  4182. (background-mode . dark))
  4183. (default ((t (nil))))
  4184. (modeline ((t (:foreground "white" :background "darkslateblue"))))
  4185. (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue"))))
  4186. (modeline-mousable ((t (:foreground "white" :background "darkslateblue"))))
  4187. (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue"))))
  4188. (highlight ((t (:foreground "black" :background "#c0c0c0"))))
  4189. (bold ((t (:bold t))))
  4190. (italic ((t (:italic t))))
  4191. (bold-italic ((t (:bold t :italic t))))
  4192. (region ((t (:foreground "white" :background "darkslateblue"))))
  4193. (zmacs-region ((t (:foreground "white" :background "darkslateblue"))))
  4194. (secondary-selection ((t (:background "paleturquoise"))))
  4195. (underline ((t (:underline t))))
  4196. (diary-face ((t (:foreground "red"))))
  4197. (calendar-today-face ((t (:underline t))))
  4198. (holiday-face ((t (:background "pink"))))
  4199. (widget-documentation-face ((t (:foreground "dark green" :background "white"))))
  4200. (widget-button-face ((t (:bold t))))
  4201. (widget-button-pressed-face ((t (:foreground "red" :background "black"))))
  4202. (widget-field-face ((t (:background "gray85" :foreground "black"))))
  4203. (widget-single-line-field-face ((t (:background "gray85" :foreground "black"))))
  4204. (widget-inactive-face ((t (:foreground "dim gray" :background "red"))))
  4205. (fixed ((t (:bold t))))
  4206. (excerpt ((t (:italic t))))
  4207. (term-default-fg ((t (nil))))
  4208. (term-default-bg ((t (nil))))
  4209. (term-default-fg-inv ((t (nil))))
  4210. (term-default-bg-inv ((t (nil))))
  4211. (term-bold ((t (:bold t))))
  4212. (term-underline ((t (:underline t))))
  4213. (term-invisible ((t (nil))))
  4214. (term-invisible-inv ((t (nil))))
  4215. (term-white ((t (:foreground "#c0c0c0"))))
  4216. (term-whitebg ((t (:background "#c0c0c0"))))
  4217. (term-black ((t (:foreground "black"))))
  4218. (term-blackbg ((t (:background "black"))))
  4219. (term-red ((t (:foreground "#ef8171"))))
  4220. (term-redbg ((t (:background "#ef8171"))))
  4221. (term-green ((t (:foreground "#e5f779"))))
  4222. (term-greenbg ((t (:background "#e5f779"))))
  4223. (term-yellow ((t (:foreground "#fff796"))))
  4224. (term-yellowbg ((t (:background "#fff796"))))
  4225. (term-blue ((t (:foreground "#4186be"))))
  4226. (term-bluebg ((t (:background "#4186be"))))
  4227. (term-magenta ((t (:foreground "#ef9ebe"))))
  4228. (term-magentabg ((t (:background "#ef9ebe"))))
  4229. (term-cyan ((t (:foreground "#71bebe"))))
  4230. (term-cyanbg ((t (:background "#71bebe"))))
  4231. (font-lock-keyword-face ((t (:foreground "#00ffff"))))
  4232. (font-lock-comment-face ((t (:foreground "Red"))))
  4233. (font-lock-string-face ((t (:foreground "#ffff00"))))
  4234. (font-lock-constant-face ((t (:foreground "#00ff00"))))
  4235. (font-lock-builtin-face ((t (:foreground "#ffaa00"))))
  4236. (font-lock-type-face ((t (:foreground "Coral"))))
  4237. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  4238. (font-lock-function-name-face ((t (:foreground "#4186be"))))
  4239. (font-lock-variable-name-face ((t (:foreground "white" :bold t))))
  4240. (message-header-to-face ((t (:foreground "#4186be" :bold t))))
  4241. (message-header-cc-face ((t (:foreground "#4186be"))))
  4242. (message-header-subject-face ((t (:foreground "#4186be" :bold t))))
  4243. (message-header-newsgroups-face ((t (:foreground "Coral" :bold t))))
  4244. (message-header-other-face ((t (:foreground "steel blue"))))
  4245. (message-header-name-face ((t (:foreground "white"))))
  4246. (message-header-xheader-face ((t (:foreground "blue"))))
  4247. (message-separator-face ((t (:foreground "brown"))))
  4248. (message-cited-text-face ((t (:foreground "white"))))
  4249. (gnus-header-from-face ((t (:foreground "Coral"))))
  4250. (gnus-header-subject-face ((t (:foreground "#4186be"))))
  4251. (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t))))
  4252. (gnus-header-name-face ((t (:foreground "white"))))
  4253. (gnus-header-content-face ((t (:foreground "#4186be" :italic t))))
  4254. (gnus-cite-attribution-face ((t (:italic t))))
  4255. (gnus-cite-face-list ((t (:bold nil :foreground "red"))))
  4256. (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
  4257. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  4258. (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
  4259. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  4260. (gnus-group-news-3-face ((t (:bold t))))
  4261. (gnus-group-news-3-empty-face ((t (nil))))
  4262. (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
  4263. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  4264. (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
  4265. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  4266. (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
  4267. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  4268. (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
  4269. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  4270. (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
  4271. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  4272. (gnus-summary-selected-face ((t (:underline t))))
  4273. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  4274. (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
  4275. (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
  4276. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  4277. (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
  4278. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
  4279. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  4280. (gnus-summary-high-unread-face ((t (:bold t))))
  4281. (gnus-summary-low-unread-face ((t (:italic t))))
  4282. (gnus-summary-normal-unread-face ((t (nil))))
  4283. (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
  4284. (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
  4285. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  4286. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  4287. (gnus-emphasis-bold ((t (:bold t))))
  4288. (gnus-emphasis-italic ((t (:italic t))))
  4289. (gnus-emphasis-underline ((t (:underline t))))
  4290. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  4291. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  4292. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  4293. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  4294. (gnus-signature-face ((t (:foreground "white"))))
  4295. (gnus-cite-face-1 ((t (:foreground "Khaki"))))
  4296. (gnus-cite-face-2 ((t (:foreground "Coral"))))
  4297. (gnus-cite-face-3 ((t (:foreground "#4186be"))))
  4298. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  4299. (gnus-cite-face-5 ((t (:foreground "IndianRed"))))
  4300. (highlight-changes-face ((t (:foreground "red"))))
  4301. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  4302. (show-paren-match-face ((t (:foreground "white" :background "purple"))))
  4303. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  4304. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  4305. (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2"))))
  4306. (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2"))))
  4307. (makefile-space-face ((t (:background "hotpink"))))
  4308. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  4309. (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
  4310. (sgml-doctype-face ((t (:foreground "orange"))))
  4311. (sgml-sgml-face ((t (:foreground "yellow"))))
  4312. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  4313. (sgml-entity-face ((t (:foreground "gold"))))
  4314. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  4315. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))))))
  4316. (defun color-theme-bharadwaj ()
  4317. "Color theme by Girish Bharadwaj, created 2001-03-28.
  4318. Black on gainsboro. Includes BBDB, custom, cperl, cvs, dired, ediff,
  4319. erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml,
  4320. shell, speedbar, term, vhdl, viper, widget, woman, xref. Wow!"
  4321. (interactive)
  4322. (color-theme-install
  4323. '(color-theme-bharadwaj
  4324. ((background-color . "gainsboro")
  4325. (background-mode . light)
  4326. (background-toolbar-color . "#cf3ccf3ccf3c")
  4327. (border-color . "black")
  4328. (bottom-toolbar-shadow-color . "#79e77df779e7")
  4329. (cursor-color . "grey15")
  4330. (foreground-color . "black")
  4331. (mouse-color . "grey15")
  4332. (top-toolbar-shadow-color . "#fffffbeeffff")
  4333. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  4334. ((gnus-mouse-face . highlight)
  4335. (smiley-mouse-face . highlight))
  4336. (default ((t (nil))))
  4337. (bbdb-company ((t (nil))))
  4338. (bbdb-field-name ((t (:bold t))))
  4339. (bbdb-field-value ((t (nil))))
  4340. (bbdb-name ((t (:underline t))))
  4341. (blank-space-face ((t (nil))))
  4342. (blank-tab-face ((t (nil))))
  4343. (blue ((t (nil))))
  4344. (bold ((t (:bold t))))
  4345. (bold-italic ((t (:bold t))))
  4346. (border-glyph ((t (nil))))
  4347. (calendar-today-face ((t (:underline t))))
  4348. (comint-input-face ((t (:foreground "deepskyblue"))))
  4349. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  4350. (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red"))))
  4351. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  4352. (custom-button-face ((t (:bold t))))
  4353. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  4354. (custom-documentation-face ((t (nil))))
  4355. (custom-face-tag-face ((t (:underline t))))
  4356. (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
  4357. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  4358. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  4359. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  4360. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  4361. (custom-saved-face ((t (:underline t))))
  4362. (custom-set-face ((t (:background "white" :foreground "blue"))))
  4363. (custom-state-face ((t (:foreground "dark green"))))
  4364. (custom-variable-button-face ((t (:underline t :bold t))))
  4365. (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
  4366. (cvs-filename-face ((t (:foreground "blue4"))))
  4367. (cvs-handled-face ((t (:foreground "pink"))))
  4368. (cvs-header-face ((t (:bold t :foreground "blue4"))))
  4369. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  4370. (cvs-msg-face ((t (nil))))
  4371. (cvs-need-action-face ((t (:foreground "orange"))))
  4372. (cvs-unknown-face ((t (:foreground "red"))))
  4373. (diary-face ((t (:bold t :foregro