color-themes/color-theme-leuven.el

   1 ;;; color-theme-leuven.el --- Light, but colorful color theme
   2
   3 ;; Copyright (C) 2003-2011 Sebastien Vauban
   4 ;; $Date: 2011-02-24 12:09:40 +0100 (Thu, 24 Feb 2011) $
   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 ;;* TODO:
  24
  25 ;; - [ ] Have a look at http://websitetips.com/colortools/sitepro/
  26 ;; - [ ] Remove inherit properties
  27
  28 ;;* Code:
  29
  30 (require 'color-theme)
  31
  32 (defun color-theme-leuven ()
  33   "Color theme by Sebastien Vauban."
  34   (interactive)
  35   (let*
  36       ;; inherit properties, independently of definition order
  37       ((block-code '(:foreground "blue" :background "#FFFFEA"))
  38        (cancel '(:slant italic :strike-through t :foreground "gray55"))
  39        (clock-line '(:box (:line-width 1 :color "#FFBB00") :foreground "black" :background "#BFBF00"))
  40        (column '(:height 1.0 :weight normal :slant normal :underline nil :strike-through nil :foreground "black" :background "#BFBF00"))
  41        (diff-added '(:foreground "#2B7E2A" :background "#CCFFCC"))
  42        (diff-hunk-header '(:box (:line-width 1 :color "#D7D7D7") :foreground "#999999" :background "#F7F7F7"))
  43        (diff-none '(:foreground "gray33"))
  44        (diff-removed '(:foreground "dark magenta" :background "#FFCCCC"))
  45        (directory '(:weight bold :foreground "blue" :background "#FFFFD2"))
  46        (inline-code '(:box (:line-width 1 :color "#EFEF99") :foreground "#444444"))
  47        (marked-line '(:weight bold :foreground "white" :background "red"))
  48        (ol1 '(:height 1.0 :weight bold :overline "#0000CC" :foreground "#0077CC" :background "#DFF1FA")) ; 1.8
  49        (ol2 '(:height 1.0 :weight bold :overline "#00CC00" :foreground "#2EAE2C" :background "#E8FADA")) ; 1.6
  50        (ol3 '(:height 1.0 :weight bold :foreground "#FD8008")) ; 1.3
  51        (ol4 '(:height 1.0 :weight bold :slant normal :foreground "#E3258D")) ; 1.2
  52        (ol5 '(:height 1.0 :weight bold :slant italic :foreground "#0077CC")) ; 1.1
  53        (ol6 '(:height 1.0 :weight bold :slant italic :foreground "#2EAE2C")) ; 1.1
  54        (ol7 '(:height 1.0 :weight bold :slant italic :foreground "#FD8008")) ; 1.1
  55        (ol8 '(:height 1.0 :weight bold :slant italic :foreground "#E3258D")) ; 1.1
  56        (symlink '(:foreground "deep sky blue")))
  57     (color-theme-install
  58      `(color-theme-leuven
  59        ;; frame parameters
  60        ((background-color . "white")
  61         (background-mode . light)
  62         (border-color . "black")
  63         (cursor-color . "#15FF00")
  64         (foreground-color . "black")
  65         (mouse-color . "black"))
  66
  67        ;; faces
  68        (default ((t (nil))))
  69        (bold ((t (:weight bold))))
  70        (bold-italic ((t (:weight bold :slant italic))))
  71        (italic ((t (:slant italic))))
  72        (underline ((t (:underline t))))
  73
  74        ;; anything
  75        (anything-header ((t (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
  76        ;; under test
  77        (anything-bookmarks-su-face ((t (:foreground "red"))))
  78        (anything-dir-heading ((t (:foreground "blue" :background "pink"))))
  79        (anything-dir-priv ((t (:foreground "dark red" :background "light grey"))))
  80        (anything-file-name ((t (:foreground "blue"))))
  81        (anything-gentoo-match-face ((t (:foreground "red"))))
  82        (anything-isearch-match ((t (:background "yellow"))))
  83        (anything-overlay-line-face ((t (:underline t :foreground "white" :background "IndianRed4"))))
  84        (anything-visible-mark ((t (:foreground "black" :background "green1"))))
  85        (anything-w3m-bookmarks-face ((t (:underline t :foreground "cyan1"))))
  86
  87        ;; bbdb
  88        (bbdb-company ((t (:slant italic :foreground "steel blue"))))
  89        (bbdb-field-name ((t (:weight bold :foreground "steel blue"))))
  90        (bbdb-field-value ((t (:foreground "steel blue"))))
  91        (bbdb-name ((t (:underline t :foreground "#FF6633"))))
  92
  93        ;; browse-kill-ring
  94        (browse-kill-ring-separator-face ((t (:weight bold :foreground "slate gray"))))
  95
  96        ;; calendar
  97        (calendar-today-face ((t (:weight bold :background "#CCCCFF")))) ; "yellow"
  98        (diary-face ((t (:foreground "#87C9FC"))))  ;"dark cyan"
  99        (holiday-face ((t (:background "#B6B2AE"))))  ; "red"
 100
 101        (change-log-date-face ((t (:foreground "purple"))))
 102        ;; (change-log-email
 103        (change-log-file ((t (:weight bold :foreground "#4183C4"))))
 104        ;; (change-log-list
 105        ;; (change-log-name
 106
 107        ;; IRC
 108        (circe-highlight-all-nicks-face ((t (:foreground "blue" :background "#F0F0F0")))) ; other nick names
 109        (circe-highlight-nick-face ((t (:foreground "#009300" :background "#F0F0F0")))) ; messages with my nick cited
 110        (circe-my-message-face ((t (:foreground "#8B8B8B" :background "#F0F0F0"))))
 111        (circe-originator-face ((t (:foreground "blue"))))
 112        (circe-prompt-face ((t (:foreground "red"))))
 113        (circe-server-face ((t (:foreground "#99CAE5"))))
 114        (lui-button-face ((t (:underline t :foreground "#0077CC"))))
 115        (lui-highlight-face ((t (:box '(:line-width 1 :color "#CC0000") :foreground "#CC0000" :background "#FFFF88")))) ; my nickname
 116        (lui-time-stamp-face ((t (:foreground "purple"))))
 117
 118        ;; column-marker
 119        (column-marker-1-face ((t (:background "#EBFFEB"))))
 120        (column-marker-2-face ((t (:background "#FFFFEB"))))
 121        (column-marker-3-face ((t (:background "#FFEBEB"))))
 122
 123        (comint-highlight-input ((t ,block-code)))
 124        (comint-highlight-prompt ((t (:foreground "#008ED1" :background "#EAEAFF"))))
 125
 126        ;; used in modeline by grep and compile
 127        (compilation-error ((t (:weight bold :foreground "red"))))
 128        (compilation-info ((t (:weight bold :foreground "green3"))))
 129        (compilation-warning ((t (:weight bold :foreground "orange"))))
 130
 131        (css-selector ((t (:weight bold :foreground "blue"))))
 132
 133        ;; custom
 134        (custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
 135        (custom-button-mouse ((t (:background "grey90" :foreground "black" :box (:line-width 2 :style released-button)))))
 136        (custom-button-pressed ((t (:foreground "black" :background "light grey" :box (:line-width 2 :style pressed-button)))))
 137        (custom-button-pressed-unraised ((t (:underline t :foreground "magenta4"))))
 138        (custom-button-unraised ((t (:underline t))))
 139        (custom-changed ((t (:foreground "white" :background "blue"))))
 140        (custom-comment ((t (:background "gray85"))))
 141        (custom-comment-tag ((t (:foreground "blue4"))))
 142        (custom-documentation ((t (nil))))
 143        (custom-face-tag ((t (:family "Sans Serif" :weight bold :height 1.2))))
 144        (custom-group-tag ((t (:bold t :foreground "blue1" :weight bold :height 1.2))))
 145        (custom-group-tag-1 ((t (:bold t :family "Sans Serif" :foreground "red1" :weight bold :height 1.2))))
 146        (custom-invalid ((t (:foreground "yellow" :background "red"))))
 147        (custom-link ((t (:underline t :foreground "blue1"))))
 148        (custom-modified ((t (:foreground "white" :background "blue"))))
 149        (custom-rogue ((t (:foreground "pink" :background "black"))))
 150        (custom-saved ((t (:underline t))))
 151        (custom-set ((t (:foreground "blue" :background "white"))))
 152        (custom-state ((t (:foreground "green4"))))
 153        (custom-themed ((t (:background "blue1" :foreground "white"))))
 154        (custom-variable-button ((t (:weight bold :underline t))))
 155        (custom-variable-tag ((t (:bold t :family "Sans Serif" :foreground "blue1" :weight bold :height 1.2))))
 156
 157        ;; cvs
 158        (cvs-filename-face ((t (:foreground "blue4"))))
 159        (cvs-handled-face ((t (:foreground "pink"))))
 160        (cvs-header-face ((t (:weight bold :foreground "blue4"))))
 161        (cvs-marked-face ((t (:weight bold :foreground "green3"))))
 162        (cvs-msg-face ((t (:slant italic :foreground "gray55"))))
 163        (cvs-need-action-face ((t (:foreground "orange"))))
 164        (cvs-unknown-face ((t (:foreground "red"))))
 165
 166        ;; diff
 167        (diff-added ((t ,diff-added)))
 168        (diff-changed ((t (:foreground "blue" :background "#DDDDFF"))))
 169        (diff-context ((t ,diff-none)))
 170        (diff-file-header ((t (:foreground "red" :background "#EAF2F5"))))
 171        (diff-file1-hunk-header  ((t (:foreground "dark magenta" :background "#EAF2F5"))))
 172        (diff-file2-hunk-header  ((t (:foreground "#2B7E2A" :background "#EAF2F5"))))
 173        (diff-header ((t (:foreground "#999999" :background "#EAF2F5"))))
 174        (diff-hunk-header ((t ,diff-hunk-header)))
 175        (diff-index ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4" :background "#EAF2F5"))))
 176        (diff-indicator-added ((t (:background "#AAFFAA"))))
 177        (diff-indicator-changed ((t (:background "#AAAAFF"))))
 178        (diff-indicator-removed ((t (:background "#FFAAAA"))))
 179        (diff-removed ((t ,diff-removed)))
 180
 181        ;; dircolors
 182        (dircolors-face-asm ((t (:foreground "black"))))
 183        (dircolors-face-backup ((t (:foreground "black"))))
 184        (dircolors-face-compress ((t (:foreground "red"))))
 185        (dircolors-face-dir ((t ,directory)))
 186        (dircolors-face-doc ((t (:foreground "black"))))
 187        (dircolors-face-dos ((t (:foreground "green3"))))
 188        (dircolors-face-emacs ((t (:foreground "black"))))
 189        (dircolors-face-exec ((t (:foreground "green3"))))
 190        (dircolors-face-html ((t (:foreground "black"))))
 191        (dircolors-face-img ((t (:foreground "black"))))
 192        (dircolors-face-lang ((t (:foreground "black"))))
 193        (dircolors-face-lang-interface ((t (:foreground "black"))))
 194        (dircolors-face-make ((t (:foreground "black"))))
 195        (dircolors-face-objet ((t (:foreground "black"))))
 196        (dircolors-face-package ((t (:foreground "red"))))
 197        (dircolors-face-paddb ((t (:foreground "black"))))
 198        (dircolors-face-ps ((t (:foreground "black"))))
 199        (dircolors-face-sound ((t (:foreground "black"))))
 200        (dircolors-face-tar ((t (:foreground "red"))))
 201        (dircolors-face-text ((t (:foreground "black"))))
 202        (dircolors-face-yacc ((t (:foreground "black"))))
 203
 204        ;; dired
 205        (dired-directory ((t ,directory)))
 206        (dired-header ((t ,directory)))
 207        (dired-ignored ((t (:strike-through t :foreground "red"))))
 208        (dired-mark ((t ,marked-line)))
 209        (dired-marked ((t ,marked-line)))
 210        (dired-symlink ((t ,symlink)))
 211
 212        ;; dired+
 213        (diredp-compressed-file-suffix ((t (:foreground "red"))))
 214        (diredp-date-time ((t (:foreground "purple"))))
 215        (diredp-dir-heading ((t ,directory)))
 216        (diredp-dir-priv ((t ,directory)))
 217        (diredp-exec-priv ((t (:background "#03C03C"))))
 218        (diredp-executable-tag ((t (:foreground "green3" :background "white"))))
 219        (diredp-file-name ((t (:foreground "black"))))
 220        (diredp-file-suffix ((t (:foreground "#008000"))))
 221        (diredp-flag-mark-line ((t ,marked-line)))
 222        (diredp-ignored-file-name ((t (:strike-through t :foreground "red"))))
 223        (diredp-read-priv ((t (:background "#0A99FF"))))
 224        (diredp-write-priv ((t (:foreground "white" :background "#FF4040"))))
 225
 226        ;; ediff
 227        (ediff-current-diff-A ((t (:foreground "gray33" :background "#FFFF99"))))
 228        (ediff-current-diff-B ((t (:foreground "gray33" :background "#FFFF99"))))
 229        (ediff-fine-diff-A ((t (:foreground "dark magenta" :background "#FFAAAA"))))
 230        (ediff-fine-diff-B ((t (:foreground "#2B7E2A" :background "#AAFFAA"))))
 231        (ediff-current-diff-C ((t (:foreground "black" :background "cyan"))))
 232
 233        ;; egg
 234        (egg-branch ((t (:foreground "SkyBlue" :height 1.1))))
 235        (egg-diff-add ((t ,diff-added)))
 236        (egg-diff-del ((t ,diff-removed)))
 237        (egg-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
 238        (egg-diff-hunk-header ((t ,diff-hunk-header)))
 239        (egg-diff-none ((t ,diff-none)))
 240        (egg-header ((t (:weight bold :height 1.1))))
 241        (egg-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
 242
 243        ;; flypell
 244        (flyspell-duplicate-face ((t (:underline "#008000"))))
 245        (flyspell-incorrect-face ((t (:underline "red"))))
 246
 247        ;; LaTeX
 248        (font-latex-bold-face ((t (:weight bold :foreground "medium sea green"))))
 249        (font-latex-math-face ((t (:foreground "blue"))))
 250        (font-latex-sectioning-1-face ((t (:family "Sans Serif" :height 2.7 :weight bold :foreground "cornflower blue"))))
 251        (font-latex-sectioning-2-face ((t ,ol1)))
 252        (font-latex-sectioning-3-face ((t ,ol2)))
 253        (font-latex-sectioning-4-face ((t ,ol3)))
 254        (font-latex-sectioning-5-face ((t ,ol4)))
 255        (font-latex-sedate-face ((t (:foreground "gray45"))))
 256        (font-latex-verbatim-face ((t (:foreground "tan1"))))
 257
 258        ;; font-lock
 259        (font-lock-builtin-face ((t (:foreground "orchid"))))
 260        (font-lock-comment-delimiter-face ((t (:foreground "red"))))
 261        (font-lock-comment-face ((t (:slant italic :foreground "red"))))
 262        (font-lock-constant-face ((t (:foreground "dark cyan"))))
 263        (font-lock-doc-face ((t (:foreground "#EB4264"))))
 264        (font-lock-doc-string-face ((t (:foreground "#3041C4"))))
 265        (font-lock-function-name-face ((t (:foreground "blue"))))
 266        (font-lock-keyword-face ((t (:foreground "purple1"))))
 267        (font-lock-preprocessor-face ((t (:foreground "red")))) ;; see `printf' in AWK
 268        (font-lock-reference-face ((t (:foreground "dark cyan"))))
 269        (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
 270        (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
 271        (font-lock-string-face ((t (:foreground "#3AA221"))))
 272        (font-lock-type-face ((t (:foreground "forest green"))))
 273        (font-lock-variable-name-face ((t (:foreground "magenta"))))
 274        (font-lock-warning-face ((t (:weight bold :foreground "red"))))
 275
 276        (fringe ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
 277
 278        ;; Gnus
 279        (gnus-cite-attribution-face ((t (:foreground "#5050B0"))))
 280        (gnus-cite-face-1 ((t (:foreground "#5050B0"))))
 281        (gnus-cite-face-2 ((t (:foreground "#660066"))))
 282        (gnus-cite-face-3 ((t (:foreground "#007777"))))
 283        (gnus-cite-face-4 ((t (:foreground "#990000"))))
 284        (gnus-cite-face-5 ((t (:foreground "#000099"))))
 285        (gnus-cite-face-6 ((t (:foreground "#BB6600"))))
 286        (gnus-cite-face-7 ((t (:foreground "#5050B0"))))
 287        (gnus-cite-face-8 ((t (:foreground "#660066"))))
 288        (gnus-cite-face-9 ((t (:foreground "#007777"))))
 289        (gnus-cite-face-10 ((t (:foreground "#990000"))))
 290        (gnus-emphasis-bold ((t (:weight bold))))
 291        (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
 292        (gnus-group-mail-1-empty-face ((t (:foreground "#5050B0"))))
 293        (gnus-group-mail-1-face ((t (:weight bold :foreground "#FF50B0"))))
 294        (gnus-group-mail-2-empty-face ((t (:foreground "#660066"))))
 295        (gnus-group-mail-2-face ((t (:weight bold :foreground "#FF0066"))))
 296        (gnus-group-mail-3-empty-face ((t (:foreground "gray50"))))
 297        (gnus-group-mail-3-face ((t (:weight bold :foreground "black"))))
 298        (gnus-group-mail-low-empty-face ((t ,cancel)))
 299        (gnus-group-mail-low-face ((t ,cancel)))
 300        (gnus-group-news-1-empty-face ((t (:foreground "#5050B0"))))
 301        (gnus-group-news-1-face ((t (:weight bold :foreground "#FF50B0"))))
 302        (gnus-group-news-2-empty-face ((t (:foreground "#660066"))))
 303        (gnus-group-news-2-face ((t (:weight bold :foreground "#FF0066"))))
 304        (gnus-group-news-3-empty-face ((t (:foreground "gray50"))))
 305        (gnus-group-news-3-face ((t (:weight bold :foreground "black"))))
 306        (gnus-group-news-4-empty-face ((t (:foreground "#990000"))))
 307        (gnus-group-news-4-face ((t (:weight bold :foreground "#FF0000"))))
 308        (gnus-group-news-5-empty-face ((t (:foreground "#000099"))))
 309        (gnus-group-news-5-face ((t (:weight bold :foreground "#FF0099"))))
 310        (gnus-group-news-6-empty-face ((t (:foreground "gray50"))))
 311        (gnus-group-news-6-face ((t (:weight bold :foreground "gray50"))))
 312        (gnus-header-content-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
 313        (gnus-header-from-face ((t (:family "Sans Serif" :foreground "blue"))))
 314        (gnus-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
 315        (gnus-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
 316        (gnus-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
 317        (gnus-picon-face ((t (:foreground "yellow" :background "white"))))
 318        (gnus-picon-xbm-face ((t (:foreground "yellow" :background "white"))))
 319        (gnus-signature-face ((t (:foreground "#7F7F7F"))))
 320        (gnus-splash-face ((t (:foreground "#FF8C00"))))
 321        (gnus-summary-cancelled-face ((t ,cancel)))
 322        (gnus-summary-high-ancient-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
 323        (gnus-summary-high-read-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
 324        (gnus-summary-high-ticked-face ((t (:weight normal :foreground "#009900"))))
 325        (gnus-summary-high-unread-face ((t (:weight normal :foreground "#1A44B6"))))
 326        (gnus-summary-low-ancient-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
 327        (gnus-summary-low-read-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
 328        (gnus-summary-low-ticked-face ((t (:slant italic :foreground "#009900"))))
 329        (gnus-summary-low-unread-face ((t (:slant italic :foreground "gray50"))))
 330        (gnus-summary-normal-ancient-face ((t (:foreground "black" :background "#E0E0E0"))))
 331        (gnus-summary-normal-read-face ((t (:foreground "black" :background "#E0E0E0"))))
 332        (gnus-summary-normal-ticked-face ((t (:foreground "#FD8008")))) ;; #009900
 333        (gnus-summary-normal-unread-face ((t (:foreground "black"))))
 334        (gnus-summary-selected-face ((t (:background "#FFD0D0" :underline t))))
 335        (gnus-x-face ((t (:foreground "black" :background "white"))))
 336
 337        (header-line ((t (:weight bold :underline "black" :overline "black" :foreground "black" :background "#FFFF88"))))
 338        (highlight ((t (:background "#FFFFA0"))))  ; used by hlt package of Drew Adams
 339        (highlight-symbol-face ((t (:background "#FFFFA0"))))
 340        (hl-line ((t (:underline t :background "#C6C3C6"))))
 341
 342        (html-helper-bold-face ((t (:weight bold :foreground "black"))))
 343        (html-helper-italic-face ((t (:slant italic :foreground "black"))))
 344        (html-helper-underline-face ((t (:underline t :foreground "black"))))
 345        (html-tag-face ((t (:foreground "blue"))))
 346
 347        ;; Info / info+
 348        (info-file ((t (:family "Sans Serif" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1"))))
 349        (info-header-node ((t (:underline t :foreground "orange"))))  ; nodes in header
 350        (info-header-xref ((t (:underline t :foreground "dodger blue"))))  ; cross references in header
 351        (info-menu-header ((t (:family "Sans Serif" :height 1.6 :weight bold :underline t :foreground "#00CC00"))))  ; menu titles (headers) -- major topics
 352        (info-menu-star ((t (:foreground "black"))))  ; every 3rd menu item
 353        (info-node ((t (:underline t :foreground "blue"))))  ; node names
 354        (info-quoted-name ((t ,inline-code)))
 355        (info-string ((t (:foreground "green4"))))  ; strings ("...")
 356        (Info-title-1-face ((t ,ol1)))
 357        (Info-title-2-face ((t ,ol2)))
 358        (Info-title-3-face ((t ,ol3)))
 359        (Info-title-4-face ((t ,ol4)))
 360        (info-xref ((t (:weight bold :underline t :foreground "blue"))))  ; unvisited cross-references
 361        (info-xref-visited ((t (:weight bold :foreground "magenta4"))))  ; previously visited cross-references
 362
 363        ;; highlighting matches
 364        (isearch ((t (:weight bold :box (:line-width 1 :color "#A0A0A0") :foreground "#EE6600" :background "yellow"))))
 365        (isearch-fail ((t (:weight bold :foreground "white" :background "red"))))
 366        (isearch-lazy-highlight-face ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for GNU Emacs
 367        (isearch-secondary ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for XEmacs
 368
 369        (light-symbol-face ((t (:background "#FFFFA0"))))
 370
 371        (linum ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
 372
 373        (magit-branch ((t (:foreground "SkyBlue" :height 1.1))))
 374        (magit-diff-add ((t ,diff-added)))
 375        (magit-diff-del ((t ,diff-removed)))
 376        (magit-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
 377        (magit-diff-hunk-header ((t ,diff-hunk-header)))
 378        (magit-diff-none ((t ,diff-none)))
 379        (magit-header ((t (:foreground "white" :background "#FF4040"))))
 380        (magit-item-highlight ((t (:background "#EAF2F5"))))
 381        (magit-item-mark ((t ,marked-line)))
 382        (magit-log-head-label ((t (:box (:line-width 1 :color "blue" :style nil)))))
 383        (magit-log-tag-label ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
 384        (magit-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
 385
 386        ;; make
 387        (makefile-space-face ((t (:background "hot pink"))))
 388        (makefile-targets ((t (:weight bold :foreground "blue"))))
 389
 390        (match ((t (:weight bold :foreground "#EE6600" :background "pink"))))
 391
 392        ;; Message
 393        (message-cited-text-face ((t (:foreground "#5050B0"))))
 394        (message-header-cc-face ((t (:family "Sans Serif" :foreground "blue"))))
 395        (message-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
 396        (message-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
 397        (message-header-other-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
 398        (message-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
 399        (message-header-to-face ((t (:family "Sans Serif" :foreground "blue"))))
 400        (message-header-xheader-face ((t (:foreground "red"))))
 401        (message-mml-face ((t (:foreground "forest green"))))
 402        (message-separator-face ((t (:family "Sans Serif" :weight bold :foreground "red"))))
 403
 404        (mm-uu-extract ((t ,block-code)))
 405
 406        (minibuffer-noticeable-prompt ((t (:weight bold :foreground "black" :background "gold"))))
 407        (minibuffer-prompt ((t (:weight bold :foreground "black" :background "gold"))))
 408
 409        ;; GNU Emacs mode-line
 410        (mode-line ((t (:box (:line-width 1 :color "#254394") :foreground "#D4EAFF" :background "#4241EF"))))
 411        (mode-line-buffer-id ((t (:weight bold :foreground "white"))))
 412        (mode-line-highlight ((t (:foreground "yellow"))))
 413        (mode-line-inactive ((t (:box (:line-width 1 :color "#636363") :foreground "#818181" :background "#C6C3C6"))))
 414
 415        ;; XEmacs modeline
 416        (modeline-mousable ((t (:weight bold :foreground "firebrick")))) ; major-mode
 417        (modeline-mousable-minor-mode ((t (:foreground "green4"))))
 418
 419        (mumamo-background-chunk-major ((t (:background "white"))))
 420
 421        ;; non-breaking space
 422        (nobreak-space ((t (:background "#C6C3C6"))))
 423
 424        (nxml-attribute-local-name-face ((t (:foreground "magenta"))))
 425        (nxml-attribute-value-delimiter-face ((t (:foreground "green4"))))
 426        (nxml-attribute-value-face ((t (:foreground "green4"))))
 427        (nxml-comment-content-face  ((t (:slant italic :foreground "red"))))
 428        (nxml-comment-delimiter-face ((t (:foreground "red"))))
 429        (nxml-element-local-name-face ((t (:foreground "blue"))))
 430        (nxml-processing-instruction-delimiter-face ((t (:foreground "purple1"))))
 431        (nxml-processing-instruction-target-face ((t (:foreground "purple1"))))
 432        (nxml-tag-delimiter-face ((t (:foreground "blue"))))
 433        (nxml-tag-slash-face ((t (:foreground "blue"))))
 434
 435        ;; Org
 436        (org-agenda-clocking ((t ,clock-line)))
 437        (org-agenda-column-dateline ((t (:inherit org-column))))
 438        ;; (org-agenda-column-dateline ((t (:background "deep sky blue" :height 79 :family "Consolas"))))
 439        (org-agenda-current-time ((t (:weight bold :underline t :foreground "purple"))))
 440        (org-agenda-date ((t (:height 1.6 :weight bold :foreground "#0063F5")))) ; "#87C9FC"
 441        (org-agenda-date-today ((t (:height 1.6 :weight bold :foreground "purple"))))  ; "#CCCCFF"  ; inherit
 442        (org-agenda-date-weekend ((t (:height 1.6 :weight bold :foreground "dim gray"))))  ; "#B6B2AE"  ; inherit
 443        (org-agenda-diary ((t (:weight bold :foreground "green4" :background "light blue"))))
 444        (org-agenda-dimmed-todo-face ((t (:foreground "gold2"))))  ; org-blocked-todo
 445        (org-agenda-done ((t (:foreground "gray50" :background "#EAFFEA"))))
 446        (org-agenda-restriction-lock ((t (:foreground "white" :background "SkyBlue4"))))
 447        (org-agenda-structure ((t (:weight bold :foreground "white" :background "#0099FF"))))
 448        (org-archived ((t (:foreground "gray70"))))
 449        (org-beamer-tag ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
 450        (org-block ((t ,block-code)))
 451        (org-block-background ((t (:background "#FFFFEA"))))
 452        (org-block-begin-line ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
 453        (org-block-end-line ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
 454        (org-checkbox ((t (:weight bold :foreground "white" :background "#777777" :box (:line-width 1 :style pressed-button)))))
 455        (org-clock-overlay ((t (:foreground "white" :background "SkyBlue4"))))
 456        (org-code ((t (:foreground "#0077CC" :background "#EAFFEA"))))
 457        (org-column ((t ,column)))
 458        ;; (org-column ((t (:background "gold" :height 79 :family "Consolas"))))
 459        (org-column-title ((t (:inherit org-column))))
 460        ;; (org-column-title ((t (:background "gold" :height 79 :family "Consolas"))))
 461        (org-date ((t (:underline t :foreground "purple"))))
 462        (org-dim ((t (:foreground "#AAAAAA"))))
 463        (org-document-info ((t (:foreground "midnight blue"))))
 464        (org-document-info-keyword ((t (:foreground "#008ED1" :background "#EAEAFF"))))
 465        (org-document-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "blue"))))
 466        (org-done ((t (:weight bold :box (:line-width 1 :color "#666666") :foreground "white" :background "#888888"))))
 467        (org-drawer ((t (:foreground "light sky blue"))))
 468        (org-ellipsis ((t (:underline "#B0EEB0" :foreground "#00BB00"))))
 469        (org-example ((t (:foreground "blue" :background "#EAFFEA"))))
 470        (org-footnote ((t (:underline t :foreground "#008ED1"))))
 471        (org-formula ((t (:foreground "chocolate1"))))
 472        (org-headline-done ((t (:height 1.0 :weight bold :strike-through t :foreground "#A7A6AA")))) ; 1.4
 473        (org-hide ((t (:foreground "#666666" :background "#FFFFCC"))))
 474        (org-latex-and-export-specials ((t (:foreground "blue"))))
 475        (org-level-1 ((t ,ol1)))
 476        (org-level-2 ((t ,ol2)))
 477        (org-level-3 ((t ,ol3)))
 478        (org-level-4 ((t ,ol4)))
 479        (org-level-5 ((t ,ol5)))
 480        (org-level-6 ((t ,ol6)))
 481        (org-level-7 ((t ,ol7)))
 482        (org-level-8 ((t ,ol8)))
 483        (org-link ((t (:underline t :foreground "#0077CC"))))
 484        (org-meta-line ((t (:foreground "#008ED1" :background "#EAEAFF"))))
 485        (org-mode-line-clock ((t ,clock-line)))
 486        (org-mode-line-clock-overrun ((t (:weight bold :box (:line-width 1 :color "#FFBB00") :foreground "white" :background "#FF4040"))))
 487        (org-property-value ((t (nil))))
 488        (org-quote ((t (:slant italic :foreground "dim gray"))))
 489        (org-scheduled ((t (:foreground "#0077CC"))))
 490        (org-scheduled-previously ((t (:foreground "#0077CC"))))
 491        (org-scheduled-today ((t (:slant italic :foreground "purple"))))
 492        (org-sexp-date ((t (:foreground "purple"))))
 493        (org-special-keyword ((t (:foreground "#00BB00" :background "#EAFFEA"))))
 494        (org-table ((t (:foreground "blue" :background "#EAFFEA"))))
 495        (org-tag ((t (:height 1.0 :weight normal :slant italic :foreground "#816A7D" :background "#F7B8DE"))))
 496        (org-target ((t (:underline t))))
 497        (org-time-grid ((t (:foreground "#008ED1"))))
 498        (org-todo ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
 499        (org-upcoming-deadline ((t (:foreground "#FF5555"))))
 500        ;; (org-upcoming-deadline ((t (:foreground "white" :background "#E9A36A" :weight bold))))
 501        (org-verbatim ((t ,inline-code)))
 502        (org-verse ((t (:slant italic :foreground "dim gray" :background "#EEEEEE"))))
 503        (org-warning ((t (:weight bold :box (:line-width 1 :color "#4488BB") :foreground "#5C88D3" :background "#BBDDFF"))))
 504
 505        ;; pabbrev
 506        (pabbrev-debug-display-label-face ((t (:background "chartreuse"))))
 507        (pabbrev-suggestions-label-face ((t (:weight bold :foreground "white" :background "purple"))))
 508        (pabbrev-suggestions-face ((t (:weight bold :foreground "white" :background "red"))))
 509
 510        ;; parentheses
 511        (paren-face-match ((t (:background "chartreuse"))))
 512        (paren-face-mismatch ((t (:weight bold :foreground "white" :background "purple"))))
 513        (paren-face-no-match ((t (:weight bold :foreground "white" :background "purple"))))
 514
 515        (pesche-space ((t (:background "lemon chiffon"))))
 516        (pesche-tab ((t (:background "gold"))))
 517
 518        ;; pretty print ^L
 519        (pp^L-highlight ((t (:strike-through t :inherit shadow))))
 520
 521        (recover-this-file ((t (:background "tomato"))))
 522
 523        ;; selection, selected region
 524        (region ((t (:background "#D2D9E0"))))  ; for GNU Emacs ; was seashell2
 525        (zmacs-region ((t (:background "gray84"))))  ; for XEmacs
 526
 527        ;; used by Org-mode for highlighting matched entries and keywords
 528        (secondary-selection ((t (:weight bold :foreground "white" :background "#335EA8"))))
 529
 530        (shadow ((t (:weight bold :foreground "#666666" :background "#FFFFCC"))))
 531
 532        ;; for `cat <<EOF' in shell scripts
 533        (sh-heredoc ((t (:foreground "blue"))))
 534
 535        ;; shell
 536        (shell-option-face ((t (:foreground "forest green"))))
 537        (shell-output-2-face ((t (:foreground "blue"))))
 538        (shell-output-3-face ((t (:foreground "purple"))))
 539        (shell-output-face ((t (:foreground "black"))))
 540        (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
 541
 542        ;; parentheses
 543        (show-paren-match-face ((t (:background "chartreuse"))))
 544        (show-paren-mismatch-face ((t (:weight bold :foreground "white" :background "purple"))))
 545
 546        ;; speedbar
 547        (speedbar-button-face ((t (:foreground "green4"))))
 548        (speedbar-directory-face ((t (:foreground "blue4"))))
 549        (speedbar-file-face ((t (:foreground "cyan4"))))
 550        (speedbar-highlight-face ((t (:background "green"))))
 551        (speedbar-selected-face ((t (:underline t :foreground "red"))))
 552        (speedbar-tag-face ((t (:foreground "brown"))))
 553
 554        ;; subversion
 555        (svn-status-directory-face ((t ,directory)))
 556        (svn-status-filename-face ((t (:weight bold :foreground "#4183C4"))))
 557        (svn-status-locked-face ((t (:weight bold :foreground "red"))))
 558        (svn-status-marked-face ((t ,marked-line)))
 559        (svn-status-marked-popup-face ((t (:weight bold :foreground "green3"))))
 560        (svn-status-switched-face ((t (:slant italic :foreground "gray55"))))
 561        (svn-status-symlink-face  ((t ,symlink)))
 562        (svn-status-update-available-face ((t (:foreground "orange"))))
 563
 564        ;; TeX
 565        (tex-verbatim ((t (:foreground "blue"))))
 566
 567        ;; tool-bar
 568        (tool-bar ((t (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
 569
 570        ;; tooltip
 571        (tooltip ((t (:foreground "black" :background "light yellow"))))
 572
 573        ;; show trailing whitespace
 574        (trailing-whitespace ((t (:background "#D5FFD5"))))
 575
 576        (traverse-match-face ((t (:weight bold :foreground "blue violet"))))
 577
 578        (vc-annotate-face-FF3F3F ((t (:foreground "#FF3F3F" :background "black"))))
 579        (vc-annotate-face-FF6C3F ((t (:foreground "#FF3F3F" :background "black"))))
 580        (vc-annotate-face-FF993F ((t (:foreground "#FF993F" :background "black"))))
 581        (vc-annotate-face-FFC63F ((t (:foreground "#FF993F" :background "black"))))
 582        (vc-annotate-face-FFF33F ((t (:foreground "#FFF33F" :background "black"))))
 583        (vc-annotate-face-DDFF3F ((t (:foreground "#FFF33F" :background "black"))))
 584        (vc-annotate-face-B0FF3F ((t (:foreground "#B0FF3F" :background "black"))))
 585        (vc-annotate-face-83FF3F ((t (:foreground "#B0FF3F" :background "black"))))
 586        (vc-annotate-face-56FF3F ((t (:foreground "#4BFF4B" :background "black"))))
 587        (vc-annotate-face-3FFF56 ((t (:foreground "#4BFF4B" :background "black"))))
 588        (vc-annotate-face-3FFF83 ((t (:foreground "#3FFFB0" :background "black"))))
 589        (vc-annotate-face-3FFFB0 ((t (:foreground "#3FFFB0" :background "black"))))
 590        (vc-annotate-face-3FFFDD ((t (:foreground "#3FF3FF" :background "black"))))
 591        (vc-annotate-face-3FF3FF ((t (:foreground "#3FF3FF" :background "black"))))
 592        (vc-annotate-face-3FC6FF ((t (:foreground "#3F99FF" :background "black"))))
 593        (vc-annotate-face-3F99FF ((t (:foreground "#3F99FF" :background "black"))))
 594        (vc-annotate-face-3F6CFF ((t (:foreground "#3F3FFF" :background "black"))))
 595        (vc-annotate-face-3F3FFF ((t (:foreground "#3F3FFF" :background "black"))))
 596
 597        ;; w3m
 598        (w3m-anchor ((t (:foreground "blue"))))
 599        (w3m-arrived-anchor ((t (:foreground "purple1"))))
 600        (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
 601        (w3m-bold ((t (:weight bold :foreground "medium sea green"))))
 602        (w3m-current-anchor ((t (:weight bold :underline t :foreground "blue"))))
 603        (w3m-form ((t (:underline t :foreground "tan1"))))
 604        (w3m-form-button-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
 605        ;; (w3m-form-button-face ((t (:background "lightgray" :foreground "black"))))
 606        (w3m-form-button-mouse-face ((t (:underline t :foreground "light grey" :background "#2B7E2A"))))
 607        ;; (w3m-form-button-mouse-face ((t (:background "orange"))))
 608        (w3m-form-button-pressed-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
 609        ;; (w3m-form-button-pressed-face ((t (:background "yellow"))))
 610        (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
 611        (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
 612        (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))
 613        ;; (w3m-history-current-url-face ((t (:foreground "LightSkyBlue" :background "SkyBlue4"))))
 614        (w3m-image-face ((t (:weight bold :foreground "DarkSeaGreen2"))))
 615        (w3m-link-numbering ((t (:foreground "#B4C7EB"))))     ;; mouseless browsing
 616        (w3m-strike-through-face ((t (:strike-through t))))
 617        (w3m-underline-face ((t (:underline t))))
 618        ;; (w3m-tab-background-face ((t (:foreground "white" :background "#21364B"))))
 619        ;; (w3m-tab-selected-face ((t (:foreground "black" :background "Gray85" :box (:line-width 1 :style nil)))))
 620        ;; (w3m-tab-selected-retrieving-face ((t (:background "gray85" :foreground "white" :box (:line-width -1 :style nil)))))
 621        ;; (w3m-tab-unselected-face ((t (:foreground "gray20" :background "gray70" :box (:line-width 1 :style nil)))))
 622        ;; (w3m-tab-unselected-retrieving-face ((t (:foreground "white" :background "gray50" :box (:line-width -1 :style nil)))))
 623
 624        (widget-button-face ((t (:weight bold))))
 625        (widget-button-pressed-face ((t (:foreground "red"))))
 626        (widget-documentation-face ((t (:foreground "green4"))))
 627        (widget-field-face ((t (:background "gray85"))))
 628        (widget-inactive-face ((t (:foreground "dim gray"))))
 629        (widget-single-line-field-face ((t (:background "gray85"))))
 630
 631        (yas/field-debug-face ((t (:background "ivory2"))))
 632        (yas/field-highlight-face ((t (:background "DarkSeaGreen1"))))
 633        ))))
 634
 635 (add-to-list 'color-themes
 636              '(color-theme-leuven "Leuven" "Sebastien Vauban"))
 637
 638 (provide 'color-theme-leuven)
 639
 640
 641 ;; This is for the sake of Emacs.
 642 ;; Local Variables:
 643 ;; ispell-local-dictionary: "en_US"
 644 ;; mode: outline-minor
 645 ;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode))
 646 ;; End:
 647
 648 ;;; color-theme-leuven.el ends here