All pastes #792907 Raw Edit

Emacs Color Theme

public text v1 · immutable
#792907 ·published 2007-11-21 20:22 UTC
rendered paste body
(eval-when-compile    (require 'color-theme))
(defun life-color-theme ()
  "Color theme by sphinx, created 2007-01-19."
  (interactive)
  (color-theme-install
   '(life-color-theme
     ((background-color . "#e5e5e5")
      (background-mode . light)
      (border-color . "black")
      (cursor-color . "black")
      (foreground-color . "black")
      (mouse-color . "black"))
     ((list-matching-lines-buffer-name-face . underline)
      (list-matching-lines-face . match)
      (rmail-highlight-face . rmail-highlight)
      (view-highlight-face . highlight)
      (widget-mouse-face . highlight))
     (bold ((t (:bold t :weight bold))))
     (italic ((t (:underline t))))
     (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 nil)))
     (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 90))))
     (completions-first-difference ((t (:bold t :weight bold))))
     (cursor ((t (:background "black"))))
     (escape-glyph ((t (:foreground "brown"))))
     (file-name-shadow ((t (:foreground "gray50"))))
     (link ((t (:foreground "blue1" :underline t))))
     (link-visited ((t (:underline t :foreground "PaleVioletRed"))))
     (match ((t (:background "Tan"))))
     (menu ((t (nil))))
     (fringe ((t (:background "#e7e3e7"))))
     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
     (minibuffer-prompt ((t (:foreground "dark blue"))))
     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style nil)))))
     (mode-line-buffer-id ((t (:bold t :weight bold))))
     (mode-line-highlight ((t (:box (:line-width 1 :color "grey60" :style nil)))))
     (mode-line-inactive ((t (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey50" :style nil) :weight light))))
     (mouse ((t (:background "black"))))
     (next-error ((t (:background "lightgoldenrod2"))))
     (nobreak-space ((t (:foreground "brown" :underline t))))
     (quack-about-title-face ((t (:foreground "#008000" :weight bold :height 240))))
     (query-replace ((t (:foreground "lightskyblue1" :background "magenta3"))))
     (region ((t (:background "lightgoldenrod2"))))
     (scroll-bar ((t (:background "grey75"))))
     (secondary-selection ((t (:background "yellow1"))))
     (shadow ((t (:foreground "grey50"))))
     (show-paren-match ((t (:background "Turquoise2"))))
     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
     (tooltip ((t (:background "lightyellow" :foreground "black" :height 80))))
     (trailing-whitespace ((t (:background "red1"))))
     (underline ((t (:underline t))))
     (vertical-border ((t (:foreground "grey50"))))
     (widget-button ((t (:bold t :weight bold))))
     (widget-button-pressed ((t (:foreground "red1"))))
     (widget-documentation ((t (:foreground "dark green"))))
     (widget-field ((t (:background "gray85"))))
     (widget-inactive ((t (:foreground "grey50"))))
     (widget-single-line-field ((t (:background "gray85"))))     

     ;; Font-lock
     (font-lock-builtin-face ((t (:bold t :foreground "black"))))
     (font-lock-comment-delimiter-face ((t (:foreground "gray50"))))
     (font-lock-comment-face ((t (:foreground "gray50"))))
     (font-lock-constant-face ((t (:foreground "darkGreen"))))
     (font-lock-doc-face ((t (:foreground "gray35"))))
     (font-lock-function-name-face ((t (:foreground "blue"))))
     (font-lock-keyword-face ((t (:bold t :foreground "black"))))
     (font-lock-negation-char-face ((t (nil))))
     (font-lock-preprocessor-face ((t (:foreground "royalBlue4"))))
     (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 "darkGreen"))))
     (font-lock-type-face ((t (:bold t :foreground "brown"))))
     (font-lock-variable-name-face ((t (:foreground "darkBlue"))))
     (font-lock-warning-face ((t (:bold t :foreground "Red1" :weight bold))))

     ;; Jabber
     (jabber-chat-prompt-system ((t (:foreground "darkgreen" :weight bold))))
     (jabber-roster-user-away ((t (:foreground "khaki4" :slant italic :weight normal))))
     (jabber-roster-user-chatty ((t (:foreground "limegreen" :slant normal :weight bold))))
     (jabber-roster-user-dnd ((t (:foreground "darkred" :slant italic :weight normal))))
     (jabber-roster-user-error ((t (:foreground "red" :slant italic :weight light))))
     (jabber-roster-user-online ((t (:foreground "forestgreen" :slant normal :weight bold))))

     ;; Gnus
     (gnus-cite-11 ((t (:foreground "steelblue"))))
     (gnus-cite-5 ((t (:foreground "saddlebrown"))))
     (gnus-cite-6 ((t (:foreground "medium violet red"))))
     (gnus-cite-7 ((t (:foreground "indianred"))))
     (gnus-cite-8 ((t (:foreground "royalblue4"))))
     (gnus-cite-9 ((t (:foreground "darkmagenta"))))
     (gnus-group-news-1 ((t (:foreground "black" :weight bold))))
     (gnus-group-news-1-empty ((t (:inherit gnus-group-news-1-face :slant italic :weight normal))))
     (gnus-group-news-2 ((t (:foreground "gray20" :weight bold))))
     (gnus-group-news-2-empty ((t (:inherit gnus-group-news-2-face :slant italic :weight normal))))
     (gnus-group-news-3 ((t (:foreground "gray40" :weight bold))))
     (gnus-group-news-3-empty ((t (:inherit gnus-group-news-3-face :slant italic :weight normal))))
     (gnus-group-news-4 ((t (:foreground "gray60" :weight bold))))
     (gnus-group-news-4-empty ((t (:inherit gnus-group-news-4-face :slant italic :weight normal))))
     (gnus-group-news-5 ((t (:foreground "gray70" :weight bold))))
     (gnus-group-news-5-empty ((t (:inherit gnus-group-news-5-face :slant italic :weight normal))))
     (gnus-group-news-6 ((t (:foreground "gray" :weight bold))))
     (gnus-group-news-6-empty ((t (:inherit gnus-group-news-6-face :slant italic :weight normal))))


     ;; Org-mode
     (org-date ((t (:foreground "palegreen4" :underline t))))
     (org-done ((t (:foreground "darkseagreen" :weight bold))))
     (org-headline-done ((((class color) (min-colors 16) (background light)) (:foreground "seashell4"))))
     (org-hide ((((background light)) (:foreground "grey90"))))
     (org-level-1 ((t (:inherit default :foreground "navy" :weight semi-bold :height 1.2 :width normal))))
     (org-level-2 ((t (:inherit default :foreground "blue" :weight semi-bold :height 1.1))))
     (org-level-3 ((t (:foreground "royalblue3"))))
     (org-level-4 ((t (:foreground "steelblue4"))))
     (org-level-5 ((t (:foreground "lightslateblue"))))
     (org-link ((t (:foreground "mediumorchid" :underline t))))
     (org-scheduled-today ((t (:foreground "DarkGreen" :weight bold))))
     (org-special-keyword ((t (:foreground "Brown"))))
     (org-time-grid ((t (:foreground "firebrick"))))
     (org-todo ((t (:foreground "coral2" :underline t :weight bold))))
     (org-upcoming-deadline ((t (:foreground "red"))))

     ;;hl-line-mode color
     (highlight ((t (:background "lightGray"))))
   
     ;;isearch highlights
     (isearch ((t (:background "yellow" :foreground "black" :underline t))))
     (lazy-highlight ((t (:background "paleGoldenRod" :foreground "black" :underline t)))))))