Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
258 lines (244 sloc) 13 KB
;;; color-theme-arjen.el --- Arjen Wiersma's preferred color theme
;; Copyright (C) 2001 -- 2008 Arjen Wiersma
;; Author: Arjen Wiersma <arjen@wiersma.org>
;; Keywords: local
;; Modified for Emacs24: Denis Klyukvin <d.klyvkin@gmail.com>
;; This file is NOT part of GNU Emacs
;; This file 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, or (at your option)
;; any later version.
;; This file 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 GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; This was my first color theme. It has been hacked into shape over
;; the last couple of years and I still use it every single day.
;;
;; Any comments/feedback are greatly appreciated
;;; Code:
(deftheme arjen
"Color theme by awiersma, created 2001-08-27.")
(custom-theme-set-faces
'arjen
'(default ((t (:background "black"
:background-mode dark
:border-color "black"
:cursor-color "yellow"
:foreground-color "White"
:mouse-color "sienna1"))))
'(buffers-tab-face ((t (class buffers-tab))))
'(cperl-here-face ((t (class font-lock-string-face))))
'(cperl-invalid-face quote underline)
'(cperl-pod-face ((t (class font-lock-comment-face))))
'(cperl-pod-head-face ((t (class font-lock-variable-name-face))))
'(vc-mode-face ((t (class highlight))))
'(blue ((t (:foreground "blue"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:bold t))))
'(border-glyph ((t (nil))))
'(buffers-tab ((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"))))
'(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"))))
'(ecb-default-highlight-face ((((class color) (background dark)) (:background "RoyalBlue" :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 "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"))))
'(flymake-errline ((t (:underline "red"))))
'(flymake-warnline ((t (:underline "yellow"))))
'(font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
;; these used to be Indian Red...
'(font-lock-comment-delimiter-face ((t (:foreground "#999988"))))
'(font-lock-comment-face ((t (:foreground "#999988"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-face ((t (:foreground "gray30"))))
'(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
'(font-lock-end-statement ((t (:foreground "CornflowerBlue"))) t)
'(font-lock-function-name-face ((t (:foreground "YellowGreen"))))
'(font-lock-operator-face ((t (:foreground "LightGoldenrod"))) t)
'(font-lock-keyword-face ((t (:foreground "SlateBlue"))))
'(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"))))
'(fringe ((t (:background "black"))))
'(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"))))
'(modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
'(modeline-mousable ((t (:background "DarkRed" :foreground "white"))))
'(modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
'(nxml-comment-content-face ((t (:inherit font-lock-doc-face))))
'(nxml-delimited-data-face ((nil (:foreground "LightSlateBlue"))))
'(nxml-name-face ((nil (:foreground "LightGoldenrod"))))
'(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 "#454545"))))
'(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))))
'(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"))))
'(which-func ((t (:foreground "yellow"))))
'(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")))))
(provide 'color-theme-arjen)
;;; color-theme-arjen.el ends here