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

[Simao M]

Screenshot please? :)

2010/5/4 Sébastien Vauban <address@hidden>:
> 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
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>