;;; taming-mr-arneson-theme.el --- taming-mr-arneson theme ;; Copyright (C) 2001 by Erik Arneson ;; Copyright (C) 2013 by Syohei YOSHIDA ;; Author: Syohei YOSHIDA ;; 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 . ;;; Commentary: ;; ;; Port of taming-mr-arneson theme from `color-themes' ;;; Code: (deftheme taming-mr-arneson "taming-mr-arneson theme") (custom-theme-set-faces 'taming-mr-arneson '(default ((t (:background "black" :foreground "LightSkyBlue")))) '(cursor ((t (:background "Red3")))) '(border ((t (:foreground "black")))) '(bbdb-company ((t (nil)))) '(bbdb-field-name ((t (:bold t)))) '(bbdb-field-value ((t (nil)))) '(bbdb-name ((t (:underline t)))) '(blue ((t (:foreground "blue")))) '(bold ((t (:bold t)))) '(bold-italic ((t (:bold t :foreground "yellow")))) '(border-glyph ((t (nil)))) '(buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) '(cperl-array-face ((t (:bold t :foreground "SkyBlue2")))) '(cperl-hash-face ((t (:foreground "LightBlue2")))) '(cperl-invalid-face ((t (:foreground "white")))) '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) '(custom-button-face ((t (:bold t)))) '(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 (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 "white")))) '(custom-variable-button-face ((t (:underline t :bold t)))) '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) '(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")))) '(cvs-msg-face ((t (:foreground "red")))) '(cvs-need-action-face ((t (:foreground "yellow")))) '(cvs-unknown-face ((t (:foreground "grey")))) '(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 :foreground "SkyBlue2")))) '(dired-face-executable ((t (:foreground "Green")))) '(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")))) '(excerpt ((t (nil)))) '(fixed ((t (:bold t)))) '(font-lock-builtin-face ((t (:foreground "red3")))) '(font-lock-comment-face ((t (:foreground "red")))) '(font-lock-constant-face ((t (nil)))) '(font-lock-doc-string-face ((t (:foreground "turquoise")))) '(font-lock-function-name-face ((t (:foreground "white")))) '(font-lock-keyword-face ((t (:foreground "green")))) '(font-lock-preprocessor-face ((t (:foreground "green3")))) '(font-lock-reference-face ((t (:foreground "red3")))) '(font-lock-string-face ((t (:foreground "turquoise")))) '(font-lock-type-face ((t (:foreground "steelblue")))) '(font-lock-variable-name-face ((t (:foreground "magenta2")))) '(font-lock-warning-face ((t (:bold t :foreground "Red")))) '(green ((t (:foreground "green")))) '(gui-button-face ((t (:background "grey75" :foreground "black")))) '(gui-element ((t (nil)))) '(highlight ((t (:background "darkseagreen2" :foreground "blue")))) '(html-helper-bold-face ((t (:bold t)))) '(html-helper-italic-face ((t (:bold t :foreground "yellow")))) '(html-helper-underline-face ((t (:underline 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")))) '(info-node ((t (:bold t :foreground "yellow")))) '(info-xref ((t (:bold t)))) '(isearch ((t (:background "paleturquoise" :foreground "dark red")))) '(isearch-secondary ((t (:foreground "red3")))) '(italic ((t (:bold t :foreground "yellow")))) '(left-margin ((t (nil)))) '(list-mode-item-selected ((t (:background "gray68" :foreground "dark green")))) '(man-bold ((t (:bold t)))) '(man-heading ((t (:bold t)))) '(man-italic ((t (:foreground "yellow")))) '(man-xref ((t (:underline t)))) '(message-cited-text ((t (:foreground "orange")))) '(message-header-contents ((t (:foreground "white")))) '(message-headers ((t (:bold t :foreground "orange")))) '(message-highlighted-header-contents ((t (:bold t)))) '(message-url ((t (:bold t :foreground "pink")))) '(mmm-face ((t (:background "black" :foreground "green")))) '(mode-line ((t (nil)))) '(mode-line-buffer-id ((t (:background "Gray80" :foreground "blue4")))) '(mode-line-mousable ((t (:background "Gray80" :foreground "firebrick")))) '(mode-line-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) '(paren-blink-off ((t (:foreground "gray80")))) '(paren-match ((t (:background "dark blue")))) '(paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue")))) '(pointer ((t (nil)))) '(primary-selection ((t (:background "gray65" :foreground "DarkBlue")))) '(red ((t (:foreground "red")))) '(region ((t (:background "gray65" :foreground "DarkBlue")))) '(right-margin ((t (nil)))) '(secondary-selection ((t (:background "paleturquoise" :foreground "black")))) '(shell-option-face ((t (:foreground "blue4")))) '(shell-output-2-face ((t (:foreground "green4")))) '(shell-output-3-face ((t (:foreground "green4")))) '(shell-output-face ((t (:bold t)))) '(shell-prompt-face ((t (:foreground "red4")))) '(text-cursor ((t (:background "Red3" :foreground "black")))) '(toolbar ((t (:background "Gray80" :foreground "black")))) '(underline ((t (:underline t)))) '(vertical-divider ((t (nil)))) '(vm-xface ((t (:background "white" :foreground "black")))) '(vmpc-pre-sig-face ((t (:foreground "forestgreen")))) '(vmpc-sig-face ((t (:foreground "steelblue")))) '(widget ((t (nil)))) '(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" :foreground "black")))) '(widget-inactive-face ((t (:foreground "dim gray")))) '(x-face ((t (:background "white" :foreground "black")))) '(xrdb-option-name-face ((t (:foreground "red")))) '(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 'taming-mr-arneson) ;;; taming-mr-arneson-theme.el ends here