;;; color-theme-dotshare.el --- A color theme for Emacs. ;; Copyright (C) 2011 Christian Brassat, Bozhidar Batsov ;; Author: Christian Brassat ;; URL: ;; Version: 0.1 ;; Package-Requires: ((color-theme "6.6.1")) ;; Based on color-theme-zenburn.el: ;; Author: Bozhidar Batsov ;; URL: http://github.com/bbatsov/zenburn-emacs ;; 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 . ;;; Installation: ;; ;; (require 'color-theme-dotshare) ;; (color-theme-dotshare) ;; ;; Don't forget that the theme requires the presence of the ;; color-theme package in your Emacs load-path. ;; ;;; Bugs ;; ;; None that I'm aware of. ;; ;;; Credits ;; ;; Jani Nurminen created the original theme for vim on such this port ;; is based. ;; ;;; Code ;; requires (require 'color-theme) ;; color definitions ;; colors with +x are lighter, colors with -x are darker (defvar dotshare-fg "#d7d0c7") (defvar dotshare-bg-1 "#101010") (defvar dotshare-bg "#151515") (defvar dotshare-bg+1 "#202020") (defvar dotshare-bg+2 "#5f5f5f") (defvar dotshare-red+1 "#f55353") (defvar dotshare-red "#e84f4f") (defvar dotshare-red-1 "#ce4646") (defvar dotshare-red-2 "#a83939") (defvar dotshare-red-3 "#682424") (defvar dotshare-orange "#dfaf8f") (defvar dotshare-yellow "#e1aa5d") (defvar dotshare-yellow-1 "#c79752") (defvar dotshare-yellow-2 "#a17a43") (defvar dotshare-green-1 "#a2bc7b") (defvar dotshare-green "#b8d68c") (defvar dotshare-green+1 "#c3e394") (defvar dotshare-green+2 "#9fc59f") (defvar dotshare-green+3 "#ceef9d") (defvar dotshare-green+4 "#d9fca5") (defvar dotshare-cyan "#6d878d") (defvar dotshare-blue+1 "#85cddc") (defvar dotshare-blue "#7dc1cf") (defvar dotshare-blue-1 "#6ea9b5") (defvar dotshare-blue-2 "#57868f") (defvar dotshare-blue-3 "#38565c") (defvar dotshare-blue-4 "#304a4f") (defvar dotshare-blue-5 "#213236") (defvar dotshare-magenta "#9b64fb") (eval-after-load 'term '(setq ansi-term-color-vector (vector 'unspecified dotshare-bg dotshare-red dotshare-green dotshare-yellow dotshare-blue+1 dotshare-magenta dotshare-cyan ;; dirty fix "white"))) (defun color-theme-dotshare () (interactive) (color-theme-install `(color-theme-dotshare ;;; color-theme mapping ((foreground-color . ,dotshare-fg) (background-color . ,dotshare-bg) (background-mode . dark) (cursor-color . ,dotshare-orange)) ;;; define some reusable dotshare faces that we can inherit from afterwards (dotshare-strong-1-face ((t (:foreground ,dotshare-yellow :weight bold)))) (dotshare-strong-2-face ((t (:foreground ,dotshare-orange :weight bold)))) (dotshare-warning-face ((t (:foreground ,dotshare-yellow-1 :weight bold :underline t)))) (dotshare-error-face ((t (:foreground ,dotshare-red-1 :weight bold :underline t)))) ;;; custom faces (linum ((t (:foreground "#505050" :background ,dotshare-bg-1)))) (fringe ((t (:foreground "#303030")))) ;;; basic coloring (default ((t (:foreground ,dotshare-fg)))) (cursor ((t (:foreground ,dotshare-fg)))) (escape-glyph-face ((t (:foreground ,dotshare-red)))) (fringe ((t (:foreground ,dotshare-fg :background ,dotshare-bg)))) (header-line ((t (:foreground ,dotshare-yellow :background ,dotshare-bg-1 :box (:line-width 5 :color ,dotshare-bg-1))))) (highlight ((t (:background ,dotshare-bg+1)))) ;; faces used by isearch (isearch ((t (:foreground ,dotshare-yellow :background ,dotshare-bg-1)))) (isearch-fail ((t (:foreground ,dotshare-fg :background ,dotshare-red-3)))) (lazy-highlight ((t (:foreground ,dotshare-yellow :background ,dotshare-bg+2)))) (menu ((t (:foreground ,dotshare-fg :background ,dotshare-bg)))) (minibuffer-prompt ((t (:foreground ,dotshare-yellow)))) (mode-line ((t (:foreground ,dotshare-fg :background ,dotshare-bg+1 :box (:line-width 5 :color ,dotshare-bg+1))))) (mode-line-inactive ((t (:inherit mode-line :background ,dotshare-bg-1 :box (:line-width 5 :color ,dotshare-bg-1))))) (mode-line-buffer-id ((t (:inherit dotshare-strong-1-face)))) (mode-line-inactive ((t (:foreground ,dotshare-green-1 :background ,dotshare-bg-1)))) (mode-line-buffer-name ((t (:foreground ,dotshare-green :weight bold)))) (mode-line-mode-name ((t (:foreground ,dotshare-yellow)))) (region ((t (:background ,dotshare-magenta)))) (secondary-selection ((t (:background ,dotshare-bg+2)))) (trailing-whitespace ((t (:background ,dotshare-red)))) (vertical-border ((t (:foreground ,dotshare-fg)))) ;;; font lock (font-lock-builtin-face ((t (:foreground ,dotshare-blue)))) (font-lock-comment-face ((t (:foreground ,dotshare-green)))) (font-lock-comment-delimiter-face ((t (:foreground ,dotshare-green)))) (font-lock-constant-face ((t (:foreground ,dotshare-fg)))) (font-lock-doc-face ((t (:foreground ,dotshare-green+1)))) (font-lock-doc-string-face ((t (:foreground ,dotshare-blue+1)))) (font-lock-function-name-face ((t (:foreground ,dotshare-blue)))) (font-lock-keyword-face ((t (:inherit dotshare-strong-1-face)))) (font-lock-negation-char-face ((t (:foreground ,dotshare-fg)))) (font-lock-preprocessor-face ((t (:foreground ,dotshare-blue)))) (font-lock-string-face ((t (:foreground ,dotshare-red)))) (font-lock-type-face ((t (:foreground ,dotshare-yellow)))) (font-lock-variable-name-face ((t (:foreground ,dotshare-yellow)))) (font-lock-warning-face ((t (:inherit dotshare-warning-face)))) ;;; external ;; diff (diff-added ((t (:foreground ,dotshare-green+4)))) (diff-changed ((t (:foreground ,dotshare-yellow)))) (diff-removed ((t (:foreground ,dotshare-red)))) (diff-header ((t (:background ,dotshare-bg+1)))) (diff-file-header ((t (:background ,dotshare-bg+2 :foreground ,dotshare-fg :bold t)))) ;; eshell (eshell-prompt ((t (:inherit dotshare-strong-1-face)))) (eshell-ls-archive ((t (:foreground ,dotshare-red-1 :weight bold)))) (eshell-ls-backup ((t (:inherit font-lock-comment)))) (eshell-ls-clutter ((t (:inherit font-lock-comment)))) (eshell-ls-directory ((t (:foreground ,dotshare-blue+1 :weight bold)))) (eshell-ls-executable ((t (:foreground ,dotshare-red+1 :weight bold)))) (eshell-ls-unreadable ((t (:foreground ,dotshare-fg)))) (eshell-ls-missing ((t (:inherit font-lock-warning)))) (eshell-ls-product ((t (:inherit font-lock-doc)))) (eshell-ls-special ((t (:inherit dotshare-strong-1-face)))) (eshell-ls-symlink ((t (:foreground ,dotshare-cyan :weight bold)))) ;; flymake (flymake-errline ((t (:inherit dotshare-error-face)))) (flymake-warnline ((t (:inherit dotshare-warning-face)))) ;; flyspell (flyspell-duplicate ((t (:inherit dotshare-warning-face)))) (flyspell-incorrect ((t (:inherit dotshare-error-face)))) ;; erc (erc-action-face ((t (:inherit erc-default-face)))) (erc-bold-face ((t (:weight bold)))) (erc-current-nick-face ((t (:inherit dotshare-strong-1-face)))) (erc-dangerous-host-face ((t (:inherit font-lock-warning)))) (erc-default-face ((t (:foreground ,dotshare-fg)))) (erc-direct-msg-face ((t (:inherit erc-default)))) (erc-error-face ((t (:inherit font-lock-warning)))) (erc-fool-face ((t (:inherit erc-default)))) (erc-highlight-face ((t (:inherit hover-highlight)))) (erc-input-face ((t (:foreground ,dotshare-yellow)))) (erc-keyword-face ((t (:inherit dotshare-strong-1-face)))) (erc-nick-default-face ((t (:weigth bold)))) (erc-nick-msg-face ((t (:inherit erc-default)))) (erc-notice-face ((t (:foreground ,dotshare-green)))) (erc-pal-face ((t (:foreground ,dotshare-orange :weight bold)))) (erc-prompt-face ((t (:inherit dotshare-strong-2-face)))) (erc-timestamp-face ((t (:foreground ,dotshare-green+1)))) (erc-underline-face ((t (:underline t)))) ;; gnus (gnus-group-mail-1-face ((t (:bold t :inherit gnus-group-mail-1-empty)))) (gnus-group-mail-1-empty-face ((t (:inherit gnus-group-news-1-empty)))) (gnus-group-mail-2-face ((t (:bold t :inherit gnus-group-mail-2-empty)))) (gnus-group-mail-2-empty-face ((t (:inherit gnus-group-news-2-empty)))) (gnus-group-mail-3-face ((t (:bold t :inherit gnus-group-mail-3-empty)))) (gnus-group-mail-3-empty-face ((t (:inherit gnus-group-news-3-empty)))) (gnus-group-mail-4-face ((t (:bold t :inherit gnus-group-mail-4-empty)))) (gnus-group-mail-4-empty-face ((t (:inherit gnus-group-news-4-empty)))) (gnus-group-mail-5-face ((t (:bold t :inherit gnus-group-mail-5-empty)))) (gnus-group-mail-5-empty-face ((t (:inherit gnus-group-news-5-empty)))) (gnus-group-mail-6-face ((t (:bold t :inherit gnus-group-mail-6-empty)))) (gnus-group-mail-6-empty-face ((t (:inherit gnus-group-news-6-empty)))) (gnus-group-mail-low-face ((t (:bold t :inherit gnus-group-mail-low-empty)))) (gnus-group-mail-low-empty-face ((t (:inherit gnus-group-news-low-empty)))) (gnus-group-news-1-face ((t (:bold t :inherit gnus-group-news-1-empty)))) (gnus-group-news-2-face ((t (:bold t :inherit gnus-group-news-2-empty)))) (gnus-group-news-3-face ((t (:bold t :inherit gnus-group-news-3-empty)))) (gnus-group-news-4-face ((t (:bold t :inherit gnus-group-news-4-empty)))) (gnus-group-news-5-face ((t (:bold t :inherit gnus-group-news-5-empty)))) (gnus-group-news-6-face ((t (:bold t :inherit gnus-group-news-6-empty)))) (gnus-group-news-low-face ((t (:bold t :inherit gnus-group-news-low-empty)))) (gnus-header-content-face ((t (:inherit message-header-other)))) (gnus-header-from-face ((t (:inherit message-header-from)))) (gnus-header-name-face ((t (:inherit message-header-name)))) (gnus-header-newsgroups-face ((t (:inherit message-header-other)))) (gnus-header-subject-face ((t (:inherit message-header-subject)))) (gnus-summary-cancelled-face ((t (:foreground ,dotshare-orange)))) (gnus-summary-high-ancient-face ((t (:foreground ,dotshare-blue)))) (gnus-summary-high-read-face ((t (:foreground ,dotshare-green :weight bold)))) (gnus-summary-high-ticked-face ((t (:inherit dotshare-strong-2-face)))) (gnus-summary-high-unread-face ((t (:foreground ,dotshare-fg :weight bold)))) (gnus-summary-low-ancient-face ((t (:foreground ,dotshare-blue)))) (gnus-summary-low-read-face ((t (:foreground ,dotshare-green)))) (gnus-summary-low-ticked-face ((t (:inherit dotshare-strong-2-face)))) (gnus-summary-low-unread-face ((t (:foreground ,dotshare-fg)))) (gnus-summary-normal-ancient-face ((t (:foreground ,dotshare-blue)))) (gnus-summary-normal-read-face ((t (:foreground ,dotshare-green)))) (gnus-summary-normal-ticked-face ((t (:inherit dotshare-strong-2-face)))) (gnus-summary-normal-unread-face ((t (:foreground ,dotshare-fg)))) (gnus-summary-selected-face ((t (:inherit dotshare-strong-1-face)))) (gnus-cite-1-face ((t (:foreground ,dotshare-blue)))) (gnus-cite-10-face ((t (:foreground ,dotshare-yellow-1)))) (gnus-cite-11-face ((t (:foreground ,dotshare-yellow)))) (gnus-cite-2-face ((t (:foreground ,dotshare-blue-1)))) (gnus-cite-3-face ((t (:foreground ,dotshare-blue-2)))) (gnus-cite-4-face ((t (:foreground ,dotshare-green+2)))) (gnus-cite-5-face ((t (:foreground ,dotshare-green+1)))) (gnus-cite-6-face ((t (:foreground ,dotshare-green)))) (gnus-cite-7-face ((t (:foreground ,dotshare-red)))) (gnus-cite-8-face ((t (:foreground ,dotshare-red-1)))) (gnus-cite-9-face ((t (:foreground ,dotshare-red-2)))) (gnus-group-news-1-empty-face ((t (:foreground ,dotshare-yellow)))) (gnus-group-news-2-empty-face ((t (:foreground ,dotshare-green+3)))) (gnus-group-news-3-empty-face ((t (:foreground ,dotshare-green+1)))) (gnus-group-news-4-empty-face ((t (:foreground ,dotshare-blue-2)))) (gnus-group-news-5-empty-face ((t (:foreground ,dotshare-blue-3)))) (gnus-group-news-6-empty-face ((t (:foreground ,dotshare-bg+2)))) (gnus-group-news-low-empty-face ((t (:foreground ,dotshare-bg+2)))) (gnus-signature-face ((t (:foreground ,dotshare-yellow)))) (gnus-x-face ((t (:background ,dotshare-fg :foreground ,dotshare-bg)))) ;; hl-line-mode (hl-line-face ((t (:background ,dotshare-bg-1)))) ;; ido-mode (ido-first-match ((t (:inherit dotshare-strong-1-face)))) (ido-only-match ((t (:inherit dotshare-strong-2-face)))) (ido-subdir ((t (:foreground ,dotshare-yellow)))) ;; magit (magit-section-title ((t (:inherit dotshare-strong-1-face)))) (magit-branch ((t (:inherit dotshare-strong-2-face)))) ;; message-mode (message-cited-text-face ((t (:inherit font-lock-comment)))) (message-header-name-face ((t (:foreground ,dotshare-green+1)))) (message-header-other-face ((t (:foreground ,dotshare-green)))) (message-header-to-face ((t (:inherit dotshare-strong-1-face)))) (message-header-from-face ((t (:inherit dotshare-strong-1-face)))) (message-header-cc-face ((t (:inherit dotshare-strong-1-face)))) (message-header-newsgroups-face ((t (:inherit dotshare-strong-1-face)))) (message-header-subject-face ((t (:inherit dotshare-strong-2-face)))) (message-header-xheader-face ((t (:foreground ,dotshare-green)))) (message-mml-face ((t (:inherit dotshare-strong-1-face)))) (message-separator-face ((t (:inherit font-lock-comment)))) ;; mew (mew-face-header-subject ((t (:foreground ,dotshare-orange)))) (mew-face-header-from ((t (:foreground ,dotshare-yellow)))) (mew-face-header-date ((t (:foreground ,dotshare-green)))) (mew-face-header-to ((t (:foreground ,dotshare-red)))) (mew-face-header-key ((t (:foreground ,dotshare-green)))) (mew-face-header-private ((t (:foreground ,dotshare-green)))) (mew-face-header-important ((t (:foreground ,dotshare-blue)))) (mew-face-header-marginal ((t (:foreground ,dotshare-fg :weight bold)))) (mew-face-header-warning ((t (:foreground ,dotshare-red)))) (mew-face-header-xmew ((t (:foreground ,dotshare-green)))) (mew-face-header-xmew-bad ((t (:foreground ,dotshare-red)))) (mew-face-body-url ((t (:foreground ,dotshare-orange)))) (mew-face-body-comment ((t (:foreground ,dotshare-fg :slant italic)))) (mew-face-body-cite1 ((t (:foreground ,dotshare-green)))) (mew-face-body-cite2 ((t (:foreground ,dotshare-blue)))) (mew-face-body-cite3 ((t (:foreground ,dotshare-orange)))) (mew-face-body-cite4 ((t (:foreground ,dotshare-yellow)))) (mew-face-body-cite5 ((t (:foreground ,dotshare-red)))) (mew-face-mark-review ((t (:foreground ,dotshare-blue)))) (mew-face-mark-escape ((t (:foreground ,dotshare-green)))) (mew-face-mark-delete ((t (:foreground ,dotshare-red)))) (mew-face-mark-unlink ((t (:foreground ,dotshare-yellow)))) (mew-face-mark-refile ((t (:foreground ,dotshare-green)))) (mew-face-mark-unread ((t (:foreground ,dotshare-red-2)))) (mew-face-eof-message ((t (:foreground ,dotshare-green)))) (mew-face-eof-part ((t (:foreground ,dotshare-yellow)))) ;; nav (nav-face-heading ((t (:foreground ,dotshare-yellow)))) (nav-face-button-num ((t (:foreground ,dotshare-cyan)))) (nav-face-dir ((t (:foreground ,dotshare-green)))) (nav-face-hdir ((t (:foreground ,dotshare-red)))) (nav-face-file ((t (:foreground ,dotshare-fg)))) (nav-face-hfile ((t (:foreground ,dotshare-red-3)))) ;; org-mode (org-agenda-date-today ((t (:foreground "white" :slant italic :weight bold))) t) (org-agenda-structure ((t (:inherit font-lock-comment-face)))) (org-archived ((t (:foreground ,dotshare-fg :weight bold)))) (org-checkbox ((t (:background ,dotshare-bg+2 :foreground "white" :box (:line-width 1 :style released-button))))) (org-date ((t (:foreground ,dotshare-blue :underline t)))) (org-deadline-announce ((t (:foreground ,dotshare-red-1)))) (org-done ((t (:bold t :weight bold :foreground ,dotshare-green+3)))) (org-formula ((t (:foreground ,dotshare-yellow-2)))) (org-headline-done ((t (:foreground ,dotshare-green+3)))) (org-hide ((t (:foreground ,dotshare-bg-1)))) (org-level-1 ((t (:foreground ,dotshare-orange)))) (org-level-2 ((t (:foreground ,dotshare-green+1)))) (org-level-3 ((t (:foreground ,dotshare-blue-1)))) (org-level-4 ((t (:foreground ,dotshare-yellow-2)))) (org-level-5 ((t (:foreground ,dotshare-cyan)))) (org-level-6 ((t (:foreground ,dotshare-green-1)))) (org-level-7 ((t (:foreground ,dotshare-red-3)))) (org-level-8 ((t (:foreground ,dotshare-blue-4)))) (org-link ((t (:foreground ,dotshare-yellow-2 :underline t)))) (org-scheduled ((t (:foreground ,dotshare-green+4)))) (org-scheduled-previously ((t (:foreground ,dotshare-red-3)))) (org-scheduled-today ((t (:foreground ,dotshare-blue+1)))) (org-special-keyword ((t (:foreground ,dotshare-yellow-1)))) (org-table ((t (:foreground ,dotshare-green+2)))) (org-tag ((t (:bold t :weight bold)))) (org-time-grid ((t (:foreground ,dotshare-orange)))) (org-todo ((t (:bold t :foreground ,dotshare-red :weight bold)))) (org-upcoming-deadline ((t (:inherit font-lock-keyword-face)))) (org-warning ((t (:bold t :foreground ,dotshare-red :weight bold)))) ;; outline (outline-8 ((t (:inherit default)))) (outline-7 ((t (:inherit outline-8 :height 1.0)))) (outline-6 ((t (:inherit outline-7 :height 1.0)))) (outline-5 ((t (:inherit outline-6 :height 1.0)))) (outline-4 ((t (:inherit outline-5 :height 1.0)))) (outline-3 ((t (:inherit outline-4 :height 1.0)))) (outline-2 ((t (:inherit outline-3 :height 1.0)))) (outline-1 ((t (:inherit outline-2 :height 1.0)))) ;; rainbow-delimiters (rainbow-delimiters-depth-1-face ((t (:foreground ,dotshare-cyan)))) (rainbow-delimiters-depth-2-face ((t (:foreground ,dotshare-yellow)))) (rainbow-delimiters-depth-3-face ((t (:foreground ,dotshare-blue+1)))) (rainbow-delimiters-depth-4-face ((t (:foreground ,dotshare-red+1)))) (rainbow-delimiters-depth-5-face ((t (:foreground ,dotshare-orange)))) (rainbow-delimiters-depth-6-face ((t (:foreground ,dotshare-blue-1)))) (rainbow-delimiters-depth-7-face ((t (:foreground ,dotshare-green+4)))) (rainbow-delimiters-depth-8-face ((t (:foreground ,dotshare-red-3)))) (rainbow-delimiters-depth-9-face ((t (:foreground ,dotshare-yellow-2)))) (rainbow-delimiters-depth-10-face ((t (:foreground ,dotshare-green+2)))) (rainbow-delimiters-depth-11-face ((t (:foreground ,dotshare-blue+1)))) (rainbow-delimiters-depth-12-face ((t (:foreground ,dotshare-red-3)))) ;; rpm-mode (rpm-spec-dir-face ((t (:foreground ,dotshare-green)))) (rpm-spec-doc-face ((t (:foreground ,dotshare-green)))) (rpm-spec-ghost-face ((t (:foreground ,dotshare-red)))) (rpm-spec-macro-face ((t (:foreground ,dotshare-yellow)))) (rpm-spec-obsolete-tag-face ((t (:foreground ,dotshare-red)))) (rpm-spec-package-face ((t (:foreground ,dotshare-red)))) (rpm-spec-section-face ((t (:foreground ,dotshare-yellow)))) (rpm-spec-tag-face ((t (:foreground ,dotshare-blue)))) (rpm-spec-var-face ((t (:foreground ,dotshare-red)))) ;; show-paren (show-paren-mismatch ((t (:foreground ,dotshare-red-3 :weight bold)))) (show-paren-match ((t (:foreground ,dotshare-blue-1 :weight bold)))) ;; wanderlust (wl-highlight-folder-few-face ((t (:foreground ,dotshare-red-2)))) (wl-highlight-folder-many-face ((t (:foreground ,dotshare-red-1)))) (wl-highlight-folder-path-face ((t (:foreground ,dotshare-orange)))) (wl-highlight-folder-unread-face ((t (:foreground ,dotshare-blue)))) (wl-highlight-folder-zero-face ((t (:foreground ,dotshare-fg)))) (wl-highlight-folder-unknown-face ((t (:foreground ,dotshare-blue)))) (wl-highlight-message-citation-header ((t (:foreground ,dotshare-red-1)))) (wl-highlight-message-cited-text-1 ((t (:foreground ,dotshare-red)))) (wl-highlight-message-cited-text-2 ((t (:foreground ,dotshare-green+2)))) (wl-highlight-message-cited-text-3 ((t (:foreground ,dotshare-blue)))) (wl-highlight-message-cited-text-4 ((t (:foreground ,dotshare-blue+1)))) (wl-highlight-message-header-contents-face ((t (:foreground ,dotshare-green)))) (wl-highlight-message-headers-face ((t (:foreground ,dotshare-red+1)))) (wl-highlight-message-important-header-contents ((t (:foreground ,dotshare-green+2)))) (wl-highlight-message-header-contents ((t (:foreground ,dotshare-green+1)))) (wl-highlight-message-important-header-contents2 ((t (:foreground ,dotshare-green+2)))) (wl-highlight-message-signature ((t (:foreground ,dotshare-green)))) (wl-highlight-message-unimportant-header-contents ((t (:foreground ,dotshare-fg)))) (wl-highlight-summary-answered-face ((t (:foreground ,dotshare-blue)))) (wl-highlight-summary-disposed-face ((t (:foreground ,dotshare-fg :slant italic)))) (wl-highlight-summary-new-face ((t (:foreground ,dotshare-blue)))) (wl-highlight-summary-normal-face ((t (:foreground ,dotshare-fg)))) (wl-highlight-summary-thread-top-face ((t (:foreground ,dotshare-yellow)))) (wl-highlight-thread-indent-face ((t (:foreground ,dotshare-magenta)))) (wl-highlight-summary-refiled-face ((t (:foreground ,dotshare-fg)))) (wl-highlight-summary-displaying-face ((t (:underline t :weight bold))))))) (add-to-list 'color-themes '(color-theme-dotshare "dotshare" "Christian Brassat ")) (provide 'color-theme-dotshare) ;;; color-theme-dotshare.el ends here.