emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Re: org-mode color schemes with white or light background and


From: Sébastien Vauban
Subject: [Orgmode] Re: org-mode color schemes with white or light background and black foregroung
Date: Tue, 04 May 2010 22:46:31 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux)

Hi Daniel,

Daniel Martins wrote:
> Some time ago Carsten sent a file with with his colours patterns with black
> background.
>
> I would like to know if someone has a similar pattern when using black
> foregroung and a lighter backgroung (not necessarily white).
>
> Could you share it with us?

Sure. Here is mine.

--8<---------------cut here---------------start------------->8---
;;; color-theme-sva.el --- my color theme

;; Copyright (C) 2003-2010 Sebastien Vauban
;; Time-stamp: <2010-05-04 Tue 10:40 sva on mundaneum>

;; Author: Sebastien Vauban
;; Keywords: emacs, color theme, config

;; $Revision: 3731 $
;; $Date: 2010-04-28 14:28:34 +0200 (Wed, 28 Apr 2010) $

;; 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 2 of
;; the License, 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 this file; if not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
;; MA 02111-1307, USA.

;;; Code:

(require 'color-theme)

(defun color-theme-sva ()
  "Color theme by Sebastien Vauban."
  (interactive)
  (color-theme-install
   '(color-theme-sva
     ;; frame parameters
     ((background-color . "white")
      (background-mode . light)
      (border-color . "black")
      (cursor-color . "rgb:15/FF/00")
      (foreground-color . "black")
      (mouse-color . "black"))

     ;; faces
     (default ((t (nil))))
     (bold ((t (:weight bold))))
     (bold-italic ((t (:italic t :slant italic :weight bold))))
     (italic ((t (:italic t :slant italic))))
     (underline ((t (:underline t))))

     (highlight ((t (:background "rgb:FF/FF/A0"))))  ;; yellow
     ;; used by hlt package of Drew Adams

     (recover-this-file ((t (:background "red"))))

     ;; non-breaking space
     (nobreak-space ((t (:background "rgb:C6/C3/C6" :foreground "green"))))

     ;; bbdb
     (bbdb-company ((t (:foreground "steel blue" :italic t))))
     (bbdb-field-name ((t (:foreground "steel blue" :weight bold))))
     (bbdb-field-value ((t (:foreground "steel blue"))))
     (bbdb-name ((t (:foreground "rgb:FF/66/33" :underline t))))

     ;; browse-kill-ring
     (browse-kill-ring-separator-face ((t (:foreground "slate gray" :weight 
bold))))

     ;; calendar
     (calendar-today-face ((t (:weight bold :background "yellow"))))
     (diary-face ((t (:foreground "dark cyan"))))
     (holiday-face ((t (:foreground "red"))))

     ;; column-marker
     (column-marker-1-face ((t (:background "DarkSeaGreen1"))))
     (column-marker-2-face ((t (:background "LemonChiffon"))))
     (column-marker-3-face ((t (:background "MistyRose"))))

     (comint-highlight-input ((t (:weight bold))))
     (comint-highlight-prompt ((t (:foreground "blue"))))

     ;; custom
     (custom-saved-face ((t (:underline t))))
     (custom-state-face ((t (:foreground "green4"))))
     (custom-button-pressed-face ((t (:background "lightgray"
                                      :foreground "black"
                                      :box (:line-width 2
                                            :style pressed-button)))))
     (custom-modified-face ((t (:background "blue" :foreground "white"))))
     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
     (custom-set-face ((t (:background "white" :foreground "blue"))))
     (custom-changed-face ((t (:background "blue" :foreground "white"))))
     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
     (custom-face-tag-face ((t (:underline t))))
     (custom-variable-button-face ((t (:underline t :weight bold))))

     ;; cvs
     (cvs-filename-face ((t (:foreground "blue4"))))
     (cvs-handled-face ((t (:foreground "pink"))))
     (cvs-header-face ((t (:foreground "blue4" :weight bold))))
     (cvs-marked-face ((t (:foreground "green3" :weight bold))))
     (cvs-msg-face ((t (:italic t :foreground "gray55"))))
     (cvs-need-action-face ((t (:foreground "orange"))))
     (cvs-unknown-face ((t (:foreground "red"))))

     ;; subversion
     (svn-status-marked-face ((t (:foreground "green3" :weight bold))))
     (svn-status-marked-popup-face ((t (:foreground "green3" :weight bold))))
     (svn-status-update-available-face ((t (:foreground "orange"))))
     (svn-status-directory-face ((t (:background "rgb:FF/F5/8F"
                                     :foreground "blue" :weight bold))))
     (svn-status-filename-face ((t (:foreground "magenta3"))))
     (svn-status-symlink-face  ((t (:foreground "cyan"))))
     (svn-status-locked-face ((t (:foreground "red" :weight bold))))
     (svn-status-switched-face ((t (:italic t :foreground "gray55"))))

     ;; diff
     (diff-added ((t (:background "rgb:DD/FF/DD" :foreground "DarkGreen"))))
     (diff-hunk-header ((t (:background "rgb:EA/F2/F5" :foreground 
"rgb:99/99/99"))))
     (diff-index ((t (:background "rgb:EA/F2/F5" :foreground "rgb:99/99/99"))))
     (diff-indicator-added ((t (:background "rgb:AA/FF/AA"))))
     (diff-indicator-removed ((t (:background "rgb:FF/AA/AA"))))
     (diff-removed ((t (:background "rgb:FF/DD/DD" :foreground "DarkMagenta"))))

     ;; dircolors
     (dircolors-face-asm ((t (:foreground "blue3"))))
     (dircolors-face-backup ((t (:foreground "blue3"))))
     (dircolors-face-compress ((t (:foreground "red"))))
     (dircolors-face-dir ((t (:foreground "blue" :weight bold))))
     (dircolors-face-doc ((t (:foreground "gold"))))
     (dircolors-face-dos ((t (:foreground "green3"))))
     (dircolors-face-emacs ((t (:foreground "turquoise3"))))
     (dircolors-face-html ((t (:foreground "gold"))))
     (dircolors-face-img ((t (:foreground "magenta3"))))
     (dircolors-face-lang ((t (:foreground "turquoise3"))))
     (dircolors-face-lang-interface ((t (:foreground "turquoise3"))))
     (dircolors-face-make ((t (:foreground "green3"))))
     (dircolors-face-objet ((t (:foreground "blue3"))))
     (dircolors-face-package ((t (:foreground "red"))))
     (dircolors-face-paddb ((t (:foreground "blue3"))))
     (dircolors-face-ps ((t (:foreground "gold"))))
     (dircolors-face-sound ((t (:foreground "magenta3"))))
     (dircolors-face-tar ((t (:foreground "red"))))
     (dircolors-face-yacc ((t (:foreground "turquoise3"))))

     ;; dired
     (dired-face-boring ((t (:foreground "Gray65"))))
     (dired-face-directory ((t (:weight bold))))
     (dired-face-executable ((t (:foreground "SeaGreen"))))
     (dired-face-flagged ((t (:background "LightSlateGray"))))
     (dired-face-header ((t (:background "gray75" :foreground "black"))))
     (dired-face-marked ((t (:background "PaleVioletRed"))))
     (dired-face-permissions ((t (:background "gray75" :foreground "black"))))
     (dired-face-setuid ((t (:foreground "Red"))))
     (dired-face-socket ((t (:foreground "magenta"))))
     (dired-face-symlink ((t (:foreground "cyan"))))

     ;; dired+
     (diredp-date-time ((t (:foreground "rgb:33/64/4E"))))
     (diredp-dir-heading ((t (:background "rgb:FF/F5/8F" :foreground "blue"
                                          :weight bold))))
     (diredp-dir-priv ((t (:background "rgb:FF/F5/8F" :foreground "blue"
                                       :weight bold))))
     (diredp-file-name ((t (:foreground "black"))))
     (diredp-file-suffix ((t (:foreground "rgb:7B/46/8E"))))
     (diredp-flag-mark-line ((t (:foreground "red" :weight bold))))

     ;; emacs wiki
     (emacs-wiki-bad-link-face ((t (:foreground "red" :weight bold))))
     (emacs-wiki-header-1 ((t (:weight bold :height 1.4))))
     (emacs-wiki-header-2 ((t (:weight bold :height 1.3))))
     (emacs-wiki-header-3 ((t (:height 1.2))))
     (emacs-wiki-header-4 ((t (:height 1.1))))
     (emacs-wiki-header-5 ((t (:height 1.0))))
     (emacs-wiki-header-6 ((t (:height 0.9))))
     (emacs-wiki-link-face ((t (:foreground "blue" :underline t))))

     ;; flypell
     (flyspell-duplicate-face ((t (:foreground "Gold3" :underline t
                                   :weight bold))))
     (flyspell-incorrect-face ((t (:foreground "red" :underline t
                                   :weight bold))))

     ;; TeX
     (tex-verbatim ((t (:foreground "tan1"))))

     ;; LaTeX
     (font-latex-bold-face ((t (:foreground "medium sea green" :weight bold))))
     (font-latex-math-face ((t (:foreground "black"))))
     (font-latex-sedate-face ((t (:foreground "gray45"))))
     (font-latex-verbatim-face ((t (:foreground "tan1"))))
     (font-latex-sectioning-1-face ((t (:foreground "cornflower blue" :weight 
bold :height 2.7 :family "Arial"))))
     (font-latex-sectioning-2-face ((t (:foreground "cornflower blue" :weight 
bold :height 1.8 :family "Arial"))))
     (font-latex-sectioning-3-face ((t (:foreground "LimeGreen" :weight bold 
:height 1.6 :family "Arial"))))
     (font-latex-sectioning-4-face ((t (:foreground "orange" :weight bold 
:height 1.3 :family "Arial"))))
     (font-latex-sectioning-5-face ((t (:foreground "IndianRed1"))))

     ;;
     (font-lock-comment-face ((t (:foreground "red"))))
     (font-lock-constant-face ((t (:foreground "dark cyan"))))
  ;; (font-lock-doc-string-face ((t (:foreground "yellow"))))
     (font-lock-function-name-face ((t (:foreground "blue"))))
     (font-lock-keyword-face ((t (:foreground "purple1"))))
  ;; (font-lock-preprocessor-face ((t (:foreground "yellow"))))
     (font-lock-reference-face ((t (:foreground "dark cyan"))))
     (font-lock-string-face ((t (:foreground "green4"))))
     (font-lock-type-face ((t (:foreground "forest green"))))
     (font-lock-variable-name-face ((t (:foreground "magenta"))))
     (font-lock-warning-face ((t (:weight bold :foreground "red"))))

     (pesche-space ((t (:background "LemonChiffon"))))
     (pesche-tab ((t (:background "Gold"))))

     (fringe ((t (:foreground "rgb:AF/B7/BA" :background "rgb:DD/EE/FF"))))
     (linum ((t (:foreground "rgb:AF/B7/BA" :background "rgb:DD/EE/FF"))))

     (gnus-splash-face ((t (:foreground "gold"))))

     ;; Gnus group buffer
     (gnus-group-mail-1-empty-face ((t (:foreground "rgb:50/50/B0"))))
     (gnus-group-mail-1-face ((t (:foreground "rgb:FF/50/B0" :weight bold))))
     (gnus-group-mail-2-empty-face ((t (:foreground "rgb:66/00/66"))))
     (gnus-group-mail-2-face ((t (:foreground "rgb:FF/00/66" :weight bold))))
     (gnus-group-mail-3-empty-face ((t (:foreground "rgb:00/77/77"))))
     (gnus-group-mail-3-face ((t (:foreground "rgb:FF/77/77" :weight bold))))

     (gnus-group-news-1-empty-face ((t (:foreground "rgb:50/50/B0"))))
     (gnus-group-news-1-face ((t (:foreground "rgb:FF/50/B0" :weight bold))))
     (gnus-group-news-2-empty-face ((t (:foreground "rgb:66/00/66"))))
     (gnus-group-news-2-face ((t (:foreground "rgb:FF/00/66" :weight bold))))
     (gnus-group-news-3-empty-face ((t (:foreground "rgb:00/77/77"))))
     (gnus-group-news-3-face ((t (:foreground "rgb:FF/77/77" :weight bold))))
     (gnus-group-news-4-empty-face ((t (:foreground "rgb:99/00/00"))))
     (gnus-group-news-4-face ((t (:foreground "rgb:FF/00/00" :weight bold))))
     (gnus-group-news-5-empty-face ((t (:foreground "rgb:00/00/99"))))
     (gnus-group-news-5-face ((t (:foreground "rgb:FF/00/99" :weight bold))))
     (gnus-group-news-6-empty-face ((t (:foreground "rgb:BB/66/00"))))
     (gnus-group-news-6-face ((t (:foreground "rgb:FF/66/00" :weight bold))))

     ;; Gnus summary buffer
     (hl-line ((t (:background "rgb:D4/EA/FF"))))  ;; light blue
     (gnus-summary-selected-face ((t (:foreground "rgb:FF/66/33" :weight 
bold))))
     (gnus-summary-high-unread-face ((t (:foreground "blue" :weight bold))))
     (gnus-summary-high-read-face ((t (:foreground "rgb:80/00/80" :weight 
bold))))
     (gnus-summary-high-ticked-face ((t (:foreground "hot pink" :weight bold))))
     (gnus-summary-high-ancient-face ((t (:foreground "rgb:77/77/99" :weight 
bold))))
     (gnus-summary-normal-unread-face ((t (:foreground "blue"))))
     (gnus-summary-normal-read-face ((t (:foreground "rgb:80/00/80"))))
     (gnus-summary-normal-ticked-face ((t (:foreground "hot pink"))))
     (gnus-summary-normal-ancient-face ((t (:foreground "rgb:77/77/99"))))
     (gnus-summary-low-unread-face ((t (:low t :foreground "blue" :italic t))))
     (gnus-summary-low-read-face ((t (:low t :foreground "rgb:80/00/80" :italic 
t))))
     (gnus-summary-low-ticked-face ((t (:low t :foreground "hot pink" :italic 
t))))
     (gnus-summary-low-ancient-face ((t (:low t :foreground "rgb:77/77/99" 
:italic t))))
     (gnus-summary-cancelled-face ((t (:italic t :foreground "gray55" 
:strike-through t))))

     ;; Gnus article buffer
     (gnus-header-name-face ((t (:foreground "rgb:33/99/CC" :weight bold 
:family "Arial"))))
     (gnus-header-from-face ((t (:foreground "blue" :family "Arial"))))
     (gnus-header-subject-face ((t (:foreground "rgb:FF/66/33" :weight bold))))
     (gnus-header-newsgroups-face ((t (:foreground "rgb:33/99/CC" :family 
"Arial"))))
     (gnus-header-content-face ((t (:foreground "rgb:33/99/CC" :family 
"Arial"))))
     (gnus-cite-attribution-face ((t (:foreground "rgb:50/50/B0"))))
     (gnus-cite-face-1 ((t (:foreground "rgb:50/50/B0"))))
     (gnus-cite-face-2 ((t (:foreground "rgb:66/00/66"))))
     (gnus-cite-face-3 ((t (:foreground "rgb:00/77/77"))))
     (gnus-cite-face-4 ((t (:foreground "rgb:99/00/00"))))
     (gnus-cite-face-5 ((t (:foreground "rgb:00/00/99"))))
     (gnus-cite-face-6 ((t (:foreground "rgb:BB/66/00"))))
     (gnus-cite-face-7 ((t (:foreground "rgb:50/50/B0"))))
     (gnus-cite-face-8 ((t (:foreground "rgb:66/00/66"))))
     (gnus-cite-face-9 ((t (:foreground "rgb:00/77/77"))))
     (gnus-cite-face-10 ((t (:foreground "rgb:99/00/00"))))
     (gnus-signature-face ((t (:foreground "rgb:7F/7F/7F"))))
     (gnus-emphasis-bold ((t (:weight bold))))

     (widget-button-face ((t (:weight bold))))
     (widget-button-pressed-face ((t (:foreground "red"))))
     (widget-documentation-face ((t (:foreground "green4"))))
     (widget-field-face ((t (:background "gray85"))))
     (widget-inactive-face ((t (:foreground "dim gray"))))
     (widget-single-line-field-face ((t (:background "gray85"))))
;;     (widget-mouse-face . highlight)

     ;; when replying
     (message-header-name-face ((t (:foreground "rgb:33/99/CC" :weight bold
                                    :family "Arial"))))
     (message-header-to-face ((t (:foreground "blue" :family "Arial"))))
     (message-header-cc-face ((t (:foreground "blue" :family "Arial"))))
     (message-header-subject-face ((t (:foreground "rgb:FF/66/33" :weight 
bold))))
     (message-header-newsgroups-face ((t (:foreground "rgb:33/99/CC"
                                          :family "Arial"))))
     (message-header-xheader-face ((t (:foreground "red"))))
     (message-header-other-face ((t (:foreground "rgb:33/99/CC"
                                     :family "Arial"))))
     (message-separator-face ((t (:foreground "red" :weight bold :family 
"Arial"))))
     (message-cited-text-face ((t (:foreground "rgb:50/50/B0"))))
     (message-mml-face ((t (:foreground "forest green"))))

     ;; Gnus/Message
     (gnus-emphasis-highlight-words ((t (:background "black"
                                         :foreground "yellow"))))
     (gnus-picon-face ((t (:background "white" :foreground "yellow"))))
     (gnus-picon-xbm-face ((t (:background "white" :foreground "yellow"))))
     (gnus-x-face ((t (:background "white" :foreground "black"))))

     (html-helper-bold-face ((t (:foreground "black" :weight bold))))
     (html-helper-italic-face ((t (:foreground "black" :slant italic))))
     (html-helper-underline-face ((t (:foreground "black" :underline t))))
     (html-tag-face ((t (:foreground "blue"))))

     (nxml-attribute-local-name-face ((t (:foreground "magenta"))))
     (nxml-attribute-value-delimiter-face ((t (:foreground "green4"))))
     (nxml-attribute-value-face ((t (:foreground "green4"))))
     (nxml-comment-content-face  ((t (:foreground "red" :slant italic))))
     (nxml-comment-delimiter-face ((t (:foreground "red"))))
     (nxml-element-local-name-face ((t (:foreground "blue"))))
     (nxml-processing-instruction-delimiter-face ((t (:foreground "purple1"))))
     (nxml-processing-instruction-target-face ((t (:foreground "purple1"))))
     (nxml-tag-delimiter-face ((t (:foreground "blue"))))
     (nxml-tag-slash-face ((t (:foreground "blue"))))

     (anything-header ((t (:family "Sans Serif" :foreground "white" :weight 
bold :height 1.3 :background "rgb:66/66/99"))))

     ;; Info
     (info-header-node ((t (:foreground "orange" :underline t)))) ; nodes in 
header
     (info-header-xref ((t (:foreground "dodger blue" :underline t)))) ; cross 
references in header
     (info-menu-header ((t (:foreground "red" :underline t)))) ; menu titles 
(headers) -- major topics
     (info-menu-star ((t (:foreground "black")))) ; every 3rd menu item
     (info-node ((t (:foreground "blue" :underline t)))) ; node names
     (info-xref ((t (:foreground "blue" :weight bold :underline t)))) ; 
unvisited cross-references
     (info-xref-visited ((t (:foreground "magenta4" :weight bold)))) ; 
previously visited cross-references

     ;; info+
     (info-quoted-name ((t (:foreground "dark cyan")))) ; quoted names (`...')
     (info-string ((t (:foreground "green4")))) ; strings ("...")
;;;  (info-menu ()) ; menu items
;;;  (info-file ()) ; file heading labels

;;;      And for reference items in the Elisp manual,
;;;      you can customize these faces:
;;;          info-elisp-user-option-ref-item  - label `User Option'
;;;          info-elisp-variable-ref-item     - label `Variable'
;;;          info-elisp-command-ref-item      - label `Command'
;;;          info-elisp-function-ref-item     - label `Function'
;;;          info-elisp-macro-ref-item        - label `Macro'
;;;          info-elisp-special-form-ref-item - label `Special Form'
;;;          info-elisp-syntax-class-item     - label `Syntax Class'
;;;          info-elisp-reference-item        - other reference labels

     ;; highlighting matches
     (match ((t (:background "yellow" :foreground "rgb:EE/66/00" :weight 
bold))))
     (isearch ((t (:background "yellow" :foreground "rgb:EE/66/00" :weight 
bold))))
     (isearch-lazy-highlight-face ((t (:background "rgb:CC/FF/FF"
                                       :foreground "blue"
                                       :weight bold)))) ;; for GNU Emacs
     (isearch-secondary ((t (:background "rgb:CC/FF/FF"
                             :foreground "blue"
                             :weight bold)))) ;; for XEmacs

     ;; make
     (makefile-space-face ((t (:background "hotpink"))))

     ;; GNU Emacs mode-line
     (mode-line ((t (:background "rgb:00/97/CB" :foreground "rgb:FF/C7/7F"
                     :box (:line-width 1 :color "rgb:9E/AB/B6")
                     :weight normal))))
     (mode-line-inactive ((t (:background "rgb:00/63/82" :foreground 
"rgb:61/7A/82"
                             :box (:line-width 1 :color "rgb:9E/AB/B6")
                             :weight normal))))
     (mode-line-highlight ((t (:foreground "yellow"))))
     (mode-line-buffer-id ((t (:foreground "white"))))

     ;; XEmacs modeline
     (modeline-mousable ((t (:foreground "firebrick"))))  ; major-mode string
     (modeline-mousable-minor-mode ((t (:foreground "green4"))))

     ;; Muse
     (muse-verbatim ((t (:foreground "tan1"))))
     (muse-header-1 ((t (:foreground "red"))))  ; blue4

     (muse-header-2 ((t (:inherit variable-pitch :foreground "LightBlue2" 
:weight bold :height 1.3))))
     (muse-header-3 ((t (:inherit variable-pitch :foreground "LightSkyBlue2" 
:height 1.2))))
     (muse-header-4 ((t (:inherit variable-pitch :foreground "LightSkyBlue3" 
:slant italic :height 1.1))))
     (muse-header-5 ((t (:inherit variable-pitch :foreground "LightSkyBlue3" 
:height 1.0))))

     ;; org
     (org-agenda-date ((t (:background "LightSkyBlue"))))
     (org-agenda-date-today ((t (:background "yellow" :slant normal :weight 
bold))))
     (org-agenda-date-weekend ((t (:foreground "white" :background "blue4" 
:weight bold))))
     (org-code ((t (:foreground "blue"))))

     (org-column ((t (:background "gold" :height 80 :family "Consolas"))))
     (org-agenda-column-dateline ((t (:background "deep sky blue" :height 80 
:family "Consolas"))))

     (org-done ((t (:foreground "green3" :weight bold :strike-through t))))
     (org-latex-and-export-specials ((t (:foreground "tan1"))))
     (org-level-1 ((t (:foreground "cornflower blue" :weight bold :height 1.8 
:family "Arial"))))
     (org-level-2 ((t (:foreground "LimeGreen" :weight bold :height 1.6 :family 
"Arial"))))
     (org-level-3 ((t (:foreground "orange" :weight bold :height 1.3 :family 
"Arial"))))
     (org-level-4 ((t (:foreground "IndianRed1"))))
     (org-level-5 ((t (:foreground "cornflower blue"))))
     (org-level-6 ((t (:foreground "LimeGreen"))))
     (org-level-7 ((t (:foreground "orange"))))
     (org-level-8 ((t (:foreground "IndianRed1"))))
     (org-headline-done ((t (:foreground "rgb:AA/AA/AA" :weight bold :height 
1.3 :family "Arial" :strike-through t))))
     (org-agenda-diary ((t (:foreground "DarkGreen" :background "lightblue" 
:weight bold))))
     (org-scheduled ((t (:foreground "blue" :weight bold))))
     (org-scheduled-today ((t (:foreground "DarkGreen" :weight bold))))
     (org-scheduled-previously ((t (:foreground "red" :weight bold))))
     (org-upcoming-deadline ((t (:foreground "white" :background "rgb:E9/A3/6A" 
:weight bold))))
     (org-warning ((t (:foreground "white" :background "rgb:D8/00/00" :weight 
bold))))

     (sva-org-deadline-yesterday ((t (:foreground "white" :background 
"rgb:D8/00/00" :weight bold))))
     (sva-org-deadline-today ((t (:foreground "white" :background 
"rgb:E9/A3/6A" :weight bold))))
     (sva-org-deadline-tomorrow ((t (:foreground "black" :background "#B4F1B3" 
:weight bold))))
     (sva-org-deadline-later ((t (:foreground "black" :background "#AACAFC"))))

     (org-special-keyword ((t (:foreground "red"))))
     (org-tag ((t (:foreground "rgb:81/6A/7D" :background "rgb:F7/B8/DE" 
:italic t))))
     (org-time-grid ((t (:foreground "gray60"))))
     (org-mode-line-clock ((t (:background "rgb:FF/90/00" :foreground 
"white")))) ; orange
     (org-mode-line-clock-overrun ((t (:background "red" :foreground "white"))))

     (org-dim ((t (:foreground "rgb:AA/AA/AA"))))
     (org-document-title ((t (:foreground "blue" :weight bold))))
     (org-document-info-keyword ((t (:foreground "rgb:AA/AA/AA"))))
     (org-document-info ((t (:foreground "blue4"))))

     ;; non-standard faces
     (sva-org-todo-kwd-face ((t (:foreground "gold" :background "tomato" 
:weight bold))))
     (sva-org-someday-kwd-face ((t (:foreground "gold" :background "tomato" 
:weight bold))))
     (sva-org-started-kwd-face ((t (:foreground "cyan" :background "steelblue" 
:weight bold))))
     (sva-org-waiting-kwd-face ((t (:foreground "gold" :background "magenta2" 
:weight bold))))
     (sva-org-delegated-kwd-face ((t (:foreground "gold" :background "magenta2" 
:weight bold))))
     (sva-org-deferred-kwd-face ((t (:foreground "gold" :background "magenta2" 
:weight bold))))
     (sva-org-done-kwd-face ((t (:foreground "rgb:AA/AA/AA" :background "black" 
:weight bold))))
     (sva-org-canceled-kwd-face ((t (:foreground "rgb:AA/AA/AA" :background 
"black" :weight bold))))

     (sva-org-quote-kwd-face ((t (:foreground "yellow" :background "red" 
:weight bold))))
     (sva-org-quoted-kwd-face ((t (:foreground "yellow" :background "red" 
:weight bold))))
     (sva-org-approved-kwd-face ((t (:foreground "gray50" :background "gray30" 
:weight bold))))
     (sva-org-expired-kwd-face ((t (:foreground "gray50" :background "gray30" 
:weight bold))))
     (sva-org-rejected-kwd-face ((t (:foreground "gray50" :background "gray30" 
:weight bold))))

     (sva-org-openpo-kwd-face ((t (:foreground "cyan" :background "steelblue" 
:weight bold))))
     (sva-org-closedpo-kwd-face ((t (:foreground "gray50" :background "gray30" 
:weight bold))))

     ;; pretty print ^L
     (pp^L-highlight ((t (:inherit shadow :strike-through t))))

     ;; selection
     (region ((t (:background "seashell2")))) ;; for GNU Emacs
     (zmacs-region ((t (:background "seashell2")))) ;; for XEmacs
     (secondary-selection ((t (:background "paleturquoise"))))

     ;; for `cat <<EOF' in shell scripts
     (sh-heredoc ((t (:foreground "tan1"))))

     ;; parentheses
     (paren-face-match ((t (:background "chartreuse"))))
     (paren-face-mismatch ((t (:background "purple" :foreground "white"
                               :weight bold))))
     (paren-face-no-match ((t (:background "purple" :foreground "white"
                               :weight bold))))
     (show-paren-match-face ((t (:background "chartreuse"))))
     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"
                                    :weight bold))))

     ;; shell
     (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
     (shell-option-face ((t (:foreground "forest green"))))
     (shell-output-face ((t (:foreground "black"))))
     (shell-output-2-face ((t (:foreground "blue"))))
     (shell-output-3-face ((t (:foreground "purple"))))

     ;; speedbar
     (speedbar-button-face ((t (:foreground "green4"))))
     (speedbar-directory-face ((t (:foreground "blue4"))))
     (speedbar-file-face ((t (:foreground "cyan4"))))
     (speedbar-highlight-face ((t (:background "green"))))
     (speedbar-selected-face ((t (:underline t :foreground "red"))))
     (speedbar-tag-face ((t (:foreground "brown"))))

     ;; tool-bar
     (tool-bar ((t (:background "gray75" :foreground "black" :box
                                (:line-width 1 :style released-button)))))

     ;; tooltip
     (tooltip ((t (:background "lightyellow" :foreground "black"))))

     ;; show trailing whitespace
     (trailing-whitespace ((t (:background "LemonChiffon"))))

     ;; mouseless browsing
     (w3m-link-numbering ((t (:foreground "rgb:B4/C7/EB"))))

     ;; w3m
     (w3m-anchor ((t (:foreground "blue"))))
     (w3m-current-anchor ((t (:foreground "blue" :weight bold :underline t))))
     (w3m-arrived-anchor ((t (:foreground "purple1"))))
     (w3m-form ((t (:foreground "tan1" :underline t))))
     (w3m-bold ((t (:foreground "medium sea green" :weight bold))))

     (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
     (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
     (w3m-image-face ((t (:foreground "DarkSeaGreen2" :weight bold))))
     (w3m-strike-through-face ((t (:strike-through t))))
     (w3m-underline-face ((t (:underline t))))
;;;      (w3m-tab-background-face ((t (:background "rgb:21/36/4B"))))
;;;      (w3m-tab-selected-face ((t (:background "Gray85" :foreground "black" 
:box (:line-width 1 :style nil)))))
;;;      (w3m-tab-selected-retrieving-face ((t (:background "Gray85" 
:foreground "white" :box (:line-width -1 :style nil)))))
;;;      (w3m-tab-unselected-face ((t (:background "Gray70" :foreground 
"Gray20" :box (:line-width 1 :style nil)))))
;;;      (w3m-tab-unselected-retrieving-face ((t (:background "Gray50" 
:foreground "white" :box (:line-width -1 :style nil)))))
     (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
;;;      (w3m-form-button-face ((t (:background "lightgray" :foreground 
"black"))))
     (w3m-form-button-face ((t (:foreground "gray4" :background "light gray" 
:weight bold :underline t))))
;;;      (w3m-form-button-mouse-face ((t (:background "orange"))))
     (w3m-form-button-mouse-face ((t (:background "DarkGreen" :foreground 
"light gray" :underline t))))
;;;      (w3m-form-button-pressed-face ((t (:background "yellow"))))
     (w3m-form-button-pressed-face ((t (:foreground "gray4" :background "light 
gray" :weight bold :underline t))))
;;;      (w3m-history-current-url-face ((t (:background "SkyBlue4" :foreground 
"LightSkyBlue"))))
     (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))


     ;; IRC
     (circe-originator-face ((t (:foreground "blue"))))
     (circe-highlight-all-nicks-face ((t (:foreground "blue")))) ; other nicks
     (circe-highlight-nick-face ((t (:foreground "firebrick")))) ; message with 
my nick cited
     (lui-highlight-face ((t (:foreground "red")))) ; my nick
     (circe-my-message-face ((t (:foreground "red"))))
     (lui-time-stamp-face ((t (:foreground "orange"))))
     (lui-button-face ((t (:foreground "blue" :underline t))))

     )))

(provide 'color-theme-sva)

;;; color-theme-sva.el ends here
--8<---------------cut here---------------end--------------->8---

Any comment is welcome!

Best regards,
  Seb

-- 
Sébastien Vauban





reply via email to

[Prev in Thread] Current Thread [Next in Thread]