color-themes/color-theme-sva.el

   1 ;;; color-theme-sva.el --- my color theme
   2
   3 ;; Copyright (C) 2003-2010 Sebastien Vauban
   4 ;; Time-stamp: <2010-10-07 Thu 10:53 sva on mundaneum>
   5
   6 ;; This file is NOT part of GNU Emacs.
   7
   8 ;; This file is free software; you can redistribute it and/or
   9 ;; modify it under the terms of the GNU General Public License as
  10 ;; published by the Free Software Foundation; either version 2 of
  11 ;; the License, or (at your option) any later version.
  12
  13 ;; This file is distributed in the hope that it will be
  14 ;; useful, but WITHOUT ANY WARRANTY; without even the implied
  15 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  16 ;; PURPOSE.  See the GNU General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU General Public
  19 ;; License along with this file; if not, write to the Free
  20 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  21 ;; MA 02111-1307, USA.
  22
  23 ;;* Code:
  24
  25 (require 'color-theme)
  26
  27 (defun color-theme-sva ()
  28   "Color theme by Sebastien Vauban."
  29   (interactive)
  30   (let*
  31       ;; inherit properties, independently of definition order
  32       ((ol1 '(:family "Arial" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1"))
  33        (ol2 '(:family "Arial" :height 1.6 :weight bold :box (:line-width 1 :color "#00CC00") :foreground "lime green" :background "DarkSeaGreen1"))
  34        (ol3 '(:family "Arial" :height 1.3 :weight bold :foreground "#F9A049"))
  35        (ol4 '(:family "Arial" :height 1.2 :weight bold :foreground "red3"))
  36        (ol5 '(:family "Arial" :height 1.1 :weight bold :foreground "cornflower blue"))
  37        (ol6 '(:family "Arial" :height 1.1 :weight bold :foreground "lime green"))
  38        (ol7 '(:family "Arial" :height 1.1 :weight bold :foreground "#F9A049"))
  39        (ol8 '(:family "Arial" :height 1.1 :weight bold :foreground "red3"))
  40        (inline-code '(:foreground "blue1" :background "#EAFFEA"))
  41        (block-code '(:foreground "blue1" :background "#FFFFEA"))
  42        (directory '(:weight bold :foreground "blue" :background "#FFF58F"))
  43        (marked-line '(:weight bold :foreground "white" :background "red"))
  44        (clock-line '(:box (:line-width 1 :color "#9EABB6") :foreground "black" :background "#BFBF00"))
  45        (column '(:height 1.0 :weight normal :slant normal :underline nil :strike-through nil :box (:line-width 1 :color "black") :foreground "black" :background "#EEE8AA"))
  46        (symlink '(:foreground "deep sky blue")))
  47     (color-theme-install
  48      `(color-theme-sva
  49        ;; frame parameters
  50        ((background-color . "white")
  51         (background-mode . light)
  52         (border-color . "black")
  53         (cursor-color . "#15FF00")
  54         (foreground-color . "black")
  55         (mouse-color . "black"))
  56
  57        ;; faces
  58        (default ((t (nil))))
  59        (bold ((t (:weight bold))))
  60        (bold-italic ((t (:weight bold :slant italic))))
  61        (italic ((t (:slant italic))))
  62        (underline ((t (:underline t))))
  63
  64        ;; anything
  65        (anything-header ((t (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
  66        ;; under test
  67        (anything-bookmarks-su-face ((t (:foreground "red"))))
  68        (anything-dir-heading ((t (:foreground "blue" :background "pink"))))
  69        (anything-dir-priv ((t (:foreground "dark red" :background "light grey"))))
  70        (anything-file-name ((t (:foreground "blue"))))
  71        (anything-gentoo-match-face ((t (:foreground "red"))))
  72        (anything-isearch-match ((t (:background "yellow"))))
  73        (anything-overlay-line-face ((t (:underline t :foreground "white" :background "IndianRed4"))))
  74        (anything-visible-mark ((t (:foreground "black" :background "green1"))))
  75        (anything-w3m-bookmarks-face ((t (:underline t :foreground "cyan1"))))
  76
  77        ;; bbdb
  78        (bbdb-company ((t (:slant italic :foreground "steel blue"))))
  79        (bbdb-field-name ((t (:weight bold :foreground "steel blue"))))
  80        (bbdb-field-value ((t (:foreground "steel blue"))))
  81        (bbdb-name ((t (:underline t :foreground "#FF6633"))))
  82
  83        ;; browse-kill-ring
  84        (browse-kill-ring-separator-face ((t (:weight bold :foreground "slate gray"))))
  85
  86        ;; calendar
  87        (calendar-today-face ((t (:weight bold :background "#CCCCFF")))) ; "yellow"
  88        (diary-face ((t (:foreground "#87C9FC"))))  ;"dark cyan"
  89        (holiday-face ((t (:background "#B6B2AE"))))  ; "red"
  90
  91        ;; IRC
  92        (circe-highlight-all-nicks-face ((t (:foreground "blue"))))  ; other nicks
  93        (circe-highlight-nick-face ((t (:foreground "firebrick"))))  ; message with my nick cited
  94        (circe-my-message-face ((t (:foreground "red"))))
  95        (circe-originator-face ((t (:foreground "blue"))))
  96
  97        ;; column-marker
  98        (column-marker-1-face ((t (:background "DarkSeaGreen1"))))
  99        (column-marker-2-face ((t (:background "lemon chiffon"))))
 100        (column-marker-3-face ((t (:background "misty rose"))))
 101
 102        (comint-highlight-input ((t (:weight bold))))
 103        (comint-highlight-prompt ((t (:foreground "blue"))))
 104
 105        (css-selector ((t (:weight bold :foreground "blue"))))
 106
 107        ;; custom
 108        (custom-button-pressed-face ((t (:foreground "black" :background "light grey" :box (:line-width 2 :style pressed-button)))))
 109        (custom-changed-face ((t (:foreground "white" :background "blue"))))
 110        (custom-face-tag-face ((t (:underline t))))
 111        (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
 112        (custom-modified-face ((t (:foreground "white" :background "blue"))))
 113        (custom-rogue-face ((t (:foreground "pink" :background "black"))))
 114        (custom-saved-face ((t (:underline t))))
 115        (custom-set-face ((t (:foreground "blue" :background "white"))))
 116        (custom-state-face ((t (:foreground "green4"))))
 117        (custom-variable-button-face ((t (:weight bold :underline t))))
 118
 119        ;; cvs
 120        (cvs-filename-face ((t (:foreground "blue4"))))
 121        (cvs-handled-face ((t (:foreground "pink"))))
 122        (cvs-header-face ((t (:weight bold :foreground "blue4"))))
 123        (cvs-marked-face ((t (:weight bold :foreground "green3"))))
 124        (cvs-msg-face ((t (:slant italic :foreground "gray55"))))
 125        (cvs-need-action-face ((t (:foreground "orange"))))
 126        (cvs-unknown-face ((t (:foreground "red"))))
 127
 128        ;; diff
 129        (diff-added ((t (:foreground "#2B7E2A" :background "#DDFFDD"))))
 130        (diff-file-header ((t (:foreground "red" :background "#EAF2F5"))))
 131        (diff-header ((t (:foreground "#999999" :background "#EAF2F5"))))
 132        (diff-hunk-header ((t (:foreground "#999999" :background "#EAF2F5"))))
 133        (diff-index ((t (:foreground "#4183C4" :background "#EAF2F5"))))
 134        (diff-indicator-added ((t (:background "#AAFFAA"))))
 135        (diff-indicator-removed ((t (:background "#FFAAAA"))))
 136        (diff-removed ((t (:foreground "dark magenta" :background "#FFDDDD"))))
 137
 138        ;; dircolors
 139        (dircolors-face-asm ((t (:foreground "black"))))
 140        (dircolors-face-backup ((t (:foreground "black"))))
 141        (dircolors-face-compress ((t (:foreground "red"))))
 142        (dircolors-face-dir ((t ,directory)))
 143        (dircolors-face-doc ((t (:foreground "black"))))
 144        (dircolors-face-dos ((t (:foreground "green3"))))
 145        (dircolors-face-emacs ((t (:foreground "black"))))
 146        (dircolors-face-exec ((t (:foreground "green3"))))
 147        (dircolors-face-html ((t (:foreground "black"))))
 148        (dircolors-face-img ((t (:foreground "black"))))
 149        (dircolors-face-lang ((t (:foreground "black"))))
 150        (dircolors-face-lang-interface ((t (:foreground "black"))))
 151        (dircolors-face-make ((t (:foreground "black"))))
 152        (dircolors-face-objet ((t (:foreground "black"))))
 153        (dircolors-face-package ((t (:foreground "red"))))
 154        (dircolors-face-paddb ((t (:foreground "black"))))
 155        (dircolors-face-ps ((t (:foreground "black"))))
 156        (dircolors-face-sound ((t (:foreground "black"))))
 157        (dircolors-face-tar ((t (:foreground "red"))))
 158        (dircolors-face-text ((t (:foreground "black"))))
 159        (dircolors-face-yacc ((t (:foreground "black"))))
 160
 161        ;; dired
 162        (dired-face-boring ((t (:foreground "gray65"))))
 163        (dired-face-directory ((t (:weight bold))))
 164        (dired-face-executable ((t (:foreground "green3"))))
 165        (dired-face-flagged ((t (:weight bold :foreground "white" :background "red"))))
 166        (dired-face-header ((t (:foreground "black" :background "gray75"))))
 167        (dired-face-marked ((t (:background "pale violet red"))))
 168        (dired-face-permissions ((t (:foreground "black" :background "gray75"))))
 169        (dired-face-setuid ((t (:foreground "red"))))
 170        (dired-face-socket ((t (:foreground "magenta"))))
 171        (dired-face-symlink ((t ,symlink)))
 172
 173        ;; dired+
 174        (diredp-compressed-file-suffix ((t (:foreground "red"))))
 175        (diredp-date-time ((t (:foreground "purple"))))
 176        (diredp-dir-heading ((t ,directory)))
 177        (diredp-dir-priv ((t ,directory)))
 178        (diredp-exec-priv ((t (:background "green"))))
 179        (diredp-executable-tag ((t (:foreground "green3" :background "white"))))
 180        (diredp-file-name ((t (:foreground "black"))))
 181        (diredp-file-suffix ((t (:foreground "#6DB604"))))
 182        (diredp-flag-mark-line ((t ,marked-line)))
 183        (diredp-ignored-file-name ((t (:strike-through t :foreground "red"))))
 184        (diredp-read-priv ((t (:foreground "white" :background "blue"))))
 185        (diredp-write-priv ((t (:foreground "white" :background "red"))))
 186
 187        ;; flypell
 188        (flyspell-duplicate-face ((t (:weight bold :underline t :foreground "gold3"))))
 189        (flyspell-incorrect-face ((t (:weight bold :underline t :foreground "red"))))
 190
 191        ;; LaTeX
 192        (font-latex-bold-face ((t (:weight bold :foreground "medium sea green"))))
 193        (font-latex-math-face ((t (:foreground "blue1"))))
 194        (font-latex-sectioning-1-face ((t (:family "Arial" :height 2.7 :weight bold :foreground "cornflower blue"))))
 195        (font-latex-sectioning-2-face ((t ,ol1)))
 196        (font-latex-sectioning-3-face ((t ,ol2)))
 197        (font-latex-sectioning-4-face ((t ,ol3)))
 198        (font-latex-sectioning-5-face ((t ,ol4)))
 199        (font-latex-sedate-face ((t (:foreground "gray45"))))
 200        (font-latex-verbatim-face ((t (:foreground "tan1"))))
 201
 202        ;; font-lock
 203        (font-lock-builtin-face ((t (:foreground "orchid"))))
 204        (font-lock-comment-delimiter-face ((t (:foreground "red"))))
 205        (font-lock-comment-face ((t (:slant italic :foreground "red"))))
 206        (font-lock-constant-face ((t (:foreground "dark cyan"))))
 207        (font-lock-doc-face ((t (:foreground "#EB4264"))))
 208        (font-lock-function-name-face ((t (:foreground "blue"))))
 209        (font-lock-keyword-face ((t (:foreground "purple1"))))
 210        (font-lock-reference-face ((t (:foreground "dark cyan"))))
 211        (font-lock-string-face ((t (:foreground "#3AA221"))))
 212        (font-lock-type-face ((t (:foreground "forest green"))))
 213        (font-lock-variable-name-face ((t (:foreground "magenta"))))
 214        (font-lock-warning-face ((t (:weight bold :foreground "red"))))
 215
 216        (fringe ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
 217
 218        ;; Gnus
 219        (gnus-cite-attribution-face ((t (:foreground "#5050B0"))))
 220        (gnus-cite-face-1 ((t (:foreground "#5050B0"))))
 221        (gnus-cite-face-2 ((t (:foreground "#660066"))))
 222        (gnus-cite-face-3 ((t (:foreground "#007777"))))
 223        (gnus-cite-face-4 ((t (:foreground "#990000"))))
 224        (gnus-cite-face-5 ((t (:foreground "#000099"))))
 225        (gnus-cite-face-6 ((t (:foreground "#BB6600"))))
 226        (gnus-cite-face-7 ((t (:foreground "#5050B0"))))
 227        (gnus-cite-face-8 ((t (:foreground "#660066"))))
 228        (gnus-cite-face-9 ((t (:foreground "#007777"))))
 229        (gnus-cite-face-10 ((t (:foreground "#990000"))))
 230        (gnus-emphasis-bold ((t (:weight bold))))
 231        (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
 232        (gnus-group-mail-1-empty-face ((t (:foreground "#5050B0"))))
 233        (gnus-group-mail-1-face ((t (:weight bold :foreground "#FF50B0"))))
 234        (gnus-group-mail-2-empty-face ((t (:foreground "#660066"))))
 235        (gnus-group-mail-2-face ((t (:weight bold :foreground "#FF0066"))))
 236        (gnus-group-mail-3-empty-face ((t (:foreground "#007777"))))
 237        (gnus-group-mail-3-face ((t (:weight bold :foreground "#FF7777"))))
 238        (gnus-group-news-1-empty-face ((t (:foreground "#5050B0"))))
 239        (gnus-group-news-1-face ((t (:weight bold :foreground "#FF50B0"))))
 240        (gnus-group-news-2-empty-face ((t (:foreground "#660066"))))
 241        (gnus-group-news-2-face ((t (:weight bold :foreground "#FF0066"))))
 242        (gnus-group-news-3-empty-face ((t (:foreground "#007777"))))
 243        (gnus-group-news-3-face ((t (:weight bold :foreground "#FF7777"))))
 244        (gnus-group-news-4-empty-face ((t (:foreground "#990000"))))
 245        (gnus-group-news-4-face ((t (:weight bold :foreground "#FF0000"))))
 246        (gnus-group-news-5-empty-face ((t (:foreground "#000099"))))
 247        (gnus-group-news-5-face ((t (:weight bold :foreground "#FF0099"))))
 248        (gnus-group-news-6-empty-face ((t (:foreground "#BB6600"))))
 249        (gnus-group-news-6-face ((t (:weight bold :foreground "#FF6600"))))
 250        (gnus-header-content-face ((t (:family "Arial" :foreground "#3399CC"))))
 251        (gnus-header-from-face ((t (:family "Arial" :foreground "blue"))))
 252        (gnus-header-name-face ((t (:family "Arial" :weight bold :foreground "#3399CC"))))
 253        (gnus-header-newsgroups-face ((t (:family "Arial" :foreground "#3399CC"))))
 254        (gnus-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
 255        (gnus-picon-face ((t (:foreground "yellow" :background "white"))))
 256        (gnus-picon-xbm-face ((t (:foreground "yellow" :background "white"))))
 257        (gnus-signature-face ((t (:foreground "#7F7F7F"))))
 258        (gnus-splash-face ((t (:foreground "gold"))))
 259        (gnus-summary-cancelled-face ((t (:slant italic :strike-through t :foreground "gray55"))))
 260        (gnus-summary-high-ancient-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
 261        (gnus-summary-high-read-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
 262        (gnus-summary-high-ticked-face ((t (:weight normal :foreground "#009900"))))
 263        (gnus-summary-high-unread-face ((t (:weight normal :foreground "#1A44B6"))))
 264        (gnus-summary-low-ancient-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
 265        (gnus-summary-low-read-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
 266        (gnus-summary-low-ticked-face ((t (:slant italic :foreground "#009900"))))
 267        (gnus-summary-low-unread-face ((t (:slant italic :foreground "gray50"))))
 268        (gnus-summary-normal-ancient-face ((t (:foreground "black" :background "#E0E0E0"))))
 269        (gnus-summary-normal-read-face ((t (:foreground "black" :background "#E0E0E0"))))
 270        (gnus-summary-normal-ticked-face ((t (:foreground "#009900"))))
 271        (gnus-summary-normal-unread-face ((t (:foreground "black"))))
 272        (gnus-summary-selected-face ((t (:background "#FFD0D0"))))
 273        (gnus-x-face ((t (:foreground "black" :background "white"))))
 274
 275        (highlight ((t (:background "#FFFFA0"))))  ; used by hlt package of Drew Adams
 276        (highlight-symbol-face ((t (:background "#FFFFA0"))))
 277        (hl-line ((t (:background "cornsilk3"))))  ; #E6FEC0 or #D4EAFF
 278
 279        (html-helper-bold-face ((t (:weight bold :foreground "black"))))
 280        (html-helper-italic-face ((t (:slant italic :foreground "black"))))
 281        (html-helper-underline-face ((t (:underline t :foreground "black"))))
 282        (html-tag-face ((t (:foreground "blue"))))
 283
 284        ;; Info / info+
 285        (info-file ((t (:family "Arial" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1"))))
 286        (info-header-node ((t (:underline t :foreground "orange"))))  ; nodes in header
 287        (info-header-xref ((t (:underline t :foreground "dodger blue"))))  ; cross references in header
 288        (info-menu-header ((t (:family "Arial" :height 1.6 :weight bold :underline t :foreground "#00CC00"))))  ; menu titles (headers) -- major topics
 289        (info-menu-star ((t (:foreground "black"))))  ; every 3rd menu item
 290        (info-node ((t (:underline t :foreground "blue"))))  ; node names
 291        (info-quoted-name ((t ,inline-code)))
 292        (info-string ((t (:foreground "green4"))))  ; strings ("...")
 293        (info-title-1-face ((t (:family "Arial" :height 1.6 :weight bold :box (:line-width 1 :color "#00CC00") :foreground "lime green" :background "DarkSeaGreen1"))))
 294        (info-title-2-face ((t (:family "Arial" :height 1.3 :weight bold :foreground "#F9A049"))))
 295        (info-title-3-face ((t (:family "Arial" :height 1.2 :weight bold :foreground "red3"))))
 296        (info-xref ((t (:weight bold :underline t :foreground "blue"))))  ; unvisited cross-references
 297        (info-xref-visited ((t (:weight bold :foreground "magenta4"))))  ; previously visited cross-references
 298
 299        ;; highlighting matches
 300        (isearch ((t (:weight bold :foreground "#EE6600" :background "yellow"))))
 301        (isearch-lazy-highlight-face ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for GNU Emacs
 302        (isearch-secondary ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for XEmacs
 303
 304        (light-symbol-face ((t (:background "#FFFFA0"))))
 305
 306        (linum ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
 307
 308        ;; IRC
 309        (lui-button-face ((t (:underline t :foreground "blue"))))
 310        (lui-highlight-face ((t (:foreground "red"))))  ; my nick
 311        (lui-time-stamp-face ((t (:foreground "orange"))))
 312
 313        ;; (magit-branch ((t )))
 314        (magit-diff-add ((t (:inherit diff-added))))
 315        (magit-diff-del ((t (:inherit diff-removed))))
 316        ;; (magit-diff-file-header ((t )))
 317        ;; (magit-diff-hunk-header ((t )))
 318        ;; (magit-diff-none ((t )))
 319        ;; (magit-header ((t )))
 320        ;; (magit-item-highlight ((t )))
 321        ;; (magit-item-mark ((t )))
 322        ;; (magit-log-head-label ((t )))
 323        ;; (magit-log-tag-label ((t )))
 324        ;; (magit-section-title ((t )))
 325
 326        ;; make
 327        (makefile-space-face ((t (:background "hot pink"))))
 328        (makefile-targets ((t (:weight bold :foreground "blue"))))
 329
 330        (match ((t (:weight bold :foreground "#EE6600" :background "yellow"))))
 331
 332        ;; Message
 333        (message-cited-text-face ((t (:foreground "#5050B0"))))
 334        (message-header-cc-face ((t (:family "Arial" :foreground "blue"))))
 335        (message-header-name-face ((t (:family "Arial" :weight bold :foreground "#3399CC"))))
 336        (message-header-newsgroups-face ((t (:family "Arial" :foreground "#3399CC"))))
 337        (message-header-other-face ((t (:family "Arial" :foreground "#3399CC"))))
 338        (message-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
 339        (message-header-to-face ((t (:family "Arial" :foreground "blue"))))
 340        (message-header-xheader-face ((t (:foreground "red"))))
 341        (message-mml-face ((t (:foreground "forest green"))))
 342        (message-separator-face ((t (:family "Arial" :weight bold :foreground "red"))))
 343
 344        (minibuffer-prompt ((t (:weight bold :foreground "#FF6633"))))
 345
 346        ;; GNU Emacs mode-line
 347        (mode-line ((t (:box (:line-width 1 :color "#9EABB6") :foreground "#FFC77F" :background "#0097CB"))))
 348        (mode-line-buffer-id ((t (:weight bold :foreground "white" :background "#0097CB"))))
 349        (mode-line-highlight ((t (:foreground "yellow"))))
 350        (mode-line-inactive ((t (:box (:line-width 1 :color "#9EABB6") :foreground "#617A82" :background "#006382"))))
 351
 352        ;; XEmacs modeline
 353        (modeline-mousable ((t (:foreground "firebrick"))))  ; major-mode string
 354        (modeline-mousable-minor-mode ((t (:foreground "green4"))))
 355
 356        ;; non-breaking space
 357        (nobreak-space ((t (:background "#C6C3C6"))))
 358
 359        (nxml-attribute-local-name-face ((t (:foreground "magenta"))))
 360        (nxml-attribute-value-delimiter-face ((t (:foreground "green4"))))
 361        (nxml-attribute-value-face ((t (:foreground "green4"))))
 362        (nxml-comment-content-face  ((t (:slant italic :foreground "red"))))
 363        (nxml-comment-delimiter-face ((t (:foreground "red"))))
 364        (nxml-element-local-name-face ((t (:foreground "blue"))))
 365        (nxml-processing-instruction-delimiter-face ((t (:foreground "purple1"))))
 366        (nxml-processing-instruction-target-face ((t (:foreground "purple1"))))
 367        (nxml-tag-delimiter-face ((t (:foreground "blue"))))
 368        (nxml-tag-slash-face ((t (:foreground "blue"))))
 369
 370        ;; Org
 371        (org-agenda-clocking ((t ,clock-line)))
 372        (org-agenda-column-dateline ((t (:inherit org-column))))
 373        ;; (org-agenda-column-dateline ((t (:background "deep sky blue" :height 79 :family "Consolas"))))
 374        (org-agenda-date ((t (:height 1.6 :weight bold :foreground "#0063F5")))) ; "87C9FC"
 375        ;; (org-agenda-date ((t (:foreground "blue1"))))
 376        (org-agenda-date-today ((t (:foreground "purple"))))  ; "#CCCCFF"  ; inherit
 377        ;; (org-agenda-date-today ((t (:slant italic :weight bold :foreground "blue1"))))
 378        (org-agenda-date-weekend ((t (:foreground "dim gray"))))  ; "#B6B2AE"  ; inherit
 379        ;; (org-agenda-date-weekend ((t (:weight bold :foreground "blue1"))))
 380        (org-agenda-diary ((t (:weight bold :foreground "green4" :background "light blue"))))
 381        (org-agenda-dimmed-todo-face ((t (:foreground "gold2"))))  ; org-blocked-todo
 382        (org-agenda-done ((t (:foreground "gray50" :background "#EAFFEA"))))
 383        (org-agenda-restriction-lock ((t (:foreground "white" :background "SkyBlue4"))))
 384        (org-agenda-structure ((t (:foreground "#008ED1"))))
 385        (org-archived ((t (:foreground "gray70"))))
 386        (org-beamer-tag ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
 387        (org-block ((t ,block-code)))
 388        (org-checkbox ((t (:weight bold :background "gray"))))
 389        (org-clock-overlay ((t (:foreground "white" :background "SkyBlue4"))))
 390        (org-code ((t ,inline-code)))
 391        (org-column ((t ,column)))
 392        ;; (org-column ((t (:background "gold" :height 79 :family "Consolas"))))
 393        (org-column-title ((t (:inherit org-column))))
 394        ;; (org-column-title ((t (:background "gold" :height 79 :family "Consolas"))))
 395        (org-date ((t (:underline t :foreground "purple"))))
 396        (org-dim ((t (:foreground "#AAAAAA"))))
 397        (org-document-info ((t (:foreground "midnight blue"))))
 398        (org-document-info-keyword ((t (:foreground "#008ED1" :background "#EAEAFF"))))
 399        (org-document-title ((t (:family "Arial" :height 1.8 :weight bold :foreground "blue"))))
 400        (org-done ((t (:weight bold :box (:line-width 1 :color "black") :foreground "gray31"))))
 401        ;; (org-done ((t (:foreground "green3" :weight bold :strike-through t))))
 402        (org-drawer ((t (:foreground "light sky blue"))))
 403        (org-ellipsis ((t (:foreground "white"))))
 404        (org-footnote ((t (:underline t :foreground "#008ED1"))))
 405        (org-formula ((t (:foreground "chocolate1"))))
 406        (org-headline-done ((t (:family "Arial" :height 1.6 :weight bold :strike-through t :box (:line-width 1 :color "gray67") :foreground "gray67" :background "gray92"))))
 407        (org-latex-and-export-specials ((t (:foreground "blue1"))))
 408        (org-level-1 ((t ,ol1)))
 409        (org-level-2 ((t ,ol2)))
 410        (org-level-3 ((t ,ol3)))
 411        (org-level-4 ((t ,ol4)))
 412        (org-level-5 ((t ,ol5)))
 413        (org-level-6 ((t ,ol6)))
 414        (org-level-7 ((t ,ol7)))
 415        (org-level-8 ((t ,ol8)))
 416        (org-meta-line ((t (:foreground "#008ED1" :background "#EAEAFF"))))
 417        (org-mode-line-clock ((t ,clock-line)))
 418        (org-mode-line-clock-overrun ((t (:weight bold :box (:line-width 1 :color "#9EABB6") :foreground "white" :background "#FF4040"))))
 419        (org-property-value ((t (nil))))
 420        (org-scheduled ((t (:foreground "blue"))))
 421        (org-scheduled-previously ((t (:foreground "red"))))
 422        (org-scheduled-today ((t (:foreground "#00BB00"))))
 423        (org-sexp-date ((t (:foreground "purple"))))
 424        (org-special-keyword ((t (:foreground "#00BB00" :background "#EAFFEA"))))
 425        (org-table ((t (:foreground "blue1" :background "#EAFFEA"))))
 426        (org-tag ((t (:height 1.0 :weight bold :slant italic :foreground "#816A7D" :background "#F7B8DE"))))
 427        (org-target ((t (:underline t))))
 428        (org-time-grid ((t (:foreground "#008ED1"))))
 429        (org-todo ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
 430        (org-upcoming-deadline ((t (:foreground "#FF5555"))))
 431        ;; (org-upcoming-deadline ((t (:foreground "white" :background "#E9A36A" :weight bold))))
 432        (org-verbatim ((t ,inline-code)))
 433        (org-warning ((t (:weight bold :foreground "#D80000" :background "white"))))
 434
 435        ;; Org non-standard faces
 436        (my/org-deadline-later ((t (:foreground "black" :background "#AACAFC"))))
 437        (my/org-deadline-today ((t (:weight bold :foreground "white" :background "#E9A36A"))))
 438        (my/org-deadline-tomorrow ((t (:weight bold :foreground "black" :background "#B4F1B3"))))
 439        (my/org-deadline-yesterday ((t (:weight bold :foreground "white" :background "#D80000"))))
 440
 441        (my/org-started-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "black" :background "#FF9000"))))
 442        (my/org-waiting-kwd-face ((t (:weight bold :box (:line-width 1 :color "#00CC00") :foreground "black" :background "chartreuse"))))
 443        (my/org-delegated-kwd-face ((t (:weight bold :box (:line-width 1 :color "#00CC00") :foreground "black" :background "chartreuse"))))
 444        (my/org-deferred-kwd-face ((t (:weight bold :box (:line-width 1 :color "steel blue") :foreground "black" :background "cyan"))))
 445        (my/org-someday-kwd-face ((t (:weight bold :box (:line-width 1 :color "steel blue") :foreground "black" :background "cyan"))))
 446        (my/org-canceled-kwd-face ((t (:weight bold :box (:line-width 1 :color "#D80000") :foreground "red" :background "cyan"))))
 447
 448        (my/org-quote-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
 449        (my/org-quoted-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "black" :background "#FF9000"))))
 450        (my/org-approved-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "black" :background "chartreuse"))))
 451        (my/org-rejected-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "red" :background "cyan"))))
 452        (my/org-expired-kwd-face ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "gray31"))))
 453
 454        (my/org-openpo-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "white" :background "#FF5555"))))
 455        (my/org-closedpo-kwd-face ((t (:weight bold :box (:line-width 1 :color "orange red") :foreground "white" :background "gray31"))))
 456
 457        ;; pabbrev
 458        (pabbrev-debug-display-label-face ((t (:background "chartreuse"))))
 459        (pabbrev-suggestions-label-face ((t (:weight bold :foreground "white" :background "purple"))))
 460        (pabbrev-suggestions-face ((t (:weight bold :foreground "white" :background "red"))))
 461
 462        ;; parentheses
 463        (paren-face-match ((t (:background "chartreuse"))))
 464        (paren-face-mismatch ((t (:weight bold :foreground "white" :background "purple"))))
 465        (paren-face-no-match ((t (:weight bold :foreground "white" :background "purple"))))
 466
 467        (pesche-space ((t (:background "lemon chiffon"))))
 468        (pesche-tab ((t (:background "gold"))))
 469
 470        ;; pretty print ^L
 471        (pp^L-highlight ((t (:strike-through t :inherit shadow))))
 472
 473        (recover-this-file ((t (:foreground "white" :background "red"))))
 474
 475        ;; selection, selected region
 476        (region ((t (:background "#D2D9E0"))))  ; for GNU Emacs ; was seashell2
 477        (zmacs-region ((t (:background "gray84"))))  ; for XEmacs
 478
 479        (secondary-selection ((t (:foreground "purple" :background "yellow"))))  ; used by Org-mode for highlighting matched entries and keywords
 480
 481        ;; for `cat <<EOF' in shell scripts
 482        (sh-heredoc ((t (:foreground "blue1"))))
 483
 484        ;; shell
 485        (shell-option-face ((t (:foreground "forest green"))))
 486        (shell-output-2-face ((t (:foreground "blue"))))
 487        (shell-output-3-face ((t (:foreground "purple"))))
 488        (shell-output-face ((t (:foreground "black"))))
 489        (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
 490
 491        ;; parentheses
 492        (show-paren-match-face ((t (:background "chartreuse"))))
 493        (show-paren-mismatch-face ((t (:weight bold :foreground "white" :background "purple"))))
 494
 495        ;; speedbar
 496        (speedbar-button-face ((t (:foreground "green4"))))
 497        (speedbar-directory-face ((t (:foreground "blue4"))))
 498        (speedbar-file-face ((t (:foreground "cyan4"))))
 499        (speedbar-highlight-face ((t (:background "green"))))
 500        (speedbar-selected-face ((t (:underline t :foreground "red"))))
 501        (speedbar-tag-face ((t (:foreground "brown"))))
 502
 503        ;; subversion
 504        (svn-status-directory-face ((t ,directory)))
 505        (svn-status-filename-face ((t (:foreground "magenta3"))))
 506        (svn-status-locked-face ((t (:weight bold :foreground "red"))))
 507        (svn-status-marked-face ((t ,marked-line)))
 508        (svn-status-marked-popup-face ((t (:weight bold :foreground "green3"))))
 509        (svn-status-switched-face ((t (:slant italic :foreground "gray55"))))
 510        (svn-status-symlink-face  ((t ,symlink)))
 511        (svn-status-update-available-face ((t (:foreground "orange"))))
 512
 513        ;; TeX
 514        (tex-verbatim ((t (:foreground "blue1"))))
 515
 516        ;; tool-bar
 517        (tool-bar ((t (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
 518
 519        ;; tooltip
 520        (tooltip ((t (:foreground "black" :background "light yellow"))))
 521
 522        ;; show trailing whitespace
 523        (trailing-whitespace ((t (:background "#D5FFD5"))))
 524
 525        (traverse-match-face ((t (:weight bold :foreground "blue violet"))))
 526
 527        ;; w3m
 528        (w3m-anchor ((t (:foreground "blue"))))
 529        (w3m-arrived-anchor ((t (:foreground "purple1"))))
 530        (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
 531        (w3m-bold ((t (:weight bold :foreground "medium sea green"))))
 532        (w3m-current-anchor ((t (:weight bold :underline t :foreground "blue"))))
 533        (w3m-form ((t (:underline t :foreground "tan1"))))
 534        (w3m-form-button-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
 535        ;; (w3m-form-button-face ((t (:background "lightgray" :foreground "black"))))
 536        (w3m-form-button-mouse-face ((t (:underline t :foreground "light grey" :background "#2B7E2A"))))
 537        ;; (w3m-form-button-mouse-face ((t (:background "orange"))))
 538        (w3m-form-button-pressed-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
 539        ;; (w3m-form-button-pressed-face ((t (:background "yellow"))))
 540        (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
 541        (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
 542        (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))
 543        ;; (w3m-history-current-url-face ((t (:foreground "LightSkyBlue" :background "SkyBlue4"))))
 544        (w3m-image-face ((t (:weight bold :foreground "DarkSeaGreen2"))))
 545        (w3m-link-numbering ((t (:foreground "#B4C7EB"))))     ;; mouseless browsing
 546        (w3m-strike-through-face ((t (:strike-through t))))
 547        (w3m-underline-face ((t (:underline t))))
 548        ;; (w3m-tab-background-face ((t (:foreground "white" :background "#21364B"))))
 549        ;; (w3m-tab-selected-face ((t (:foreground "black" :background "Gray85" :box (:line-width 1 :style nil)))))
 550        ;; (w3m-tab-selected-retrieving-face ((t (:background "gray85" :foreground "white" :box (:line-width -1 :style nil)))))
 551        ;; (w3m-tab-unselected-face ((t (:foreground "gray20" :background "gray70" :box (:line-width 1 :style nil)))))
 552        ;; (w3m-tab-unselected-retrieving-face ((t (:foreground "white" :background "gray50" :box (:line-width -1 :style nil)))))
 553
 554        (widget-button-face ((t (:weight bold))))
 555        (widget-button-pressed-face ((t (:foreground "red"))))
 556        (widget-documentation-face ((t (:foreground "green4"))))
 557        (widget-field-face ((t (:background "gray85"))))
 558        (widget-inactive-face ((t (:foreground "dim gray"))))
 559        (widget-single-line-field-face ((t (:background "gray85"))))
 560        ))))
 561
 562 (add-to-list 'color-themes
 563              '(color-theme-sva "Sva" "Sebastien Vauban"))
 564
 565 (provide 'color-theme-sva)
 566
 567
 568 ;; This is for the sake of Emacs.
 569 ;; Local Variables:
 570 ;; ispell-local-dictionary: "en_US"
 571 ;; mode: outline-minor
 572 ;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode))
 573 ;; End:
 574
 575 ;;; color-theme-sva.el ends here