Download
(defun color-theme-emacs-revert-theme ()
"Color subtheme, created 2008-07-17."
(interactive)
(color-theme-install
'(color-theme-emacs-revert-theme nil nil
(widget-single-line-field ((t (:background "gray85"))))
(widget-inactive ((t (:foreground "grey50"))))
(widget-field ((t (:background "gray85"))))
(widget-documentation ((t (:foreground "dark green"))))
(widget-button-pressed ((t (:foreground "red1"))))
(widget-button ((t (:bold t :weight bold))))
(vertical-border ((t (nil))))
(variable-pitch ((t (:family "helv"))))
(underline ((t (:underline t))))
(trailing-whitespace ((t (:background "red1"))))
(tooltip ((t (:family "helv" :background "lightyellow" :foreground "black"))))
(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
(texinfo-heading ((t (:foreground "Blue1"))))
(show-paren-mismatch ((t (:background "purple" :foreground "white"))))
(show-paren-match ((t (:background "turquoise"))))
(shadow ((t (:foreground "grey50"))))
(secondary-selection ((t (:background "yellow1"))))
(scroll-bar ((t (nil))))
(region ((t (:background "lightgoldenrod2"))))
(query-replace ((t (:foreground "lightskyblue1" :background "magenta3"))))
(nobreak-space ((t (:foreground "brown" :underline t))))
(next-error ((t (:background "lightgoldenrod2"))))
(muse-verbatim ((t (:foreground "slate gray"))))
(muse-link ((t (:bold t :foreground "blue" :underline "blue" :weight bold))))
(muse-header-5 ((t (:bold t :weight bold :height 1.0 :family "helv"))))
(muse-header-4 ((t (:bold t :weight bold :height 1.1 :family "helv"))))
(muse-header-3 ((t (:bold t :weight bold :height 1.2 :family "helv"))))
(muse-header-2 ((t (:bold t :weight bold :height 1.3 :family "helv"))))
(muse-header-1 ((t (:bold t :weight bold :height 1.4 :family "helv"))))
(muse-emphasis-3 ((t (:italic t :bold t :slant italic :weight bold))))
(muse-emphasis-2 ((t (:bold t :weight bold))))
(muse-emphasis-1 ((t (:italic t :slant italic))))
(muse-bad-link ((t (:bold t :foreground "red" :underline "red" :weight bold))))
(mouse ((t (:background "black"))))
(mode-line-inactive ((t (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey75" :style nil) :weight light))))
(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
(mode-line-buffer-id ((t (:bold t :weight bold))))
(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
(minibuffer-prompt ((t (:foreground "medium blue"))))
(menu ((t (nil))))
(match ((t (:background "yellow1"))))
(mac-ts-selected-text ((t (:underline t))))
(mac-ts-selected-raw-text ((t (:underline t))))
(mac-ts-selected-converted-text ((t (:underline t))))
(mac-ts-raw-text ((t (:underline t))))
(mac-ts-outline-text ((t (:underline t))))
(mac-ts-no-hilite ((t (:family "apple-lucida sans typewriter" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "black" :background "white" :stipple nil :height 181))))
(mac-ts-converted-text ((t (:underline "gray80"))))
(mac-ts-caret-position ((t (nil))))
(mac-ts-block-fill-text ((t (:underline t))))
(link-visited ((t (:underline t :foreground "magenta4"))))
(link ((t (:foreground "blue1" :underline t))))
(lazy-highlight ((t (:background "paleturquoise"))))
(italic ((t (:italic t :slant italic))))
(isearch ((t (:background "magenta3" :foreground "lightskyblue1"))))
(info-xref-visited ((t (:foreground "magenta4" :underline t))))
(info-xref ((t (:underline t :foreground "blue1"))))
(info-title-4 ((t (:bold t :family "helv" :weight bold))))
(info-title-3 ((t (:bold t :weight bold :family "helv" :height 1.2))))
(info-title-2 ((t (:bold t :family "helv" :weight bold :height 1.44))))
(info-title-1 ((t (:bold t :weight bold :family "helv" :height 1.728))))
(info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
(info-menu-star ((t (:foreground "red1"))))
(info-menu-header ((t (:bold t :family "helv" :weight bold))))
(info-header-xref ((t (:foreground "blue1" :underline t))))
(info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
(highlight ((t (:background "darkseagreen2"))))
(help-argument-name ((t (:italic t :slant italic))))
(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
(fringe ((t (:background "grey95"))))
(font-lock-warning-face ((t (:bold t :foreground "Red1" :weight bold))))
(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
(font-lock-type-face ((t (:foreground "ForestGreen"))))
(font-lock-string-face ((t (:foreground "RosyBrown"))))
(font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
(font-lock-preprocessor-face ((t (:foreground "Orchid"))))
(font-lock-negation-char-face ((t (nil))))
(font-lock-keyword-face ((t (:foreground "Purple"))))
(font-lock-function-name-face ((t (:foreground "Blue1"))))
(font-lock-doc-face ((t (:foreground "RosyBrown"))))
(font-lock-constant-face ((t (:foreground "CadetBlue"))))
(font-lock-comment-face ((t (:foreground "Firebrick"))))
(font-lock-comment-delimiter-face ((t (:foreground "Firebrick"))))
(font-lock-builtin-face ((t (:foreground "Orchid"))))
(fixed-pitch ((t (:family "courier"))))
(file-name-shadow ((t (:foreground "grey50"))))
(esn-font-lock-over ((t (:bold t :underline t :weight bold))))
(escape-glyph ((t (:foreground "brown"))))
(custom-variable-tag ((t (:bold t :family "helv" :foreground "blue1" :weight bold :height 1.2))))
(custom-variable-button ((t (:bold t :underline t :weight bold))))
(custom-themed ((t (:background "blue1" :foreground "white"))))
(custom-state ((t (:foreground "dark green"))))
(custom-set ((t (:background "white" :foreground "blue1"))))
(custom-saved ((t (:underline t))))
(custom-rogue ((t (:background "black" :foreground "pink"))))
(custom-modified ((t (:background "blue1" :foreground "white"))))
(custom-link ((t (:underline t :foreground "blue1"))))
(custom-invalid ((t (:background "red1" :foreground "yellow1"))))
(custom-group-tag-1 ((t (:bold t :family "helv" :foreground "red1" :weight bold :height 1.2))))
(custom-group-tag ((t (:bold t :foreground "blue1" :weight bold :height 1.2))))
(custom-face-tag ((t (:bold t :family "helv" :weight bold :height 1.2))))
(custom-documentation ((t (nil))))
(custom-comment-tag ((t (:foreground "blue4"))))
(custom-comment ((t (:background "gray85"))))
(custom-changed ((t (:background "blue1" :foreground "white"))))
(custom-button-unraised ((t (:underline t))))
(custom-button-pressed-unraised ((t (:underline t :foreground "magenta4"))))
(custom-button-pressed ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
(custom-button-mouse ((t (:background "grey90" :foreground "black" :box (:line-width 2 :style released-button)))))
(custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
(cursor ((t (:background "black"))))
(completions-first-difference ((t (:bold t :weight bold))))
(completions-common-part ((t ( :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "black" :background "white" :stipple nil :height 181))))
(comint-highlight-prompt ((t (:foreground "dark blue"))))
(comint-highlight-input ((t (:bold t :weight bold))))
(button ((t (:underline t))))
(buffer-menu-buffer ((t (:bold t :weight bold))))
(border ((t (:background "black"))))
(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
(bold ((t (:bold t :weight bold))))
(default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 181 :width normal)))))))
(provide 'color-theme-emacs-revert-theme)