Squashed 'replace-colorthemes/' content from commit a996eca

git-subtree-dir: replace-colorthemes
git-subtree-split: a996eca37f4df726eec95406deb76b538320771a
This commit is contained in:
Vladan Popovic 2022-03-28 22:13:11 +02:00
commit f615dd5a07
222 changed files with 19843 additions and 0 deletions

3
.gitignore vendored Normal file
View File

@ -0,0 +1,3 @@
conf.el
*.elc
update_readme.pl

8
Changes Normal file
View File

@ -0,0 +1,8 @@
Revision history for color-theme-modern
Revision 0.0.2 2016/04/12 syohex
- Fix wrong cursor color configurations of themes(#19, #20)
Thanks vedvyas
Revision 0.0.1 2015/11/11 syohex
- Register MELPA

43
LICENSE Normal file
View File

@ -0,0 +1,43 @@
Source: https://github.com/emacs-jp/replace-colorthemes
Files: *
Copyright: [please refer to the individual files]
License: GPL-3+
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
Files: railscast-theme.el
Copyright: 2009 Oleg Shaldybin <oleg.shaldybin@gmail.com>
2014 by Syohei YOSHIDA <syohex@gmail.com>
License: MIT
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or
sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
conditions:
The above copyright notice and this permission notice shall
be included in all copies or substantial portions of the
Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.

165
README.md Normal file
View File

@ -0,0 +1,165 @@
# color-theme-modern [![melpa badge][melpa-badge]][melpa-link] [![melpa stable badge][melpa-stable-badge]][melpa-stable-link]
This project replaces [color-theme](http://www.nongnu.org/color-theme/) with Emacs 24 theme framework.
Please request by [issues](https://github.com/emacs-jp/replace-colorthemes/issues) if you want me to port your favorite theme from the old colorthemes.
## Screenshot
Screenshots are [here](screenshots.md)
## Installation
All themes are available on [MELPA](https://melpa.org/) and [MELPA stable](https://stable.melpa.org/)
You can install `color-theme-modern` with the following command.
<kbd>M-x package-install [RET] color-theme-modern [RET]</kbd>
NOTE: Package name is different from repository name.
```
# Download your favorite theme ~/.emacs.d
% cd ~/.emacs.d
% curl -LO https://raw.githubusercontent.com/emacs-jp/replace-colorthemes/master/aalto-dark-theme.el
```
Or
```
# Download all themes
% git clone https://github.com/emacs-jp/replace-colorthemes.git
```
And add following code to your configuration file:
```lisp
;; Please set your themes directory to 'custom-theme-load-path
(add-to-list 'custom-theme-load-path
(file-name-as-directory "your cloned directory path"))
```
Users of Debian ≥11, or derivatives such as Ubuntu ≥20.04 may simply `sudo apt install elpa-color-theme-modern`.
## Activating a Theme
To use color-theme-modern, a theme must be selected, loaded, and activated. Do this by adding something like the following lines to your Emacs configuration:
```lisp
(load-theme 'aalto-dark t t)
(enable-theme 'aalto-dark)
```
## Ported themes
* [aalto-dark](screenshots.md#aalto-dark)
* [aalto-light](screenshots.md#aalto-light)
* [aliceblue](screenshots.md#aliceblue)
* [andreas](screenshots.md#andreas)
* [arjen](screenshots.md#arjen)
* [beige-diff](screenshots.md#beige-diff)
* [beige-eshell](screenshots.md#beige-eshell)
* [bharadwaj-slate](screenshots.md#bharadwaj-slate)
* [bharadwaj](screenshots.md#bharadwaj)
* [billw](screenshots.md#billw)
* [black-on-gray](screenshots.md#black-on-gray)
* [blippblopp](screenshots.md#blippblopp)
* [blue-erc](screenshots.md#blue-erc)
* [blue-eshell](screenshots.md#blue-eshell)
* [blue-gnus](screenshots.md#blue-gnus)
* [blue-mood](screenshots.md#blue-mood)
* [blue-sea](screenshots.md#blue-sea)
* [calm-forest](screenshots.md#calm-forest)
* [charcoal-black](screenshots.md#charcoal-black)
* [clarity](screenshots.md#clarity)
* [classic](screenshots.md#classic)
* [cobalt](screenshots.md#cobalt)
* [comidia](screenshots.md#comidia)
* [dark-blue](screenshots.md#dark-blue)
* [dark-blue2](screenshots.md#dark-blue2)
* [dark-erc](screenshots.md#dark-erc)
* [dark-font-lock](screenshots.md#dark-font-lock)
* [dark-gnus](screenshots.md#dark-gnus)
* [dark-green](screenshots.md#dark-green)
* [dark-info](screenshots.md#dark-info)
* [dark-laptop](screenshots.md#dark-laptop)
* [deep-blue](screenshots.md#deep-blue)
* [desert](screenshots.md#desert)
* [digital-ofs1](screenshots.md#digital-ofs1)
* [emacs-21](screenshots.md#emacs-21)
* [emacs-nw](screenshots.md#emacs-nw)
* [euphoria](screenshots.md#euphoria)
* [feng-shui](screenshots.md#feng-shui)
* [fischmeister](screenshots.md#fischmeister)
* [gnome](screenshots.md#gnome)
* [gnome2](screenshots.md#gnome2)
* [goldenrod](screenshots.md#goldenrod)
* [gray1](screenshots.md#gray1)
* [gray30](screenshots.md#gray30)
* [greiner](screenshots.md#greiner)
* [gtk-ide](screenshots.md#gtk-ide)
* [high-contrast](screenshots.md#high-contrast)
* [hober](screenshots.md#hober)
* [infodoc](screenshots.md#infodoc)
* [jb-simple](screenshots.md#jb-simple)
* [jedit-grey](screenshots.md#jedit-grey)
* [jonadabian-slate](screenshots.md#jonadabian-slate)
* [jonadabian](screenshots.md#jonadabian)
* [jsc-dark](screenshots.md#jsc-dark)
* [jsc-light](screenshots.md#jsc-light)
* [jsc-light2](screenshots.md#jsc-light2)
* [katester](screenshots.md#katester)
* [kingsajz](screenshots.md#kingsajz)
* [late-night](screenshots.md#late-night)
* [lawrence](screenshots.md#lawrence)
* [ld-dark](screenshots.md#ld-dark)
* [lethe](screenshots.md#lethe)
* [marine](screenshots.md#marine)
* [marquardt](screenshots.md#marquardt)
* [matrix](screenshots.md#matrix)
* [midnight](screenshots.md#midnight)
* [mistyday](screenshots.md#mistyday)
* [montz](screenshots.md#montz)
* [oswald](screenshots.md#oswald)
* [parus](screenshots.md#parus)
* [pierson](screenshots.md#pierson)
* [pok-wob](screenshots.md#pok-wob)
* [pok-wog](screenshots.md#pok-wog)
* [ramangalahy](screenshots.md#ramangalahy)
* [raspopovic](screenshots.md#raspopovic)
* [renegade](screenshots.md#renegade)
* [resolve](screenshots.md#resolve)
* [retro-green](screenshots.md#retro-green)
* [retro-orange](screenshots.md#retro-orange)
* [robin-hood](screenshots.md#robin-hood)
* [rotor](screenshots.md#rotor)
* [ryerson](screenshots.md#ryerson)
* [salmon-diff](screenshots.md#salmon-diff)
* [salmon-font-lock](screenshots.md#salmon-font-lock)
* [scintilla](screenshots.md#scintilla)
* [shaman](screenshots.md#shaman)
* [simple-1](screenshots.md#simple-1)
* [sitaramv-nt](screenshots.md#sitaramv-nt)
* [sitaramv-solaris](screenshots.md#sitaramv-solaris)
* [snow](screenshots.md#snow)
* [snowish](screenshots.md#snowish)
* [standard-ediff](screenshots.md#standard-ediff)
* [standard](screenshots.md#standard)
* [subtle-blue](screenshots.md#subtle-blue)
* [subtle-hacker](screenshots.md#subtle-hacker)
* [taming-mr-arneson](screenshots.md#taming-mr-arneson)
* [taylor](screenshots.md#taylor)
* [tty-dark](screenshots.md#tty-dark)
* [vim-colors](screenshots.md#vim-colors)
* [whateveryouwant](screenshots.md#whateveryouwant)
* [wheat](screenshots.md#wheat)
* [word-perfect](screenshots.md#word-perfect)
* [xemacs](screenshots.md#xemacs)
* [xp](screenshots.md#xp)
## 3rd Party Theme
* [julie](screenshots.md#julie)
* [subdued](screenshots.md#subdued)
* [railscast](screenshots.md#railscast)
[melpa-link]: https://melpa.org/#/color-theme-modern
[melpa-stable-link]: https://stable.melpa.org/#/color-theme-modern
[melpa-badge]: https://melpa.org/packages/color-theme-modern-badge.svg
[melpa-stable-badge]: https://stable.melpa.org/packages/color-theme-modern-badge.svg

87
aalto-dark-theme.el Normal file
View File

@ -0,0 +1,87 @@
;;; aalto-dark-theme.el --- aalto-dark theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of aalto-dark theme from `color-themes'
;;; Code:
(deftheme aalto-dark
"aalto-dark theme")
(custom-theme-set-faces
'aalto-dark
'(default ((t (:background "DeepSkyBlue3" :foreground "white"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:foreground "black"))))
'(bold ((t (:bold t :background "blue3" :foreground "white"))))
'(bold-italic ((t (:italic t :bold t :foreground "blue3"))))
'(calendar-today-face ((t (:underline t))))
'(diary-face ((t (:foreground "red"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "OrangeRed"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
'(font-lock-keyword-face ((t (:foreground "Cyan"))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "PaleGreen"))))
'(font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
'(highlight ((t (:background "blue3" :foreground "white"))))
'(holiday-face ((t (:background "pink"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:italic t :bold t))))
'(info-xref ((t (:bold t))))
'(italic ((t (:italic t :background "gray"))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "green4"))))
'(message-header-name-face ((t (:foreground "DarkGreen"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
'(message-header-other-face ((t (:foreground "#b00000"))))
'(message-header-subject-face ((t (:foreground "green3"))))
'(message-header-to-face ((t (:bold t :foreground "green2"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "blue3"))))
'(mode-line ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(mode-line-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(mode-line-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(mode-line-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(region ((t (:background "gray"))))
'(secondary-selection ((t (:background "darkslateblue"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(underline ((t (:underline t)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'aalto-dark)
;;; aalto-dark-theme.el ends here

168
aalto-light-theme.el Normal file
View File

@ -0,0 +1,168 @@
;;; aalto-light-theme.el --- aalto-light theme
;; Copyright (C) 2001 Jari Aalto
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of aalto-light theme from `color-themes'
;;; Code:
(deftheme aalto-light
"aalto-light theme")
(custom-theme-set-faces
'aalto-light
'(default ((t (:background "#FFFFE0" :foreground "DarkSlateGray4"))))
'(mouse ((t (:foreground "LawnGreen"))))
'(cursor ((t (:background "black"))))
'(border ((t (:foreground "black"))))
'(gnus-mouse-face ((t (:background "darkseagreen2"))))
'(list-matching-lines-face ((t (:bold t))))
'(tinyreplace-:face ((t (:background "darkseagreen2"))))
'(view-highlight-face ((t (:background "darkseagreen2"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(calendar-today-face ((t (:underline t))))
'(cvs-filename-face ((t (:foreground "blue4"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "blue4"))))
'(cvs-marked-face ((t (:bold t :foreground "green3"))))
'(cvs-msg-face ((t (:italic t))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:foreground "red"))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green"))))
'(font-lock-builtin-face ((t (:foreground "Orchid"))))
'(font-lock-comment-face ((t (:foreground "Firebrick"))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-function-name-face ((t (:foreground "Blue"))))
'(font-lock-keyword-face ((t (:foreground "Purple"))))
'(font-lock-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-type-face ((t (:foreground "ForestGreen"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t :italic t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
'(gnus-header-from-face ((t (:foreground "red3"))))
'(gnus-header-name-face ((t (:foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
'(gnus-header-subject-face ((t (:foreground "red4"))))
'(gnus-signature-face ((t (:italic t))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(highlight ((t (:background "darkseagreen2"))))
'(holiday-face ((t (:background "pink"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:italic t :bold t))))
'(info-xref ((t (:bold t))))
'(italic ((t (:italic t))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue"))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "black" :foreground "white"))))
'(mode-line-buffer-id ((t (:background "black" :foreground "white"))))
'(mode-line-mousable ((t (:background "black" :foreground "white"))))
'(mode-line-mousable-minor-mode ((t (:background "black" :foreground "white"))))
'(region ((t (:background "gray"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(sgml-comment-face ((t (:foreground "dark turquoise"))))
'(sgml-doctype-face ((t (:foreground "red"))))
'(sgml-end-tag-face ((t (:foreground "blue"))))
'(sgml-entity-face ((t (:foreground "magenta"))))
'(sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
'(sgml-ms-end-face ((t (:foreground "green"))))
'(sgml-ms-start-face ((t (:foreground "green"))))
'(sgml-pi-face ((t (:foreground "lime green"))))
'(sgml-sgml-face ((t (:foreground "brown"))))
'(sgml-short-ref-face ((t (:foreground "deep sky blue"))))
'(sgml-start-tag-face ((t (:foreground "blue"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'aalto-light)
;;; aalto-light-theme.el ends here

147
aliceblue-theme.el Normal file
View File

@ -0,0 +1,147 @@
;;; aliceblue-theme.el --- aliceblue theme
;; Copyright (C) 2002 by Girish Bharadwaj
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of aliceblue theme from `color-themes'
;;; Code:
(deftheme aliceblue
"aliceblue theme")
(custom-theme-set-faces
'aliceblue
'(default ((t (:background "AliceBlue" :foreground "DarkSlateGray4"))))
'(mouse ((t (:background "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:background "black"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "dark blue"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "gray85"))))
'(custom-comment-tag-face ((t (:foreground "blue4"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
'(font-lock-builtin-face ((t (:foreground "Orchid"))))
'(font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold))))
'(font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold))))
'(font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
'(font-lock-reference-face ((t (:foreground "Orchid"))))
'(font-lock-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "DarkSlateBlue"))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
'(highlight ((t (:background "darkseagreen2"))))
'(isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
'(italic ((t (:italic t :slant italic))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
'(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
'(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
'(jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
'(jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
'(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
'(jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
'(jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
'(jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
'(jde-java-font-lock-package-face ((t (:foreground "blue3"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(menu ((t (nil))))
'(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t (:background "grey75" :foreground "black"))))
'(mode-line-mousable ((t (:background "grey75" :foreground "black"))))
'(mode-line-mousable-minor-mode ((t (:background "grey75" :foreground "black"))))
'(primary-selection ((t (:background "lightgoldenrod2"))))
'(region ((t (:background "lightgoldenrod2"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "yellow"))))
'(semantic-dirty-token-face ((t (:background "lightyellow"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(senator-intangible-face ((t (:foreground "gray25"))))
'(senator-momentary-highlight-face ((t (:background "gray70"))))
'(senator-read-only-face ((t (:background "#CCBBBB"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "green4"))))
'(speedbar-directory-face ((t (:foreground "blue4"))))
'(speedbar-file-face ((t (:foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(template-message-face ((t (:bold t :weight bold))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(zmacs-region ((t (:background "lightgoldenrod2")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'aliceblue)
;;; aliceblue-theme.el ends here

220
andreas-theme.el Normal file
View File

@ -0,0 +1,220 @@
;;; andreas-theme.el --- andreas theme
;; Copyright (C) 2003 by Andreas Busch
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of andreas theme from `color-themes'
;;; Code:
(deftheme andreas
"andreas theme")
(custom-theme-set-faces
'andreas
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:foreground "black"))))
'(OrangeRed ((t (nil))))
'(gnus-mouse-face ((t (nil))))
'(ispell-highlight-face ((t (nil))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(border-glyph ((t (nil))))
'(calendar-today-face ((t (:underline t))))
'(color-mode-face-@ ((t (:foreground "orange"))))
'(color-mode-face-a ((t (:foreground "blue"))))
'(color-mode-face-b ((t (:foreground "red"))))
'(color-mode-face-c ((t (:foreground "green3"))))
'(color-mode-face-d ((t (:background "red" :foreground "white"))))
'(color-mode-face-e ((t (:background "orange" :foreground "blue"))))
'(color-mode-face-f ((t (:background "blue" :foreground "yellow"))))
'(color-mode-face-g ((t (:background "lightblue" :foreground "brown"))))
'(color-mode-face-h ((t (:background "brown" :foreground "white"))))
'(custom-button-face ((t (:bold t))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :foreground "blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:underline t :bold t :background "gray90"))))
'(custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue"))))
'(diary-face ((t (:foreground "red"))))
'(display-time-mail-balloon-enhance-face ((t (:background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
'(display-time-time-balloon-face ((t (:foreground "red"))))
'(emacs-wiki-bad-link-face ((t (:bold t :foreground "red"))))
'(emacs-wiki-link-face ((t (:bold t :foreground "green"))))
'(font-lock-comment-face ((t (:foreground "orange1"))))
'(font-lock-doc-string-face ((t (:foreground "green4"))))
'(font-lock-function-name-face ((t (:foreground "blue3"))))
'(font-lock-keyword-face ((t (:foreground "red1"))))
'(font-lock-preprocessor-face ((t (:foreground "blue3"))))
'(font-lock-reference-face ((t (:foreground "red3"))))
'(font-lock-string-face ((t (:foreground "green4"))))
'(font-lock-type-face ((t (:foreground "#6920ac"))))
'(font-lock-variable-name-face ((t (:foreground "blue3"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(gnu-cite-face-3 ((t (nil))))
'(gnu-cite-face-4 ((t (nil))))
'(gnus-cite-attribution-face ((t (:underline t))))
'(gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t :italic t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
'(gnus-header-from-face ((t (:bold t :foreground "red3"))))
'(gnus-header-name-face ((t (:foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
'(gnus-header-subject-face ((t (:bold t :foreground "red4"))))
'(gnus-splash-face ((t (:foreground "red"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed"))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "Red"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(gnus-x-face ((t (nil))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75"))))
'(gui-element ((t (:background "Gray80"))))
'(highlight ((t (nil))))
'(holiday-face ((t (:background "pink"))))
'(hyper-apropos-documentation ((t (:foreground "darkred"))))
'(hyper-apropos-heading ((t (:bold t))))
'(hyper-apropos-hyperlink ((t (:foreground "blue4"))))
'(hyper-apropos-major-heading ((t (:bold t))))
'(hyper-apropos-section-heading ((t (:italic t :bold t))))
'(hyper-apropos-warning ((t (:bold t :foreground "red"))))
'(info-node ((t (:italic t :bold t))))
'(info-xref ((t (:bold t))))
'(isearch ((t (:background "yellow" :foreground "red"))))
'(italic ((t (:italic t))))
'(kai-gnus-cite-face-1 ((t (:foreground "LightCyan4"))))
'(kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2"))))
'(kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3"))))
'(kai-gnus-group-mail-face ((t (:foreground "darkslategrey"))))
'(kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed"))))
'(kai-gnus-group-starred-face ((t (:foreground "grey50"))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:background "gray68"))))
'(message-cited-text ((t (:italic t))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-contents ((t (:italic t))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue"))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-headers ((t (:bold t))))
'(message-highlighted-header-contents ((t (:italic t :bold t))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "Gray75" :foreground "Black"))))
'(mode-line-buffer-id ((t (:background "Gray75" :foreground "blue4"))))
'(mode-line-mousable ((t (:background "Gray75" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
'(paren-blink-off ((t (:foreground "gray80"))))
'(paren-match ((t (:background "red" :foreground "white"))))
'(paren-mismatch ((t (:background "DeepPink"))))
'(pointer ((t (:foreground "blue"))))
'(primary-selection ((t (:background "gray65"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "gray75"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(text-cursor ((t (:background "red" :foreground "LightYellow1"))))
'(toolbar ((t (:background "Gray80"))))
'(underline ((t (:underline t))))
'(vertical-divider ((t (:background "Gray80"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(x-face ((t (:background "white"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "gray65" :foreground "yellow")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'andreas)
;;; andreas-theme.el ends here

246
arjen-theme.el Normal file
View File

@ -0,0 +1,246 @@
;;; arjen-theme.el --- arjen theme
;; Copyright (C) 2001 -- 2008 Arjen Wiersma
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Arjen Wiersma <arjen@wiersma.org>
;; Maintainers: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of arjen theme from `color-themes'
;;; Code:
(deftheme arjen
"arjen theme")
(custom-theme-set-faces
'arjen
'(default ((t (:background "black" :foreground "White"))))
'(mouse ((t (:foreground "sienna1"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:foreground "black"))))
'(default ((t (:background "black" :foreground "white"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:bold t))))
'(border-glyph ((t (nil))))
'(buffers-tab ((t (:background "black" :foreground "white"))))
'(buffers-tab-face ((t (:background "black" :foreground "white"))))
'(calendar-today-face ((t (:underline t))))
'(cperl-array-face ((t (:foreground "darkseagreen"))))
'(cperl-hash-face ((t (:foreground "darkseagreen"))))
'(cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
'(cperl-here-face ((t (:foreground "Orange"))))
'(cperl-invalid-face ((nil (:underline nil))))
'(cperl-pod-face ((t (:foreground "IndianRed"))))
'(cperl-pod-head-face ((t (:foreground "darkseagreen"))))
'(custom-button-face ((t (nil))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :foreground "light blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "lime green"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
'(diary-face ((t (:foreground "IndianRed"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "sandybrown"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-input-face ((t (:foreground "Beige"))))
'(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "MediumAquamarine"))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "Violet"))))
'(eshell-ls-product-face ((t (:foreground "sandybrown"))))
'(eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "Gold"))))
'(eshell-ls-symlink-face ((t (:foreground "White"))))
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
'(fl-comment-face ((t (:foreground "pink"))))
'(fl-doc-string-face ((t (:foreground "purple"))))
'(fl-function-name-face ((t (:foreground "red"))))
'(fl-keyword-face ((t (:foreground "cadetblue"))))
'(fl-string-face ((t (:foreground "green"))))
'(fl-type-face ((t (:foreground "yellow"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "IndianRed"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
'(font-lock-function-name-face ((t (:foreground "YellowGreen"))))
'(font-lock-keyword-face ((t (:foreground "PaleYellow"))))
'(font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
'(font-lock-reference-face ((t (:foreground "SlateBlue"))))
'(font-lock-string-face ((t (:foreground "Orange"))))
'(font-lock-type-face ((t (:foreground "Green"))))
'(font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
'(qt-classes-face ((t (:foreground "Red"))))
'(gnus-cite-attribution-face ((t (nil))))
'(gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue"))))
'(gnus-cite-face-3 ((t (:bold nil :foreground "gold"))))
'(gnus-cite-face-4 ((t (:foreground "light pink"))))
'(gnus-cite-face-5 ((t (:foreground "pale green"))))
'(gnus-cite-face-6 ((t (:bold nil :foreground "chocolate"))))
'(gnus-cite-face-7 ((t (:foreground "orange"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold nil))))
'(gnus-emphasis-bold-italic ((t (:bold nil))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (nil))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold nil))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil))))
'(gnus-emphasis-underline-italic ((t (:underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
'(gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
'(gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
'(gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
'(gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
'(gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise"))))
'(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
'(gnus-group-news-2-face ((t (:bold nil :foreground "turquoise"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold nil))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold nil))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold nil))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold nil))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
'(gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise"))))
'(gnus-header-content-face ((t (:foreground "forest green"))))
'(gnus-header-from-face ((t (:bold nil :foreground "spring green"))))
'(gnus-header-name-face ((t (:foreground "deep sky blue"))))
'(gnus-header-newsgroups-face ((t (:bold nil :foreground "purple"))))
'(gnus-header-subject-face ((t (:bold nil :foreground "orange"))))
'(gnus-signature-face ((t (:bold nil :foreground "khaki"))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue"))))
'(gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink"))))
'(gnus-summary-high-unread-face ((t (:bold nil))))
'(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-low-read-face ((t (:foreground "PaleGreen"))))
'(gnus-summary-low-ticked-face ((t (:foreground "pink"))))
'(gnus-summary-low-unread-face ((t (nil))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75" :foreground "black"))))
'(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
'(highlight ((t (:background "darkolivegreen"))))
'(highline-face ((t (:background "SeaGreen"))))
'(holiday-face ((t (:background "DimGray"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
'(info-xref ((t (:underline t :foreground "DodgerBlue1"))))
'(isearch ((t (:background "blue"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(italic ((t (nil))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
'(message-cited-text-face ((t (:bold t :foreground "green"))))
'(message-header-cc-face ((t (:bold t :foreground "green4"))))
'(message-header-name-face ((t (:bold t :foreground "orange"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
'(message-header-other-face ((t (:bold t :foreground "chocolate"))))
'(message-header-subject-face ((t (:bold t :foreground "yellow"))))
'(message-header-to-face ((t (:bold t :foreground "cadetblue"))))
'(message-header-xheader-face ((t (:bold t :foreground "light blue"))))
'(message-mml-face ((t (:bold t :foreground "Green3"))))
'(message-separator-face ((t (:foreground "blue3"))))
'(mode-line ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
'(mode-line-buffer-id ((t (:background "DarkRed" :foreground "white"))))
'(mode-line-mousable ((t (:background "DarkRed" :foreground "white"))))
'(mode-line-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
'(p4-depot-added-face ((t (:foreground "blue"))))
'(p4-depot-deleted-face ((t (:foreground "red"))))
'(p4-depot-unmapped-face ((t (:foreground "grey30"))))
'(p4-diff-change-face ((t (:foreground "dark green"))))
'(p4-diff-del-face ((t (:foreground "red"))))
'(p4-diff-file-face ((t (:background "gray90"))))
'(p4-diff-head-face ((t (:background "gray95"))))
'(p4-diff-ins-face ((t (:foreground "blue"))))
'(pointer ((t (nil))))
'(primary-selection ((t (:background "blue"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "blue"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "darkslateblue"))))
'(show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
'(text-cursor ((t (:background "yellow" :foreground "black"))))
'(toolbar ((t (nil))))
'(underline ((nil (:underline nil))))
'(vc-mode-face ((t (:background "darkolivegreen"))))
'(vertical-divider ((t (nil))))
'(widget ((t (nil))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "snow" :foreground "blue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'arjen)
;;; arjen-theme.el ends here

63
beige-diff-theme.el Normal file
View File

@ -0,0 +1,63 @@
;;; beige-diff-theme.el --- beige-diff theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of beige-diff theme from `color-themes'
;;; Code:
(deftheme beige-diff
"beige-diff theme")
(custom-theme-set-faces
'beige-diff
'(change-log-acknowledgement-face ((t (:foreground "firebrick"))))
'(change-log-conditionals-face ((t (:foreground "khaki" :background "sienna"))))
'(change-log-date-face ((t (:foreground "gold"))))
'(change-log-email-face ((t (:foreground "khaki" :underline t))))
'(change-log-file-face ((t (:bold t :foreground "lemon chiffon"))))
'(change-log-function-face ((t (:foreground "khaki" :background "sienna"))))
'(change-log-list-face ((t (:foreground "wheat"))))
'(change-log-name-face ((t (:bold t :foreground "light goldenrod"))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-context-face ((t (:foreground "grey50"))))
'(diff-file-header-face ((t (:bold t :foreground "lemon chiffon"))))
'(diff-function-face ((t (:foreground "grey50"))))
'(diff-header-face ((t (:foreground "lemon chiffon"))))
'(diff-hunk-header-face ((t (:foreground "light goldenrod"))))
'(diff-index-face ((t (:bold t :underline t))))
'(diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-removed-face ((t (nil))))
'(log-view-message-face ((t (:foreground "lemon chiffon")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'beige-diff)
;;; beige-diff-theme.el ends here

59
beige-eshell-theme.el Normal file
View File

@ -0,0 +1,59 @@
;;; beige-eshell-theme.el --- beige-eshell theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of beige-eshell theme from `color-themes'
;;; Code:
(deftheme beige-eshell
"beige-eshell theme")
(custom-theme-set-faces
'beige-eshell
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "dark khaki"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face
'(eshell-ls-product-face ((t (:foreground "dark sea green"))))
'(eshell-ls-readonly-face ((t (:foreground "light steel blue"))))
'(eshell-ls-special-face ((t (:foreground "gold"))))
'(eshell-ls-symlink-face ((t (:foreground "peach puff"))))
'(eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face
'(eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "lemon chiffon")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'beige-eshell)
;;; beige-eshell-theme.el ends here

317
bharadwaj-slate-theme.el Normal file
View File

@ -0,0 +1,317 @@
;;; bharadwaj-slate-theme.el --- bharadwaj-slate theme
;; Copyright (C) 2002 by Girish Bharadwaj
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of bharadwaj-slate theme from `color-themes'
;;; Code:
(deftheme bharadwaj-slate
"bharadwaj-slate theme")
(custom-theme-set-faces
'bharadwaj-slate
'(default ((t (:background "DarkSlateGray" :foreground "palegreen"))))
'(mouse ((t (:background "black"))))
'(cursor ((t (:background "khaki"))))
'(border ((t (:background "black"))))
'(display-time-mail-face ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(gnus-article-button-face ((t (:bold t :weight bold))))
'(gnus-article-mouse-face ((t (:background "darkolivegreen"))))
'(gnus-mouse-face ((t (:background "darkolivegreen"))))
'(help-highlight-face ((t (:underline t))))
'(ibuffer-deletion-face ((t (:foreground "lightblue3"))))
'(ibuffer-filter-group-name-face ((t (:bold t :weight bold))))
'(ibuffer-marked-face ((t (:bold t :foreground "Pink" :weight bold))))
'(ibuffer-title-face ((t (:foreground "lightblue3"))))
'(list-matching-lines-buffer-name-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "darkolivegreen"))))
'(widget-mouse-face ((t (:background "darkolivegreen"))))
'(bg:erc-color-face0 ((t (:background "White"))))
'(bg:erc-color-face1 ((t (:background "black"))))
'(bg:erc-color-face10 ((t (:background "lightblue1"))))
'(bg:erc-color-face11 ((t (:background "cyan"))))
'(bg:erc-color-face12 ((t (:background "blue"))))
'(bg:erc-color-face13 ((t (:background "deeppink"))))
'(bg:erc-color-face14 ((t (:background "gray50"))))
'(bg:erc-color-face15 ((t (:background "gray90"))))
'(bg:erc-color-face2 ((t (:background "blue4"))))
'(bg:erc-color-face3 ((t (:background "green4"))))
'(bg:erc-color-face4 ((t (:background "red"))))
'(bg:erc-color-face5 ((t (:background "brown"))))
'(bg:erc-color-face6 ((t (:background "purple"))))
'(bg:erc-color-face7 ((t (:background "orange"))))
'(bg:erc-color-face8 ((t (:background "yellow"))))
'(bg:erc-color-face9 ((t (:background "green"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :weight bold))))
'(button ((t (:underline t))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "dim gray"))))
'(custom-comment-tag-face ((t (:foreground "gray80"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "lime green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
'(erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold))))
'(erc-bold-face ((t (:bold t :weight bold))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "IndianRed"))))
'(erc-error-face ((t (:background "Red" :foreground "White"))))
'(erc-input-face ((t (:foreground "lightblue"))))
'(erc-inverse-face ((t (:background "Black" :foreground "White"))))
'(erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold))))
'(erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold))))
'(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-readonly-face ((t (:foreground "Pink"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
'(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
'(eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold))))
'(fg:erc-color-face0 ((t (:foreground "White"))))
'(fg:erc-color-face1 ((t (:foreground "black"))))
'(fg:erc-color-face10 ((t (:foreground "lightblue1"))))
'(fg:erc-color-face11 ((t (:foreground "cyan"))))
'(fg:erc-color-face12 ((t (:foreground "blue"))))
'(fg:erc-color-face13 ((t (:foreground "deeppink"))))
'(fg:erc-color-face14 ((t (:foreground "gray50"))))
'(fg:erc-color-face15 ((t (:foreground "gray90"))))
'(fg:erc-color-face2 ((t (:foreground "blue4"))))
'(fg:erc-color-face3 ((t (:foreground "green4"))))
'(fg:erc-color-face4 ((t (:foreground "red"))))
'(fg:erc-color-face5 ((t (:foreground "brown"))))
'(fg:erc-color-face6 ((t (:foreground "purple"))))
'(fg:erc-color-face7 ((t (:foreground "orange"))))
'(fg:erc-color-face8 ((t (:foreground "yellow"))))
'(fg:erc-color-face9 ((t (:foreground "green"))))
'(fixed-pitch ((t (:family "courier"))))
'(font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
'(font-lock-comment-face ((t (:foreground "violet" :height 1.0))))
'(font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
'(font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold))))
'(font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
'(font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
'(font-lock-string-face ((t (:foreground "red" :height 1.0))))
'(font-lock-type-face ((t (:foreground "lightblue3"))))
'(font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(fringe ((t (:background "DarkSlateGray"))))
'(gnus-cite-attribution-face ((t (:italic t))))
'(gnus-cite-face-1 ((t (:foreground "light blue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "light cyan"))))
'(gnus-cite-face-3 ((t (:foreground "light yellow"))))
'(gnus-cite-face-4 ((t (:foreground "light pink"))))
'(gnus-cite-face-5 ((t (:foreground "pale green"))))
'(gnus-cite-face-6 ((t (:foreground "beige"))))
'(gnus-cite-face-7 ((t (:foreground "orange"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :weight bold))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t :weight bold))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t :weight bold))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t :weight bold))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
'(gnus-header-content-face ((t (:italic t :foreground "forest green"))))
'(gnus-header-from-face ((t (:foreground "spring green"))))
'(gnus-header-name-face ((t (:foreground "SeaGreen"))))
'(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
'(gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
'(gnus-signature-face ((t (:italic t))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
'(gnus-summary-high-unread-face ((t (:bold t :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:underline "blueviolet" :overline "blueviolet" :background "grey20" :foreground "grey90"))))
'(highlight ((t (:background "darkolivegreen"))))
'(html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold))))
'(html-helper-italic-face ((t (:italic t :foreground "spring green"))))
'(html-helper-underline-face ((t (:foreground "cornsilk" :underline t))))
'(html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold))))
'(info-menu-6 ((t (nil))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
'(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
'(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
'(jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
'(jde-java-font-lock-italic-face ((t (:italic t))))
'(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
'(jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
'(jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(menu ((t (nil))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
'(message-header-name-face ((t (:foreground "DarkGreen"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :weight bold))))
'(message-header-other-face ((t (:foreground "#b00000"))))
'(message-header-subject-face ((t (:foreground "green3"))))
'(message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "blue3"))))
'(minibuffer-prompt ((t (:foreground "cyan"))))
'(mode-line ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :weight light))))
'(mode-line ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(mode-line-buffer-id ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(mode-line-mousable ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(mode-line-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet"))))
'(primary-selection ((t (:background "dimgray"))))
'(region ((t (:background "dimgray"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "SkyBlue4"))))
'(semantic-dirty-token-face ((t (:background "lightyellow"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(senator-intangible-face ((t (:foreground "gray75"))))
'(senator-momentary-highlight-face ((t (:background "gray30"))))
'(senator-read-only-face ((t (:background "#664444"))))
'(show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1))))
'(show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1))))
'(show-tabs-space-face ((t (:foreground "yellow"))))
'(show-tabs-tab-face ((t (:foreground "red"))))
'(speedbar-button-face ((t (:foreground "green3"))))
'(speedbar-directory-face ((t (:foreground "light blue"))))
'(speedbar-file-face ((t (:foreground "cyan"))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(template-message-face ((t (:bold t :weight bold))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t :weight bold))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default ((t (:background "DarkSlateGray" :foreground "palegreen"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(tool-bar ((t (:background "DarkSlateGray" :foreground "White"))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray"))))
'(zmacs-region ((t (:background "dimgray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'bharadwaj-slate)
;;; bharadwaj-slate-theme.el ends here

377
bharadwaj-theme.el Normal file
View File

@ -0,0 +1,377 @@
;;; bharadwaj-theme.el --- bharadwaj theme
;; Copyright (C) 2001 by Girish Bharadwaj
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of bharadwaj theme from `color-themes'
;;; Code:
(deftheme bharadwaj
"bharadwaj theme")
(custom-theme-set-faces
'bharadwaj
'(default ((t (:background "gainsboro" :foreground "black"))))
'(mouse ((t (:foreground "grey15"))))
'(cursor ((t (:background "grey15"))))
'(border ((t (:foreground "black"))))
'(gnus-mouse-face ((t (:background "LightSkyBlue"))))
'(smiley-mouse-face ((t (:background "LightSkyBlue"))))
'(bbdb-company ((t (nil))))
'(bbdb-field-name ((t (:bold t))))
'(bbdb-field-value ((t (nil))))
'(bbdb-name ((t (:underline t))))
'(blank-space-face ((t (nil))))
'(blank-tab-face ((t (nil))))
'(blue ((t (nil))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:bold t))))
'(border-glyph ((t (nil))))
'(calendar-today-face ((t (:underline t))))
'(comint-input-face ((t (:foreground "deepskyblue"))))
'(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
'(cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red"))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(custom-button-face ((t (:bold t))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
'(cvs-filename-face ((t (:foreground "blue4"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "blue4"))))
'(cvs-marked-face ((t (:bold t :foreground "green3"))))
'(cvs-msg-face ((t (nil))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:bold t :foreground "red"))))
'(dired-face-boring ((t (:foreground "Gray65"))))
'(dired-face-directory ((t (:bold t :foreground "forestgreen"))))
'(dired-face-executable ((t (:foreground "indianred"))))
'(dired-face-flagged ((t (:background "SlateGray"))))
'(dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
'(dired-face-permissions ((t (nil))))
'(dired-face-setuid ((t (:foreground "Red"))))
'(dired-face-socket ((t (:foreground "magenta"))))
'(dired-face-symlink ((t (:foreground "grey95"))))
'(display-time-mail-balloon-enhance-face ((t (:background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
'(display-time-time-balloon-face ((t (:foreground "red"))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (nil))))
'(erc-error-face ((t (:bold t))))
'(erc-input-face ((t (nil))))
'(erc-inverse-face ((t (nil))))
'(erc-notice-face ((t (nil))))
'(erc-pal-face ((t (nil))))
'(erc-prompt-face ((t (nil))))
'(erc-underline-face ((t (nil))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
'(eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
'(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
'(eshell-ls-picture-face ((t (nil))))
'(eshell-ls-product-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-readonly-face ((t (:foreground "Brown"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
'(eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
'(eshell-prompt-face ((t (:bold t :foreground "Red"))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green"))))
'(excerpt ((t (nil))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
'(fg:black ((t (:foreground "black"))))
'(fixed ((t (:bold t))))
'(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
'(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
'(font-latex-bold-face ((t (nil))))
'(font-latex-italic-face ((t (nil))))
'(font-latex-math-face ((t (nil))))
'(font-latex-sedate-face ((t (nil))))
'(font-latex-string-face ((t (nil))))
'(font-latex-warning-face ((t (nil))))
'(font-lock-builtin-face ((t (:foreground "ForestGreen"))))
'(font-lock-comment-face ((t (:foreground "grey55"))))
'(font-lock-constant-face ((t (:foreground "OliveDrab"))))
'(font-lock-doc-string-face ((t (:bold t :foreground "blue4"))))
'(font-lock-exit-face ((t (nil))))
'(font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue"))))
'(font-lock-keyword-face ((t (:foreground "DarkBlue"))))
'(font-lock-preprocessor-face ((t (:foreground "blue3"))))
'(font-lock-reference-face ((t (:foreground "red3"))))
'(font-lock-string-face ((t (:foreground "DarkRed"))))
'(font-lock-type-face ((t (:foreground "SteelBlue4"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
'(fringe ((t (:background "grey95"))))
'(gnus-cite-attribution-face ((t (:bold t))))
'(gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:bold t))))
'(gnus-emphasis-highlight-words ((t (nil))))
'(gnus-emphasis-italic ((t (nil))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t))))
'(gnus-filterhist-face-1 ((t (nil))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-header-content-face ((t (:foreground "indianred4"))))
'(gnus-header-from-face ((t (:bold t :foreground "red3"))))
'(gnus-header-name-face ((t (:bold t :foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue"))))
'(gnus-header-subject-face ((t (:bold t :foreground "red4"))))
'(gnus-picons-face ((t (:background "white" :foreground "black"))))
'(gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
'(gnus-signature-face ((t (nil))))
'(gnus-splash ((t (nil))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-low-unread-face ((t (nil))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (:bold t))))
'(gnus-summary-selected-face ((t (:underline t))))
'(gnus-x-face ((t (:background "white" :foreground "black"))))
'(green ((t (nil))))
'(gui-button-face ((t (:background "grey75"))))
'(gui-element ((t (:background "Gray80"))))
'(highlight ((t (:background "LightSkyBlue"))))
'(highlight-changes-delete-face ((t (:underline t :foreground "red"))))
'(highlight-changes-face ((t (:foreground "red"))))
'(highline-face ((t (:background "grey95"))))
'(holiday-face ((t (:background "pink"))))
'(html-helper-italic-face ((t (nil))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:bold t))))
'(info-xref ((t (:bold t))))
'(isearch ((t (:background "yellow"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(italic ((t (nil))))
'(lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
'(left-margin ((t (nil))))
'(linemenu-face ((t (nil))))
'(list-mode-item-selected ((t (nil))))
'(makefile-space-face ((t (:background "hotpink"))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue"))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:bold t))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "white" :foreground "black"))))
'(mode-line-buffer-id ((t (:background "white" :foreground "black"))))
'(mode-line-mousable ((t (:background "white" :foreground "black"))))
'(mode-line-mousable-minor-mode ((t (:background "white" :foreground "black"))))
'(paren-blink-off ((t (:foreground "gray80"))))
'(paren-face-match ((t (:background "turquoise"))))
'(paren-face-mismatch ((t (:background "purple" :foreground "white"))))
'(paren-face-no-match ((t (:background "yellow" :foreground "black"))))
'(paren-match ((t (:background "darkseagreen2"))))
'(paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
'(paren-mismatch-face ((t (:bold t))))
'(paren-no-match-face ((t (:bold t))))
'(pointer ((t (nil))))
'(primary-selection ((t (nil))))
'(red ((t (nil))))
'(region ((t (:background "grey80"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "grey55"))))
'(sgml-comment-face ((t (:foreground "dark turquoise"))))
'(sgml-doctype-face ((t (nil))))
'(sgml-end-tag-face ((t (nil))))
'(sgml-entity-face ((t (nil))))
'(sgml-ignored-face ((t (nil))))
'(sgml-ms-end-face ((t (:foreground "green"))))
'(sgml-ms-start-face ((t (:foreground "green"))))
'(sgml-pi-face ((t (:foreground "lime green"))))
'(sgml-sgml-face ((t (nil))))
'(sgml-short-ref-face ((t (:foreground "deep sky blue"))))
'(sgml-start-tag-face ((t (nil))))
'(shell-option-face ((t (:foreground "blue"))))
'(shell-output-2-face ((t (:foreground "darkseagreen"))))
'(shell-output-3-face ((t (:foreground "slategrey"))))
'(shell-output-face ((t (:foreground "palegreen"))))
'(shell-prompt-face ((t (:foreground "red"))))
'(show-paren-match-face ((t (:background "grey80"))))
'(show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:bold t :foreground "green4"))))
'(speedbar-directory-face ((t (:bold t :foreground "blue4"))))
'(speedbar-file-face ((t (:bold t :foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:underline t :foreground "red"))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(swbuff-current-buffer-face ((t (:bold t))))
'(template-message-face ((t (:bold t))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(text-cursor ((t (:background "grey15" :foreground "gainsboro"))))
'(toolbar ((t (nil))))
'(underline ((t (:underline t))))
'(vc-annotate-face-0046FF ((t (nil))))
'(vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
'(vertical-divider ((t (nil))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
'(vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
'(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(vvb-face ((t (:background "pink" :foreground "black"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "navy" :foreground "white"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "royalblue" :foreground "white"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (nil))))
'(woman-unknown-face ((t (nil))))
'(xref-keyword-face ((t (:foreground "blue"))))
'(xref-list-pilot-face ((t (:foreground "navy"))))
'(xref-list-symbol-face ((t (:foreground "navy"))))
'(yellow ((t (nil))))
'(zmacs-region ((t (:background "royalblue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'bharadwaj)
;;; bharadwaj-theme.el ends here

217
billw-theme.el Normal file
View File

@ -0,0 +1,217 @@
;;; billw-theme.el --- billw theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of billw theme from `color-themes'
;;; Code:
(deftheme billw
"billw theme")
(custom-theme-set-faces
'billw
'(default ((t (:background "black" :foreground "cornsilk"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "white"))))
'(border ((t (:foreground "black"))))
'(mode-line ((t (:foreground "black" :background "wheat"))))
'(mode-line-buffer-id ((t (:foreground "black" :background "wheat"))))
'(mode-line-mousable ((t (:foreground "black" :background "wheat"))))
'(mode-line-mousable-minor-mode ((t (:foreground "black" :background "wheat"))))
'(highlight ((t (:foreground "wheat" :background "darkslategray"))))
'(bold ((t (:bold t))))
'(italic ((t (:italic t))))
'(bold-italic ((t (:bold t :italic t))))
'(region ((t (:background "dimgray"))))
'(secondary-selection ((t (:background "deepskyblue4"))))
'(underline ((t (:underline t))))
'(info-node ((t (:foreground "yellow" :bold t :italic t))))
'(info-menu-5 ((t (:underline t))))
'(info-xref ((t (:foreground "yellow" :bold t))))
'(diary-face ((t (:foreground "orange"))))
'(calendar-today-face ((t (:underline t))))
'(holiday-face ((t (:background "red"))))
'(show-paren-match-face ((t (:background "deepskyblue4"))))
'(show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
'(font-lock-comment-face ((t (:foreground "gold"))))
'(font-lock-string-face ((t (:foreground "orange"))))
'(font-lock-keyword-face ((t (:foreground "cyan1"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-function-name-face ((t (:foreground "mediumspringgreen"))))
'(font-lock-variable-name-face ((t (:foreground "light salmon"))))
'(font-lock-type-face ((t (:foreground "yellow1"))))
'(font-lock-constant-face ((t (:foreground "salmon"))))
'(font-lock-warning-face ((t (:foreground "gold" :bold t))))
'(blank-space-face ((t (:background "LightGray"))))
'(blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
'(highline-face ((t (:background "gray35"))))
'(eshell-ls-directory-face ((t (:foreground "green" :bold t))))
'(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
'(eshell-ls-executable-face ((t (:foreground "orange" :bold t))))
'(eshell-ls-readonly-face ((t (:foreground "gray"))))
'(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
'(eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
'(eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
'(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
'(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-clutter-face ((t (:foreground "blue" :bold t))))
'(sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
'(custom-button-face ((t (:foreground "white"))))
'(sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
'(sgml-doctype-face ((t (:foreground "orange"))))
'(sgml-sgml-face ((t (:foreground "yellow"))))
'(vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
'(custom-documentation-face ((t (:foreground "white"))))
'(sgml-end-tag-face ((t (:foreground "greenyellow"))))
'(linemenu-face ((t (:background "gray30"))))
'(sgml-entity-face ((t (:foreground "gold"))))
'(message-header-to-face ((t (:foreground "floral white" :bold t))))
'(message-header-cc-face ((t (:foreground "ivory"))))
'(message-header-subject-face ((t (:foreground "papaya whip" :bold t))))
'(message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t))))
'(message-header-other-face ((t (:foreground "pale turquoise"))))
'(message-header-name-face ((t (:foreground "light sky blue"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-separator-face ((t (:foreground "sandy brown"))))
'(message-cited-text-face ((t (:foreground "plum1"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:foreground "white" :bold t))))
'(gnus-group-news-1-empty-face ((t (:foreground "white"))))
'(gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t))))
'(gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
'(gnus-group-news-3-face ((t (:foreground "tan" :bold t))))
'(gnus-group-news-3-empty-face ((t (:foreground "tan"))))
'(gnus-group-news-4-face ((t (:foreground "white" :bold t))))
'(gnus-group-news-4-empty-face ((t (:foreground "white"))))
'(gnus-group-news-5-face ((t (:foreground "wheat" :bold t))))
'(gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
'(gnus-group-news-6-face ((t (:foreground "tan" :bold t))))
'(gnus-group-news-6-empty-face ((t (:foreground "tan"))))
'(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
'(gnus-group-mail-1-face ((t (:foreground "white" :bold t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
'(gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t))))
'(gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
'(gnus-group-mail-3-face ((t (:foreground "tan" :bold t))))
'(gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
'(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
'(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
'(gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t))))
'(gnus-summary-cancelled-face ((t (:foreground "black" :background "gray"))))
'(gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t))))
'(gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t))))
'(gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t))))
'(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
'(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
'(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
'(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
'(gnus-splash-face ((t (:foreground "gold"))))
'(font-latex-bold-face ((t (nil))))
'(font-latex-italic-face ((t (nil))))
'(font-latex-math-face ((t (nil))))
'(font-latex-sedate-face ((t (:foreground "Gray85"))))
'(font-latex-string-face ((t (:foreground "orange"))))
'(font-latex-warning-face ((t (:foreground "gold"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-button-face ((t (:bold t))))
'(widget-field-face ((t (:background "gray20"))))
'(widget-single-line-field-face ((t (:background "gray20"))))
'(widget-inactive-face ((t (:foreground "wheat"))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
'(custom-rogue-face ((t (:foreground "pink" :background "black"))))
'(custom-modified-face ((t (:foreground "white" :background "blue"))))
'(custom-set-face ((t (:foreground "blue"))))
'(custom-changed-face ((t (:foreground "wheat" :background "skyblue"))))
'(custom-saved-face ((t (:underline t))))
'(custom-state-face ((t (:foreground "light green"))))
'(custom-variable-tag-face ((t (:foreground "skyblue" :underline t))))
'(custom-variable-button-face ((t (:bold t :underline t))))
'(custom-face-tag-face ((t (:foreground "white" :underline t))))
'(custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
'(custom-group-tag-face ((t (:foreground "skyblue" :underline t))))
'(swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
'(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
'(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
'(ediff-current-diff-face-C ((t (:foreground "white" :background "indianred"))))
'(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
'(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
'(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
'(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
'(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
'(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
'(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
'(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
'(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
'(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
'(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
'(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
'(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4"))))
'(gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t))))
'(gnus-emphasis-bold-italic ((t (:bold t :italic t))))
'(gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t))))
'(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
'(gnus-signature-face ((t (:italic t))))
'(gnus-header-from-face ((t (:foreground "wheat"))))
'(gnus-header-subject-face ((t (:foreground "wheat" :bold t))))
'(gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t))))
'(gnus-header-name-face ((t (:foreground "white"))))
'(gnus-header-content-face ((t (:foreground "tan" :italic t))))
'(gnus-filterhist-face-1 ((t (nil))))
'(gnus-splash ((t (:foreground "Brown"))))
'(gnus-cite-attribution-face ((t (:italic t))))
'(gnus-cite-face-1 ((t (:foreground "light blue"))))
'(gnus-cite-face-2 ((t (:foreground "light cyan"))))
'(gnus-cite-face-3 ((t (:foreground "light yellow"))))
'(gnus-cite-face-4 ((t (:foreground "light pink"))))
'(gnus-cite-face-5 ((t (:foreground "pale green"))))
'(gnus-cite-face-6 ((t (:foreground "beige"))))
'(gnus-cite-face-7 ((t (:foreground "orange"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'billw)
;;; billw-theme.el ends here

123
black-on-gray-theme.el Normal file
View File

@ -0,0 +1,123 @@
;;; black-on-gray-theme.el --- black-on-gray theme
;; Copyright (C) 2002 by sbhojwani
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of black-on-gray theme from `color-themes'
;;; Code:
(deftheme black-on-gray
"black-on-gray theme")
(custom-theme-set-faces
'black-on-gray
'(default ((t (:background "white" :foreground "black"))))
'(border ((t (:foreground "blue"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t :size "10pt"))))
'(bold-italic ((t (:italic t :bold t :size "10pt"))))
'(border-glyph ((t (:size "11pt"))))
'(buffers-tab ((t (:background "gray75"))))
'(buffers-tab-face ((t (:background "gray75"))))
'(display-time-mail-balloon-enhance-face ((t (:background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
'(display-time-time-balloon-face ((t (:foreground "red"))))
'(ecb-bucket-token-face ((t (:bold t :size "10pt"))))
'(ecb-default-general-face ((t (nil))))
'(ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow"))))
'(ecb-directories-general-face ((t (nil))))
'(ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow"))))
'(ecb-history-face ((t (:background "cornflower blue" :foreground "yellow"))))
'(ecb-history-general-face ((t (nil))))
'(ecb-method-face ((t (:background "cornflower blue" :foreground "yellow"))))
'(ecb-methods-general-face ((t (nil))))
'(ecb-source-face ((t (:background "cornflower blue" :foreground "yellow"))))
'(ecb-source-in-directories-buffer-face ((t (:foreground "medium blue"))))
'(ecb-sources-general-face ((t (nil))))
'(ecb-token-header-face ((t (:background "SeaGreen1"))))
'(ecb-type-token-class-face ((t (:bold t :size "10pt"))))
'(ecb-type-token-enum-face ((t (:bold t :size "10pt"))))
'(ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray"))))
'(ecb-type-token-interface-face ((t (:bold t :size "10pt"))))
'(ecb-type-token-struct-face ((t (:bold t :size "10pt"))))
'(ecb-type-token-typedef-face ((t (:bold t :size "10pt"))))
'(font-lock-builtin-face ((t (:foreground "red3"))))
'(font-lock-constant-face ((t (:foreground "blue3"))))
'(font-lock-comment-face ((t (:foreground "blue"))))
'(font-lock-doc-face ((t (:foreground "green4"))))
'(font-lock-doc-string-face ((t (:foreground "green4"))))
'(font-lock-function-name-face ((t (nil))))
'(font-lock-keyword-face ((t (nil))))
'(font-lock-preprocessor-face ((t (:foreground "blue3"))))
'(font-lock-reference-face ((t (:foreground "red3"))))
'(font-lock-string-face ((t (nil))))
'(font-lock-type-face ((t (nil))))
'(font-lock-variable-name-face ((t (nil))))
'(font-lock-warning-face ((t (nil))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75"))))
'(gui-element ((t (:size "8pt" :background "gray75"))))
'(highlight ((t (:background "darkseagreen2"))))
'(isearch ((t (:background "paleturquoise"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(italic ((t (:size "10pt"))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:background "gray68"))))
'(mode-line ((t (:background "gray75"))))
'(mode-line-buffer-id ((t (:background "gray75" :foreground "blue4"))))
'(mode-line-mousable ((t (:background "gray75" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:background "gray75" :foreground "green4"))))
'(paren-blink-off ((t (:foreground "gray"))))
'(paren-match ((t (:background "darkseagreen2"))))
'(paren-mismatch ((t (nil))))
'(pointer ((t (nil))))
'(primary-selection ((t (:background "gray65"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "gray65"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(semantic-dirty-token-face ((t (nil))))
'(semantic-unmatched-syntax-face ((t (nil))))
'(text-cursor ((t (:background "red" :foreground "gray"))))
'(toolbar ((t (:background "gray75"))))
'(underline ((t (:underline t))))
'(vertical-divider ((t (:background "gray75"))))
'(widget ((t (:size "8pt" :background "gray75"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (nil))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "gray65")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'black-on-gray)
;;; black-on-gray-theme.el ends here

99
blippblopp-theme.el Normal file
View File

@ -0,0 +1,99 @@
;;; blippblopp-theme.el --- blippblopp theme
;; Copyright (C) 2001 by Thomas Sicheritz-Ponten
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blippblopp theme from `color-themes'
;;; Code:
(deftheme blippblopp
"blippblopp theme")
(custom-theme-set-faces
'blippblopp
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "Red3"))))
'(border ((t (:foreground "black"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(excerpt ((t (:italic t))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
'(fg:black ((t (:foreground "black"))))
'(fixed ((t (:bold t))))
'(font-lock-builtin-face ((t (:foreground "red3"))))
'(font-lock-comment-face ((t (:foreground "orange"))))
'(font-lock-constant-face ((t (:foreground "red3"))))
'(font-lock-doc-string-face ((t (:foreground "darkgreen"))))
'(font-lock-exit-face ((t (:foreground "green"))))
'(font-lock-function-name-face ((t (:bold t :foreground "red"))))
'(font-lock-keyword-face ((t (:bold t :foreground "steelblue"))))
'(font-lock-preprocessor-face ((t (:foreground "blue3"))))
'(font-lock-reference-face ((t (:foreground "red3"))))
'(font-lock-string-face ((t (:foreground "green4"))))
'(font-lock-type-face ((t (:bold t :foreground "blue"))))
'(font-lock-variable-name-face ((t (:foreground "black"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(green ((t (:foreground "green"))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue"))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "dimgray" :foreground "lemonchiffon"))))
'(mode-line-buffer-id ((t (:background "dimgray" :foreground "green3"))))
'(mode-line-mousable ((t (:background "dimgray" :foreground "orange"))))
'(mode-line-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4"))))
'(primary-selection ((t (:background "gray65"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "gray65"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(text-cursor ((t (:background "Red3" :foreground "white"))))
'(toolbar ((t (:background "Gray80"))))
'(underline ((t (:underline t))))
'(vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
'(vertical-divider ((t (:background "Gray80"))))
'(xref-keyword-face ((t (:foreground "blue"))))
'(xref-list-pilot-face ((t (:foreground "navy"))))
'(xref-list-symbol-face ((t (:foreground "navy"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "gray65")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blippblopp)
;;; blippblopp-theme.el ends here

90
blue-erc-theme.el Normal file
View File

@ -0,0 +1,90 @@
;;; blue-erc-theme.el --- blue-erc theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blue-erc theme from `color-themes'
;;; Code:
(deftheme blue-erc
"blue-erc theme")
(custom-theme-set-faces
'blue-erc
'(erc-action-face ((t (nil))))
'(erc-bold-face ((t (:bold t))))
'(erc-current-nick-face ((t (:bold t :foreground "yellow"))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "pale green"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-highlight-face ((t (:bold t :foreground "pale green"))))
'(erc-input-face ((t (:foreground "light blue"))))
'(erc-inverse-face ((t (:background "steel blue"))))
'(erc-keyword-face ((t (:foreground "orange" :bold t))))
'(erc-notice-face ((t (:foreground "light salmon"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "light blue" :bold t))))
'(fg:erc-color-face0 ((t (:foreground "white"))))
'(fg:erc-color-face1 ((t (:foreground "beige"))))
'(fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
'(fg:erc-color-face3 ((t (:foreground "light cyan"))))
'(fg:erc-color-face4 ((t (:foreground "powder blue"))))
'(fg:erc-color-face5 ((t (:foreground "sky blue"))))
'(fg:erc-color-face6 ((t (:foreground "dark sea green"))))
'(fg:erc-color-face7 ((t (:foreground "pale green"))))
'(fg:erc-color-face8 ((t (:foreground "medium spring green"))))
'(fg:erc-color-face9 ((t (:foreground "khaki"))))
'(fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
'(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
'(fg:erc-color-face12 ((t (:foreground "light yellow"))))
'(fg:erc-color-face13 ((t (:foreground "yellow"))))
'(fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
'(fg:erc-color-face15 ((t (:foreground "lime green"))))
'(bg:erc-color-face0 ((t (nil))))
'(bg:erc-color-face1 ((t (nil))))
'(bg:erc-color-face2 ((t (nil))))
'(bg:erc-color-face3 ((t (nil))))
'(bg:erc-color-face4 ((t (nil))))
'(bg:erc-color-face5 ((t (nil))))
'(bg:erc-color-face6 ((t (nil))))
'(bg:erc-color-face7 ((t (nil))))
'(bg:erc-color-face8 ((t (nil))))
'(bg:erc-color-face9 ((t (nil))))
'(bg:erc-color-face10 ((t (nil))))
'(bg:erc-color-face11 ((t (nil))))
'(bg:erc-color-face12 ((t (nil))))
'(bg:erc-color-face13 ((t (nil))))
'(bg:erc-color-face14 ((t (nil))))
'(bg:erc-color-face15 ((t (nil)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blue-erc)
;;; blue-erc-theme.el ends here

64
blue-eshell-theme.el Normal file
View File

@ -0,0 +1,64 @@
;;; blue-eshell-theme.el --- blue-eshell theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blue-eshell theme from `color-themes'
;;; Code:
(deftheme blue-eshell
"blue-eshell theme")
(custom-theme-set-faces
'blue-eshell
'(default ((t (:background "Blue-Eshell" :foreground "DarkSlateGray4"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:foreground "black"))))
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "Gold"))))
'(eshell-ls-symlink-face ((t (:foreground "White"))))
'(eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face
'(eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "powder blue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blue-eshell)
;;; blue-eshell-theme.el ends here

114
blue-gnus-theme.el Normal file
View File

@ -0,0 +1,114 @@
;;; blue-gnus-theme.el --- blue-gnus theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blue-gnus theme from `color-themes'
;;; Code:
(deftheme blue-gnus
"blue-gnus theme")
(custom-theme-set-faces
'blue-gnus
'(gnus-cite-attribution-face ((t (:foreground "lemon chiffon" :bold t))))
'(gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
'(gnus-cite-face-2 ((t (:foreground "Khaki"))))
'(gnus-cite-face-3 ((t (:foreground "Coral"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "bisque"))))
'(gnus-cite-face-7 ((t (:foreground "peru"))))
'(gnus-cite-face-8 ((t (:foreground "light coral"))))
'(gnus-cite-face-9 ((t (:foreground "plum"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "White"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-1-empty-face ((t (:foreground "White"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(gnus-signature-face ((t (:foreground "Grey"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
'(gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
'(gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
'(gnus-summary-low-read-face ((t (:foreground "slate gray"))))
'(gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
'(gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
'(gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
'(message-cited-text-face ((t (:foreground "LightSalmon"))))
'(message-header-cc-face ((t (:foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(message-header-other-face ((t (:foreground "MediumAquamarine"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(message-header-to-face ((t (:bold t :foreground "light cyan"))))
'(message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
'(message-separator-face ((t (:foreground "chocolate")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blue-gnus)
;;; blue-gnus-theme.el ends here

136
blue-mood-theme.el Normal file
View File

@ -0,0 +1,136 @@
;;; blue-mood-theme.el --- blue-mood theme
;; Copyright (C) 2002 by Nelson Loyola
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blue-mood theme from `color-themes'
;;; Code:
(deftheme blue-mood
"blue-mood theme")
(custom-theme-set-faces
'blue-mood
'(default ((t (:background "DodgerBlue4" :foreground "white smoke"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "DarkGoldenrod1"))))
'(border ((t (:foreground "Blue"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (nil))))
'(border-glyph ((t (nil))))
'(cmode-bracket-face ((t (:bold t))))
'(cperl-array-face ((t (:bold t :foreground "wheat"))))
'(cperl-hash-face ((t (:bold t :foreground "chartreuse"))))
'(custom-button-face ((t (nil))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :foreground "blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:bold t :foreground "cyan"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :foreground "blue"))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
'(font-lock-builtin-face ((t (:bold t :foreground "wheat"))))
'(font-lock-comment-face ((t (:bold t :foreground "gray72"))))
'(font-lock-constant-face ((t (:bold t :foreground "cyan3"))))
'(font-lock-doc-string-face ((t (:foreground "#00C000"))))
'(font-lock-function-name-face ((t (:bold t :foreground "chartreuse"))))
'(font-lock-keyword-face ((t (:bold t :foreground "gold1"))))
'(font-lock-other-emphasized-face ((t (:bold t :foreground "gold1"))))
'(font-lock-other-type-face ((t (:bold t :foreground "gold1"))))
'(font-lock-preprocessor-face ((t (:foreground "plum"))))
'(font-lock-reference-face ((t (:bold t :foreground "orangered"))))
'(font-lock-string-face ((t (:foreground "tomato"))))
'(font-lock-type-face ((t (:bold t :foreground "gold1"))))
'(font-lock-variable-name-face ((t (:foreground "light yellow"))))
'(font-lock-warning-face ((t (:foreground "tomato"))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75" :foreground "black"))))
'(gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000"))))
'(highlight ((t (:background "red" :foreground "yellow"))))
'(isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
'(italic ((t (nil))))
'(lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow"))))
'(mode-line ((t (:background "goldenrod" :foreground "darkblue"))))
'(mode-line-buffer-id ((t (:background "goldenrod" :foreground "darkblue"))))
'(mode-line-mousable ((t (:background "goldenrod" :foreground "darkblue"))))
'(mode-line-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue"))))
'(my-tab-face ((t (:background "SlateBlue1"))))
'(p4-depot-added-face ((t (:foreground "steelblue1"))))
'(p4-depot-deleted-face ((t (:foreground "red"))))
'(p4-depot-unmapped-face ((t (:foreground "grey90"))))
'(p4-diff-change-face ((t (:foreground "dark green"))))
'(p4-diff-del-face ((t (:bold t :foreground "salmon"))))
'(p4-diff-file-face ((t (:background "blue"))))
'(p4-diff-head-face ((t (:background "blue"))))
'(p4-diff-ins-face ((t (:foreground "steelblue1"))))
'(paren-blink-off ((t (:foreground "DodgerBlue4"))))
'(paren-match ((t (:background "red" :foreground "yellow"))))
'(paren-mismatch ((t (:background "DeepPink"))))
'(pointer ((t (:background "white"))))
'(primary-selection ((t (:bold t :background "medium sea green"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "red" :foreground "yellow"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
'(show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
'(show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
'(show-trailing-whitespace ((t (:background "red" :foreground "blue"))))
'(speedbar-button-face ((t (:foreground "white"))))
'(speedbar-directory-face ((t (:foreground "gray"))))
'(speedbar-file-face ((t (:foreground "gold1"))))
'(speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1"))))
'(speedbar-selected-face ((t (:underline t :foreground "red"))))
'(speedbar-tag-face ((t (:foreground "chartreuse"))))
'(text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4"))))
'(toolbar ((t (:background "#e7e3d6" :foreground "#000000"))))
'(underline ((t (:underline t))))
'(vertical-divider ((t (:background "#e7e3d6" :foreground "#000000"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "white" :foreground "midnightblue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blue-mood)
;;; blue-mood-theme.el ends here

263
blue-sea-theme.el Normal file
View File

@ -0,0 +1,263 @@
;;; blue-sea-theme.el --- blue-sea theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of blue-sea theme from `color-themes'
;;; Code:
(deftheme blue-sea
"blue-sea theme")
(custom-theme-set-faces
'blue-sea
'(default ((t (:background "MidnightBlue" :foreground "Grey"))))
'(mouse ((t (:foreground "Grey"))))
'(cursor ((t (:background "Grey"))))
'(border ((t (:foreground "Grey"))))
'(gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
'(gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
'(gnus-cite-face-2 ((t (:foreground "Khaki"))))
'(gnus-cite-face-3 ((t (:foreground "Coral"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "bisque"))))
'(gnus-cite-face-7 ((t (:foreground "peru"))))
'(gnus-cite-face-8 ((t (:foreground "light coral"))))
'(gnus-cite-face-9 ((t (:foreground "plum"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "White"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-1-empty-face ((t (:foreground "White"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(gnus-signature-face ((t (:foreground "Grey"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
'(gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
'(gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
'(gnus-summary-low-read-face ((t (:foreground "slate gray"))))
'(gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
'(gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
'(gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
'(message-cited-text-face ((t (:foreground "LightSalmon"))))
'(message-header-cc-face ((t (:foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(message-header-other-face ((t (:foreground "MediumAquamarine"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(message-header-to-face ((t (:bold t :foreground "light cyan"))))
'(message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
'(message-separator-face ((t (:foreground "chocolate"))))
'(erc-action-face ((t (nil))))
'(erc-bold-face ((t (:bold t))))
'(erc-current-nick-face ((t (:bold t :foreground "yellow"))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "pale green"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-highlight-face ((t (:bold t :foreground "pale green"))))
'(erc-input-face ((t (:foreground "light blue"))))
'(erc-inverse-face ((t (:background "steel blue"))))
'(erc-keyword-face ((t (:foreground "orange" :bold t))))
'(erc-notice-face ((t (:foreground "light salmon"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "light blue" :bold t))))
'(fg:erc-color-face0 ((t (:foreground "white"))))
'(fg:erc-color-face1 ((t (:foreground "beige"))))
'(fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
'(fg:erc-color-face3 ((t (:foreground "light cyan"))))
'(fg:erc-color-face4 ((t (:foreground "powder blue"))))
'(fg:erc-color-face5 ((t (:foreground "sky blue"))))
'(fg:erc-color-face6 ((t (:foreground "dark sea green"))))
'(fg:erc-color-face7 ((t (:foreground "pale green"))))
'(fg:erc-color-face8 ((t (:foreground "medium spring green"))))
'(fg:erc-color-face9 ((t (:foreground "khaki"))))
'(fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
'(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
'(fg:erc-color-face12 ((t (:foreground "light yellow"))))
'(fg:erc-color-face13 ((t (:foreground "yellow"))))
'(fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
'(fg:erc-color-face15 ((t (:foreground "lime green"))))
'(bg:erc-color-face0 ((t (nil))))
'(bg:erc-color-face1 ((t (nil))))
'(bg:erc-color-face2 ((t (nil))))
'(bg:erc-color-face3 ((t (nil))))
'(bg:erc-color-face4 ((t (nil))))
'(bg:erc-color-face5 ((t (nil))))
'(bg:erc-color-face6 ((t (nil))))
'(bg:erc-color-face7 ((t (nil))))
'(bg:erc-color-face8 ((t (nil))))
'(bg:erc-color-face9 ((t (nil))))
'(bg:erc-color-face10 ((t (nil))))
'(bg:erc-color-face11 ((t (nil))))
'(bg:erc-color-face12 ((t (nil))))
'(bg:erc-color-face13 ((t (nil))))
'(bg:erc-color-face14 ((t (nil))))
'(bg:erc-color-face15 ((t (nil))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:bold t :foreground "beige"))))
'(calendar-today-face ((t (:underline t))))
'(cperl-array-face ((t (:foreground "light salmon" :bold t))))
'(cperl-hash-face ((t (:foreground "beige" :bold t :italic t))))
'(cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
'(custom-button-face ((t (:foreground "gainsboro"))))
'(custom-changed-face ((t (:foreground "white" :background "blue"))))
'(custom-documentation-face ((t (:foreground "light blue"))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:foreground "pale turquoise" :bold t))))
'(custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
'(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
'(custom-modified-face ((t (:foreground "white" :background "blue"))))
'(custom-rogue-face ((t (:foreground "pink" :background "black"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:foreground "blue" :background "white"))))
'(custom-state-face ((t (:foreground "light salmon"))))
'(custom-variable-button-face ((t (:bold t :underline t))))
'(custom-variable-tag-face ((t (:foreground "turquoise" :bold t))))
'(diary-face ((t (:foreground "red"))))
'(dired-face-directory ((t (:bold t :foreground "sky blue"))))
'(dired-face-permissions ((t (:foreground "aquamarine"))))
'(dired-face-flagged ((t (:foreground "tomato"))))
'(dired-face-marked ((t (:foreground "light salmon"))))
'(dired-face-executable ((t (:foreground "green yellow"))))
'(eshell-ls-archive-face ((t (:bold t :foreground "medium purple"))))
'(eshell-ls-backup-face ((t (:foreground "dim gray"))))
'(eshell-ls-clutter-face ((t (:foreground "dim gray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue"))))
'(eshell-ls-executable-face ((t (:bold t :foreground "aquamarine"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "violet"))))
'(eshell-ls-product-face ((t (:foreground "light steel blue"))))
'(eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "gold"))))
'(eshell-ls-symlink-face ((t (:foreground "white"))))
'(eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
'(eshell-prompt-face ((t (:foreground "light sky blue" :bold t))))
'(excerpt ((t (:italic t))))
'(fixed ((t (:bold t))))
'(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
'(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
'(font-lock-builtin-face ((t (:foreground "aquamarine"))))
'(font-lock-comment-face ((t (:foreground "light blue"))))
'(font-lock-constant-face ((t (:foreground "pale green"))))
'(font-lock-doc-string-face ((t (:foreground "sky blue"))))
'(font-lock-function-name-face ((t (:bold t :foreground "aquamarine"))))
'(font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t))))
'(font-lock-reference-face ((t (:foreground "pale green"))))
'(font-lock-string-face ((t (:foreground "light sky blue"))))
'(font-lock-type-face ((t (:foreground "sky blue" :bold t))))
'(font-lock-variable-name-face ((t (:foreground "turquoise" :bold t))))
'(font-lock-warning-face ((t (:foreground "Red" :bold t))))
'(fringe ((t (:background "MidnightBlue"))))
'(header-line ((t (:background "#002" :foreground "cornflower blue"))))
'(highlight ((t (:background "dark slate blue" :foreground "light blue"))))
'(highline-face ((t (:background "DeepSkyBlue4"))))
'(holiday-face ((t (:background "pink"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:bold t))))
'(info-xref ((t (:bold t :foreground "sky blue"))))
'(isearch ((t (:background "slate blue"))))
'(italic ((t (:foreground "sky blue"))))
'(makefile-space-face ((t (:background "hotpink"))))
'(menu ((t (:background "MidnightBlue" :foreground "Grey"))))
'(mode-line ((t (:foreground "wheat" :background "slate blue"))))
'(mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat"))))
'(mode-line-buffer-id ((t (:foreground "beige" :background "slate blue"))))
'(mode-line-mousable ((t (:foreground "light cyan" :background "slate blue"))))
'(mode-line-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue"))))
'(region ((t (:background "DarkSlateBlue"))))
'(secondary-selection ((t (:background "steel blue"))))
'(show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
'(show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
'(speedbar-button-face ((t (:foreground "seashell2"))))
'(speedbar-directory-face ((t (:foreground "seashell3"))))
'(speedbar-file-face ((t (:foreground "seashell4"))))
'(speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
'(speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
'(speedbar-tag-face ((t (:foreground "antique white"))))
'(tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button)))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "light blue"))))
'(widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
'(woman-bold-face ((t (:foreground "sky blue" :bold t))))
'(woman-italic-face ((t (:foreground "deep sky blue"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(Man-overstrike-face ((t (:foreground "sky blue" :bold t))))
'(Man-underline-face ((t (:foreground "deep sky blue"))))
'(zmacs-region ((t (:background "DarkSlateBlue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'blue-sea)
;;; blue-sea-theme.el ends here

174
calm-forest-theme.el Normal file
View File

@ -0,0 +1,174 @@
;;; calm-forest-theme.el --- calm-forest theme
;; Copyright (C) 2003 by Artur Hefczyc
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of calm-forest theme from `color-themes'
;;; Code:
(deftheme calm-forest
"calm-forest theme")
(custom-theme-set-faces
'calm-forest
'(default ((t (:background "gray12" :foreground "green"))))
'(mouse ((t (:background "yellow"))))
'(cursor ((t (:background "orange"))))
'(border ((t (:background "black"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "darkolivegreen"))))
'(widget-mouse-face ((t (:background "darkolivegreen"))))
'(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
'(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
'(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
'(Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :weight bold))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold))))
'(cparen-around-begin-face ((t (:foreground "maroon"))))
'(cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
'(cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold))))
'(cparen-around-lambda-face ((t (:foreground "LightSeaGreen"))))
'(cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold))))
'(cparen-around-quote-face ((t (:foreground "SaddleBrown"))))
'(cparen-around-set!-face ((t (:foreground "OrangeRed"))))
'(cparen-around-syntax-rules-face ((t (:foreground "Magenta"))))
'(cparen-around-vector-face ((t (:foreground "chocolate"))))
'(cparen-binding-face ((t (:foreground "ForestGreen"))))
'(cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(cparen-conditional-clause-face ((t (:foreground "RoyalBlue"))))
'(cparen-normal-paren-face ((t (:foreground "grey50"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "dim gray"))))
'(custom-comment-tag-face ((t (:foreground "gray80"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "lime green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
'(eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
'(extra-whitespace-face ((t (:background "pale green"))))
'(fixed-pitch ((t (:family "courier"))))
'(font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
'(font-latex-italic-face ((t (:italic t :foreground "OliveDrab"))))
'(font-latex-math-face ((t (:foreground "burlywood"))))
'(font-latex-sedate-face ((t (:foreground "LightGray"))))
'(font-latex-string-face ((t (:foreground "RosyBrown"))))
'(font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "chocolate1"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-face ((t (:foreground "LightSalmon"))))
'(font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
'(font-lock-keyword-face ((t (:foreground "Cyan"))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "PaleGreen"))))
'(font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(fringe ((t (:background "grey10"))))
'(header-line ((t (:background "grey20" :foreground"grey90"
:box (:line-width -1 :style released-button)))))
'(highlight ((t (:background "darkolivegreen"))))
'(info-header-node ((t (:italic t :bold t :weight bold :foreground "white"))))
'(info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
'(info-menu-5 ((t (:foreground "red1"))))
'(info-menu-header ((t (:bold t :family "helv" :weight bold))))
'(info-node ((t (:italic t :bold t :foreground "white" :weight bold))))
'(info-xref ((t (:bold t :foreground "cyan" :weight bold))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
'(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
'(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
'(jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
'(jde-java-font-lock-italic-face ((t (:italic t))))
'(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
'(jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
'(jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(menu ((t (nil))))
'(mode-line ((t (:background "grey75" :foreground "black"
:box (:line-width -1 :style released-button)))))
'(region ((t (:background "blue3"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "SkyBlue4"))))
'(semantic-dirty-token-face ((t (:background "gray10"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(senator-intangible-face ((t (:foreground "gray75"))))
'(senator-momentary-highlight-face ((t (:background "gray30"))))
'(senator-read-only-face ((t (:background "#664444"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "green3"))))
'(speedbar-directory-face ((t (:foreground "light blue"))))
'(speedbar-file-face ((t (:foreground "cyan"))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'calm-forest)
;;; calm-forest-theme.el ends here

306
charcoal-black-theme.el Normal file
View File

@ -0,0 +1,306 @@
;;; charcoal-black-theme.el --- charcoal-black theme
;; Copyright (C) 2003 by Lars Chr. Hausmann
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of charcoal-black theme from `color-themes'
;;; Code:
(deftheme charcoal-black
"charcoal-black theme")
(custom-theme-set-faces
'charcoal-black
'(default ((t (:background "Grey15" :foreground "Grey"))))
'(mouse ((t (:background "Grey"))))
'(cursor ((t (:background "Grey"))))
'(border ((t (:background "Grey"))))
'(display-time-mail-face ((t (:underline t))))
'(gnus-article-button-face ((t (:bold t :weight bold))))
'(gnus-article-mouse-face ((t (:background "dark slate blue" :foreground "light blue"))))
'(gnus-mouse-face ((t (:background "dark slate blue" :foreground "light blue"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(mime-button-face ((t (:bold t :weight bold))))
'(mime-button-mouse-face ((t (:background "dark slate blue" :foreground "light blue"))))
'(view-highlight-face ((t (:background "dark slate blue" :foreground "light blue"))))
'(widget-mouse-face ((t (:background "dark slate blue" :foreground "light blue"))))
'(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
'(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
'(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
'(Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
'(ac-candidate-face ((t (:inherit default :background "light blue" :foreground "dark slate grey"))))
'(ac-selection-face ((t (:inherit default :background "dark slate blue" :foreground "light blue"))))
'(ac-completion-face ((t (:inherit ac-selection-face))))
'(bg:erc-color-face0 ((t (nil))))
'(bg:erc-color-face1 ((t (nil))))
'(bg:erc-color-face10 ((t (nil))))
'(bg:erc-color-face11 ((t (nil))))
'(bg:erc-color-face12 ((t (nil))))
'(bg:erc-color-face13 ((t (nil))))
'(bg:erc-color-face14 ((t (nil))))
'(bg:erc-color-face15 ((t (nil))))
'(bg:erc-color-face2 ((t (nil))))
'(bg:erc-color-face3 ((t (nil))))
'(bg:erc-color-face4 ((t (nil))))
'(bg:erc-color-face5 ((t (nil))))
'(bg:erc-color-face6 ((t (nil))))
'(bg:erc-color-face7 ((t (nil))))
'(bg:erc-color-face8 ((t (nil))))
'(bg:erc-color-face9 ((t (nil))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:bold t :foreground "beige" :weight bold))))
'(calendar-today-face ((t (:underline t))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold))))
'(cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
'(cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
'(custom-button-face ((t (:foreground "gainsboro"))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "dim gray"))))
'(custom-comment-tag-face ((t (:foreground "gray80"))))
'(custom-documentation-face ((t (:foreground "light blue"))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
'(custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "light salmon"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(diary-face ((t (:foreground "red"))))
'(dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
'(dired-face-executable ((t (:foreground "green yellow"))))
'(dired-face-flagged ((t (:foreground "tomato"))))
'(dired-face-marked ((t (:foreground "light salmon"))))
'(dired-face-permissions ((t (:foreground "aquamarine"))))
'(erc-action-face ((t (nil))))
'(erc-bold-face ((t (:bold t :weight bold))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "pale green"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
'(erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
'(erc-input-face ((t (:foreground "light blue"))))
'(erc-inverse-face ((t (:background "steel blue"))))
'(erc-notice-face ((t (:foreground "light salmon"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
'(eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "dim gray"))))
'(eshell-ls-clutter-face ((t (:foreground "dim gray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "violet"))))
'(eshell-ls-product-face ((t (:foreground "light steel blue"))))
'(eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "gold"))))
'(eshell-ls-symlink-face ((t (:foreground "white"))))
'(eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
'(eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold))))
'(excerpt ((t (:italic t :slant italic))))
'(fg:erc-color-face0 ((t (:foreground "white"))))
'(fg:erc-color-face1 ((t (:foreground "beige"))))
'(fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
'(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
'(fg:erc-color-face12 ((t (:foreground "light yellow"))))
'(fg:erc-color-face13 ((t (:foreground "yellow"))))
'(fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
'(fg:erc-color-face15 ((t (:foreground "lime green"))))
'(fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
'(fg:erc-color-face3 ((t (:foreground "light cyan"))))
'(fg:erc-color-face4 ((t (:foreground "powder blue"))))
'(fg:erc-color-face5 ((t (:foreground "sky blue"))))
'(fg:erc-color-face6 ((t (:foreground "dark sea green"))))
'(fg:erc-color-face7 ((t (:foreground "pale green"))))
'(fg:erc-color-face8 ((t (:foreground "medium spring green"))))
'(fg:erc-color-face9 ((t (:foreground "khaki"))))
'(fixed ((t (:bold t :weight bold))))
'(fixed-pitch ((t (:family "courier"))))
'(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
'(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
'(font-lock-builtin-face ((t (:foreground "aquamarine"))))
'(font-lock-comment-face ((t (:foreground "light blue"))))
'(font-lock-constant-face ((t (:foreground "pale green"))))
'(font-lock-doc-face ((t (:foreground "light sky blue"))))
'(font-lock-doc-string-face ((t (:foreground "sky blue"))))
'(font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold))))
'(font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
'(font-lock-reference-face ((t (:foreground "pale green"))))
'(font-lock-string-face ((t (:foreground "light sky blue"))))
'(font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold))))
'(font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "Grey15"))))
'(gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
'(gnus-cite-face-2 ((t (:foreground "Khaki"))))
'(gnus-cite-face-3 ((t (:foreground "Coral"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "bisque"))))
'(gnus-cite-face-7 ((t (:foreground "peru"))))
'(gnus-cite-face-8 ((t (:foreground "light coral"))))
'(gnus-cite-face-9 ((t (:foreground "plum"))))
'(gnus-emphasis-bold ((t (:bold t :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t :slant italic))))
'(gnus-emphasis-strikethru ((t (nil))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
'(gnus-group-mail-1-empty-face ((t (:foreground "White"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "White"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
'(gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
'(gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
'(gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold))))
'(gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
'(gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold))))
'(gnus-signature-face ((t (:foreground "Grey"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold))))
'(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic))))
'(gnus-summary-low-read-face ((t (:foreground "slate gray"))))
'(gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
'(gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
'(gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
'(highlight ((t (:background "dark slate blue" :foreground "light blue"))))
'(highline-face ((t (:background "DeepSkyBlue4"))))
'(holiday-face ((t (:background "pink"))))
'(info-header-node ((t (:bold t :weight bold))))
'(info-header-xref ((t (:bold t :weight bold :foreground "sky blue"))))
'(info-menu-5 ((t (:underline t))))
'(info-menu-header ((t (:bold t :family "helv" :weight bold))))
'(info-node ((t (:bold t :weight bold))))
'(info-xref ((t (:bold t :foreground "sky blue" :weight bold))))
'(isearch ((t (:background "slate blue"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:foreground "sky blue"))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
'(jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
'(jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
'(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
'(jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(makefile-space-face ((t (:background "hotpink"))))
'(menu ((t (:background "MidnightBlue" :foreground "Grey"))))
'(message-cited-text-face ((t (:foreground "LightSalmon"))))
'(message-header-cc-face ((t (:foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
'(message-header-other-face ((t (:foreground "MediumAquamarine"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
'(message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "chocolate"))))
'(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(region ((t (:background "DarkSlateBlue"))))
'(scroll-bar ((t (:background "grey75"))))
'(secondary-selection ((t (:background "steel blue"))))
'(semantic-dirty-token-face ((t (:background "gray10"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(show-paren-match-face ((t (:background "light slate blue" :foreground "white"))))
'(show-paren-mismatch-face ((t (:background "red" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "seashell2"))))
'(speedbar-directory-face ((t (:foreground "seashell3"))))
'(speedbar-file-face ((t (:foreground "seashell4"))))
'(speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
'(speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
'(speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
'(speedbar-tag-face ((t (:foreground "antique white"))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "light blue"))))
'(widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
'(woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold))))
'(woman-italic-face ((t (:foreground "deep sky blue"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(zmacs-region ((t (:background "DarkSlateBlue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'charcoal-black)
;;; charcoal-black-theme.el ends here

119
clarity-theme.el Normal file
View File

@ -0,0 +1,119 @@
;;; clarity-theme.el --- clarity theme
;; Copyright (C) 2003 by Richard Wellum
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of clarity theme from `color-themes'
;;; Code:
(deftheme clarity
"clarity theme")
(custom-theme-set-faces
'clarity
'(default ((t (:background "black" :foreground "white"))))
'(mouse ((t (:background "white"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:background "white"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "darkolivegreen"))))
'(widget-mouse-face ((t (:background "darkolivegreen"))))
'(CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
'(CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
'(CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(clearcase-dired-checkedout-face ((t (:foreground "red"))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(fixed-pitch ((t (:family "courier"))))
'(flash-paren-face-off ((t (nil))))
'(flash-paren-face-on ((t (nil))))
'(flash-paren-face-region ((t (nil))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "OrangeRed"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-face ((t (:foreground "LightSalmon"))))
'(font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
'(font-lock-keyword-face ((t (:foreground "Cyan"))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "PaleGreen"))))
'(font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(ibuffer-dired-buffer-face ((t (:foreground "LightSkyBlue"))))
'(ibuffer-help-buffer-face ((t (:foreground "OrangeRed"))))
'(ibuffer-hidden-buffer-face ((t (:bold t :foreground "Pink" :weight bold))))
'(ibuffer-occur-match-face ((t (:bold t :foreground "Pink" :weight bold))))
'(ibuffer-read-only-buffer-face ((t (:foreground "PaleGreen"))))
'(ibuffer-special-buffer-face ((t (:foreground "Cyan"))))
'(ibuffer-title-face ((t (:foreground "PaleGreen"))))
'(fringe ((t (:background "grey10"))))
'(header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil))))
'(highlight ((t (:background "darkolivegreen"))))
'(ibuffer-deletion-face ((t (:foreground "red"))))
'(ibuffer-marked-face ((t (:foreground "green"))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t :slant italic))))
'(menu ((t (nil))))
'(mode-line ((t (:foreground "yellow" :background "darkslateblue"
:box (:line-width -1 :style released-button)))))
'(region ((t (:background "blue"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "darkslateblue"))))
'(show-block-face1 ((t (:background "gray10"))))
'(show-block-face2 ((t (:background "gray15"))))
'(show-block-face3 ((t (:background "gray20"))))
'(show-block-face4 ((t (:background "gray25"))))
'(show-block-face5 ((t (:background "gray30"))))
'(show-block-face6 ((t (:background "gray35"))))
'(show-block-face7 ((t (:background "gray40"))))
'(show-block-face8 ((t (:background "gray45"))))
'(show-block-face9 ((t (:background "gray50"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'clarity)
;;; clarity-theme.el ends here

208
classic-theme.el Normal file
View File

@ -0,0 +1,208 @@
;;; classic-theme.el --- classic theme
;; Copyright (C) 2000 by Frederic Giroud
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of classic theme from `color-themes'
;;; Code:
(deftheme classic
"classic theme")
(custom-theme-set-faces
'classic
'(default ((t (:background "darkslategrey" :foreground "AntiqueWhite"))))
;; avoid ugly random fringe color
'(fringe ((t (:background "darkslategrey"))))
'(mouse ((t (:foreground "Grey"))))
'(cursor ((t (:background "Red"))))
'(border ((t (:foreground "black"))))
'(gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
'(gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
'(gnus-cite-face-2 ((t (:foreground "Khaki"))))
'(gnus-cite-face-3 ((t (:foreground "Coral"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "bisque"))))
'(gnus-cite-face-7 ((t (:foreground "peru"))))
'(gnus-cite-face-8 ((t (:foreground "light coral"))))
'(gnus-cite-face-9 ((t (:foreground "plum"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "White"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-1-empty-face ((t (:foreground "White"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(gnus-signature-face ((t (:foreground "Grey"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
'(gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
'(gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
'(gnus-summary-low-read-face ((t (:foreground "slate gray"))))
'(gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
'(gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
'(gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
'(message-cited-text-face ((t (:foreground "LightSalmon"))))
'(message-header-cc-face ((t (:foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(message-header-other-face ((t (:foreground "MediumAquamarine"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(message-header-to-face ((t (:bold t :foreground "light cyan"))))
'(message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
'(message-separator-face ((t (:foreground "chocolate"))))
'(apropos-keybinding-face ((t (:underline t))))
'(apropos-label-face ((t (:italic t))))
'(apropos-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(apropos-property-face ((t (:italic t :bold t :foreground "beige"))))
'(apropos-symbol-face ((t (:underline t :foreground "DodgerBlue1"))))
'(goto-address-mail-face ((t (:bold t :foreground "light cyan"))))
'(goto-address-mail-mouse-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(goto-address-url-face ((t (:underline t :foreground "DodgerBlue1"))))
'(goto-address-url-mouse-face ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(list-matching-lines-face ((t (:bold t))))
'(view-highlight-face ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t :foreground "beige"))))
'(calendar-today-face ((t (:underline t))))
'(cperl-array-face ((t (:foreground "Yellow"))))
'(cperl-hash-face ((t (:foreground "White"))))
'(cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
'(custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
'(custom-documentation-face ((t (:foreground "Grey"))))
'(custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
'(custom-state-face ((t (:foreground "LightSalmon"))))
'(custom-variable-tag-face ((t (:foreground "Aquamarine"))))
'(diary-face ((t (:foreground "IndianRed"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "LightSalmon"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-input-face ((t (:foreground "Beige"))))
'(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "MediumAquamarine"))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "Violet"))))
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "Gold"))))
'(eshell-ls-symlink-face ((t (:foreground "White"))))
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
'(font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
'(font-lock-comment-face ((t (:foreground "tomato3"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-string-face ((t (:foreground "LightSalmon3"))))
'(font-lock-function-name-face ((t (:foreground "SteelBlue1"))))
'(font-lock-keyword-face ((t (:foreground "cyan1"))))
'(font-lock-reference-face ((t (:foreground "LightSalmon2"))))
'(font-lock-string-face ((t (:foreground "LightSalmon3"))))
'(font-lock-type-face ((t (:foreground "PaleGreen3"))))
'(font-lock-variable-name-face ((t (:foreground "khaki1"))))
'(font-lock-warning-face ((t (:bold t :foreground "IndianRed"))))
'(font-lock-preprocessor-face ((t (:foreground "SkyBlue3"))))
'(widget-field-face ((t (:background "DarkCyan"))))
'(custom-group-tag-face ((t(:foreground "brown" :underline t))))
'(custom-state-face ((t (:foreground "khaki"))))
'(highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(highline-face ((t (:background "SeaGreen"))))
'(holiday-face ((t (:background "DimGray"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
'(info-xref ((t (:underline t :foreground "DodgerBlue1"))))
'(isearch ((t (:foreground "red" :background "CornflowerBlue"))))
'(italic ((t (:italic t))))
'(mode-line ((t (:background "LightSlateGray" :foreground "AntiqueWhite"))))
'(mode-line-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue"))))
'(mode-line-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat"))))
'(region ((t (:background "dark cyan" :foreground "cyan"))))
'(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
'(underline ((t (:underline t))))
'(widget-field-face ((t (:foreground "LightBlue"))))
'(widget-inactive-face ((t (:foreground "DimGray"))))
'(widget-single-line-field-face ((t (:foreground "LightBlue"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'classic)
;;; classic-theme.el ends here

82
cobalt-theme.el Normal file
View File

@ -0,0 +1,82 @@
;;; cobalt-theme.el --- cobalt theme
;; Copyright (C) 2012 by Nick Ewing
;; Copyright (C) 2014 by Syohei YOSHIDA
;; Author: Nick Ewing
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of cobalt theme from `color-themes'
;;; Code:
(deftheme cobalt
"cobalt theme")
(custom-theme-set-faces
'cobalt
'(default ((t (:background "#09223F" :foreground "#F8F8F8"))))
'(cursor ((t (:background "#A7A7A7"))))
'(border ((t (:foreground "black"))))
'(buffers-tab ((t (:background "#09223F" :foreground "white"))))
'(font-lock-builtin-face ((t (:foreground "#40FFB9"))))
'(font-lock-comment-face ((t (:foreground "#008AFF"))))
'(font-lock-constant-face ((t (:foreground "#FF518C"))))
'(font-lock-doc-face ((t (:foreground "#008AFF"))))
'(font-lock-function-name-face ((t (:foreground "#FFDD00"))))
'(font-lock-keyword-face ((t (:foreground "#FA9E18"))))
'(font-lock-preprocessor-face ((t (:foreground "#8090A2"))))
'(font-lock-reference-face ((t (:foreground "#CCCCCC"))))
'(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
'(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
'(font-lock-string-face ((t (:foreground "#42D915"))))
'(font-lock-type-face ((t (:foreground "#FFEF79"))))
'(font-lock-variable-name-face ((t (:foreground "#CCCCCC"))))
'(font-lock-warning-face ((t (:foreground "Pink"))))
'(hl-line ((t (:background "#00162A"))))
'(linum ((t (:background "#111111" :foreground "#888888"
:underline nil))))
'(gui-element ((t (:background "#303030" :foreground "black"))))
'(region ((t (:background "#444444"))))
'(highlight ((t (:background "#26425D"))))
'(show-paren-match ((t (:background "#26425D"))))
'(show-paren-mismatch ((t (:background "#FF0000"))))
'(ecb-default-highlight-face ((t (:background "#26425D"))))
'(minibuffer-prompt ((t (:foreground "#008AFF"))))
'(mode-line ((t (:background "#111111" :foreground "#888888"))))
'(modeline-inactive ((t (:background "#222222" :foreground "#888888"))))
'(italic ((t (nil))))
'(left-margin ((t (nil))))
'(toolbar ((t (nil))))
'(ido-subdir ((t (:foreground "#008AFF"))))
'(ido-only-match ((t (:foreground "#42D915"))))
'(mumamo-background-chunk-major ((t (:background nil))))
'(mumamo-background-chunk-submode1 ((t (:background nil))))
'(underline ((nil (:underline nil)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'cobalt)
;;; cobalt-theme.el ends here

View File

@ -0,0 +1,4 @@
(define-package "color-theme-modern" "0.0.2"
"Reimplement colortheme with Emacs 24 theme framework."
'((emacs "24"))
:url "https://github.com/emacs-jp/replace-colorthemes/")

30
color-theme-modern.el Normal file
View File

@ -0,0 +1,30 @@
;;; color-theme-modern.el --- ports of color-theme themes to deftheme
;; Copyright (C) 2013-2016 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; This package ports many `color-theme' themes to `deftheme' themes.
;;; Code:
(provide 'color-theme-modern)
;;; color-theme-modern.el ends here

193
comidia-theme.el Normal file
View File

@ -0,0 +1,193 @@
;;; comidia-theme.el --- comidia theme
;; Copyright (C) 2001 by Marcelo Dias
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of comidia theme from `color-themes'
;;; Code:
(deftheme comidia
"comidia theme")
(custom-theme-set-faces
'comidia
'(default ((t (:background "black" :foreground "SteelBlue"))))
'(mouse ((t (:background "SteelBlue"))))
'(cursor ((t (:background "SteelBlue"))))
'(border ((t (:background "black"))))
'(bg:erc-color-face0 ((t (:background "White"))))
'(bg:erc-color-face1 ((t (:background "black"))))
'(bg:erc-color-face10 ((t (:background "lightblue1"))))
'(bg:erc-color-face11 ((t (:background "cyan"))))
'(bg:erc-color-face12 ((t (:background "blue"))))
'(bg:erc-color-face13 ((t (:background "deeppink"))))
'(bg:erc-color-face14 ((t (:background "gray50"))))
'(bg:erc-color-face15 ((t (:background "gray90"))))
'(bg:erc-color-face2 ((t (:background "blue4"))))
'(bg:erc-color-face3 ((t (:background "green4"))))
'(bg:erc-color-face4 ((t (:background "red"))))
'(bg:erc-color-face5 ((t (:background "brown"))))
'(bg:erc-color-face6 ((t (:background "purple"))))
'(bg:erc-color-face7 ((t (:background "orange"))))
'(bg:erc-color-face8 ((t (:background "yellow"))))
'(bg:erc-color-face9 ((t (:background "green"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(erc-action-face ((t (:bold t :weight bold))))
'(erc-bold-face ((t (:bold t :weight bold))))
'(erc-dangerous-host-face ((t (:foreground "red"))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "IndianRed"))))
'(erc-error-face ((t (:background "Red" :foreground "White"))))
'(erc-fool-face ((t (:foreground "dim gray"))))
'(erc-input-face ((t (:foreground "brown"))))
'(erc-inverse-face ((t (:background "Black" :foreground "White"))))
'(erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
'(erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
'(erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
'(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
'(erc-underline-face ((t (:underline t))))
'(fg:erc-color-face0 ((t (:foreground "White"))))
'(fg:erc-color-face1 ((t (:foreground "black"))))
'(fg:erc-color-face10 ((t (:foreground "lightblue1"))))
'(fg:erc-color-face11 ((t (:foreground "cyan"))))
'(fg:erc-color-face12 ((t (:foreground "blue"))))
'(fg:erc-color-face13 ((t (:foreground "deeppink"))))
'(fg:erc-color-face14 ((t (:foreground "gray50"))))
'(fg:erc-color-face15 ((t (:foreground "gray90"))))
'(fg:erc-color-face2 ((t (:foreground "blue4"))))
'(fg:erc-color-face3 ((t (:foreground "green4"))))
'(fg:erc-color-face4 ((t (:foreground "red"))))
'(fg:erc-color-face5 ((t (:foreground "brown"))))
'(fg:erc-color-face6 ((t (:foreground "purple"))))
'(fg:erc-color-face7 ((t (:foreground "orange"))))
'(fg:erc-color-face8 ((t (:foreground "yellow"))))
'(fg:erc-color-face9 ((t (:foreground "green"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "chocolate1"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-face ((t (:foreground "LightSalmon"))))
'(font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
'(font-lock-keyword-face ((t (:foreground "Cyan"))))
'(font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
'(font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "PaleGreen"))))
'(font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(fringe ((t (:background "grey10"))))
'(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t :weight bold))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t :weight bold))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t :weight bold))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
'(gnus-summary-high-unread-face ((t (:bold t :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
'(gnus-summary-low-unread-face ((t (:italic t :slant italic))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil))))
'(highlight ((t (:background "darkolivegreen"))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t :slant italic))))
'(menu ((t (nil))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
'(message-header-name-face ((t (:foreground "DarkGreen"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
'(message-header-other-face ((t (:foreground "#b00000"))))
'(message-header-subject-face ((t (:foreground "green3"))))
'(message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "blue3"))))
'(mode-line ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed))))
'(mode-line-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed))))
'(mode-line-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed))))
'(mode-line-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed))))
'(primary-selection ((t (:background "blue3"))))
'(region ((t (:background "blue3"))))
'(scroll-bar ((t (:background "grey75"))))
'(secondary-selection ((t (:background "SkyBlue4"))))
'(speedbar-button-face ((t (:foreground "green3"))))
'(speedbar-directory-face ((t (:foreground "light blue"))))
'(speedbar-file-face ((t (:foreground "cyan"))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray"))))
'(zmacs-region ((t (:background "blue3")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'comidia)
;;; comidia-theme.el ends here

439
dark-blue-theme.el Normal file
View File

@ -0,0 +1,439 @@
;;; subtle-blue-theme.el --- dark-blue theme
;; Copyright (C) 2001 by Chris McMahan
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-blue theme from `color-themes'
;;; Code:
(deftheme dark-blue
"dark-blue theme")
(custom-theme-set-faces
'dark-blue
'(default ((t (:background "#537182" :foreground "AntiqueWhite2"))))
'(mouse ((t (:background "Grey"))))
'(cursor ((t (:background "LightGray"))))
'(border ((t (:background "black"))))
'(bbdb-company ((t (:italic t))))
'(bbdb-field-name ((t (:bold t :foreground "MediumAquamarine"))))
'(bbdb-field-value ((t (nil))))
'(bbdb-name ((t (:underline t))))
'(blank-space-face ((t (:background "LightGray"))))
'(blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t :foreground "MediumAquamarine"))))
'(bold-italic ((t (:italic t :bold t :foreground "SkyBlue"))))
'(border-glyph ((t (nil))))
'(calendar-today-face ((t (:underline t))))
'(comint-highlight-input ((t (:bold t))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(comint-input-face ((t (:foreground "deepskyblue"))))
'(cperl-array-face ((t (:bold t :foreground "Yellow"))))
'(cperl-hash-face ((t (:italic t :bold t :foreground "White"))))
'(cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
'(custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine"))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "dim gray"))))
'(custom-comment-tag-face ((t (:foreground "gray80"))))
'(custom-documentation-face ((t (:foreground "Grey"))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine"))))
'(custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "yellow"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:bold t :foreground "Aquamarine"))))
'(cvs-filename-face ((t (:foreground "blue4"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "blue4"))))
'(cvs-marked-face ((t (:bold t :foreground "green3"))))
'(cvs-msg-face ((t (:italic t))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:bold t :foreground "cyan"))))
'(dired-face-boring ((t (:foreground "Gray65"))))
'(dired-face-directory ((t (:bold t :foreground "sky blue"))))
'(dired-face-executable ((t (:foreground "green yellow"))))
'(dired-face-flagged ((t (:foreground "tomato"))))
'(dired-face-marked ((t (:foreground "light salmon"))))
'(dired-face-permissions ((t (:foreground "aquamarine"))))
'(dired-face-setuid ((t (:foreground "Red"))))
'(dired-face-socket ((t (:foreground "magenta"))))
'(dired-face-symlink ((t (:foreground "gray95"))))
'(display-time-mail-balloon-enhance-face ((t (:background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
'(display-time-time-balloon-face ((t (:foreground "red"))))
'(ecb-sources-face ((t (:foreground "LightBlue1"))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "indianred" :foreground "white"))))
'(ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Gray" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "LightSalmon"))))
'(erc-error-face ((t (:bold t :foreground "yellow"))))
'(erc-input-face ((t (:foreground "Beige"))))
'(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "PaleGreen"))))
'(erc-prompt-face ((t (:foreground "MediumAquamarine"))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "wheat"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "wheat"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Yellow"))))
'(eshell-ls-executable-face ((t (:bold t :foreground "wheat"))))
'(eshell-ls-missing-face ((t (:bold t :foreground "wheat"))))
'(eshell-ls-picture-face ((t (:foreground "wheat"))))
'(eshell-ls-product-face ((t (:foreground "wheat"))))
'(eshell-ls-readonly-face ((t (:foreground "wheat"))))
'(eshell-ls-special-face ((t (:bold t :foreground "wheat"))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
'(eshell-ls-text-face ((t (:foreground "wheat"))))
'(eshell-ls-todo-face ((t (:foreground "wheat"))))
'(eshell-ls-unreadable-face ((t (:foreground "wheat3"))))
'(eshell-prompt-face ((t (:bold t :foreground "PaleGreen"))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green"))))
'(excerpt ((t (:italic t))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
'(fixed ((t (:bold t))))
'(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
'(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
'(font-latex-italic-face ((t (nil))))
'(font-latex-math-face ((t (nil))))
'(font-latex-sedate-face ((t (:foreground "Gray85"))))
'(font-latex-string-face ((t (:foreground "orange"))))
'(font-latex-warning-face ((t (:foreground "gold"))))
'(font-lock-builtin-face ((t (:foreground "PaleGreen"))))
'(font-lock-comment-face ((t (:italic t :foreground "Gray80"))))
'(font-lock-constant-face ((t (:foreground "LightBlue"))))
'(font-lock-doc-face ((t (:bold t))))
'(font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen"))))
'(font-lock-exit-face ((t (:foreground "green"))))
'(font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow"))))
'(font-lock-keyword-face ((t (:bold t :foreground "LightBlue"))))
'(font-lock-preprocessor-face ((t (:foreground "blue3"))))
'(font-lock-reference-face ((t (:foreground "PaleGreen"))))
'(font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen"))))
'(font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
'(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue"))))
'(font-lock-warning-face ((t (:bold t :foreground "LightSalmon"))))
'(fringe ((t (:background "darkslategrey"))))
'(gnus-cite-attribution-face ((t (:italic t :bold t))))
'(gnus-cite-face-1 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-11 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-2 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-3 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-4 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-5 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-6 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-7 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-8 ((t (:foreground "LightBlue"))))
'(gnus-cite-face-9 ((t (:foreground "LightBlue"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t :italic t))))
'(gnus-filterhist-face-1 ((t (nil))))
'(gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "gray80"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "gray80"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "gray80"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-1-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
'(gnus-group-news-2-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-3-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-4-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Wheat"))))
'(gnus-group-news-5-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-6-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-low-empty-face ((t (:foreground "gray80"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
'(gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(gnus-picons-face ((t (:background "white" :foreground "black"))))
'(gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
'(gnus-signature-face ((t (:italic t :foreground "LightBlue"))))
'(gnus-splash ((t (:foreground "Brown"))))
'(gnus-splash-face ((t (:foreground "LightBlue"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "gray80"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
'(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat"))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "light sea green"))))
'(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue"))))
'(gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "gray80"))))
'(gnus-summary-normal-read-face ((t (:foreground "gray80"))))
'(gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown"))))
'(gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat"))))
'(gnus-summary-selected-face ((t (:underline t))))
'(gnus-x-face ((t (:background "white" :foreground "black"))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "DarkSalmon" :foreground "white"))))
'(gui-element ((t (:background "Gray"))))
'(header-line ((t (:background "grey20" :foreground "grey90"))))
'(highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(highlight-changes-delete-face ((t (:underline t :foreground "red"))))
'(highlight-changes-face ((t (:foreground "red"))))
'(highline-face ((t (:background "SeaGreen"))))
'(holiday-face ((t (:background "DimGray"))))
'(html-helper-bold-face ((t (:foreground "DarkRed"))))
'(html-helper-italic-face ((t (:foreground "DarkBlue"))))
'(html-helper-underline-face ((t (:underline t :foreground "Black"))))
'(html-tag-face ((t (:foreground "Blue"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:underline t :italic t :bold t :foreground "light blue"))))
'(info-xref ((t (:bold t :foreground "light blue"))))
'(isearch ((t (:background "Aquamarine" :foreground "SteelBlue"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(italic ((t (:italic t))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
'(jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-bold-face ((t (:bold t))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-italic-face ((t (:italic t))))
'(jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue"))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
'(left-margin ((t (nil))))
'(linemenu-face ((t (:background "gray30"))))
'(list-mode-item-selected ((t (nil))))
'(makefile-space-face ((t (:background "hotpink"))))
'(menu ((t (:background "wheat" :foreground "gray30"))))
'(message-cited-text-face ((t (:foreground "White"))))
'(message-header-cc-face ((t (:bold t :foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
'(message-header-other-face ((t (:foreground "LightSkyBlue3"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(message-header-to-face ((t (:bold t :foreground "light cyan"))))
'(message-header-xheader-face ((t (:foreground "LightBlue"))))
'(message-mml-face ((t (:bold t :foreground "LightBlue"))))
'(message-separator-face ((t (:foreground "LightBlue"))))
'(mmm-default-submode-face ((t (:background "#c0c0c5"))))
'(mode-line ((t (:background "#c1ccd9" :foreground "#4f657d"))))
'(mode-line-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d"))))
'(mode-line-mousable ((t (:background "#c1ccd9" :foreground "#4f657d"))))
'(mode-line-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d"))))
'(my-summary-highlight-face ((t (:foreground "White"))))
'(my-url-face ((t (:foreground "LightBlue"))))
'(nil ((t (nil))))
'(paren-blink-off ((t (:foreground "gray"))))
'(paren-face-match ((t (:background "turquoise"))))
'(paren-face-mismatch ((t (:background "purple" :foreground "white"))))
'(paren-face-no-match ((t (:background "yellow" :foreground "black"))))
'(paren-match ((t (:background "darkseagreen2"))))
'(paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
'(paren-mismatch-face ((t (:bold t))))
'(paren-no-match-face ((t (:bold t))))
'(pointer ((t (nil))))
'(primary-selection ((t (:background "gray65"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "PaleTurquoise4" :foreground "gray80"))))
'(right-margin ((t (nil))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "sea green" :foreground "yellow"))))
'(semantic-dirty-token-face ((t (:background "gray10"))))
'(semantic-intangible-face ((t (:foreground "gray25"))))
'(semantic-read-only-face ((t (:background "gray25"))))
'(senator-intangible-face ((t (:foreground "gray75"))))
'(senator-momentary-highlight-face ((t (:background "gray80"))))
'(senator-read-only-face ((t (:background "#664444"))))
'(sgml-comment-face ((t (:foreground "dark turquoise"))))
'(sgml-doctype-face ((t (:foreground "red"))))
'(sgml-end-tag-face ((t (:foreground "blue"))))
'(sgml-entity-face ((t (:foreground "magenta"))))
'(sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
'(sgml-ms-end-face ((t (:foreground "green"))))
'(sgml-ms-start-face ((t (:foreground "yellow"))))
'(sgml-pi-face ((t (:foreground "lime green"))))
'(sgml-sgml-face ((t (:foreground "brown"))))
'(sgml-short-ref-face ((t (:foreground "deep sky blue"))))
'(sgml-start-tag-face ((t (:foreground "dark green"))))
'(shell-option-face ((t (:foreground "blue"))))
'(shell-output-2-face ((t (:foreground "darkseagreen"))))
'(shell-output-3-face ((t (:foreground "slategray"))))
'(shell-output-face ((t (:foreground "palegreen"))))
'(shell-prompt-face ((t (:foreground "red"))))
'(show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue"))))
'(show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White"))))
'(speedbar-button-face ((t (:bold t :foreground "LightBlue"))))
'(speedbar-directory-face ((t (:bold t :foreground "yellow"))))
'(speedbar-file-face ((t (:bold t :foreground "wheat"))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:underline t))))
'(speedbar-tag-face ((t (:foreground "LightBlue"))))
'(swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
'(template-message-face ((t (:bold t))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(text-cursor ((t (:background "Red3" :foreground "white"))))
'(tool-bar ((t (:background "grey75" :foreground "black"))))
'(toolbar ((t (:background "Gray"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (nil))))
'(vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
'(vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
'(vertical-divider ((t (:background "Gray"))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
'(vhdl-speedbar-package-face ((t (:foreground "Gray50"))))
'(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50"))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(vm-header-content-face ((t (:italic t :foreground "wheat"))))
'(vm-header-from-face ((t (:italic t :foreground "wheat"))))
'(vm-header-name-face ((t (:foreground "cyan"))))
'(vm-header-subject-face ((t (:foreground "cyan"))))
'(vm-header-to-face ((t (:italic t :foreground "cyan"))))
'(vm-message-cited-face ((t (:foreground "Gray80"))))
'(vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-highlight-face ((t (:foreground "White"))))
'(vmpc-pre-sig-face ((t (:foreground "Aquamarine"))))
'(vmpc-sig-face ((t (:foreground "LightBlue"))))
'(vvb-face ((t (:background "pink" :foreground "black"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "LightBlue"))))
'(widget-field-face ((t (:foreground "LightBlue"))))
'(widget-inactive-face ((t (:foreground "Wheat3"))))
'(widget-single-line-field-face ((t (:foreground "LightBlue"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(xref-keyword-face ((t (:foreground "blue"))))
'(xref-list-pilot-face ((t (:foreground "navy"))))
'(xref-list-symbol-face ((t (:foreground "navy"))))
'(xxml-emph-1-face ((t (:background "lightyellow"))))
'(xxml-emph-2-face ((t (:background "lightyellow"))))
'(xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
'(xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
'(xxml-header-3-face ((t (:background "seashell1"))))
'(xxml-header-4-face ((t (:background "seashell1"))))
'(xxml-interaction-face ((t (:background "lightcyan"))))
'(xxml-rug-face ((t (:background "cyan"))))
'(xxml-sparkle-face ((t (:background "yellow"))))
'(xxml-unbreakable-space-face ((t (:underline t :foreground "grey"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "SlateGray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-blue)
;;; dark-blue-theme.el ends here

626
dark-blue2-theme.el Normal file
View File

@ -0,0 +1,626 @@
;;; dark-blue2-theme.el --- dark-blue2 theme
;; Copyright (C) 2002 by Chris McMahan
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-blue2 theme from `color-themes'
;;; Code:
(deftheme dark-blue2
"dark-blue2 theme")
(custom-theme-set-faces
'dark-blue2
'(default ((t (:background "#233b5a" :foreground "#fff8dc"))))
'(mouse ((t (:background "Grey"))))
'(cursor ((t (:background "Yellow"))))
'(border ((t (:background "black"))))
'(cperl-invalid-face ((t (:underline t))))
'(gnus-article-button-face ((t (:bold t :foreground "cyan" :weight bold))))
'(gnus-article-mouse-face ((t (:background "SkyBlue3"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :foreground "cyan" :weight bold))))
'(view-highlight-face ((t (:background "SkyBlue3"))))
'(vm-highlight-url-face ((t (:bold t :foreground "cyan" :weight bold)))-italic)
'(vm-highlighted-header-face ((t (:bold t :foreground "cyan" :weight bold))))
'(vm-mime-button-face ((t (:background "grey75" :foreground "gray30"))))
'(vm-summary-highlight-face ((t (:bold t :foreground "cyan" :weight bold))))
'(widget-mouse-face ((t (:background "SkyBlue3"))))
'(Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
'(Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
'(Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
'(Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
'(antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(antlr-font-lock-ruleref-face ((t (:foreground "Gray85"))))
'(antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(antlr-font-lock-tokenref-face ((t (:foreground "Gray85"))))
'(bbdb-company ((t (:italic t :slant italic))))
'(bbdb-field-name ((t (:bold t :weight bold))))
'(bbdb-field-value ((t (nil))))
'(bbdb-name ((t (:underline t))))
'(bg:erc-color-face0 ((t (:background "White"))))
'(bg:erc-color-face1 ((t (:background "black"))))
'(bg:erc-color-face10 ((t (:background "lightblue1"))))
'(bg:erc-color-face11 ((t (:background "cyan"))))
'(bg:erc-color-face12 ((t (:background "blue"))))
'(bg:erc-color-face13 ((t (:background "deeppink"))))
'(bg:erc-color-face14 ((t (:background "gray50"))))
'(bg:erc-color-face15 ((t (:background "gray90"))))
'(bg:erc-color-face2 ((t (:background "blue4"))))
'(bg:erc-color-face3 ((t (:background "green4"))))
'(bg:erc-color-face4 ((t (:background "red"))))
'(bg:erc-color-face5 ((t (:background "brown"))))
'(bg:erc-color-face6 ((t (:background "purple"))))
'(bg:erc-color-face7 ((t (:background "orange"))))
'(bg:erc-color-face8 ((t (:background "yellow"))))
'(bg:erc-color-face9 ((t (:background "green"))))
'(blank-space-face ((t (:background "LightGray"))))
'(blank-tab-face ((t (:background "Wheat"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t :foreground "cyan" :weight bold))))
'(bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold))))
'(border-glyph ((t (nil))))
'(buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue"))))
'(calendar-today-face ((t (:underline t))))
'(change-log-acknowledgement-face ((t (:foreground "firebrick"))))
'(change-log-conditionals-face ((t (:background "sienna" :foreground "khaki"))))
'(change-log-date-face ((t (:foreground "gold"))))
'(change-log-email-face ((t (:foreground "khaki" :underline t))))
'(change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold))))
'(change-log-function-face ((t (:background "sienna" :foreground "khaki"))))
'(change-log-list-face ((t (:foreground "wheat"))))
'(change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(comint-input-face ((t (:foreground "deepskyblue"))))
'(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
'(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
'(cperl-invalid-face ((t (:foreground "white"))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(custom-button-face ((t (:bold t :weight bold))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30"))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:foreground "white"))))
'(custom-comment-tag-face ((t (:foreground "white"))))
'(custom-documentation-face ((t (:foreground "light blue"))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
'(custom-group-tag-face-1 ((t (:foreground "gray85" :underline t))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "gray30" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "gray85"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
'(cvs-filename-face ((t (:foreground "white"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:foreground "green"))))
'(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
'(cvs-msg-face ((t (:foreground "gray85"))))
'(cvs-need-action-face ((t (:foreground "yellow"))))
'(cvs-unknown-face ((t (:foreground "grey"))))
'(cyan ((t (:foreground "cyan"))))
'(diary-face ((t (:bold t :foreground "gray85" :weight bold))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-context-face ((t (:foreground "grey50"))))
'(diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-function-face ((t (:foreground "grey50"))))
'(diff-header-face ((t (:foreground "lemon chiffon"))))
'(diff-hunk-header-face ((t (:background "grey85"))))
'(diff-index-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-removed-face ((t (nil))))
'(dired-face-boring ((t (:foreground "Gray65"))))
'(dired-face-directory ((t (:bold t :weight bold))))
'(dired-face-executable ((t (:foreground "gray85"))))
'(dired-face-flagged ((t (:background "LightSlateGray"))))
'(dired-face-header ((t (:background "grey75" :foreground "gray30"))))
'(dired-face-marked ((t (:background "PaleVioletRed"))))
'(dired-face-permissions ((t (:background "grey75" :foreground "gray30"))))
'(dired-face-setuid ((t (:foreground "gray85"))))
'(dired-face-socket ((t (:foreground "gray85"))))
'(dired-face-symlink ((t (:foreground "cyan"))))
'(display-time-mail-balloon-enhance-face ((t (:background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
'(display-time-time-balloon-face ((t (:foreground "gray85"))))
'(ebrowse-default-face ((t (nil))))
'(ebrowse-file-name-face ((t (:italic t :slant italic))))
'(ebrowse-member-attribute-face ((t (:foreground "red"))))
'(ebrowse-member-class-face ((t (:foreground "Gray85"))))
'(ebrowse-progress-face ((t (:background "blue"))))
'(ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(ebrowse-tree-mark-face ((t (:foreground "Gray85"))))
'(ecb-bucket-token-face ((t (:bold t :weight bold))))
'(ecb-default-general-face ((t (:height 1.0))))
'(ecb-default-highlight-face ((t (:background "magenta" :height 1.0))))
'(ecb-directories-general-face ((t (:height 0.9))))
'(ecb-directory-face ((t (:background "Cyan4"))))
'(ecb-history-face ((t (:background "Cyan4"))))
'(ecb-history-general-face ((t (:height 0.9))))
'(ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal))))
'(ecb-methods-general-face ((t (:slant normal))))
'(ecb-source-face ((t (:background "Cyan4"))))
'(ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1" :background "Cyan4"))))
'(ecb-sources-face ((t (:foreground "LightBlue1"))))
'(ecb-sources-general-face ((t (:height 0.9))))
'(ecb-token-header-face ((t (:background "Steelblue4"))))
'(ecb-type-token-class-face ((t (:bold t :weight bold))))
'(ecb-type-token-enum-face ((t (:bold t :weight bold))))
'(ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold))))
'(ecb-type-token-interface-face ((t (:bold t :weight bold))))
'(ecb-type-token-struct-face ((t (:bold t :weight bold))))
'(ecb-type-token-typedef-face ((t (:bold t :weight bold))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(erc-action-face ((t (:bold t :weight bold))))
'(erc-bold-face ((t (:bold t :weight bold))))
'(erc-dangerous-host-face ((t (:foreground "red"))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "pale green"))))
'(erc-error-face ((t (:bold t :foreground "gray85" :weight bold))))
'(erc-fool-face ((t (:foreground "Gray85"))))
'(erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
'(erc-input-face ((t (:foreground "light blue"))))
'(erc-inverse-face ((t (:background "Black" :foreground "White"))))
'(erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
'(erc-notice-face ((t (:foreground "light salmon"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
'(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "gray85"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :weight bold))))
'(eshell-ls-missing-face ((t (:bold t :weight bold))))
'(eshell-ls-picture-face ((t (:foreground "gray85"))))
'(eshell-ls-product-face ((t (:foreground "gray85"))))
'(eshell-ls-readonly-face ((t (:foreground "gray70"))))
'(eshell-ls-special-face ((t (:bold t :weight bold))))
'(eshell-ls-symlink-face ((t (:bold t :weight bold))))
'(eshell-ls-text-face ((t (:foreground "gray85"))))
'(eshell-ls-todo-face ((t (:bold t :weight bold))))
'(eshell-ls-unreadable-face ((t (:foreground "gray85"))))
'(eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold))))
'(eshell-test-failed-face ((t (:bold t :weight bold))))
'(eshell-test-ok-face ((t (:bold t :weight bold))))
'(excerpt ((t (:italic t :slant italic))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold))))
'(fg:black ((t (:foreground "black"))))
'(fg:erc-color-face0 ((t (:foreground "White"))))
'(fg:erc-color-face1 ((t (:foreground "black"))))
'(fg:erc-color-face10 ((t (:foreground "lightblue1"))))
'(fg:erc-color-face11 ((t (:foreground "cyan"))))
'(fg:erc-color-face12 ((t (:foreground "blue"))))
'(fg:erc-color-face13 ((t (:foreground "deeppink"))))
'(fg:erc-color-face14 ((t (:foreground "gray50"))))
'(fg:erc-color-face15 ((t (:foreground "gray90"))))
'(fg:erc-color-face2 ((t (:foreground "blue4"))))
'(fg:erc-color-face3 ((t (:foreground "green4"))))
'(fg:erc-color-face4 ((t (:foreground "red"))))
'(fg:erc-color-face5 ((t (:foreground "brown"))))
'(fg:erc-color-face6 ((t (:foreground "purple"))))
'(fg:erc-color-face7 ((t (:foreground "orange"))))
'(fg:erc-color-face8 ((t (:foreground "yellow"))))
'(fg:erc-color-face9 ((t (:foreground "green"))))
'(fixed ((t (:bold t :weight bold))))
'(fixed-pitch ((t (:family "outline-lucida console"))))
'(fl-comment-face ((t (:foreground "gray85"))))
'(fl-function-name-face ((t (:foreground "green"))))
'(fl-keyword-face ((t (:foreground "LightGreen"))))
'(fl-string-face ((t (:foreground "light coral"))))
'(fl-type-face ((t (:foreground "cyan"))))
'(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
'(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
'(font-latex-bold-face ((t (nil))))
'(font-latex-italic-face ((t (nil))))
'(font-latex-math-face ((t (nil))))
'(font-latex-sedate-face ((t (:foreground "Gray85"))))
'(font-latex-string-face ((t (:foreground "orange"))))
'(font-latex-warning-face ((t (:foreground "gold"))))
'(font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
'(font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
'(font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
'(font-lock-doc-face ((t (:bold t :weight bold))))
'(font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
'(font-lock-exit-face ((t (:foreground "green"))))
'(font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
'(font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
'(font-lock-preprocessor-face ((t (:foreground "Gray85"))))
'(font-lock-reference-face ((t (:foreground "cyan"))))
'(font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
'(font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
'(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
'(font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
'(fringe ((t (:background "#3c5473"))))
'(gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold))))
'(gnus-cite-face-1 ((t (:foreground "gold"))))
'(gnus-cite-face-10 ((t (:foreground "coral"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "wheat"))))
'(gnus-cite-face-3 ((t (:foreground "light pink"))))
'(gnus-cite-face-4 ((t (:foreground "khaki"))))
'(gnus-cite-face-5 ((t (:foreground "pale green"))))
'(gnus-cite-face-6 ((t (:foreground "beige"))))
'(gnus-cite-face-7 ((t (:foreground "orange"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
'(gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold"))))
'(gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic))))
'(gnus-emphasis-underline ((t (:foreground "white" :underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic))))
'(gnus-filterhist-face-1 ((t (nil))))
'(gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
'(gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :weight bold))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :weight bold))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
'(gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic))))
'(gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold))))
'(gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
'(gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold))))
'(gnus-picons-face ((t (:background "white" :foreground "gray30"))))
'(gnus-picons-xbm-face ((t (:background "white" :foreground "gray30"))))
'(gnus-signature-face ((t (:italic t :foreground "white" :slant italic))))
'(gnus-splash ((t (:foreground "Brown"))))
'(gnus-splash-face ((t (:foreground "orange"))))
'(gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
'(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic))))
'(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold))))
'(gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "gray70"))))
'(gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
'(gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold))))
'(gnus-summary-selected-face ((t (:foreground "white" :underline t))))
'(gnus-x-face ((t (:background "white" :foreground "gray30"))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75" :foreground "gray30"))))
'(gui-element ((t (:background "Gray80"))))
'(header-line ((t (:background "grey20" :foreground "grey90"))))
'(hi-black-b ((t (:bold t :weight bold))))
'(hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
'(hi-blue ((t (:background "light blue"))))
'(hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
'(hi-green ((t (:background "green"))))
'(hi-green-b ((t (:bold t :foreground "green" :weight bold))))
'(hi-pink ((t (:background "pink"))))
'(hi-red-b ((t (:bold t :foreground "red" :weight bold))))
'(hi-yellow ((t (:background "yellow"))))
'(highlight ((t (:background "SkyBlue3"))))
'(highlight-changes-delete-face ((t (:foreground "gray85" :underline t))))
'(highlight-changes-face ((t (:foreground "gray85"))))
'(highline-face ((t (:background "#3c5473"))))
'(highline-vertical-face ((t (:background "lightcyan"))))
'(holiday-face ((t (:background "pink" :foreground "gray30"))))
'(html-helper-bold-face ((t (:bold t :weight bold))))
'(html-helper-bold-italic-face ((t (nil))))
'(html-helper-builtin-face ((t (:foreground "gray85" :underline t))))
'(html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
'(html-helper-underline-face ((t (:underline t))))
'(html-tag-face ((t (:bold t :weight bold))))
'(hyper-apropos-documentation ((t (:foreground "white"))))
'(hyper-apropos-heading ((t (:bold t :weight bold))))
'(hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
'(hyper-apropos-major-heading ((t (:bold t :weight bold))))
'(hyper-apropos-section-heading ((t (:bold t :weight bold))))
'(hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold))))
'(ibuffer-marked-face ((t (:foreground "gray85"))))
'(idlwave-help-link-face ((t (:foreground "Blue"))))
'(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
'(info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
'(info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
'(info-menu-5 ((t (:underline t))))
'(info-menu-6 ((t (nil))))
'(info-menu-header ((t (:bold t :weight bold :family "helv"))))
'(info-node ((t (:italic t :bold t :slant italic :weight bold))))
'(info-xref ((t (:bold t :weight bold))))
'(isearch ((t (:background "LightSeaGreen"))))
'(isearch-lazy-highlight-face ((t (:background "cyan4"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(italic ((t (:italic t :bold t :slant italic :weight bold))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
'(jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
'(jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
'(jde-java-font-lock-operator-face ((t (:foreground "cyan3"))))
'(jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold))))
'(left-margin ((t (nil))))
'(linemenu-face ((t (:background "gray30"))))
'(list-mode-item-selected ((t (:background "gray68"))))
'(log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
'(log-view-message-face ((t (:background "grey85"))))
'(magenta ((t (:foreground "gray85"))))
'(makefile-space-face ((t (:background "hotpink" :foreground "white"))))
'(man-bold ((t (:bold t :weight bold))))
'(man-heading ((t (:bold t :weight bold))))
'(man-italic ((t (:foreground "yellow"))))
'(man-xref ((t (:underline t))))
'(menu ((t (:background "wheat" :foreground "gray30"))))
'(message-cited-text ((t (:foreground "orange"))))
'(message-cited-text-face ((t (:foreground "medium aquamarine"))))
'(message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold))))
'(message-header-contents ((t (:foreground "white"))))
'(message-header-name-face ((t (:foreground "gray85"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
'(message-header-other-face ((t (:foreground "gray85"))))
'(message-header-subject-face ((t (:bold t :foreground "green3" :weight bold))))
'(message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-headers ((t (:bold t :foreground "orange" :weight bold))))
'(message-highlighted-header-contents ((t (:bold t :weight bold))))
'(message-mml-face ((t (:bold t :foreground "gray85" :weight bold))))
'(message-separator-face ((t (:foreground "gray85"))))
'(message-url ((t (:bold t :foreground "pink" :weight bold))))
'(mmm-default-submode-face ((t (:background "#c0c0c5"))))
'(mmm-face ((t (:background "black" :foreground "green"))))
'(mode-line ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv")))))
'(mode-line-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana"))))
'(mode-line-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(mode-line-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
'(my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White"))))
'(my-url-face ((t (:foreground "LightBlue"))))
'(nil ((t (nil))))
'(paren-blink-off ((t (:foreground "gray80"))))
'(paren-face-match ((t (:background "turquoise"))))
'(paren-face-mismatch ((t (:background "purple" :foreground "white"))))
'(paren-face-no-match ((t (:background "yellow" :foreground "gray30"))))
'(paren-match ((t (:background "darkseagreen2"))))
'(paren-mismatch ((t (:background "RosyBrown" :foreground "gray30"))))
'(paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
'(paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
'(pointer ((t (nil))))
'(primary-selection ((t (:background "gray40"))))
'(reb-match-0 ((t (:background "lightblue"))))
'(reb-match-1 ((t (:background "aquamarine"))))
'(reb-match-2 ((t (:background "springgreen"))))
'(reb-match-3 ((t (:background "yellow"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "Cyan4"))))
'(right-margin ((t (nil))))
'(scroll-bar ((t (:background "grey75"))))
'(secondary-selection ((t (:background "gray60"))))
'(semantic-dirty-token-face ((t (:background "gray10"))))
'(semantic-intangible-face ((t (:foreground "gray25"))))
'(semantic-read-only-face ((t (:background "gray25"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(senator-intangible-face ((t (:foreground "gray75"))))
'(senator-momentary-highlight-face ((t (:background "gray70"))))
'(senator-read-only-face ((t (:background "#664444"))))
'(sgml-comment-face ((t (:foreground "dark turquoise"))))
'(sgml-doctype-face ((t (:foreground "turquoise"))))
'(sgml-end-tag-face ((t (:foreground "aquamarine"))))
'(sgml-entity-face ((t (:foreground "gray85"))))
'(sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
'(sgml-ms-end-face ((t (:foreground "green"))))
'(sgml-ms-start-face ((t (:foreground "yellow"))))
'(sgml-pi-face ((t (:foreground "lime green"))))
'(sgml-sgml-face ((t (:foreground "brown"))))
'(sgml-short-ref-face ((t (:foreground "deep sky blue"))))
'(sgml-start-tag-face ((t (:foreground "aquamarine"))))
'(sh-heredoc-face ((t (:foreground "tan"))))
'(shell-option-face ((t (:foreground "gray85"))))
'(shell-output-2-face ((t (:foreground "gray85"))))
'(shell-output-3-face ((t (:foreground "gray85"))))
'(shell-output-face ((t (:bold t :weight bold))))
'(shell-prompt-face ((t (:foreground "yellow"))))
'(show-paren-match-face ((t (:bold t :background "turquoise" :weight bold))))
'(show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold))))
'(show-tabs-space-face ((t (:foreground "yellow"))))
'(show-tabs-tab-face ((t (:foreground "red"))))
'(smerge-base-face ((t (:foreground "red"))))
'(smerge-markers-face ((t (:background "grey85"))))
'(smerge-mine-face ((t (:foreground "Gray85"))))
'(smerge-other-face ((t (:foreground "darkgreen"))))
'(speedbar-button-face ((t (:bold t :weight bold))))
'(speedbar-directory-face ((t (:bold t :weight bold))))
'(speedbar-file-face ((t (:bold t :weight bold))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:underline t))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(strokes-char-face ((t (:background "lightgray"))))
'(swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold))))
'(template-message-face ((t (:bold t :weight bold))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t :weight bold))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(tex-math-face ((t (:foreground "RosyBrown"))))
'(texinfo-heading-face ((t (:foreground "Blue"))))
'(text-cursor ((t (:background "Red3" :foreground "gray80"))))
'(tool-bar ((t (:background "grey75" :foreground "black"))))
'(toolbar ((t (:background "Gray80"))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
'(vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
'(vertical-divider ((t (:background "Gray80"))))
'(vhdl-font-lock-attribute-face ((t (:foreground "gray85"))))
'(vhdl-font-lock-directive-face ((t (:foreground "gray85"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "gray85"))))
'(vhdl-font-lock-function-face ((t (:foreground "gray85"))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "gray85"))))
'(vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t))))
'(vhdl-speedbar-configuration-face ((t (:foreground "gray85"))))
'(vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t))))
'(vhdl-speedbar-entity-face ((t (:foreground "gray85"))))
'(vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "gray85"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t))))
'(vhdl-speedbar-package-face ((t (:foreground "gray85"))))
'(vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic))))
'(vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic))))
'(vm-header-name-face ((t (:foreground "cyan"))))
'(vm-header-subject-face ((t (:foreground "cyan"))))
'(vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic))))
'(vm-message-cited-face ((t (:foreground "Gray80"))))
'(vm-monochrome-image ((t (:background "white" :foreground "gray30"))))
'(vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
'(vm-summary-highlight-face ((t (:foreground "White"))))
'(vm-xface ((t (:background "white" :foreground "gray30"))))
'(vmpc-pre-sig-face ((t (:foreground "gray85"))))
'(vmpc-sig-face ((t (:foreground "gray85"))))
'(vvb-face ((t (:background "pink" :foreground "gray30"))))
'(w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
'(w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
'(w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
'(w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
'(white ((t (:foreground "white"))))
'(widget ((t (nil))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "gray85"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85" :foreground "gray30"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
'(woman-addition-face ((t (:foreground "orange"))))
'(woman-bold-face ((t (:bold t :weight bold))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(x-face ((t (:background "white" :foreground "gray30"))))
'(xrdb-option-name-face ((t (:foreground "gray85"))))
'(xref-keyword-face ((t (:foreground "gray85"))))
'(xref-list-default-face ((t (nil))))
'(xref-list-pilot-face ((t (:foreground "gray85"))))
'(xref-list-symbol-face ((t (:foreground "navy"))))
'(xsl-fo-alternate-face ((t (:foreground "Yellow"))))
'(xsl-fo-main-face ((t (:foreground "PaleGreen"))))
'(xsl-other-element-face ((t (:foreground "Coral"))))
'(xsl-xslt-alternate-face ((t (:foreground "LightGray"))))
'(xsl-xslt-main-face ((t (:foreground "Wheat"))))
'(xxml-emph-1-face ((t (:background "lightyellow"))))
'(xxml-emph-2-face ((t (:background "lightyellow"))))
'(xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
'(xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
'(xxml-header-3-face ((t (:background "seashell1"))))
'(xxml-header-4-face ((t (:background "seashell1"))))
'(xxml-interaction-face ((t (:background "lightcyan"))))
'(xxml-rug-face ((t (:background "cyan"))))
'(xxml-sparkle-face ((t (:background "yellow"))))
'(xxml-unbreakable-space-face ((t (:foreground "grey" :underline t))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "Cyan4")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-blue2)
;;; dark-blue2-theme.el ends here

91
dark-erc-theme.el Normal file
View File

@ -0,0 +1,91 @@
;;; dark-erc-theme.el --- dark-erc theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-erc theme from `color-themes'
;;; Code:
(deftheme dark-erc
"dark-erc theme")
(custom-theme-set-faces
'dark-erc
'(erc-action-face ((t (nil))))
'(erc-bold-face ((t (:bold t))))
'(erc-current-nick-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (nil))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-highlight-face ((t (:bold t :foreground "pale green"))))
'(erc-input-face ((t (:foreground "#555"))))
'(erc-inverse-face ((t (:background "steel blue"))))
'(erc-keyword-face ((t (:foreground "#999" :bold t))))
'(erc-nick-msg-face ((t (:foreground "#888"))))
'(erc-notice-face ((t (:foreground "#444"))))
'(erc-pal-face ((t (:foreground "#888"))))
'(erc-prompt-face ((t (:foreground "#777" :bold t))))
'(erc-timestamp-face ((t (:foreground "#777" :bold t))))
'(fg:erc-color-face0 ((t (:foreground "white"))))
'(fg:erc-color-face1 ((t (:foreground "beige"))))
'(fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
'(fg:erc-color-face3 ((t (:foreground "light cyan"))))
'(fg:erc-color-face4 ((t (:foreground "powder blue"))))
'(fg:erc-color-face5 ((t (:foreground "sky blue"))))
'(fg:erc-color-face6 ((t (:foreground "dark sea green"))))
'(fg:erc-color-face7 ((t (:foreground "pale green"))))
'(fg:erc-color-face8 ((t (:foreground "medium spring green"))))
'(fg:erc-color-face9 ((t (:foreground "khaki"))))
'(fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
'(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
'(fg:erc-color-face12 ((t (:foreground "light yellow"))))
'(fg:erc-color-face13 ((t (:foreground "yellow"))))
'(fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
'(fg:erc-color-face15 ((t (:foreground "lime green"))))
'(bg:erc-color-face0 ((t (nil))))
'(bg:erc-color-face1 ((t (nil))))
'(bg:erc-color-face2 ((t (nil))))
'(bg:erc-color-face3 ((t (nil))))
'(bg:erc-color-face4 ((t (nil))))
'(bg:erc-color-face5 ((t (nil))))
'(bg:erc-color-face6 ((t (nil))))
'(bg:erc-color-face7 ((t (nil))))
'(bg:erc-color-face8 ((t (nil))))
'(bg:erc-color-face9 ((t (nil))))
'(bg:erc-color-face10 ((t (nil))))
'(bg:erc-color-face11 ((t (nil))))
'(bg:erc-color-face12 ((t (nil))))
'(bg:erc-color-face13 ((t (nil))))
'(bg:erc-color-face14 ((t (nil))))
'(bg:erc-color-face15 ((t (nil)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-erc)
;;; dark-erc-theme.el ends here

57
dark-font-lock-theme.el Normal file
View File

@ -0,0 +1,57 @@
;;; dark-font-lock-theme.el --- dark-font-lock theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-font-lock theme from `color-themes'
;;; Code:
(deftheme dark-font-lock
"dark-font-lock theme")
(custom-theme-set-faces
'dark-font-lock
'(font-lock-builtin-face ((t (:bold t :foreground "#777"))))
'(font-lock-comment-face ((t (:foreground "#555"))))
'(font-lock-constant-face ((t (:foreground "#777"))))
'(font-lock-doc-string-face ((t (:foreground "#777"))))
'(font-lock-doc-face ((t (:foreground "#777"))))
'(font-lock-function-name-face ((t (:bold t :foreground "#777"))))
'(font-lock-keyword-face ((t (:foreground "#777"))))
'(font-lock-preprocessor-face ((t (:foreground "#777"))))
'(font-lock-reference-face ((t (:foreground "#777"))))
'(font-lock-string-face ((t (:foreground "#777"))))
'(font-lock-type-face ((t (:bold t))))
'(font-lock-variable-name-face ((t (:bold t :foreground "#888"))))
'(font-lock-warning-face ((t (:bold t :foreground "#999")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-font-lock)
;;; dark-font-lock-theme.el ends here

114
dark-gnus-theme.el Normal file
View File

@ -0,0 +1,114 @@
;;; dark-gnus-theme.el --- dark-gnus theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-gnus theme from `color-themes'
;;; Code:
(deftheme dark-gnus
"dark-gnus theme")
(custom-theme-set-faces
'dark-gnus
'(gnus-cite-attribution-face ((t (:foreground "#bbb"))))
'(gnus-cite-face-1 ((t (:foreground "#aaa"))))
'(gnus-cite-face-2 ((t (:foreground "#aaa"))))
'(gnus-cite-face-3 ((t (:foreground "#aaa"))))
'(gnus-cite-face-4 ((t (:foreground "#aaa"))))
'(gnus-cite-face-5 ((t (:foreground "#aaa"))))
'(gnus-cite-face-6 ((t (:foreground "#aaa"))))
'(gnus-cite-face-7 ((t (:foreground "#aaa"))))
'(gnus-cite-face-8 ((t (:foreground "#aaa"))))
'(gnus-cite-face-9 ((t (:foreground "#aaa"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:foreground "#ccc"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "#999"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "#999"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "#999"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "#999"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "#888"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "#888"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "#777"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "#777"))))
'(gnus-group-news-1-empty-face ((t (:foreground "#999"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "#999"))))
'(gnus-group-news-2-empty-face ((t (:foreground "#888"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "#888"))))
'(gnus-group-news-3-empty-face ((t (:foreground "#777"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "#777"))))
'(gnus-group-news-4-empty-face ((t (:foreground "#666"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "#666"))))
'(gnus-group-news-5-empty-face ((t (:foreground "#666"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "#666"))))
'(gnus-group-news-6-empty-face ((t (:foreground "#666"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "#666"))))
'(gnus-group-news-low-empty-face ((t (:foreground "#666"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "#666"))))
'(gnus-header-content-face ((t (:foreground "#888"))))
'(gnus-header-from-face ((t (:bold t :foreground "#888"))))
'(gnus-header-name-face ((t (:bold t :foreground "#777"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "#777"))))
'(gnus-header-subject-face ((t (:bold t :foreground "#999"))))
'(gnus-signature-face ((t (:foreground "#444"))))
'(gnus-splash-face ((t (:foreground "#ccc"))))
'(gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "#555"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "#666"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "#777"))))
'(gnus-summary-high-unread-face ((t (:bold t :foreground "#888"))))
'(gnus-summary-low-ancient-face ((t (:foreground "#444"))))
'(gnus-summary-low-read-face ((t (:foreground "#555"))))
'(gnus-summary-low-ticked-face ((t (:foreground "#666"))))
'(gnus-summary-low-unread-face ((t (:foreground "#777"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "#555"))))
'(gnus-summary-normal-read-face ((t (:foreground "#666"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "#777"))))
'(gnus-summary-normal-unread-face ((t (:foreground "#888"))))
'(gnus-summary-selected-face ((t (:background "#333"))))
'(message-cited-text-face ((t (:foreground "#aaa"))))
'(message-header-cc-face ((t (:foreground "#888"))))
'(message-header-name-face ((t (:bold t :foreground "#777"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "#777"))))
'(message-header-other-face ((t (:foreground "#666"))))
'(message-header-subject-face ((t (:bold t :foreground "#999"))))
'(message-header-to-face ((t (:bold t :foreground "#777"))))
'(message-header-xheader-face ((t (:foreground "#666"))))
'(message-separator-face ((t (:foreground "#999")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-gnus)
;;; dark-gnus-theme.el ends here

85
dark-green-theme.el Normal file
View File

@ -0,0 +1,85 @@
;;; dark-green-theme.el --- dark-green theme
;; Copyright (C) 2002 by ces93
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-green theme from `color-themes'
;;; Code:
(deftheme dark-green
"dark-green theme")
(custom-theme-set-faces
'dark-green
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(border-glyph ((t (nil))))
'(fringe ((t (nil))))
'(green ((t (:foreground "green"))))
'(gui-button-face ((t (:background "grey75" :foreground "black"))))
'(gui-element ((t (:background "#ffffff" :foreground "#000000"))))
'(highlight ((t (:background "gray" :foreground "darkred"))))
'(isearch ((t (:background "LightSlateGray" :foreground "red"))))
'(italic ((t (:italic t))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:background "gray68"))))
'(mode-line ((t (:background "LightSlateGray" :foreground "black"))))
'(mode-line ((t (:background "LightSlateGray" :foreground "black"))))
'(mode-line-buffer-id ((t (:background "LightSlateGray" :foreground "blue4"))))
'(mode-line-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4"))))
'(pointer ((t (:background "#ffffff" :foreground "#000000"))))
'(primary-selection ((t (:background "gray65"))))
'(red ((t (:foreground "red"))))
'(region ((t (:background "gray65"))))
'(right-margin ((t (nil))))
'(rpm-spec-dir-face ((t (:foreground "green"))))
'(rpm-spec-doc-face ((t (:foreground "magenta"))))
'(rpm-spec-ghost-face ((t (:foreground "red"))))
'(rpm-spec-macro-face ((t (:foreground "purple"))))
'(rpm-spec-package-face ((t (:foreground "red"))))
'(rpm-spec-tag-face ((t (:foreground "blue"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(text-cursor ((t (:background "Red3" :foreground "DarkSlateGray"))))
'(tool-bar ((t (nil))))
'(toolbar ((t (:background "#ffffff" :foreground "#000000"))))
'(underline ((t (:underline t))))
'(vertical-divider ((t (:background "#ffffff" :foreground "#000000"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(yellow ((t (:foreground "yellow"))))
'(zmacs-region ((t (:background "darkorange" :foreground "black")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-green)
;;; dark-green-theme.el ends here

50
dark-info-theme.el Normal file
View File

@ -0,0 +1,50 @@
;;; dark-info-theme.el --- dark-info theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-info theme from `color-themes'
;;; Code:
(deftheme dark-info
"dark-info theme")
(custom-theme-set-faces
'dark-info
'(info-header-node ((t (:foreground "#666"))))
'(info-header-xref ((t (:foreground "#666"))))
'(info-menu-5 ((t (:underline t))))
'(info-menu-header ((t (:bold t :foreground "#666"))))
'(info-node ((t (:bold t :foreground "#888"))))
'(info-xref ((t (:bold t :foreground "#777")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-info)
;;; dark-info-theme.el ends here

177
dark-laptop-theme.el Normal file
View File

@ -0,0 +1,177 @@
;;; dark-laptop-theme.el --- dark-laptop theme
;; Copyright (C) 2001 by Laurent Michel
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of dark-laptop theme from `color-themes'
;;; Code:
(deftheme dark-laptop
"dark-laptop theme")
(custom-theme-set-faces
'dark-laptop
'(default ((t (:background "black" :foreground "white"))))
'(mouse ((t (:foreground "sienna1"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:foreground "black"))))
'(gnus-mouse-face ((t (:background "darkolivegreen"))))
'(list-matching-lines-face ((t (:bold t))))
'(view-highlight-face ((t (:background "darkolivegreen"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(custom-button-face ((t (nil))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :foreground "light blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "lime green"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
'(fl-comment-face ((t (:foreground "pink"))))
'(fl-doc-string-face ((t (:foreground "purple"))))
'(fl-function-name-face ((t (:foreground "red"))))
'(fl-keyword-face ((t (:foreground "cyan"))))
'(fl-string-face ((t (:foreground "green"))))
'(fl-type-face ((t (:foreground "yellow"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-comment-face ((t (:foreground "OrangeRed"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
'(font-lock-keyword-face ((t (:foreground "Cyan"))))
'(font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
'(font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "PaleGreen"))))
'(font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
'(gnus-cite-attribution-face ((t (:italic t))))
'(gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:bold t :foreground "cyan"))))
'(gnus-cite-face-3 ((t (:bold t :foreground "gold"))))
'(gnus-cite-face-4 ((t (:foreground "light pink"))))
'(gnus-cite-face-5 ((t (:foreground "pale green"))))
'(gnus-cite-face-6 ((t (:bold t :foreground "chocolate"))))
'(gnus-cite-face-7 ((t (:foreground "orange"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t :italic t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
'(gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
'(gnus-header-content-face ((t (:italic t :foreground "forest green"))))
'(gnus-header-from-face ((t (:bold t :foreground "spring green"))))
'(gnus-header-name-face ((t (:foreground "deep sky blue"))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple"))))
'(gnus-header-subject-face ((t (:bold t :foreground "orange"))))
'(gnus-signature-face ((t (:bold t :foreground "khaki"))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(highlight ((t (:background "darkolivegreen"))))
'(italic ((t (:italic t))))
'(message-cited-text-face ((t (:bold t :foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "green4"))))
'(message-header-name-face ((t (:bold t :foreground "orange"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
'(message-header-other-face ((t (:bold t :foreground "chocolate"))))
'(message-header-subject-face ((t (:bold t :foreground "yellow"))))
'(message-header-to-face ((t (:bold t :foreground "cyan"))))
'(message-header-xheader-face ((t (:bold t :foreground "light blue"))))
'(message-mml-face ((t (:bold t :background "Green3"))))
'(message-separator-face ((t (:foreground "blue3"))))
'(mode-line ((t (:background "white" :foreground "black"))))
'(mode-line-buffer-id ((t (:background "white" :foreground "black"))))
'(mode-line-mousable ((t (:background "white" :foreground "black"))))
'(mode-line-mousable-minor-mode ((t (:background "white" :foreground "black"))))
'(region ((t (:background "blue"))))
'(primary-selection ((t (:background "blue"))))
'(isearch ((t (:background "blue"))))
'(zmacs-region ((t (:background "blue"))))
'(secondary-selection ((t (:background "darkslateblue"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'dark-laptop)
;;; dark-laptop-theme.el ends here

137
deep-blue-theme.el Normal file
View File

@ -0,0 +1,137 @@
;;; deep-blue-theme.el --- deep-blue theme
;; Copyright (C) 2001 by Tomas Cerha
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of deep-blue theme from `color-themes'
;;; Code:
(deftheme deep-blue
"deep-blue theme")
(custom-theme-set-faces
'deep-blue
'(default ((t (:background "#102e4e" :foreground "#eeeeee"))))
'(mouse ((t (:background "white"))))
'(cursor ((t (:background "green" :foreground "black"))))
'(border ((t (:background "black"))))
'(Info-title-1-face ((t (:bold t :weight bold :height 1.728))))
'(Info-title-2-face ((t (:bold t :weight bold :height 1.44))))
'(Info-title-3-face ((t (:bold t :weight bold :height 1.2))))
'(Info-title-4-face ((t (:bold t :weight bold))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(calendar-today-face ((t (:background "blue"))))
'(change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
'(change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
'(change-log-date-face ((t (:foreground "burlywood"))))
'(change-log-email-face ((t (:foreground "SeaGreen2"))))
'(change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
'(change-log-function-face ((t (:foreground "SeaGreen2"))))
'(change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1"))))
'(change-log-name-face ((t (:foreground "gold"))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(cvs-filename-face ((t (:foreground "lightblue"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
'(cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
'(cvs-msg-face ((t (:italic t :slant italic))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:foreground "orange red"))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-context-face ((t (:foreground "grey70"))))
'(diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
'(diff-function-face ((t (:foreground "grey70"))))
'(diff-header-face ((t (:background "grey45"))))
'(diff-hunk-header-face ((t (:background "grey45"))))
'(diff-index-face ((t (:bold t :weight bold :background "grey60"))))
'(diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
'(diff-removed-face ((t (nil))))
'(font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
'(font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
'(font-latex-math-face ((t (:foreground "burlywood"))))
'(font-latex-sedate-face ((t (:foreground "LightGray"))))
'(font-latex-string-face ((t (:foreground "LightSalmon"))))
'(font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(font-lock-builtin-face ((t (:foreground "LightCoral"))))
'(font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
'(font-lock-constant-face ((t (:foreground "gold"))))
'(font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
'(font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
'(font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
'(font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold))))
'(font-lock-preprocessor-face ((t (:foreground "gold"))))
'(font-lock-reference-face ((t (:foreground "LightCoral"))))
'(font-lock-string-face ((t (:foreground "burlywood"))))
'(font-lock-type-face ((t (:foreground "CadetBlue1"))))
'(font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
'(font-lock-warning-face ((t (:foreground "yellow"))))
'(fringe ((t (:background "#405060"))))
'(header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
'(highlight ((t (:background "darkgreen"))))
'(holiday-face ((t (:foreground "green"))))
'(info-header-node ((t (:foreground "DeepSkyBlue1"))))
'(info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
'(info-menu-5 ((t (:foreground "wheat"))))
'(info-menu-header ((t (:bold t :weight bold))))
'(info-node ((t (:foreground "DeepSkyBlue1"))))
'(info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t :slant italic))))
'(menu ((t (:background "gray" :foreground "black"))))
'(mode-line ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
'(mode-line-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
'(mode-line-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
'(mode-line-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
'(region ((t (:background "DarkCyan"))))
'(scroll-bar ((t (:background "gray" :foreground "#506070"))))
'(secondary-selection ((t (:background "yellow" :foreground "gray10"))))
'(show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
'(show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
'(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "#102e4e"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'deep-blue)
;;; deep-blue-theme.el ends here

175
desert-theme.el Normal file
View File

@ -0,0 +1,175 @@
;;; desert-theme.el --- desert theme
;; Copyright (C) Sergei Lebedev
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of desert theme from `color-themes'
;;; Code:
(deftheme desert
"desert theme")
(custom-theme-set-faces
'desert
'(default ((t (:background "gray20" :foreground "ghost white"))))
'(ac-candidate-face ((t (:background "gray15" :foreground "ghost white"))))
'(ac-completion-face ((t (:background "olivedrab" :foreground "khaki"))))
'(ac-selection-face ((t (:foreground "khaki" :background "olivedrab"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(border ((t (nil))))
'(buffer-menu-buffer ((t (:bold t :foreground "khaki" :weight bold))))
'(button ((t (:bold t :weight bold :underline nil :foreground "MediumPurple3" :background "gray20"))))
'(completions-annotations ((t (:underline t))))
'(completions-common-part ((t (:foreground "ghost white" :background "gray20"))))
'(completions-first-difference ((t (:bold t :weight bold))))
'(cursor ((t (:background "khaki"))))
'(dired-directory ((t (:bold t :weight bold :foreground "PaleGreen3"))))
'(dired-flagged ((t (:bold t :weight bold :foreground "Pink"))))
'(dired-header ((t (:bold t :weight bold :foreground "PaleGreen3"))))
'(dired-ignored ((t (:foreground "grey70"))))
'(dired-mark ((t (:foreground "#ffa0a0"))))
'(dired-marked ((t (:bold t :weight bold :foreground "DarkOrange"))))
'(dired-perm-write ((t (:foreground "LightSkyBlue3"))))
'(dired-symlink ((t (:foreground "khaki"))))
'(dired-warning ((t (:bold t :weight bold :foreground "goldenrod"))))
'(elscreen-tab-background-face ((t (:background "gray15"))))
'(elscreen-tab-control-face
((t (:bold t :weight bold :foreground "goldenrod" :background "gray15" :underline nil))))
'(elscreen-tab-current-screen-face
((t (:bold t :background "gray15" :foreground "goldenrod" :weight bold))))
'(elscreen-tab-other-screen-face ((t (:background "gray15" :foreground "gray60"))))
'(error ((t (:bold t :foreground "Pink" :weight bold))))
'(escape-glyph ((t (:foreground "cyan"))))
'(file-name-shadow ((t (:foreground "grey70"))))
'(font-lock-builtin-face ((t (:foreground "MediumPurple3"))))
'(font-lock-comment-delimiter-face ((t (:foreground "LightSkyBlue3"))))
'(font-lock-comment-face ((t (:foreground "LightSkyBlue3"))))
'(font-lock-constant-face ((t (:foreground "#ffa0a0"))))
'(font-lock-doc-face ((t (:foreground "IndianRed3"))))
'(font-lock-function-name-face ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(font-lock-keyword-face ((t (:foreground "khaki"))))
'(font-lock-negation-char-face ((t (nil))))
'(font-lock-preprocessor-face ((t (:foreground "MediumPurple3"))))
'(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
'(font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
'(font-lock-string-face ((t (:foreground "#ffa0a0"))))
'(font-lock-type-face ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(font-lock-variable-name-face ((t (:foreground "ghost white"))))
'(font-lock-warning-face ((t (:bold t :foreground "goldenrod" :weight bold))))
'(fringe ((t (:background "gray20"))))
'(glyphless-char ((t (:height 0.6))))
'(header-line ((t (:background "gray15" :box (:color "gray20" :line-width 2)))))
'(help-argument-name ((t (nil))))
'(highlight ((t (:background "olivedrab" :foreground "khaki"))))
'(ido-first-match ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(ido-only-match ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(ido-subdir ((t (:bold t :weight bold :foreground "khaki"))))
'(isearch ((t (:background "olivedrab" :foreground "khaki"))))
'(isearch-fail ((t (:background "red4"))))
'(isearch-lazy-light
((t (:bold t :background "gray20" :foreground "ghost white" :weight bold))))
'(italic ((t (:underline t))))
'(jabber-activity-face ((t (:bold t :weight bold :foreground "PaleGreen3"))))
'(jabber-activity-personal-face ((t (:bold t :foreground "#ffa0a0" :weight bold))))
'(jabber-chat-prompt-foreign ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(jabber-chat-prompt-local ((t (:bold t :foreground "#ffa0a0" :weight bold))))
'(jabber-chat-prompt-system ((t (:bold t :foreground "LightSkyBlue3" :weight bold))))
'(jabber-rare-time-face ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(jabber-roster-user-away ((t (:foreground "IndianRed3"))))
'(jabber-roster-user-chatty ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(jabber-roster-user-dnd ((t (:foreground "LightSkyBlue3"))))
'(jabber-roster-user-error ((t (:bold t :weight bold :foreground "goldenrod"))))
'(jabber-roster-user-offline ((t (:background "gray20" :foreground "gray40"))))
'(jabber-roster-user-online ((t (:bold t :foreground "khaki" :weight bold))))
'(jabber-roster-user-xa ((t (:foreground "IndianRed3"))))
'(jabber-title-large ((t (:bold t :weight bold :height 1.728))))
'(jabber-title-medium ((t (:bold t :weight bold :height 1.44))))
'(jabber-title-small ((t (:bold t :weight bold :height 1.2))))
'(lazy-highlight ((t (:background "paleturquoise4"))))
'(link ((t (:bold t :background "gray20" :foreground "MediumPurple3" :underline nil :weight bold))))
'(link-visited ((t (:bold t :underline nil :foreground "MediumPurple3" :background "gray20" :weight bold))))
'(linum ((t (:background "gray20" :foreground "yellow"))))
'(match ((t (:bold t :weight bold))))
'(menu ((t (nil))))
'(minibuffer-prompt ((t (:bold t :foreground "khaki" :weight bold))))
'(mode-line
((t (:box (:color "gray20" :line-width 2)
:background "gray15" :foreground "gray60"))))
'(mode-line-buffer-id
((t (:bold t :background "gray15" :box (:color "gray20" :line-width 2)
:foreground "goldenrod" :weight bold))))
'(mode-line-emphasis ((t (:bold t :weight bold))))
'(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
'(mode-line-inactive
((t (:foreground "gray60" :background "gray15"
:box (:color "gray20" :line-width 2)))))
'(mouse ((t (:background "khaki"))))
'(next-error ((t (:background "olivedrab" :foreground "khaki"))))
'(nobreak-space ((t (:foreground "cyan" :underline t))))
'(query-replace ((t (:foreground "khaki" :background "olivedrab"))))
'(region ((t (:foreground "khaki" :background "olivedrab"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "SkyBlue4"))))
'(shadow ((t (:foreground "grey70"))))
'(show-paren-match ((t (:bold t :foreground "PaleGreen3" :weight bold))))
'(show-paren-mismatch ((t (:bold t :foreground "goldenrod" :weight bold))))
'(success ((t (:bold t :foreground "Green1" :weight bold))))
'(tool-bar
((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:bold t :weight bold :foreground "goldenrod"))))
'(underline ((t (:underline t))))
'(vertical-border ((t (nil))))
'(warning ((t (:bold t :foreground "DarkOrange" :weight bold))))
'(widget-button ((t (:bold t :weight bold))))
'(widget-button-pressed ((t (:foreground "red1"))))
'(widget-documentation ((t (:foreground "lime green"))))
'(widget-field ((t (:background "dim gray"))))
'(widget-inactive ((t (:foreground "grey70"))))
'(widget-single-line-field ((t (:background "dim gray")))) )
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'desert)
;;; desert-theme.el ends here

518
digital-ofs1-theme.el Normal file
View File

@ -0,0 +1,518 @@
;;; digital-ofs1-theme.el --- digital-ofs1 theme
;; Copyright (C) 2001 by Gareth Owen
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of digital-ofs1 theme from `color-themes'
;;; Code:
(deftheme digital-ofs1
"digital-ofs1 theme")
(custom-theme-set-faces
'digital-ofs1
'(default ((t (:background "#CA94AA469193" :foreground "Black"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:foreground "black"))))
'(Man-overstrike-face ((t (:bold t))))
'(Man-underline-face ((t (:underline t :bold t))))
'(gnus-mouse-face ((t (:bold t :background "darkseagreen2"))))
'(goto-address-mail-face ((t (:italic t :bold t))))
'(goto-address-mail-mouse-face ((t (:bold t :background "paleturquoise"))))
'(goto-address-url-face ((t (:bold t))))
'(goto-address-url-mouse-face ((t (:bold t :background "darkseagreen2"))))
'(ispell-highlight-face ((t (:bold t :background "darkseagreen2"))))
'(list-matching-lines-face ((t (:bold t))))
'(rmail-highlight-face ((t (:italic t :bold t :foreground "Blue"))))
'(view-highlight-face ((t (:bold t :background "darkseagreen2"))))
'(default ((t (:bold t))))
'(bbdb-company ((t (:italic t))))
'(bbdb-field-name ((t (:bold t))))
'(bbdb-field-value ((t (nil))))
'(bbdb-name ((t (:underline t))))
'(blank-space-face ((t (nil))))
'(blank-tab-face ((t (nil))))
'(blue ((t (:bold t :foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(border-glyph ((t (:bold t))))
'(buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
'(calendar-today-face ((t (:underline t :bold t :foreground "white"))))
'(comint-input-face ((t (nil))))
'(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
'(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
'(cperl-here-face ((t (nil))))
'(cperl-invalid-face ((t (:foreground "white"))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(cperl-pod-face ((t (nil))))
'(cperl-pod-head-face ((t (nil))))
'(custom-button-face ((t (:bold t))))
'(custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
'(custom-comment-face ((t (:foreground "white"))))
'(custom-comment-tag-face ((t (:foreground "white"))))
'(custom-documentation-face ((t (:bold t))))
'(custom-face-tag-face ((t (:underline t :bold t))))
'(custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue"))))
'(custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red"))))
'(custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t :bold t))))
'(custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
'(custom-state-face ((t (:bold t :foreground "dark green"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
'(cvs-filename-face ((t (:foreground "white"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "green"))))
'(cvs-marked-face ((t (:bold t :foreground "green3"))))
'(cvs-msg-face ((t (:italic t :foreground "red"))))
'(cvs-need-action-face ((t (:foreground "yellow"))))
'(cvs-unknown-face ((t (:foreground "grey"))))
'(cyan ((t (:foreground "cyan"))))
'(diary-face ((t (:bold t :foreground "red"))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-file-header-face ((t (:bold t :background "grey70"))))
'(diff-hunk-header-face ((t (:background "grey85"))))
'(diff-index-face ((t (:bold t :background "grey70"))))
'(diff-removed-face ((t (nil))))
'(dired-face-boring ((t (:foreground "Gray65"))))
'(dired-face-directory ((t (:bold t))))
'(dired-face-executable ((t (:foreground "SeaGreen"))))
'(dired-face-flagged ((t (:background "LightSlateGray"))))
'(dired-face-header ((t (:background "grey75" :foreground "black"))))
'(dired-face-marked ((t (:background "PaleVioletRed"))))
'(dired-face-permissions ((t (:background "grey75" :foreground "black"))))
'(dired-face-setuid ((t (:foreground "Red"))))
'(dired-face-socket ((t (:foreground "magenta"))))
'(dired-face-symlink ((t (:foreground "cyan"))))
'(display-time-mail-balloon-enhance-face ((t (:bold t :background "orange"))))
'(display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue"))))
'(display-time-time-balloon-face ((t (:bold t :foreground "red"))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (nil))))
'(erc-error-face ((t (:bold t))))
'(erc-input-face ((t (nil))))
'(erc-inverse-face ((t (nil))))
'(erc-notice-face ((t (nil))))
'(erc-pal-face ((t (nil))))
'(erc-prompt-face ((t (nil))))
'(erc-underline-face ((t (nil))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
'(eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
'(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
'(eshell-ls-picture-face ((t (:foreground "Violet"))))
'(eshell-ls-product-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-readonly-face ((t (:foreground "Brown"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
'(eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
'(eshell-ls-todo-face ((t (:bold t :foreground "aquamarine"))))
'(eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
'(eshell-prompt-face ((t (:bold t :foreground "Red"))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green"))))
'(excerpt ((t (:italic t))))
'(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
'(fg:black ((t (:foreground "black"))))
'(fixed ((t (:bold t))))
'(fl-comment-face ((t (:foreground "medium purple"))))
'(fl-doc-string-face ((t (nil))))
'(fl-function-name-face ((t (:foreground "green"))))
'(fl-keyword-face ((t (:foreground "LightGreen"))))
'(fl-string-face ((t (:foreground "light coral"))))
'(fl-type-face ((t (:foreground "cyan"))))
'(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
'(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
'(font-latex-bold-face ((t (:bold t))))
'(font-latex-italic-face ((t (:italic t))))
'(font-latex-math-face ((t (nil))))
'(font-latex-sedate-face ((t (nil))))
'(font-latex-string-face ((t (nil))))
'(font-latex-warning-face ((t (nil))))
'(font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid"))))
'(font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
'(font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue"))))
'(font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4"))))
'(font-lock-emphasized-face ((t (:bold t))))
'(font-lock-exit-face ((t (:foreground "green"))))
'(font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
'(font-lock-keyword-face ((t (:bold t :foreground "dark olive green"))))
'(font-lock-other-emphasized-face ((t (:italic t :bold t))))
'(font-lock-other-type-face ((t (:bold t :foreground "DarkBlue"))))
'(font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3"))))
'(font-lock-reference-face ((t (:italic t :bold t :foreground "red3"))))
'(font-lock-special-comment-face ((t (nil))))
'(font-lock-special-keyword-face ((t (nil))))
'(font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue"))))
'(font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen"))))
'(font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(fringe ((t (:background "grey95"))))
'(gdb-arrow-face ((t (:bold t))))
'(gnus-cite-attribution-face ((t (:italic t :bold t))))
'(gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:bold t :foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:bold t :foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:bold t :foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-cite-face-list ((t (nil))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:underline t :bold t))))
'(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
'(gnus-emphasis-underline-italic ((t (:underline t :italic t))))
'(gnus-filterhist-face-1 ((t (nil))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
'(gnus-header-from-face ((t (:bold t :foreground "red3"))))
'(gnus-header-name-face ((t (:bold t :foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
'(gnus-header-subject-face ((t (:bold t :foreground "red4"))))
'(gnus-picons-face ((t (:background "white" :foreground "black"))))
'(gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
'(gnus-signature-face ((t (:italic t :bold t))))
'(gnus-splash ((t (nil))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-high-unread-face ((t (:italic t :bold t))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (:bold t))))
'(gnus-summary-selected-face ((t (:underline t))))
'(gnus-x-face ((t (:background "white" :foreground "black"))))
'(green ((t (:bold t :foreground "green"))))
'(gui-button-face ((t (:bold t :background "grey75" :foreground "black"))))
'(gui-element ((t (:bold t :background "Gray80"))))
'(highlight ((t (:bold t :background "darkseagreen2"))))
'(highlight-changes-delete-face ((t (:underline t :foreground "red"))))
'(highlight-changes-face ((t (:foreground "red"))))
'(highline-face ((t (:background "black" :foreground "white"))))
'(holiday-face ((t (:bold t :background "pink" :foreground "white"))))
'(hproperty:but-face ((t (:bold t))))
'(hproperty:flash-face ((t (:bold t))))
'(hproperty:highlight-face ((t (:bold t))))
'(hproperty:item-face ((t (:bold t))))
'(html-helper-bold-face ((t (:bold t))))
'(html-helper-bold-italic-face ((t (nil))))
'(html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
'(html-helper-italic-face ((t (:italic t :bold t :foreground "yellow"))))
'(html-helper-underline-face ((t (:underline t))))
'(html-tag-face ((t (:bold t))))
'(hyper-apropos-documentation ((t (:foreground "white"))))
'(hyper-apropos-heading ((t (:bold t))))
'(hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
'(hyper-apropos-major-heading ((t (:bold t))))
'(hyper-apropos-section-heading ((t (:bold t))))
'(hyper-apropos-warning ((t (:bold t :foreground "red"))))
'(ibuffer-marked-face ((t (:foreground "red"))))
'(info-menu-5 ((t (:underline t :bold t))))
'(info-menu-6 ((t (nil))))
'(info-node ((t (:italic t :bold t))))
'(info-xref ((t (:bold t))))
'(isearch ((t (:bold t :background "paleturquoise"))))
'(isearch-secondary ((t (:foreground "red3"))))
'(ispell-face ((t (:bold t))))
'(italic ((t (:italic t :bold t))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
'(jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
'(jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
'(lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
'(left-margin ((t (:bold t))))
'(linemenu-face ((t (nil))))
'(list-mode-item-selected ((t (:bold t :background "gray68"))))
'(magenta ((t (:foreground "magenta"))))
'(makefile-space-face ((t (:background "hotpink"))))
'(man-bold ((t (:bold t))))
'(man-heading ((t (:bold t))))
'(man-italic ((t (:foreground "yellow"))))
'(man-xref ((t (:underline t))))
'(message-cited-text ((t (:bold t :foreground "orange"))))
'(message-cited-text-face ((t (:bold t :foreground "red"))))
'(message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-contents ((t (:italic t :bold t :foreground "white"))))
'(message-header-name-face ((t (:bold t :foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
'(message-header-other-face ((t (:bold t :foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue"))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
'(message-header-xheader-face ((t (:bold t :foreground "blue"))))
'(message-headers ((t (:bold t :foreground "orange"))))
'(message-highlighted-header-contents ((t (:bold t))))
'(message-mml-face ((t (:bold t :foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(message-url ((t (:bold t :foreground "pink"))))
'(mmm-face ((t (:background "black" :foreground "green"))))
'(mode-line ((t (:bold t :background "Black" :foreground "#CA94AA469193"))))
'(mode-line-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4"))))
'(mode-line-mousable ((t (:bold t :background "Gray80" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4"))))
'(my-tab-face ((t (nil))))
'(nil ((t (nil))))
'(p4-diff-del-face ((t (:bold t))))
'(paren-blink-off ((t (:foreground "gray80"))))
'(paren-face ((t (nil))))
'(paren-face-match ((t (nil))))
'(paren-face-mismatch ((t (nil))))
'(paren-face-no-match ((t (nil))))
'(paren-match ((t (:background "darkseagreen2"))))
'(paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
'(paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white"))))
'(paren-no-match-face ((t (:bold t :background "yellow" :foreground "white"))))
'(pointer ((t (:bold t))))
'(primary-selection ((t (:bold t :background "gray65"))))
'(red ((t (:bold t :foreground "red"))))
'(region ((t (:bold t :background "gray"))))
'(right-margin ((t (:bold t))))
'(searchm-buffer ((t (:bold t))))
'(searchm-button ((t (:bold t))))
'(searchm-field ((t (nil))))
'(searchm-field-label ((t (:bold t))))
'(searchm-highlight ((t (:bold t))))
'(secondary-selection ((t (:bold t :background "paleturquoise"))))
'(semantic-intangible-face ((t (:foreground "gray25"))))
'(semantic-read-only-face ((t (:background "gray25"))))
'(senator-momentary-highlight-face ((t (:background "gray70"))))
'(setnu-line-number-face ((t (:italic t :bold t))))
'(sgml-comment-face ((t (:foreground "dark green"))))
'(sgml-doctype-face ((t (:foreground "maroon"))))
'(sgml-end-tag-face ((t (:foreground "blue2"))))
'(sgml-entity-face ((t (:foreground "red2"))))
'(sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
'(sgml-ms-end-face ((t (:foreground "maroon"))))
'(sgml-ms-start-face ((t (:foreground "maroon"))))
'(sgml-pi-face ((t (:foreground "maroon"))))
'(sgml-sgml-face ((t (:foreground "maroon"))))
'(sgml-short-ref-face ((t (:foreground "goldenrod"))))
'(sgml-start-tag-face ((t (:foreground "blue2"))))
'(shell-input-face ((t (:bold t))))
'(shell-option-face ((t (:bold t :foreground "blue4"))))
'(shell-output-2-face ((t (:bold t :foreground "green4"))))
'(shell-output-3-face ((t (:bold t :foreground "green4"))))
'(shell-output-face ((t (:bold t))))
'(shell-prompt-face ((t (:bold t :foreground "red4"))))
'(show-paren-match-face ((t (:bold t :background "turquoise"))))
'(show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:bold t :foreground "magenta"))))
'(speedbar-directory-face ((t (:bold t :foreground "orchid"))))
'(speedbar-file-face ((t (:bold t :foreground "pink"))))
'(speedbar-highlight-face ((t (:background "black"))))
'(speedbar-selected-face ((t (:underline t :foreground "cyan"))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
'(template-message-face ((t (:bold t))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
'(term-blue-face ((t (:foreground "blue"))))
'(term-blue-inv-face ((t (:background "blue"))))
'(term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
'(term-cyan-face ((t (:foreground "cyan"))))
'(term-cyan-inv-face ((t (:background "cyan"))))
'(term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
'(term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
'(term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
'(term-green ((t (:foreground "green"))))
'(term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
'(term-green-face ((t (:foreground "green"))))
'(term-green-inv-face ((t (:background "green"))))
'(term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
'(term-magenta-face ((t (:foreground "magenta"))))
'(term-magenta-inv-face ((t (:background "magenta"))))
'(term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
'(term-red-face ((t (:foreground "red"))))
'(term-red-inv-face ((t (:background "red"))))
'(term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
'(term-white-face ((t (:foreground "white"))))
'(term-white-inv-face ((t (:background "snow2"))))
'(term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
'(term-yellow-face ((t (:foreground "yellow"))))
'(term-yellow-inv-face ((t (:background "yellow"))))
'(term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(text-cursor ((t (:bold t :background "Red3" :foreground "gray80"))))
'(toolbar ((t (:bold t :background "Gray80"))))
'(underline ((t (:underline t :bold t))))
'(vc-annotate-face-0046FF ((t (nil))))
'(vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
'(vertical-divider ((t (:bold t :background "Gray80"))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-generic-/constant-face ((t (nil))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-font-lock-type-face ((t (nil))))
'(vhdl-font-lock-variable-face ((t (nil))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
'(vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
'(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
'(vhdl-speedbar-subprogram-face ((t (nil))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(vm-xface ((t (:background "white" :foreground "black"))))
'(vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
'(vmpc-sig-face ((t (:foreground "steelblue"))))
'(vvb-face ((t (nil))))
'(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
'(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
'(w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
'(w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
'(white ((t (:foreground "white"))))
'(widget ((t (nil))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:bold t :foreground "red"))))
'(widget-documentation-face ((t (:bold t :foreground "dark green"))))
'(widget-field-face ((t (:bold t :background "gray85"))))
'(widget-inactive-face ((t (:bold t :foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(x-face ((t (:bold t :background "white" :foreground "black"))))
'(x-symbol-adobe-fontspecific-face ((t (nil))))
'(x-symbol-face ((t (nil))))
'(x-symbol-heading-face ((t (:bold t))))
'(x-symbol-info-face ((t (nil))))
'(x-symbol-invisible-face ((t (nil))))
'(x-symbol-revealed-face ((t (nil))))
'(xrdb-option-name-face ((t (:foreground "red"))))
'(xref-keyword-face ((t (:foreground "blue"))))
'(xref-list-default-face ((t (nil))))
'(xref-list-pilot-face ((t (:foreground "navy"))))
'(xref-list-symbol-face ((t (:foreground "navy"))))
'(yellow ((t (:bold t :foreground "yellow"))))
'(zmacs-region ((t (:bold t :background "gray65")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'digital-ofs1)
;;; digital-ofs1-theme.el ends here

391
emacs-21-theme.el Normal file
View File

@ -0,0 +1,391 @@
;;; emacs-21-theme.el --- emacs-21 theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of emacs-21 theme from `color-themes'
;;; Code:
(deftheme emacs-21
"emacs-21 theme")
(custom-theme-set-faces
'emacs-21
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:background "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:background "black"))))
'(Man-overstrike-face ((t (:bold t :weight bold))))
'(Man-underline-face ((t (:underline t))))
'(cperl-here-face ((t (:foreground "RosyBrown"))))
'(cperl-invalid-face ((t (:underline t))))
'(cperl-pod-face ((t (:foreground "Firebrick"))))
'(cperl-pod-head-face ((t (:foreground "DarkGoldenrod"))))
'(gnus-article-button-face ((t (:bold t :weight bold))))
'(gnus-article-mouse-face ((t (:background "darkseagreen2"))))
'(gnus-mouse-face ((t (:background "darkseagreen2"))))
'(help-highlight-face ((t (:underline t))))
'(idlwave-class-arrow-face ((t (:bold t :weight bold))))
'(idlwave-shell-breakpoint-face ((t (:background "Pink" :foreground "Black"))))
'(idlwave-shell-expression-face ((t (:background "yellow"))))
'(idlwave-shell-stop-line-face ((t (:background "darkseagreen2"))))
'(ispell-highlight-face ((t (:background "darkseagreen2"))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "darkseagreen2"))))
'(widget-mouse-face ((t (:background "darkseagreen2"))))
'(Info-title-1-face ((t (:bold t :weight bold :height 1.728))))
'(Info-title-2-face ((t (:bold t :weight bold :height 1.44))))
'(Info-title-3-face ((t (:bold t :weight bold :height 1.2))))
'(Info-title-4-face ((t (:bold t :weight bold))))
'(antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
'(antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
'(antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
'(antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
'(antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
'(antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(calendar-today-face ((t (:underline t))))
'(change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
'(change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-date-face ((t (:foreground "RosyBrown"))))
'(change-log-email-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-file-face ((t (:foreground "Blue"))))
'(change-log-function-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-list-face ((t (:foreground "Purple"))))
'(change-log-name-face ((t (:foreground "CadetBlue"))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "dark blue"))))
'(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
'(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "gray85"))))
'(custom-comment-tag-face ((t (:foreground "blue4"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
'(cvs-filename-face ((t (:foreground "blue4"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
'(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
'(cvs-msg-face ((t (:italic t :slant italic))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:foreground "red"))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-context-face ((t (:foreground "grey50"))))
'(diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-function-face ((t (:foreground "grey50"))))
'(diff-header-face ((t (:background "grey85"))))
'(diff-hunk-header-face ((t (:background "grey85"))))
'(diff-index-face ((t (:bold t :weight bold :background "grey70"))))
'(diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
'(diff-removed-face ((t (nil))))
'(dired-face-boring ((t (:foreground "RosyBrown"))))
'(dired-face-directory ((t (:foreground "Blue"))))
'(dired-face-executable ((t (nil))))
'(dired-face-flagged ((t (:foreground "Red" :weight bold))))
'(dired-face-marked ((t (:foreground "Red" :weight bold))))
'(dired-face-permissions ((t (nil))))
'(dired-face-setuid ((t (nil))))
'(dired-face-socket ((t (nil))))
'(dired-face-symlink ((t (:foreground "Purple"))))
'(ebrowse-default-face ((t (nil))))
'(ebrowse-file-name-face ((t (:italic t :slant italic))))
'(ebrowse-member-attribute-face ((t (:foreground "red"))))
'(ebrowse-member-class-face ((t (:foreground "purple"))))
'(ebrowse-progress-face ((t (:background "blue"))))
'(ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
'(ebrowse-tree-mark-face ((t (:foreground "red"))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-ls-product-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-readonly-face ((t (:foreground "Brown"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
'(eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
'(eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
'(excerpt ((t (:italic t :slant italic))))
'(fixed ((t (:bold t :weight bold))))
'(fixed-pitch ((t (:family "courier"))))
'(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
'(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
'(font-lock-builtin-face ((t (:foreground "Orchid"))))
'(font-lock-comment-face ((t (:foreground "Firebrick"))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-doc-face ((t (:foreground "RosyBrown"))))
'(font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-function-name-face ((t (:foreground "Blue"))))
'(font-lock-keyword-face ((t (:foreground "Purple"))))
'(font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
'(font-lock-reference-face ((t (:foreground "Orchid"))))
'(font-lock-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-type-face ((t (:foreground "ForestGreen"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "grey95"))))
'(gnus-cite-attribution-face ((t (:italic t :slant italic))))
'(gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t :slant italic))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t :weight bold))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t :weight bold))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t :weight bold))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
'(gnus-header-from-face ((t (:foreground "red3"))))
'(gnus-header-name-face ((t (:foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
'(gnus-header-subject-face ((t (:foreground "red4"))))
'(gnus-signature-face ((t (:italic t :slant italic))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
'(gnus-summary-high-unread-face ((t (:bold t :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
'(gnus-summary-low-unread-face ((t (:italic t :slant italic))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
'(hi-black-b ((t (:bold t :weight bold))))
'(hi-black-hb ((t (:bold t :weight bold :height 1.67))))
'(hi-blue ((t (:background "light blue"))))
'(hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
'(hi-green ((t (:background "green"))))
'(hi-green-b ((t (:bold t :foreground "green" :weight bold))))
'(hi-pink ((t (:background "pink"))))
'(hi-red-b ((t (:bold t :foreground "red" :weight bold))))
'(hi-yellow ((t (:background "yellow"))))
'(highlight ((t (:background "darkseagreen2"))))
'(highlight-changes-delete-face ((t (:foreground "red" :underline t))))
'(highlight-changes-face ((t (:foreground "red"))))
'(holiday-face ((t (:background "pink"))))
'(idlwave-help-link-face ((t (:foreground "Blue"))))
'(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
'(info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
'(info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
'(info-menu-5 ((t (:foreground "red1"))))
'(info-menu-header ((t (:bold t :weight bold))))
'(info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
'(info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
'(isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
'(italic ((t (:italic t :slant italic))))
'(log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
'(log-view-message-face ((t (:background "grey85"))))
'(makefile-space-face ((t (:background "hotpink"))))
'(menu ((t (nil))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(mode-line-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(mode-line-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
'(primary-selection ((t (:background "lightgoldenrod2"))))
'(reb-match-0 ((t (:background "lightblue"))))
'(reb-match-1 ((t (:background "aquamarine"))))
'(reb-match-2 ((t (:background "springgreen"))))
'(reb-match-3 ((t (:background "yellow"))))
'(region ((t (:background "lightgoldenrod2"))))
'(scroll-bar ((t (:background "grey75"))))
'(secondary-selection ((t (:background "yellow"))))
'(sh-heredoc-face ((t (:foreground "tan"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(show-tabs-space-face ((t (:foreground "yellow"))))
'(show-tabs-tab-face ((t (:foreground "red"))))
'(smerge-base-face ((t (:foreground "red"))))
'(smerge-markers-face ((t (:background "grey85"))))
'(smerge-mine-face ((t (:foreground "blue"))))
'(smerge-other-face ((t (:foreground "darkgreen"))))
'(speedbar-button-face ((t (:foreground "green4"))))
'(speedbar-directory-face ((t (:foreground "blue4"))))
'(speedbar-file-face ((t (:foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(strokes-char-face ((t (:background "lightgray"))))
'(term-black ((t (:stipple nil :background "white" :foreground "black"))))
'(term-blackbg ((t (:stipple nil :background "black" :foreground "black"))))
'(term-blue ((t (:stipple nil :background "white" :foreground "blue"))))
'(term-bluebg ((t (:stipple nil :background "blue" :foreground "black"))))
'(term-bold ((t (:bold t :stipple nil :background "white" :foreground "black"))))
'(term-cyan ((t (:stipple nil :background "white" :foreground "cyan"))))
'(term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black"))))
'(term-default ((t (:stipple nil :background "white" :foreground "black"))))
'(term-default-bg ((t (:stipple nil :foreground "black"))))
'(term-default-bg-inv ((t (:stipple nil :foreground "black"))))
'(term-default-fg ((t (:stipple nil :background "white"))))
'(term-default-fg-inv ((t (:stipple nil :background "white"))))
'(term-green ((t (:stipple nil :background "white" :foreground "green"))))
'(term-greenbg ((t (:stipple nil :background "green" :foreground "black"))))
'(term-invisible ((t (:stipple nil :foreground "black"))))
'(term-invisible-inv ((t (:stipple nil :foreground "black"))))
'(term-magenta ((t (:stipple nil :background "white" :foreground "magenta"))))
'(term-magentabg ((t (:stipple nil :background "magenta" :foreground "black"))))
'(term-red ((t (:stipple nil :background "white" :foreground "red"))))
'(term-redbg ((t (:stipple nil :background "red" :foreground "black"))))
'(term-underline ((t (:stipple nil :background "white" :foreground "black"))))
'(term-white ((t (:stipple nil :background "white" :foreground "white"))))
'(term-whitebg ((t (:stipple nil :background "white" :foreground "black"))))
'(term-yellow ((t (:stipple nil :background "white" :foreground "yellow"))))
'(term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black"))))
'(tex-math-face ((t (:foreground "RosyBrown"))))
'(texinfo-heading-face ((t (:foreground "Blue"))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
'(vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
'(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(woman-addition-face ((t (:foreground "orange"))))
'(woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
'(woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
'(woman-unknown-face ((t (:foreground "brown"))))
'(zmacs-region ((t (:background "lightgoldenrod2")))) )
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'emacs-21)
;;; emacs-21-theme.el ends here

400
emacs-nw-theme.el Normal file
View File

@ -0,0 +1,400 @@
;;; emacs-nw-theme.el --- emacs-nw theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of emacs-nw theme from `color-themes'
;;; Code:
(deftheme emacs-nw
"emacs-nw theme")
(custom-theme-set-faces
'emacs-nw
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:background "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:background "black"))))
'(Man-overstrike-face ((t (:bold t :weight bold))))
'(Man-underline-face ((t (:underline t))))
'(cperl-here-face ((t (:foreground "RosyBrown"))))
'(cperl-invalid-face ((t (:underline t))))
'(cperl-pod-face ((t (:foreground "Firebrick"))))
'(cperl-pod-head-face ((t (:foreground "DarkGoldenrod"))))
'(gnus-article-button-face ((t (:bold t :weight bold))))
'(gnus-article-mouse-face ((t (:background "darkseagreen2"))))
'(gnus-mouse-face ((t (:background "darkseagreen2"))))
'(help-highlight-face ((t (:underline t))))
'(idlwave-class-arrow-face ((t (:bold t :weight bold))))
'(idlwave-shell-breakpoint-face ((t (:background "Pink" :foreground "Black"))))
'(idlwave-shell-expression-face ((t (:background "yellow"))))
'(idlwave-shell-stop-line-face ((t (:background "darkseagreen2"))))
'(ispell-highlight-face ((t (:background "darkseagreen2"))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "darkseagreen2"))))
'(widget-mouse-face ((t (:background "darkseagreen2"))))
'(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
'(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
'(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
'(Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
'(antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
'(antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
'(antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
'(antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
'(antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
'(antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :weight bold))))
'(calendar-today-face ((t (:underline t))))
'(change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
'(change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-date-face ((t (:foreground "RosyBrown"))))
'(change-log-email-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-file-face ((t (:foreground "Blue"))))
'(change-log-function-face ((t (:foreground "DarkGoldenrod"))))
'(change-log-list-face ((t (:foreground "Purple"))))
'(change-log-name-face ((t (:foreground "CadetBlue"))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "dark blue"))))
'(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
'(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :weight bold))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "gray85"))))
'(custom-comment-tag-face ((t (:foreground "blue4"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
'(cvs-filename-face ((t (:foreground "blue4"))))
'(cvs-handled-face ((t (:foreground "pink"))))
'(cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
'(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
'(cvs-msg-face ((t (:italic t))))
'(cvs-need-action-face ((t (:foreground "orange"))))
'(cvs-unknown-face ((t (:foreground "red"))))
'(diary-face ((t (:foreground "red"))))
'(diff-added-face ((t (nil))))
'(diff-changed-face ((t (nil))))
'(diff-context-face ((t (:foreground "grey50"))))
'(diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
'(diff-function-face ((t (:foreground "grey50"))))
'(diff-header-face ((t (:background "grey85"))))
'(diff-hunk-header-face ((t (:background "grey85"))))
'(diff-index-face ((t (:bold t :weight bold :background "grey70"))))
'(diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
'(diff-removed-face ((t (nil))))
'(dired-face-boring ((t (:foreground "RosyBrown"))))
'(dired-face-directory ((t (:foreground "Blue"))))
'(dired-face-executable ((t (nil))))
'(dired-face-flagged ((t (:foreground "Red" :weight bold))))
'(dired-face-marked ((t (:foreground "Red" :weight bold))))
'(dired-face-permissions ((t (nil))))
'(dired-face-setuid ((t (nil))))
'(dired-face-socket ((t (nil))))
'(dired-face-symlink ((t (:foreground "Purple"))))
'(ebrowse-default-face ((t (nil))))
'(ebrowse-file-name-face ((t (:italic t))))
'(ebrowse-member-attribute-face ((t (:foreground "red"))))
'(ebrowse-member-class-face ((t (:foreground "purple"))))
'(ebrowse-progress-face ((t (:background "blue"))))
'(ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
'(ebrowse-tree-mark-face ((t (:foreground "red"))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-ls-product-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-readonly-face ((t (:foreground "Brown"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
'(eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
'(eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
'(excerpt ((t (:italic t))))
'(fixed ((t (:bold t :weight bold))))
'(fixed-pitch ((t (:family "courier"))))
'(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
'(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
'(font-lock-builtin-face ((t (:foreground "Orchid"))))
'(font-lock-comment-face ((t (:foreground "Firebrick"))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-doc-face ((t (:foreground "RosyBrown"))))
'(font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-function-name-face ((t (:foreground "Blue"))))
'(font-lock-keyword-face ((t (:foreground "Purple"))))
'(font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
'(font-lock-reference-face ((t (:foreground "Orchid"))))
'(font-lock-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-type-face ((t (:foreground "ForestGreen"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "grey95"))))
'(gnus-cite-attribution-face ((t (:italic t))))
'(gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :weight bold))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t :weight bold))))
'(gnus-group-news-4-empty-face ((t (nil))))
'(gnus-group-news-4-face ((t (:bold t :weight bold))))
'(gnus-group-news-5-empty-face ((t (nil))))
'(gnus-group-news-5-face ((t (:bold t :weight bold))))
'(gnus-group-news-6-empty-face ((t (nil))))
'(gnus-group-news-6-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
'(gnus-header-from-face ((t (:foreground "red3"))))
'(gnus-header-name-face ((t (:foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
'(gnus-header-subject-face ((t (:foreground "red4"))))
'(gnus-signature-face ((t (:italic t))))
'(gnus-splash-face ((t (:foreground "Brown"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
'(gnus-summary-high-unread-face ((t (:bold t :weight bold))))
'(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
'(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
'(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
'(hi-black-b ((t (:bold t :weight bold))))
'(hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
'(hi-blue ((t (:background "light blue"))))
'(hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
'(hi-green ((t (:background "green"))))
'(hi-green-b ((t (:bold t :foreground "green" :weight bold))))
'(hi-pink ((t (:background "pink"))))
'(hi-red-b ((t (:bold t :foreground "red" :weight bold))))
'(hi-yellow ((t (:background "yellow"))))
'(highlight ((t (:background "darkseagreen2"))))
'(highlight-changes-delete-face ((t (:foreground "red" :underline t))))
'(highlight-changes-face ((t (:foreground "red"))))
'(holiday-face ((t (:background "pink"))))
'(idlwave-help-link-face ((t (:foreground "Blue"))))
'(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
'(info-header-node ((t (:italic t :bold t :weight bold :foreground "brown"))))
'(info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
'(info-menu-5 ((t (:foreground "red1"))))
'(info-menu-header ((t (:bold t :family "helv" :weight bold))))
'(info-node ((t (:italic t :bold t :foreground "brown" :weight bold))))
'(info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
'(isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
'(italic ((t (:italic t))))
'(log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
'(log-view-message-face ((t (:background "grey85"))))
'(makefile-space-face ((t (:background "hotpink"))))
'(menu ((t (:background "grey50" :foreground "white"
:box (:line-width -1 :style released-button)))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :weight bold))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
'(message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-mml-face ((t (:foreground "ForestGreen"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "grey50" :foreground "white"
:box (:line-width -1 :style released-button)))))
'(mode-line ((t (:background "grey50" :foreground "white"
:box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t (:bold t :background "grey75" :foreground "black"
:box (:line-width -1 :style released-button)))))
'(mode-line-mousable ((t (:background "grey75" :foreground "black"
:box (:line-width -1 :style released-button)))))
'(mode-line-mousable-minor-mode ((t (:background "grey75" :foreground "black"
:box (:line-width -1 :style released-button)))))
'(primary-selection ((t (:background "lightgoldenrod2"))))
'(reb-match-0 ((t (:background "lightblue"))))
'(reb-match-1 ((t (:background "aquamarine"))))
'(reb-match-2 ((t (:background "springgreen"))))
'(reb-match-3 ((t (:background "yellow"))))
'(region ((t (:background "lightgoldenrod2"))))
'(scroll-bar ((t (:background "grey75"))))
'(secondary-selection ((t (:background "yellow"))))
'(sh-heredoc-face ((t (:foreground "tan"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(show-tabs-space-face ((t (:foreground "yellow"))))
'(show-tabs-tab-face ((t (:foreground "red"))))
'(smerge-base-face ((t (:foreground "red"))))
'(smerge-markers-face ((t (:background "grey85"))))
'(smerge-mine-face ((t (:foreground "blue"))))
'(smerge-other-face ((t (:foreground "darkgreen"))))
'(speedbar-button-face ((t (:foreground "green4"))))
'(speedbar-directory-face ((t (:foreground "blue4"))))
'(speedbar-file-face ((t (:foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(strokes-char-face ((t (:background "lightgray"))))
'(term-black ((t (:background "white" :foreground "black"))))
'(term-blackbg ((t (:foreground "black"))))
'(term-blue ((t (:background "white" :foreground "blue"))))
'(term-bluebg ((t (:background "blue" :foreground "black"))))
'(term-bold ((t (:bold t :background "white" :foreground "black"))))
'(term-cyan ((t (:background "white" :foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan" :foreground "black"))))
'(term-default ((t (:background "white" :foreground "black"))))
'(term-default-bg ((t (:foreground "black"))))
'(term-default-bg-inv ((t (:foreground "black"))))
'(term-default-fg ((t (:background "white"))))
'(term-default-fg-inv ((t (:background "white"))))
'(term-green ((t (:background "white" :foreground "green"))))
'(term-greenbg ((t (:background "green" :foreground "black"))))
'(term-invisible ((t (:foreground "black"))))
'(term-invisible-inv ((t (:foreground "black"))))
'(term-magenta ((t (:background "white" :foreground "magenta"))))
'(term-magentabg ((t (:background "magenta" :foreground "black"))))
'(term-red ((t (:background "white" :foreground "red"))))
'(term-redbg ((t (:background "red" :foreground "black"))))
'(term-underline ((t (:background "white" :foreground "black"))))
'(term-white ((t (:background "white" :foreground "white"))))
'(term-whitebg ((t (:background "white" :foreground "black"))))
'(term-yellow ((t (:background "white" :foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow" :foreground "black"))))
'(tex-math-face ((t (:foreground "RosyBrown"))))
'(texinfo-heading-face ((t (:foreground "Blue"))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
'(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
'(vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
'(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
'(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
'(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
'(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
'(viper-search-face ((t (:background "khaki" :foreground "Black"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85"))))
'(woman-addition-face ((t (:foreground "orange"))))
'(woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
'(woman-italic-face ((t (:italic t :foreground "red" :underline t))))
'(woman-unknown-face ((t (:foreground "brown"))))
'(zmacs-region ((t (:background "lightgoldenrod2")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'emacs-nw)
;;; emacs-nw-theme.el ends here

109
euphoria-theme.el Normal file
View File

@ -0,0 +1,109 @@
;;; euphoria-theme.el --- euphoria theme
;; Copyright (C) 2000 by oGLOWo
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of euphoria theme from `color-themes'
;;; Code:
(deftheme euphoria
"euphoria theme")
(custom-theme-set-faces
'euphoria
'(default ((t (:background "black" :foreground "#00ff00"))))
'(mouse ((t (:background "yellow"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:background "black"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(widget-mouse-face ((t (:background "darkolivegreen"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(fixed-pitch ((t (:family "courier"))))
'(font-lock-builtin-face ((t (:foreground "magenta"))))
'(font-lock-comment-face ((t (:foreground "deeppink"))))
'(font-lock-constant-face ((t (:foreground "blue"))))
'(font-lock-doc-face ((t (:foreground "cyan"))))
'(font-lock-doc-string-face ((t (:foreground "cyan"))))
'(font-lock-function-name-face ((t (:foreground "purple"))))
'(font-lock-keyword-face ((t (:foreground "red"))))
'(font-lock-preprocessor-face ((t (:foreground "blue1"))))
'(font-lock-reference-face ((t (nil))))
'(font-lock-string-face ((t (:foreground "cyan"))))
'(font-lock-type-face ((t (:foreground "yellow"))))
'(font-lock-variable-name-face ((t (:foreground "violet"))))
'(font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
'(fringe ((t (:background "gray16" :foreground "#00ff00"))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
'(highlight ((t (:background "darkolivegreen"))))
'(horizontal-divider ((t (:background "gray16" :foreground "#00ff00"))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t :slant italic))))
'(menu ((t (:background "gray16" :foreground "green"))))
'(mode-line ((t (:background "gray16" :foreground "#00ff00"
:box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t (:background "gray16" :foreground "#00ff00"))))
'(mode-line-mousable ((t (:background "gray16" :foreground "#00ff00"))))
'(mode-line-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00"))))
'(primary-selection ((t (:background "#00ff00" :foreground "black"))))
'(region ((t (:background "steelblue" :foreground "white"))))
'(scroll-bar ((t (:background "gray16" :foreground "#00ff00"))))
'(secondary-selection ((t (:background "#00ff00" :foreground "black"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "#00ff00"))))
'(speedbar-directory-face ((t (:foreground "#00ff00"))))
'(speedbar-file-face ((t (:foreground "cyan"))))
'(speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple"))))
'(speedbar-selected-face ((t (:foreground "deeppink" :underline t))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(tool-bar ((t (:background "gray16" :foreground "green"
:box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "gray16" :foreground "#00ff00"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(vertical-divider ((t (:background "gray16" :foreground "#00ff00"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray"))))
'(zmacs-region ((t (:background "steelblue" :foreground "white")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'euphoria)
;;; euphoria-theme.el ends here

88
feng-shui-theme.el Normal file
View File

@ -0,0 +1,88 @@
;;; feng-shui-theme.el --- feng-shui theme
;; Copyright (C) 2003 by walterh@rocketmail.com
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of feng-shui theme from `color-themes'
;;; Code:
(deftheme feng-shui
"feng-shui theme")
(custom-theme-set-faces
'feng-shui
'(default ((t (:background "ivory" :foreground "black"))))
'(mouse ((t (:background "slateblue"))))
'(cursor ((t (:background "slateblue" :foreground "black"))))
'(border ((t (:background "black"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(view-highlight-face ((t (:background "mistyRose" :foreground "black"))))
'(widget-mouse-face ((t (:background "mistyRose" :foreground "black"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :weight bold))))
'(fixed-pitch ((t (:family "courier"))))
'(font-lock-builtin-face ((t (:foreground "black"))))
'(font-lock-comment-face ((t (:italic t :background "seashell"))))
'(font-lock-constant-face ((t (:foreground "darkblue"))))
'(font-lock-doc-face ((t (:background "lemonChiffon"))))
'(font-lock-function-name-face ((t (:bold t :underline t :weight bold))))
'(font-lock-keyword-face ((t (:foreground "blue"))))
'(font-lock-string-face ((t (:background "lemonChiffon"))))
'(font-lock-type-face ((t (:foreground "black"))))
'(font-lock-variable-name-face ((t (:foreground "black"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "grey95"))))
'(header-line ((t (:bold t :weight bold :underline t :background "grey90" :foreground "grey20"))))
'(highlight ((t (:background "mistyRose" :foreground "black"))))
'(isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
'(italic ((t (:italic t))))
'(menu ((t (nil))))
'(mode-line ((t (:bold t :background "mistyRose" :foreground "navy" :underline t :weight bold))))
'(region ((t (:background "lavender" :foreground "black"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "yellow"))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(variable-pitch ((t (:family "helv"))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'feng-shui)
;;; feng-shui-theme.el ends here

72
fischmeister-theme.el Normal file
View File

@ -0,0 +1,72 @@
;;; fischmeister-theme.el --- fischmeister theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of fischmeister theme from `color-themes'
;;; Code:
(deftheme fischmeister
"fischmeister theme")
(custom-theme-set-faces
'fischmeister
'(default ((t (:background "gray80" :foreground "black"))))
'(mouse ((t (:foreground "red"))))
'(cursor ((t (:background "yellow"))))
'(border ((t (:foreground "black"))))
'(mode-line ((t (:foreground "gray80" :background "black"))))
'(mode-line-buffer-id ((t (:foreground "gray80" :background "black"))))
'(mode-line-mousable ((t (:foreground "gray80" :background "black"))))
'(mode-line-mousable-minor-mode ((t (:foreground "gray80" :background "black"))))
'(highlight ((t (:background "darkseagreen2"))))
'(bold ((t (:bold t))))
'(italic ((t (:italic t))))
'(bold-italic ((t (:bold t :italic t))))
'(region ((t (:background "gray"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(underline ((t (:underline t))))
'(show-paren-match-face ((t (:foreground "yellow" :background "darkgreen"))))
'(show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
'(font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t))))
'(font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t))))
'(font-lock-keyword-face ((t (:foreground "navy"))))
'(font-lock-builtin-face ((t (:foreground "white"))))
'(font-lock-function-name-face ((t (:foreground "Blue"))))
'(font-lock-variable-name-face ((t (:foreground "Darkblue"))))
'(font-lock-type-face ((t (:foreground "darkgreen"))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-warning-face ((t (:foreground "Orchid" :bold t))))
'(font-lock-reference-face ((t (:foreground "SteelBlue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'fischmeister)
;;; fischmeister-theme.el ends here

56
gnome-theme.el Normal file
View File

@ -0,0 +1,56 @@
;;; gnome-theme.el --- gnome theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of gnome theme from `color-themes'
;;; Code:
(deftheme gnome
"gnome theme")
(custom-theme-set-faces
'gnome
'(default ((t (:background "darkslategrey" :foreground "wheat"))))
'(region ((t (:foreground "cyan" :background "dark cyan"))))
'(underline ((t (:foreground "yellow" :underline t))))
'(mode-line ((t (:foreground "dark cyan" :background "wheat"))))
'(mode-line-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
'(mode-line-mousable ((t (:foreground "dark cyan" :background "wheat"))))
'(mode-line-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
'(italic ((t (:foreground "dark red" :italic t))))
'(bold-italic ((t (:foreground "dark red" :bold t :italic t))))
'(font-lock-comment-face ((t (:foreground "Firebrick"))))
'(bold ((t (:bold)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gnome)
;;; gnome-theme.el ends here

105
gnome2-theme.el Normal file
View File

@ -0,0 +1,105 @@
;;; gnome2-theme.el --- gnome2 theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of gnome2 theme from `color-themes'
;;; Code:
(deftheme gnome2
"gnome2 theme")
(custom-theme-set-faces
'gnome2
'(default ((t (:foreground "wheat" :background "darkslategrey"))))
'(mouse ((t (:foreground "Grey"))))
'(cursor ((t (:background "LightGray"))))
'(border ((t (:foreground "black"))))
'(bbdb-company ((t (:foreground "pale green"))))
'(bbdb-name ((t (:bold t :foreground "pale green"))))
'(bbdb-field-name ((t (:foreground "medium sea green"))))
'(bbdb-field-value ((t (:foreground "dark sea green"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t :foreground "beige"))))
'(calendar-today-face ((t (:underline t))))
'(comint-highlight-prompt ((t (:foreground "medium aquamarine"))))
'(cperl-array-face ((t (:foreground "Yellow"))))
'(cperl-hash-face ((t (:foreground "White"))))
'(cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
'(custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
'(custom-documentation-face ((t (:foreground "Grey"))))
'(custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
'(custom-state-face ((t (:foreground "LightSalmon"))))
'(custom-variable-tag-face ((t (:foreground "Aquamarine"))))
'(diary-face ((t (:foreground "IndianRed"))))
'(dired-face-directory ((t (:bold t :foreground "sky blue"))))
'(dired-face-permissions ((t (:foreground "aquamarine"))))
'(dired-face-flagged ((t (:foreground "tomato"))))
'(dired-face-marked ((t (:foreground "light salmon"))))
'(dired-face-executable ((t (:foreground "green yellow"))))
'(fringe ((t (:background "darkslategrey"))))
'(highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(highline-face ((t (:background "SeaGreen"))))
'(holiday-face ((t (:background "DimGray"))))
'(hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1"))))
'(hyper-apropos-documentation ((t (:foreground "LightSalmon"))))
'(info-header-xref ((t (:foreground "DodgerBlue1" :bold t))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
'(info-xref ((t (:bold t :foreground "DodgerBlue1"))))
'(isearch ((t (:background "sea green"))))
'(italic ((t (:italic t))))
'(menu ((t (:foreground "wheat" :background "darkslategrey"))))
'(mode-line ((t (:background "dark olive green" :foreground "wheat"))))
'(mode-line-buffer-id ((t (:background "dark olive green" :foreground "beige"))))
'(mode-line-mousable ((t (:background "dark olive green" :foreground "yellow green"))))
'(mode-line-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat"))))
'(region ((t (:background "dark cyan" :foreground "cyan"))))
'(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue"))))
'(show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
'(underline ((t (:underline t))))
'(widget-field-face ((t (:foreground "LightBlue"))))
'(widget-inactive-face ((t (:foreground "DimGray"))))
'(widget-single-line-field-face ((t (:foreground "LightBlue"))))
'(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
'(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
'(w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green"))))
'(w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon"))))
'(zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gnome2)
;;; gnome2-theme.el ends here

165
goldenrod-theme.el Normal file
View File

@ -0,0 +1,165 @@
;;; goldenrod-theme.el --- goldenrod theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of goldenrod theme from `color-themes'
;;; Code:
(deftheme goldenrod
"goldenrod theme")
(custom-theme-set-faces
'goldenrod
'(default ((t (:background "black" :foreground "goldenrod"))))
'(mouse ((t (:foreground "goldenrod"))))
'(cursor ((t (:background "light goldenrod"))))
'(border ((t (:foreground "black"))))
'(erc-action-face ((t (nil))))
'(erc-bold-face ((t (:bold t))))
'(erc-current-nick-face ((t (:bold t :foreground "yellow"))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "pale green"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-highlight-face ((t (:bold t :foreground "pale green"))))
'(erc-input-face ((t (:foreground "light blue"))))
'(erc-inverse-face ((t (:background "steel blue"))))
'(erc-keyword-face ((t (:foreground "orange" :bold t))))
'(erc-notice-face ((t (:foreground "light salmon"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "light blue" :bold t))))
'(fg:erc-color-face0 ((t (:foreground "white"))))
'(fg:erc-color-face1 ((t (:foreground "beige"))))
'(fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
'(fg:erc-color-face3 ((t (:foreground "light cyan"))))
'(fg:erc-color-face4 ((t (:foreground "powder blue"))))
'(fg:erc-color-face5 ((t (:foreground "sky blue"))))
'(fg:erc-color-face6 ((t (:foreground "dark sea green"))))
'(fg:erc-color-face7 ((t (:foreground "pale green"))))
'(fg:erc-color-face8 ((t (:foreground "medium spring green"))))
'(fg:erc-color-face9 ((t (:foreground "khaki"))))
'(fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
'(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
'(fg:erc-color-face12 ((t (:foreground "light yellow"))))
'(fg:erc-color-face13 ((t (:foreground "yellow"))))
'(fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
'(fg:erc-color-face15 ((t (:foreground "lime green"))))
'(bg:erc-color-face0 ((t (nil))))
'(bg:erc-color-face1 ((t (nil))))
'(bg:erc-color-face2 ((t (nil))))
'(bg:erc-color-face3 ((t (nil))))
'(bg:erc-color-face4 ((t (nil))))
'(bg:erc-color-face5 ((t (nil))))
'(bg:erc-color-face6 ((t (nil))))
'(bg:erc-color-face7 ((t (nil))))
'(bg:erc-color-face8 ((t (nil))))
'(bg:erc-color-face9 ((t (nil))))
'(bg:erc-color-face10 ((t (nil))))
'(bg:erc-color-face11 ((t (nil))))
'(bg:erc-color-face12 ((t (nil))))
'(bg:erc-color-face13 ((t (nil))))
'(bg:erc-color-face14 ((t (nil))))
'(bg:erc-color-face15 ((t (nil))))
'(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
'(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
'(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
'(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
'(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
'(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
'(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
'(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
'(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
'(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
'(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
'(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
'(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
'(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "dark khaki"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face
'(eshell-ls-product-face ((t (:foreground "dark sea green"))))
'(eshell-ls-readonly-face ((t (:foreground "light steel blue"))))
'(eshell-ls-special-face ((t (:foreground "gold"))))
'(eshell-ls-symlink-face ((t (:foreground "peach puff"))))
'(eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face
'(eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "lemon chiffon"))))
'(goto-address-mail-face ((t (:bold t :foreground "pale goldenrod"))))
'(list-matching-lines-face ((t (:bold t))))
'(view-highlight-face ((t (:background "dark slate blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t :foreground "lavender"))))
'(font-lock-builtin-face ((t (:foreground "pale goldenrod"))))
'(font-lock-comment-face ((t (:foreground "indian red"))))
'(font-lock-constant-face ((t (:foreground "pale green"))))
'(font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon"))))
'(font-lock-keyword-face ((t (:foreground "wheat"))))
'(font-lock-string-face ((t (:foreground "gold"))))
'(font-lock-type-face ((t (:foreground "dark khaki" :bold t))))
'(font-lock-variable-name-face ((t (:bold t :foreground "khaki"))))
'(font-lock-warning-face ((t (:bold t :foreground "orange red"))))
'(fringe ((t (:background "gray25"))))
'(header-line ((t (:background "gray20" :foreground "gray70"))))
'(highlight ((t (:background "dark slate blue"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:bold t))))
'(info-xref ((t (:bold t :foreground "pale goldenrod"))))
'(isearch ((t (:background "SeaGreen4"))))
'(isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4"))))
'(italic ((t (:italic t :foreground "lavender"))))
'(menu ((t (:background "gray25" :foreground "lemon chiffon"))))
'(mode-line ((t (:background "gray40" :foreground "lemon chiffon"
:box (:line-width 1 :style released-button)))))
'(mode-line-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
'(mode-line-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
'(mode-line-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon"))))
'(mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon"))))
'(region ((t (:background "dark olive green"))))
'(secondary-selection ((t (:background "dark green"))))
'(tool-bar ((t (:background "gray25" :foreground "lemon chiffon"
:box (:line-width 1 :style released-button)))))
'(underline ((t (:underline t)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'goldenrod)
;;; goldenrod-theme.el ends here

98
gray1-theme.el Normal file
View File

@ -0,0 +1,98 @@
;;; gray1-theme.el --- gray1 theme
;; Copyright (C) 2001 by Paul Pulli
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of gray1 theme from `color-themes'
;;; Code:
(deftheme gray1
"gray1 theme")
(custom-theme-set-faces
'gray1
'(default ((t (:background "darkgray" :foreground "black"))))
'(cursor ((t (:background "Yellow"))))
'(border ((t (:foreground "black"))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(border-glyph ((t (nil))))
'(cperl-here-face ((t (:background "gray68" :foreground "DeepPink"))))
'(font-lock-builtin-face ((t (:bold t :foreground "red3"))))
'(font-lock-comment-face ((t (:foreground "gray50"))))
'(font-lock-constant-face ((t (:bold t :foreground "blue3"))))
'(font-lock-doc-string-face ((t (:foreground "black"))))
'(font-lock-function-name-face ((t (:bold t :foreground "DeepPink3"))))
'(font-lock-keyword-face ((t (:bold t :foreground "red"))))
'(font-lock-other-type-face ((t (:bold t :foreground "green4"))))
'(font-lock-preprocessor-face ((t (:bold t :foreground "blue3"))))
'(font-lock-reference-face ((t (:bold t :foreground "red3"))))
'(font-lock-string-face ((t (:foreground "red"))))
'(font-lock-type-face ((t (:bold t :foreground "white"))))
'(font-lock-variable-name-face ((t (:bold t :foreground "blue3"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(green ((t (:foreground "green4"))))
'(gui-button-face ((t (:background "black" :foreground "red"))))
'(gui-element ((t (:background "gray58"))))
'(highlight ((t (:background "magenta" :foreground "yellow"))))
'(isearch ((t (:background "red" :foreground "yellow"))))
'(italic ((t (:italic t))))
'(left-margin ((t (nil))))
'(list-mode-item-selected ((t (:background "gray90" :foreground "purple"))))
'(m4-face ((t (:background "gray90" :foreground "orange3"))))
'(message-cited-text ((t (nil))))
'(message-header-contents ((t (nil))))
'(message-headers ((t (nil))))
'(message-highlighted-header-contents ((t (nil))))
'(mode-line ((t (:background "#aa80aa" :foreground "White"))))
'(mode-line-buffer-id ((t (:background "#aa80aa" :foreground "linen"))))
'(mode-line-mousable ((t (:background "#aa80aa" :foreground "cyan"))))
'(mode-line-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow"))))
'(paren-blink-off ((t (:foreground "gray58"))))
'(paren-blink-on ((t (:foreground "purple"))))
'(paren-match ((t (:background "gray68" :foreground "white"))))
'(paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
'(pointer ((t (nil))))
'(primary-selection ((t (:background "gray"))))
'(red ((t (:foreground "red"))))
'(right-margin ((t (nil))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(text-cursor ((t (:background "Yellow" :foreground "darkgray"))))
'(toolbar ((t (:background "#aa80aa" :foreground "linen"))))
'(underline ((t (:underline t))))
'(vertical-divider ((t (nil))))
'(x-face ((t (:background "black" :foreground "lavenderblush"))))
'(yellow ((t (:foreground "yellow3"))))
'(zmacs-region ((t (:background "paleturquoise" :foreground "black")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gray1)
;;; gray1-theme.el ends here

200
gray30-theme.el Normal file
View File

@ -0,0 +1,200 @@
;;; gray30-theme.el --- gray30 theme
;; Copyright (C) 2002 by Girish Bharadwaj
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of gray30 theme from `color-themes'
;;; Code:
(deftheme gray30
"gray30 theme")
(custom-theme-set-faces
'gray30
'(default ((t (:background "gray30" :foreground "gainsboro"))))
'(mouse ((t (:background "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:background "black"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t :weight bold))))
'(widget-mouse-face ((t (:background "darkolivegreen"))))
'(bg:erc-color-face0 ((t (:background "White"))))
'(bg:erc-color-face1 ((t (:background "black"))))
'(bg:erc-color-face10 ((t (:background "lightblue1"))))
'(bg:erc-color-face11 ((t (:background "cyan"))))
'(bg:erc-color-face12 ((t (:background "blue"))))
'(bg:erc-color-face13 ((t (:background "deeppink"))))
'(bg:erc-color-face14 ((t (:background "gray50"))))
'(bg:erc-color-face15 ((t (:background "gray90"))))
'(bg:erc-color-face2 ((t (:background "blue4"))))
'(bg:erc-color-face3 ((t (:background "green4"))))
'(bg:erc-color-face4 ((t (:background "red"))))
'(bg:erc-color-face5 ((t (:background "brown"))))
'(bg:erc-color-face6 ((t (:background "purple"))))
'(bg:erc-color-face7 ((t (:background "orange"))))
'(bg:erc-color-face8 ((t (:background "yellow"))))
'(bg:erc-color-face9 ((t (:background "green"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(button ((t (:underline t))))
'(comint-highlight-input ((t (:bold t :weight bold))))
'(comint-highlight-prompt ((t (:foreground "cyan"))))
'(custom-button-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style released-button)))))
'(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"
:box (:line-width 2 :style pressed-button)))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-comment-face ((t (:background "dim gray"))))
'(custom-comment-tag-face ((t (:foreground "gray80"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:bold t :weight bold :height 1.2))))
'(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
'(custom-group-tag-face-1 ((t (:bold t :foreground "pink" :weight bold :height 1.2))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "lime green"))))
'(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
'(custom-variable-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
'(erc-action-face ((t (:bold t :weight bold))))
'(erc-bold-face ((t (:bold t :weight bold))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "IndianRed"))))
'(erc-error-face ((t (:background "Red" :foreground "White"))))
'(erc-input-face ((t (:foreground "brown"))))
'(erc-inverse-face ((t (:background "Black" :foreground "White"))))
'(erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
'(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
'(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
'(eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
'(eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
'(eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
'(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-readonly-face ((t (:foreground "Pink"))))
'(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
'(eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
'(eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
'(fg:erc-color-face0 ((t (:foreground "White"))))
'(fg:erc-color-face1 ((t (:foreground "black"))))
'(fg:erc-color-face10 ((t (:foreground "lightblue1"))))
'(fg:erc-color-face11 ((t (:foreground "cyan"))))
'(fg:erc-color-face12 ((t (:foreground "blue"))))
'(fg:erc-color-face13 ((t (:foreground "deeppink"))))
'(fg:erc-color-face14 ((t (:foreground "gray50"))))
'(fg:erc-color-face15 ((t (:foreground "gray90"))))
'(fg:erc-color-face2 ((t (:foreground "blue4"))))
'(fg:erc-color-face3 ((t (:foreground "green4"))))
'(fg:erc-color-face4 ((t (:foreground "red"))))
'(fg:erc-color-face5 ((t (:foreground "brown"))))
'(fg:erc-color-face6 ((t (:foreground "purple"))))
'(fg:erc-color-face7 ((t (:foreground "orange"))))
'(fg:erc-color-face8 ((t (:foreground "yellow"))))
'(fg:erc-color-face9 ((t (:foreground "green"))))
'(font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t))))
'(font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05))))
'(font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05))))
'(font-lock-string-face ((t (:foreground "LightSalmon"))))
'(font-lock-type-face ((t (:foreground "yellow" :height 1.05))))
'(font-lock-variable-name-face ((t (:foreground "gold"))))
'(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
'(fringe ((t (:background "grey10"))))
'(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
'(highlight ((t (:background "darkolivegreen"))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
'(italic ((t (:italic t :slant italic))))
'(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
'(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
'(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
'(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
'(jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
'(jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
'(jde-java-font-lock-code-face ((t (nil))))
'(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
'(jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
'(jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
'(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
'(jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
'(jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
'(jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
'(jde-java-font-lock-pre-face ((t (nil))))
'(jde-java-font-lock-underline-face ((t (:underline t))))
'(menu ((t (nil))))
'(minibuffer-prompt ((t (:foreground "cyan"))))
'(mode-line ((t (:background "grey75" :foreground "black"
:box (:line-width -1 :style released-button)))))
'(mode-line-inactive ((t (:background "grey30" :foreground "grey80" :weight light
:box (:line-width -1 :color "grey40" :style nil)))))
'(primary-selection ((t (:background "blue3"))))
'(region ((t (:background "blue3"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "SkyBlue4"))))
'(semantic-dirty-token-face ((t (:background "lightyellow"))))
'(semantic-unmatched-syntax-face ((t (:underline "red"))))
'(senator-intangible-face ((t (:foreground "gray75"))))
'(senator-momentary-highlight-face ((t (:background "gray30"))))
'(senator-read-only-face ((t (:background "#664444"))))
'(show-paren-match-face ((t (:background "steelblue3"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "green3"))))
'(speedbar-directory-face ((t (:foreground "light blue"))))
'(speedbar-file-face ((t (:foreground "cyan"))))
'(speedbar-highlight-face ((t (:background "sea green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "yellow"))))
'(template-message-face ((t (:bold t :weight bold))))
'(tool-bar ((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(tooltip ((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t :weight bold))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "lime green"))))
'(widget-field-face ((t (:background "dim gray"))))
'(widget-inactive-face ((t (:foreground "light gray"))))
'(widget-single-line-field-face ((t (:background "dim gray"))))
'(zmacs-region ((t (:background "blue3")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gray30)
;;; gray30-theme.el ends here

100
greiner-theme.el Normal file
View File

@ -0,0 +1,100 @@
;;; greiner-theme.el --- greiner theme
;; Copyright (C) 2000 by Kevin Greiner
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of greiner theme from `color-themes'
;;; Code:
(deftheme greiner
"greiner theme")
(custom-theme-set-faces
'greiner
'(default ((t (:background "beige" :foreground "black"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "black"))))
'(border ((t (:foreground "black"))))
'(default ((t (nil))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t))))
'(list-matching-lines-face ((t (:bold t))))
'(custom-button-face ((t (nil))))
'(custom-changed-face ((t (:background "blue" :foreground "white"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:underline t :foreground "blue"))))
'(custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
'(custom-invalid-face ((t (:background "red" :foreground "yellow"))))
'(custom-modified-face ((t (:background "blue" :foreground "white"))))
'(custom-rogue-face ((t (:background "black" :foreground "pink"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:background "white" :foreground "blue"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:underline t :bold t))))
'(custom-variable-tag-face ((t (:underline t :foreground "blue"))))
'(font-lock-builtin-face ((t (:foreground "blue4"))))
'(font-lock-comment-face ((t (:foreground "Firebrick"))))
'(font-lock-constant-face ((t (:foreground "CadetBlue"))))
'(font-lock-function-name-face ((t (:foreground "Blue"))))
'(font-lock-keyword-face ((t (:foreground "royal blue"))))
'(font-lock-string-face ((t (:foreground "RosyBrown"))))
'(font-lock-type-face ((t (:foreground "ForestGreen"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(highlight ((t (:background "darkseagreen2"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:italic t :bold t))))
'(info-xref ((t (:bold t))))
'(italic ((t (:italic t))))
'(mode-line ((t (:background "black" :foreground "white"))))
'(mode-line-mousable-minor-mode ((t (:background "black" :foreground "white"))))
'(mode-line-mousable ((t (:background "black" :foreground "white"))))
'(mode-line-buffer-id ((t (:background "black" :foreground "white"))))
'(region ((t (:background "gray"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
'(speedbar-button-face ((t (:foreground "green4"))))
'(speedbar-directory-face ((t (:foreground "blue4"))))
'(speedbar-file-face ((t (:foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:underline t :foreground "red"))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(underline ((t (:underline t))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'greiner)
;;; greiner-theme.el ends here

63
gtk-ide-theme.el Normal file
View File

@ -0,0 +1,63 @@
;;; gtk-ide-theme.el --- gtk-ide theme
;; Copyright (C) 2000 by Gordon Messmer
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of gtk-ide theme from `color-themes'
;;; Code:
(deftheme gtk-ide
"gtk-ide theme")
(custom-theme-set-faces
'gtk-ide
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:foreground "grey15"))))
'(cursor ((t (:background "grey15"))))
'(font-lock-comment-face ((t (:italic t :foreground "grey55"))))
'(font-lock-string-face ((t (:foreground "DarkRed"))))
'(font-lock-keyword-face ((t (:foreground "DarkBlue"))))
'(font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
'(font-lock-constant-face ((t (:foreground "OliveDrab"))))
'(font-lock-type-face ((t (:foreground "SteelBlue4"))))
'(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
'(font-lock-function-name-face ((t (:foreground "SlateBlue"))))
'(font-lock-builtin-face ((t (:foreground "ForestGreen"))))
'(highline-face ((t (:background "grey95"))))
'(show-paren-match-face ((t (:background "grey80"))))
'(region ((t (:background "grey80"))))
'(highlight ((t (:background "LightSkyBlue"))))
'(secondary-selection ((t (:background "grey55"))))
'(widget-field-face ((t (:background "navy"))))
'(widget-single-line-field-face ((t (:background "royalblue")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gtk-ide)
;;; gtk-ide-theme.el ends here

271
high-contrast-theme.el Normal file
View File

@ -0,0 +1,271 @@
;;; high-contrast-theme.el --- high-contrast theme
;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of high-contrast theme from `color-themes'
;;; Code:
(deftheme high-contrast
"high-contrast theme")
(custom-theme-set-faces
'high-contrast
'(default ((t (:background "white" :foreground "black"))))
'(mouse ((t (:foreground "black"))))
'(cursor ((t (:background "red"))))
'(border ((t (:foreground "black"))))
'(Man-overstrike-face ((t (:bold t))))
'(Man-underline-face ((t (:underline t))))
'(apropos-keybinding-face ((t (:underline t))))
'(apropos-label-face ((t (:italic t))))
'(apropos-match-face ((t (:background "paleturquoise"))))
'(apropos-property-face ((t (:bold t :italic t))))
'(apropos-symbol-face ((t (:bold t))))
'(goto-address-mail-face ((t (:italic t))))
'(goto-address-mail-mouse-face ((t (:background "paleturquoise"))))
'(goto-address-url-face ((t (:bold t))))
'(goto-address-url-mouse-face ((t (:background "darkseagreen2"))))
'(help-highlight-face ((t (:underline t))))
'(list-matching-lines-face ((t (:bold t))))
'(view-highlight-face ((t (:background "darkseagreen2"))))
'(bold ((t (:bold t :underline t))))
'(bold-italic ((t (:bold t :underline t))))
'(calendar-today-face ((t (:underline t))))
'(cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t))))
'(cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(custom-button-face ((t (nil))))
'(custom-changed-face ((t (:foreground "white" :background "blue"))))
'(custom-documentation-face ((t (nil))))
'(custom-face-tag-face ((t (:underline t))))
'(custom-group-tag-face ((t (:foreground "blue" :underline t))))
'(custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
'(custom-invalid-face ((t (:foreground "yellow" :background "red"))))
'(custom-modified-face ((t (:foreground "white" :background "blue"))))
'(custom-rogue-face ((t (:foreground "pink" :background "black"))))
'(custom-saved-face ((t (:underline t))))
'(custom-set-face ((t (:foreground "blue" :background "white"))))
'(custom-state-face ((t (:foreground "dark green"))))
'(custom-variable-button-face ((t (:bold t :underline t))))
'(custom-variable-tag-face ((t (:foreground "blue" :underline t))))
'(diary-face ((t (:foreground "red"))))
'(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
'(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
'(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
'(ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
'(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
'(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
'(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
'(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
'(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
'(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
'(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
'(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
'(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
'(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
'(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
'(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
'(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
'(eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
'(eshell-ls-directory-face ((t (:foreground "Blue" :bold t))))
'(eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t))))
'(eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
'(eshell-ls-product-face ((t (:foreground "OrangeRed"))))
'(eshell-ls-readonly-face ((t (:foreground "Brown"))))
'(eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
'(eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
'(eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
'(eshell-prompt-face ((t (:foreground "Red" :bold t))))
'(eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
'(eshell-test-ok-face ((t (:foreground "Green" :bold t))))
'(excerpt ((t (:italic t))))
'(fixed ((t (:bold t))))
'(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
'(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
'(font-lock-builtin-face ((t (:bold t :foreground "Red"))))
'(font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
'(font-lock-constant-face ((t (:bold t :underline t :foreground "Blue"))))
'(font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
'(font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
'(font-lock-string-face ((t (:bold t :foreground "DarkGreen"))))
'(font-lock-type-face ((t (:bold t :foreground "ForestGreen"))))
'(font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod"))))
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
'(fringe ((t (:background "grey95"))))
'(gnus-cite-attribution-face ((t (:italic t))))
'(gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
'(gnus-cite-face-10 ((t (:foreground "medium purple"))))
'(gnus-cite-face-11 ((t (:foreground "turquoise"))))
'(gnus-cite-face-2 ((t (:foreground "firebrick"))))
'(gnus-cite-face-3 ((t (:foreground "dark green"))))
'(gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "dark violet"))))
'(gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
'(gnus-cite-face-8 ((t (:foreground "magenta"))))
'(gnus-cite-face-9 ((t (:foreground "violet"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:bold t :italic t))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
'(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
'(gnus-header-content-face ((t (:foreground "indianred4" :italic t))))
'(gnus-header-from-face ((t (:foreground "red3"))))
'(gnus-header-name-face ((t (:foreground "maroon"))))
'(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t))))
'(gnus-header-subject-face ((t (:foreground "red4"))))
'(gnus-signature-face ((t (:italic t))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
'(gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
'(gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
'(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
'(gnus-summary-high-unread-face ((t (:bold t))))
'(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
'(gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
'(gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
'(gnus-summary-low-unread-face ((t (:italic t))))
'(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(highlight ((t (:background "black" :foreground "white" :bold 1))))
'(highlight-changes-delete-face ((t (:foreground "red" :underline t))))
'(highlight-changes-face ((t (:foreground "red"))))
'(highline-face ((t (:background "paleturquoise"))))
'(holiday-face ((t (:background "pink"))))
'(info-menu-5 ((t (:underline t :bold t))))
'(info-node ((t (:bold t))))
'(info-xref ((t (:bold t))))
'(italic ((t (:bold t :underline t))))
'(makefile-space-face ((t (:background "hotpink"))))
'(message-cited-text-face ((t (:foreground "red"))))
'(message-header-cc-face ((t (:foreground "MidnightBlue"))))
'(message-header-name-face ((t (:foreground "cornflower blue"))))
'(message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face ((t (:foreground "navy blue" :bold t))))
'(message-header-to-face ((t (:foreground "MidnightBlue" :bold t))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-separator-face ((t (:foreground "brown"))))
'(mode-line ((t (:background "black" :foreground "white" :bold 1))))
'(mode-line-buffer-id ((t (:background "black" :foreground "white" :bold 1))))
'(mode-line-mousable ((t (:background "black" :foreground "white" :bold 1))))
'(mode-line-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1))))
'(region ((t (:background "black" :foreground "white" :bold 1))))
'(secondary-selection ((t (:background "black" :foreground "white" :bold 1))))
'(show-paren-match-face ((t (:background "turquoise"))))
'(show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
'(speedbar-button-face ((t (:foreground "green4"))))
'(speedbar-directory-face ((t (:foreground "blue4"))))
'(speedbar-file-face ((t (:foreground "cyan4"))))
'(speedbar-highlight-face ((t (:background "green"))))
'(speedbar-selected-face ((t (:foreground "red" :underline t))))
'(speedbar-tag-face ((t (:foreground "brown"))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "blue"))))
'(term-bluebg ((t (:background "blue"))))
'(term-bold ((t (:bold t))))
'(term-cyan ((t (:foreground "cyan"))))
'(term-cyanbg ((t (:background "cyan"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "green"))))
'(term-greenbg ((t (:background "green"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "magenta"))))
'(term-magentabg ((t (:background "magenta"))))
'(term-red ((t (:foreground "red"))))
'(term-redbg ((t (:background "red"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "white"))))
'(term-whitebg ((t (:background "white"))))
'(term-yellow ((t (:foreground "yellow"))))
'(term-yellowbg ((t (:background "yellow"))))
'(underline ((t (:bold t :underline t))))
'(vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
'(vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
'(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
'(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
'(vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
'(vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
'(vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
'(vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
'(vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
'(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
'(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
'(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
'(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
'(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
'(vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
'(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
'(vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
'(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
'(viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
'(viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
'(viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
'(viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
'(viper-search-face ((t (:foreground "Black" :background "khaki"))))
'(widget-button-face ((t (:bold t))))
'(widget-button-pressed-face ((t (:foreground "red"))))
'(widget-documentation-face ((t (:foreground "dark green"))))
'(widget-field-face ((t (:background "gray85"))))
'(widget-inactive-face ((t (:foreground "dim gray"))))
'(widget-single-line-field-face ((t (:background "gray85")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'high-contrast)
;;; high-contrast-theme.el ends here

277
hober-theme.el Normal file
View File

@ -0,0 +1,277 @@
;;; hober-theme.el --- hober theme
;; Copyright (C) 1999, 2000 Jonadab the Unsightly One <jonadab@bright.net>
;; Copyright (C) 2000, 2001, 2002, 2003 Alex Schroeder <alex@gnu.org>
;; Copyright (C) 2003, 2004, 2005, 2006 Xavier Maillard <zedek@gnu.org>
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of hober theme from `color-themes'
;;; Code:
(deftheme hober
"hober theme")
(custom-theme-set-faces
'hober
'(default ((t (:background "black" :foreground "#c0c0c0"))))
'(bold ((t (:bold t :weight bold))))
'(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(border ((t (:background "black"))))
'(buffer-menu-buffer ((t (:bold t :weight bold))))
'(button ((t (:underline t :foreground "cyan1"))))
'(calendar-today-face ((t (:underline t))))
'(completions-annotations ((t (:italic t :slant italic))))
'(completions-common-part ((t (:foreground "#c0c0c0" :background "black"))))
'(completions-first-difference ((t (:bold t :weight bold))))
'(cperl-array-face ((t (:bold t :background "lightyellow2"
:foreground "Blue" :weight bold))))
'(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2"
:foreground "Red" :slant italic :weight bold))))
'(cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
'(cursor ((t (:background "medium turquoise"))))
'(diary-face ((t (:foreground "red"))))
'(dired-directory ((t (:foreground "#4186be"))))
'(dired-flagged ((t (:bold t :weight bold :foreground "Pink"))))
'(dired-header ((t (:foreground "Coral"))))
'(dired-ignored ((t (:foreground "grey70"))))
'(dired-mark ((t (:foreground "#00ff00"))))
'(dired-marked ((t (:bold t :weight bold :foreground "DarkOrange"))))
'(dired-perm-write ((t (:foreground "Red"))))
'(dired-symlink ((t (:foreground "#00ffff"))))
'(dired-warning ((t (:bold t :weight bold :foreground "Red"))))
'(error ((t (:bold t :foreground "Pink" :weight bold))))
'(escape-glyph ((t (:foreground "cyan"))))
'(excerpt ((t (:italic t :slant italic))))
'(file-name-shadow ((t (:foreground "grey70"))))
'(fixed ((t (:bold t :weight bold))))
'(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
'(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
'(font-lock-builtin-face ((t (:foreground "#ffaa00"))))
'(font-lock-comment-delimiter-face ((t (:foreground "Red"))))
'(font-lock-comment-face ((t (:foreground "Red"))))
'(font-lock-constant-face ((t (:foreground "#00ff00"))))
'(font-lock-doc-face ((t (:foreground "#ffff00"))))
'(font-lock-function-name-face ((t (:foreground "#4186be"))))
'(font-lock-keyword-face ((t (:foreground "#00ffff"))))
'(font-lock-negation-char-face ((t (nil))))
'(font-lock-preprocessor-face ((t (:foreground "#ffaa00"))))
'(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
'(font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
'(font-lock-string-face ((t (:foreground "#ffff00"))))
'(font-lock-type-face ((t (:foreground "Coral"))))
'(font-lock-variable-name-face ((t (:bold t :foreground "white" :weight bold))))
'(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
'(fringe ((t (:background "grey10"))))
'(glyphless-char ((t (:height 0.6))))
'(gnus-cite-attribution-face ((t (:italic t :slant italic))))
'(gnus-cite-face-1 ((t (:foreground "Khaki"))))
'(gnus-cite-face-2 ((t (:foreground "Coral"))))
'(gnus-cite-face-3 ((t (:foreground "#4186be"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "IndianRed"))))
'(gnus-cite-face-list ((t (:bold t :foreground "red" :weight bold))))
'(gnus-emphasis-bold ((t (:bold t :weight bold))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
'(gnus-emphasis-italic ((t (:italic t :slant italic))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t
:slant italic :weight bold))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
'(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
'(gnus-group-mail-1-face
((t (:bold t :foreground "DeepPink3" :weight bold))))
'(gnus-group-mail-2-empty-face
((t (:foreground "HotPink3"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
'(gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
'(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
'(gnus-group-mail-low-face
((t (:bold t :foreground "DeepPink4" :weight bold))))
'(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
'(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
'(gnus-group-news-3-empty-face ((t (nil))))
'(gnus-group-news-3-face ((t (:bold t :weight bold))))
'(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-header-content-face ((t (:italic t :foreground "#4186be" :slant italic))))
'(gnus-header-from-face ((t (:foreground "Coral"))))
'(gnus-header-name-face ((t (:foreground "white"))))
'(gnus-header-newsgroups-face ((t (:italic t :foreground "#4186be" :slant italic))))
'(gnus-header-subject-face ((t (:foreground "#4186be"))))
'(gnus-signature-face ((t (:foreground "white"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
'(gnus-summary-high-ancient-face
((t (:bold t :foreground "RoyalBlue" :weight bold))))
'(gnus-summary-high-read-face
((t (:bold t :foreground "DarkGreen" :weight bold))))
'(gnus-summary-high-ticked-face
((t (:bold t :foreground "firebrick" :weight bold))))
'(gnus-summary-high-unread-face
((t (:bold t :weight bold))))
'(gnus-summary-low-ancient-face
((t (:italic t :foreground "RoyalBlue" :slant italic))))
'(gnus-summary-low-read-face
((t (:italic t :foreground "DarkGreen" :slant italic))))
'(gnus-summary-low-ticked-face
((t (:italic t :foreground "firebrick" :slant italic))))
'(gnus-summary-low-unread-face
((t (:italic t :slant italic))))
'(gnus-summary-normal-ancient-face
((t (:foreground "RoyalBlue"))))
'(gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:underline t))))
'(header-line ((t (:box (:line-width -1 :style released-button)
:background "grey20" :foreground "grey90" :box nil))))
'(help-argument-name ((t (nil))))
'(highlight ((t (:background "#c0c0c0" :foreground "black"))))
'(highlight-changes-delete-face ((t (:foreground "red" :underline t))))
'(highlight-changes-face ((t (:foreground "red"))))
'(holiday-face ((t (:background "pink"))))
'(isearch ((t (:background "palevioletred2" :foreground "brown4"))))
'(isearch-fail ((t (:background "red4"))))
'(italic ((t (:italic t :slant italic))))
'(lazy-highlight ((t (:background "paleturquoise4"))))
'(link ((t (:foreground "cyan1" :underline t))))
'(link-visited ((t (:underline t :foreground "violet"))))
'(makefile-space-face ((t (:background "hotpink"))))
'(match ((t (:background "RoyalBlue3"))))
'(menu ((t (nil))))
'(message-cited-text-face ((t (:foreground "white"))))
'(message-header-cc-face ((t (:foreground "#4186be"))))
'(message-header-name-face ((t (:foreground "white"))))
'(message-header-newsgroups-face
((t (:bold t :foreground "Coral" :weight bold))))
'(message-header-other-face ((t (:foreground "steel blue"))))
'(message-header-subject-face
((t (:bold t :foreground "#4186be" :weight bold))))
'(message-header-to-face ((t (:bold t :foreground "#4186be" :weight bold))))
'(message-header-xheader-face ((t (:foreground "blue"))))
'(message-separator-face ((t (:foreground "brown"))))
'(minibuffer-prompt ((t (:foreground "cyan"))))
'(mode-line
((t (:background "darkslateblue" :foreground "white"
:box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t (:bold t :background "darkslateblue"
:foreground "white" :weight bold))))
'(mode-line-emphasis ((t (:bold t :weight bold))))
'(mode-line-highlight
((t (:box (:line-width 2 :color "grey40" :style released-button)))))
'(mode-line-inactive
((t (:background "grey30"
:foreground "grey80"
:box (:line-width -1 :color "grey40" :style nil)
:weight light))))
'(mode-line-mousable ((t (:background "darkslateblue" :foreground "white"))))
'(mode-line-mousable-minor-mode
((t (:background "darkslateblue" :foreground "white"))))
'(mouse ((t (:background "black"))))
'(next-error ((t (:foreground "white" :background "darkslateblue"))))
'(nobreak-space ((t (:foreground "cyan" :underline t))))
'(query-replace ((t (:foreground "brown4" :background "palevioletred2"))))
'(region ((t (:background "darkslateblue" :foreground "white"))))
'(scroll-bar ((t (nil))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(sgml-doctype-face ((t (:foreground "orange"))))
'(sgml-end-tag-face ((t (:foreground "greenyellow"))))
'(sgml-entity-face ((t (:foreground "gold"))))
'(sgml-ignored-face ((t (:background "gray60" :foreground "gray20"))))
'(sgml-sgml-face ((t (:foreground "yellow"))))
'(sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
'(shadow ((t (:foreground "grey70"))))
'(show-paren-match-face ((t (:background "purple" :foreground "white"))))
'(show-paren-mismatch-face ((t (:background "red" :foreground "white"))))
'(success ((t (:bold t :foreground "Green1" :weight bold))))
'(term-black ((t (:foreground "black"))))
'(term-blackbg ((t (:background "black"))))
'(term-blue ((t (:foreground "#4186be"))))
'(term-bluebg ((t (:background "#4186be"))))
'(term-bold ((t (:bold t :weight bold))))
'(term-cyan ((t (:foreground "#71bebe"))))
'(term-cyanbg ((t (:background "#71bebe"))))
'(term-default-bg ((t (nil))))
'(term-default-bg-inv ((t (nil))))
'(term-default-fg ((t (nil))))
'(term-default-fg-inv ((t (nil))))
'(term-green ((t (:foreground "#e5f779"))))
'(term-greenbg ((t (:background "#e5f779"))))
'(term-invisible ((t (nil))))
'(term-invisible-inv ((t (nil))))
'(term-magenta ((t (:foreground "#ef9ebe"))))
'(term-magentabg ((t (:background "#ef9ebe"))))
'(term-red ((t (:foreground "#ef8171"))))
'(term-redbg ((t (:background "#ef8171"))))
'(term-underline ((t (:underline t))))
'(term-white ((t (:foreground "#c0c0c0"))))
'(term-whitebg ((t (:background "#c0c0c0"))))
'(term-yellow ((t (:foreground "#fff796"))))
'(term-yellowbg ((t (:background "#fff796"))))
'(tool-bar
((t (:background "grey75" :foreground "black"
:box (:line-width 1 :style released-button)))))
'(tooltip
((t (:background "lightyellow" :foreground "black"))))
'(trailing-whitespace ((t (:background "red1"))))
'(underline ((t (:underline t))))
'(vertical-border ((t (nil))))
'(warning ((t (:bold t :foreground "DarkOrange" :weight bold))))
'(widget-button ((t (:bold t :weight bold))))
'(widget-button-pressed ((t (:background "black" :foreground "red"))))
'(widget-documentation ((t (:background "white" :foreground "dark green"))))
'(widget-field ((t (:background "gray85" :foreground "black"))))
'(widget-inactive ((t (:background "red" :foreground "dim gray"))))
'(widget-single-line-field ((t (:background "gray85" :foreground "black"))))
'(zmacs-region ((t (:background "darkslateblue" :foreground "white")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'hober)
;;; hober-theme.el ends here

BIN
images/aalto-dark-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 42 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 44 KiB

BIN
images/aliceblue-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

BIN
images/andreas-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 38 KiB

BIN
images/arjen-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

BIN
images/beige-diff-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 40 KiB

BIN
images/bharadwaj-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

BIN
images/billw-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

BIN
images/blippbolpp-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

BIN
images/blue-erc-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 33 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

BIN
images/blue-gnus-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

BIN
images/blue-mood-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 39 KiB

BIN
images/blue-sea-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 34 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 37 KiB

BIN
images/clarity-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 34 KiB

BIN
images/classic-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 51 KiB

BIN
images/cobalt-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

BIN
images/comidia-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

BIN
images/dark-blue-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

BIN
images/dark-blue2-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

BIN
images/dark-erc-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 50 KiB

BIN
images/dark-gnus-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

BIN
images/dark-green-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 57 KiB

BIN
images/dark-info-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 40 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 22 KiB

BIN
images/deep-blue-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 38 KiB

BIN
images/desert-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

BIN
images/emacs-21-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 44 KiB

BIN
images/emacs-nw-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

BIN
images/euphoria-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

BIN
images/feng-shui-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

BIN
images/gnome-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 33 KiB

BIN
images/gnome2-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 42 KiB

BIN
images/goldenrod-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 25 KiB

BIN
images/gray1-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 31 KiB

BIN
images/gray30-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

BIN
images/greiner-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

BIN
images/gtk-ide-theme.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 52 KiB

Some files were not shown because too many files have changed in this diff Show More