Browse Source

Link color-theme-leuven to GitHub

Fabrice Niessen 7 years ago
parent
commit
5a89379aaf

+ 0 - 648
color-themes/color-theme-leuven.el

@@ -1,648 +0,0 @@
-;;; color-theme-leuven.el --- Light, but colorful color theme
-
-;; Copyright (C) 2003-2011 Sebastien Vauban
-;; $Date: 2011-02-24 12:09:40 +0100 (Thu, 24 Feb 2011) $
-
-;; 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.
-
-;;* TODO:
-
-;; - [ ] Have a look at http://websitetips.com/colortools/sitepro/
-;; - [ ] Remove inherit properties
-
-;;* Code:
-
-(require 'color-theme)
-
-(defun color-theme-leuven ()
-  "Color theme by Sebastien Vauban."
-  (interactive)
-  (let*
-      ;; inherit properties, independently of definition order
-      ((block-code '(:foreground "blue" :background "#FFFFEA"))
-       (cancel '(:slant italic :strike-through t :foreground "gray55"))
-       (clock-line '(:box (:line-width 1 :color "#FFBB00") :foreground "black" :background "#BFBF00"))
-       (column '(:height 1.0 :weight normal :slant normal :underline nil :strike-through nil :foreground "black" :background "#BFBF00"))
-       (diff-added '(:foreground "#2B7E2A" :background "#CCFFCC"))
-       (diff-hunk-header '(:box (:line-width 1 :color "#D7D7D7") :foreground "#999999" :background "#F7F7F7"))
-       (diff-none '(:foreground "gray33"))
-       (diff-removed '(:foreground "dark magenta" :background "#FFCCCC"))
-       (directory '(:weight bold :foreground "blue" :background "#FFFFD2"))
-       (inline-code '(:box (:line-width 1 :color "#EFEF99") :foreground "#444444"))
-       (marked-line '(:weight bold :foreground "white" :background "red"))
-       (ol1 '(:height 1.0 :weight bold :overline "#0000CC" :foreground "#0077CC" :background "#DFF1FA")) ; 1.8
-       (ol2 '(:height 1.0 :weight bold :overline "#00CC00" :foreground "#2EAE2C" :background "#E8FADA")) ; 1.6
-       (ol3 '(:height 1.0 :weight bold :foreground "#FD8008")) ; 1.3
-       (ol4 '(:height 1.0 :weight bold :slant normal :foreground "#E3258D")) ; 1.2
-       (ol5 '(:height 1.0 :weight bold :slant italic :foreground "#0077CC")) ; 1.1
-       (ol6 '(:height 1.0 :weight bold :slant italic :foreground "#2EAE2C")) ; 1.1
-       (ol7 '(:height 1.0 :weight bold :slant italic :foreground "#FD8008")) ; 1.1
-       (ol8 '(:height 1.0 :weight bold :slant italic :foreground "#E3258D")) ; 1.1
-       (symlink '(:foreground "deep sky blue")))
-    (color-theme-install
-     `(color-theme-leuven
-       ;; frame parameters
-       ((background-color . "white")
-        (background-mode . light)
-        (border-color . "black")
-        (cursor-color . "#15FF00")
-        (foreground-color . "black")
-        (mouse-color . "black"))
-
-       ;; faces
-       (default ((t (nil))))
-       (bold ((t (:weight bold))))
-       (bold-italic ((t (:weight bold :slant italic))))
-       (italic ((t (:slant italic))))
-       (underline ((t (:underline t))))
-
-       ;; anything
-       (anything-header ((t (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
-       ;; under test
-       (anything-bookmarks-su-face ((t (:foreground "red"))))
-       (anything-dir-heading ((t (:foreground "blue" :background "pink"))))
-       (anything-dir-priv ((t (:foreground "dark red" :background "light grey"))))
-       (anything-file-name ((t (:foreground "blue"))))
-       (anything-gentoo-match-face ((t (:foreground "red"))))
-       (anything-isearch-match ((t (:background "yellow"))))
-       (anything-overlay-line-face ((t (:underline t :foreground "white" :background "IndianRed4"))))
-       (anything-visible-mark ((t (:foreground "black" :background "green1"))))
-       (anything-w3m-bookmarks-face ((t (:underline t :foreground "cyan1"))))
-
-       ;; bbdb
-       (bbdb-company ((t (:slant italic :foreground "steel blue"))))
-       (bbdb-field-name ((t (:weight bold :foreground "steel blue"))))
-       (bbdb-field-value ((t (:foreground "steel blue"))))
-       (bbdb-name ((t (:underline t :foreground "#FF6633"))))
-
-       ;; browse-kill-ring
-       (browse-kill-ring-separator-face ((t (:weight bold :foreground "slate gray"))))
-
-       ;; calendar
-       (calendar-today-face ((t (:weight bold :background "#CCCCFF")))) ; "yellow"
-       (diary-face ((t (:foreground "#87C9FC"))))  ;"dark cyan"
-       (holiday-face ((t (:background "#B6B2AE"))))  ; "red"
-
-       (change-log-date-face ((t (:foreground "purple"))))
-       ;; (change-log-email
-       (change-log-file ((t (:weight bold :foreground "#4183C4"))))
-       ;; (change-log-list
-       ;; (change-log-name
-
-       ;; IRC
-       (circe-highlight-all-nicks-face ((t (:foreground "blue" :background "#F0F0F0")))) ; other nick names
-       (circe-highlight-nick-face ((t (:foreground "#009300" :background "#F0F0F0")))) ; messages with my nick cited
-       (circe-my-message-face ((t (:foreground "#8B8B8B" :background "#F0F0F0"))))
-       (circe-originator-face ((t (:foreground "blue"))))
-       (circe-prompt-face ((t (:foreground "red"))))
-       (circe-server-face ((t (:foreground "#99CAE5"))))
-       (lui-button-face ((t (:underline t :foreground "#0077CC"))))
-       (lui-highlight-face ((t (:box '(:line-width 1 :color "#CC0000") :foreground "#CC0000" :background "#FFFF88")))) ; my nickname
-       (lui-time-stamp-face ((t (:foreground "purple"))))
-
-       ;; column-marker
-       (column-marker-1-face ((t (:background "#EBFFEB"))))
-       (column-marker-2-face ((t (:background "#FFFFEB"))))
-       (column-marker-3-face ((t (:background "#FFEBEB"))))
-
-       (comint-highlight-input ((t ,block-code)))
-       (comint-highlight-prompt ((t (:foreground "#008ED1" :background "#EAEAFF"))))
-
-       ;; used in modeline by grep and compile
-       (compilation-error ((t (:weight bold :foreground "red"))))
-       (compilation-info ((t (:weight bold :foreground "green3"))))
-       (compilation-warning ((t (:weight bold :foreground "orange"))))
-
-       (css-selector ((t (:weight bold :foreground "blue"))))
-
-       ;; custom
-       (custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
-       (custom-button-mouse ((t (:background "grey90" :foreground "black" :box (:line-width 2 :style released-button)))))
-       (custom-button-pressed ((t (:foreground "black" :background "light grey" :box (:line-width 2 :style pressed-button)))))
-       (custom-button-pressed-unraised ((t (:underline t :foreground "magenta4"))))
-       (custom-button-unraised ((t (:underline t))))
-       (custom-changed ((t (:foreground "white" :background "blue"))))
-       (custom-comment ((t (:background "gray85"))))
-       (custom-comment-tag ((t (:foreground "blue4"))))
-       (custom-documentation ((t (nil))))
-       (custom-face-tag ((t (:family "Sans Serif" :weight bold :height 1.2))))
-       (custom-group-tag ((t (:bold t :foreground "blue1" :weight bold :height 1.2))))
-       (custom-group-tag-1 ((t (:bold t :family "Sans Serif" :foreground "red1" :weight bold :height 1.2))))
-       (custom-invalid ((t (:foreground "yellow" :background "red"))))
-       (custom-link ((t (:underline t :foreground "blue1"))))
-       (custom-modified ((t (:foreground "white" :background "blue"))))
-       (custom-rogue ((t (:foreground "pink" :background "black"))))
-       (custom-saved ((t (:underline t))))
-       (custom-set ((t (:foreground "blue" :background "white"))))
-       (custom-state ((t (:foreground "green4"))))
-       (custom-themed ((t (:background "blue1" :foreground "white"))))
-       (custom-variable-button ((t (:weight bold :underline t))))
-       (custom-variable-tag ((t (:bold t :family "Sans Serif" :foreground "blue1" :weight bold :height 1.2))))
-
-       ;; cvs
-       (cvs-filename-face ((t (:foreground "blue4"))))
-       (cvs-handled-face ((t (:foreground "pink"))))
-       (cvs-header-face ((t (:weight bold :foreground "blue4"))))
-       (cvs-marked-face ((t (:weight bold :foreground "green3"))))
-       (cvs-msg-face ((t (:slant italic :foreground "gray55"))))
-       (cvs-need-action-face ((t (:foreground "orange"))))
-       (cvs-unknown-face ((t (:foreground "red"))))
-
-       ;; diff
-       (diff-added ((t ,diff-added)))
-       (diff-changed ((t (:foreground "blue" :background "#DDDDFF"))))
-       (diff-context ((t ,diff-none)))
-       (diff-file-header ((t (:foreground "red" :background "#EAF2F5"))))
-       (diff-file1-hunk-header  ((t (:foreground "dark magenta" :background "#EAF2F5"))))
-       (diff-file2-hunk-header  ((t (:foreground "#2B7E2A" :background "#EAF2F5"))))
-       (diff-header ((t (:foreground "#999999" :background "#EAF2F5"))))
-       (diff-hunk-header ((t ,diff-hunk-header)))
-       (diff-index ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4" :background "#EAF2F5"))))
-       (diff-indicator-added ((t (:background "#AAFFAA"))))
-       (diff-indicator-changed ((t (:background "#AAAAFF"))))
-       (diff-indicator-removed ((t (:background "#FFAAAA"))))
-       (diff-removed ((t ,diff-removed)))
-
-       ;; dircolors
-       (dircolors-face-asm ((t (:foreground "black"))))
-       (dircolors-face-backup ((t (:foreground "black"))))
-       (dircolors-face-compress ((t (:foreground "red"))))
-       (dircolors-face-dir ((t ,directory)))
-       (dircolors-face-doc ((t (:foreground "black"))))
-       (dircolors-face-dos ((t (:foreground "green3"))))
-       (dircolors-face-emacs ((t (:foreground "black"))))
-       (dircolors-face-exec ((t (:foreground "green3"))))
-       (dircolors-face-html ((t (:foreground "black"))))
-       (dircolors-face-img ((t (:foreground "black"))))
-       (dircolors-face-lang ((t (:foreground "black"))))
-       (dircolors-face-lang-interface ((t (:foreground "black"))))
-       (dircolors-face-make ((t (:foreground "black"))))
-       (dircolors-face-objet ((t (:foreground "black"))))
-       (dircolors-face-package ((t (:foreground "red"))))
-       (dircolors-face-paddb ((t (:foreground "black"))))
-       (dircolors-face-ps ((t (:foreground "black"))))
-       (dircolors-face-sound ((t (:foreground "black"))))
-       (dircolors-face-tar ((t (:foreground "red"))))
-       (dircolors-face-text ((t (:foreground "black"))))
-       (dircolors-face-yacc ((t (:foreground "black"))))
-
-       ;; dired
-       (dired-directory ((t ,directory)))
-       (dired-header ((t ,directory)))
-       (dired-ignored ((t (:strike-through t :foreground "red"))))
-       (dired-mark ((t ,marked-line)))
-       (dired-marked ((t ,marked-line)))
-       (dired-symlink ((t ,symlink)))
-
-       ;; dired+
-       (diredp-compressed-file-suffix ((t (:foreground "red"))))
-       (diredp-date-time ((t (:foreground "purple"))))
-       (diredp-dir-heading ((t ,directory)))
-       (diredp-dir-priv ((t ,directory)))
-       (diredp-exec-priv ((t (:background "#03C03C"))))
-       (diredp-executable-tag ((t (:foreground "green3" :background "white"))))
-       (diredp-file-name ((t (:foreground "black"))))
-       (diredp-file-suffix ((t (:foreground "#008000"))))
-       (diredp-flag-mark-line ((t ,marked-line)))
-       (diredp-ignored-file-name ((t (:strike-through t :foreground "red"))))
-       (diredp-read-priv ((t (:background "#0A99FF"))))
-       (diredp-write-priv ((t (:foreground "white" :background "#FF4040"))))
-
-       ;; ediff
-       (ediff-current-diff-A ((t (:foreground "gray33" :background "#FFFF99"))))
-       (ediff-current-diff-B ((t (:foreground "gray33" :background "#FFFF99"))))
-       (ediff-fine-diff-A ((t (:foreground "dark magenta" :background "#FFAAAA"))))
-       (ediff-fine-diff-B ((t (:foreground "#2B7E2A" :background "#AAFFAA"))))
-       (ediff-current-diff-C ((t (:foreground "black" :background "cyan"))))
-
-       ;; egg
-       (egg-branch ((t (:foreground "SkyBlue" :height 1.1))))
-       (egg-diff-add ((t ,diff-added)))
-       (egg-diff-del ((t ,diff-removed)))
-       (egg-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
-       (egg-diff-hunk-header ((t ,diff-hunk-header)))
-       (egg-diff-none ((t ,diff-none)))
-       (egg-header ((t (:weight bold :height 1.1))))
-       (egg-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
-
-       ;; flypell
-       (flyspell-duplicate-face ((t (:underline "#008000"))))
-       (flyspell-incorrect-face ((t (:underline "red"))))
-
-       ;; LaTeX
-       (font-latex-bold-face ((t (:weight bold :foreground "medium sea green"))))
-       (font-latex-math-face ((t (:foreground "blue"))))
-       (font-latex-sectioning-1-face ((t (:family "Sans Serif" :height 2.7 :weight bold :foreground "cornflower blue"))))
-       (font-latex-sectioning-2-face ((t ,ol1)))
-       (font-latex-sectioning-3-face ((t ,ol2)))
-       (font-latex-sectioning-4-face ((t ,ol3)))
-       (font-latex-sectioning-5-face ((t ,ol4)))
-       (font-latex-sedate-face ((t (:foreground "gray45"))))
-       (font-latex-verbatim-face ((t (:foreground "tan1"))))
-
-       ;; font-lock
-       (font-lock-builtin-face ((t (:foreground "orchid"))))
-       (font-lock-comment-delimiter-face ((t (:foreground "red"))))
-       (font-lock-comment-face ((t (:slant italic :foreground "red"))))
-       (font-lock-constant-face ((t (:foreground "dark cyan"))))
-       (font-lock-doc-face ((t (:foreground "#EB4264"))))
-       (font-lock-doc-string-face ((t (:foreground "#3041C4"))))
-       (font-lock-function-name-face ((t (:foreground "blue"))))
-       (font-lock-keyword-face ((t (:foreground "purple1"))))
-       (font-lock-preprocessor-face ((t (:foreground "red")))) ;; see `printf' in AWK
-       (font-lock-reference-face ((t (:foreground "dark cyan"))))
-       (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
-       (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
-       (font-lock-string-face ((t (:foreground "#3AA221"))))
-       (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"))))
-
-       (fringe ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
-
-       ;; Gnus
-       (gnus-cite-attribution-face ((t (:foreground "#5050B0"))))
-       (gnus-cite-face-1 ((t (:foreground "#5050B0"))))
-       (gnus-cite-face-2 ((t (:foreground "#660066"))))
-       (gnus-cite-face-3 ((t (:foreground "#007777"))))
-       (gnus-cite-face-4 ((t (:foreground "#990000"))))
-       (gnus-cite-face-5 ((t (:foreground "#000099"))))
-       (gnus-cite-face-6 ((t (:foreground "#BB6600"))))
-       (gnus-cite-face-7 ((t (:foreground "#5050B0"))))
-       (gnus-cite-face-8 ((t (:foreground "#660066"))))
-       (gnus-cite-face-9 ((t (:foreground "#007777"))))
-       (gnus-cite-face-10 ((t (:foreground "#990000"))))
-       (gnus-emphasis-bold ((t (:weight bold))))
-       (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
-       (gnus-group-mail-1-empty-face ((t (:foreground "#5050B0"))))
-       (gnus-group-mail-1-face ((t (:weight bold :foreground "#FF50B0"))))
-       (gnus-group-mail-2-empty-face ((t (:foreground "#660066"))))
-       (gnus-group-mail-2-face ((t (:weight bold :foreground "#FF0066"))))
-       (gnus-group-mail-3-empty-face ((t (:foreground "gray50"))))
-       (gnus-group-mail-3-face ((t (:weight bold :foreground "black"))))
-       (gnus-group-mail-low-empty-face ((t ,cancel)))
-       (gnus-group-mail-low-face ((t ,cancel)))
-       (gnus-group-news-1-empty-face ((t (:foreground "#5050B0"))))
-       (gnus-group-news-1-face ((t (:weight bold :foreground "#FF50B0"))))
-       (gnus-group-news-2-empty-face ((t (:foreground "#660066"))))
-       (gnus-group-news-2-face ((t (:weight bold :foreground "#FF0066"))))
-       (gnus-group-news-3-empty-face ((t (:foreground "gray50"))))
-       (gnus-group-news-3-face ((t (:weight bold :foreground "black"))))
-       (gnus-group-news-4-empty-face ((t (:foreground "#990000"))))
-       (gnus-group-news-4-face ((t (:weight bold :foreground "#FF0000"))))
-       (gnus-group-news-5-empty-face ((t (:foreground "#000099"))))
-       (gnus-group-news-5-face ((t (:weight bold :foreground "#FF0099"))))
-       (gnus-group-news-6-empty-face ((t (:foreground "gray50"))))
-       (gnus-group-news-6-face ((t (:weight bold :foreground "gray50"))))
-       (gnus-header-content-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
-       (gnus-header-from-face ((t (:family "Sans Serif" :foreground "blue"))))
-       (gnus-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
-       (gnus-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
-       (gnus-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
-       (gnus-picon-face ((t (:foreground "yellow" :background "white"))))
-       (gnus-picon-xbm-face ((t (:foreground "yellow" :background "white"))))
-       (gnus-signature-face ((t (:foreground "#7F7F7F"))))
-       (gnus-splash-face ((t (:foreground "#FF8C00"))))
-       (gnus-summary-cancelled-face ((t ,cancel)))
-       (gnus-summary-high-ancient-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
-       (gnus-summary-high-read-face ((t (:weight normal :foreground "#1A44B6" :background "#E0E0E0"))))
-       (gnus-summary-high-ticked-face ((t (:weight normal :foreground "#009900"))))
-       (gnus-summary-high-unread-face ((t (:weight normal :foreground "#1A44B6"))))
-       (gnus-summary-low-ancient-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
-       (gnus-summary-low-read-face ((t (:slant italic :foreground "gray50" :background "#E0E0E0"))))
-       (gnus-summary-low-ticked-face ((t (:slant italic :foreground "#009900"))))
-       (gnus-summary-low-unread-face ((t (:slant italic :foreground "gray50"))))
-       (gnus-summary-normal-ancient-face ((t (:foreground "black" :background "#E0E0E0"))))
-       (gnus-summary-normal-read-face ((t (:foreground "black" :background "#E0E0E0"))))
-       (gnus-summary-normal-ticked-face ((t (:foreground "#FD8008")))) ;; #009900
-       (gnus-summary-normal-unread-face ((t (:foreground "black"))))
-       (gnus-summary-selected-face ((t (:background "#FFD0D0" :underline t))))
-       (gnus-x-face ((t (:foreground "black" :background "white"))))
-
-       (header-line ((t (:weight bold :underline "black" :overline "black" :foreground "black" :background "#FFFF88"))))
-       (highlight ((t (:background "#FFFFA0"))))  ; used by hlt package of Drew Adams
-       (highlight-symbol-face ((t (:background "#FFFFA0"))))
-       (hl-line ((t (:underline t :background "#C6C3C6"))))
-
-       (html-helper-bold-face ((t (:weight bold :foreground "black"))))
-       (html-helper-italic-face ((t (:slant italic :foreground "black"))))
-       (html-helper-underline-face ((t (:underline t :foreground "black"))))
-       (html-tag-face ((t (:foreground "blue"))))
-
-       ;; Info / info+
-       (info-file ((t (:family "Sans Serif" :height 1.8 :weight bold :box (:line-width 1 :color "#0000CC") :foreground "cornflower blue" :background "LightSteelBlue1")))) 
-       (info-header-node ((t (:underline t :foreground "orange"))))  ; nodes in header
-       (info-header-xref ((t (:underline t :foreground "dodger blue"))))  ; cross references in header
-       (info-menu-header ((t (:family "Sans Serif" :height 1.6 :weight bold :underline t :foreground "#00CC00"))))  ; menu titles (headers) -- major topics
-       (info-menu-star ((t (:foreground "black"))))  ; every 3rd menu item
-       (info-node ((t (:underline t :foreground "blue"))))  ; node names
-       (info-quoted-name ((t ,inline-code)))
-       (info-string ((t (:foreground "green4"))))  ; strings ("...")
-       (Info-title-1-face ((t ,ol1)))
-       (Info-title-2-face ((t ,ol2)))
-       (Info-title-3-face ((t ,ol3)))
-       (Info-title-4-face ((t ,ol4)))
-       (info-xref ((t (:weight bold :underline t :foreground "blue"))))  ; unvisited cross-references
-       (info-xref-visited ((t (:weight bold :foreground "magenta4"))))  ; previously visited cross-references
-
-       ;; highlighting matches
-       (isearch ((t (:weight bold :box (:line-width 1 :color "#A0A0A0") :foreground "#EE6600" :background "yellow"))))
-       (isearch-fail ((t (:weight bold :foreground "white" :background "red"))))
-       (isearch-lazy-highlight-face ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for GNU Emacs
-       (isearch-secondary ((t (:weight bold :foreground "blue" :background "#CCFFFF"))))  ; for XEmacs
-
-       (light-symbol-face ((t (:background "#FFFFA0"))))
-
-       (linum ((t (:foreground "#AFB7BA" :background "#DDEEFF"))))
-
-       (magit-branch ((t (:foreground "SkyBlue" :height 1.1))))
-       (magit-diff-add ((t ,diff-added)))
-       (magit-diff-del ((t ,diff-removed)))
-       (magit-diff-file-header ((t (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
-       (magit-diff-hunk-header ((t ,diff-hunk-header)))
-       (magit-diff-none ((t ,diff-none)))
-       (magit-header ((t (:foreground "white" :background "#FF4040"))))
-       (magit-item-highlight ((t (:background "#EAF2F5"))))
-       (magit-item-mark ((t ,marked-line)))
-       (magit-log-head-label ((t (:box (:line-width 1 :color "blue" :style nil)))))
-       (magit-log-tag-label ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
-       (magit-section-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
-
-       ;; make
-       (makefile-space-face ((t (:background "hot pink"))))
-       (makefile-targets ((t (:weight bold :foreground "blue"))))
-
-       (match ((t (:weight bold :foreground "#EE6600" :background "pink"))))
-
-       ;; Message
-       (message-cited-text-face ((t (:foreground "#5050B0"))))
-       (message-header-cc-face ((t (:family "Sans Serif" :foreground "blue"))))
-       (message-header-name-face ((t (:family "Sans Serif" :weight bold :foreground "#3399CC"))))
-       (message-header-newsgroups-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
-       (message-header-other-face ((t (:family "Sans Serif" :foreground "#3399CC"))))
-       (message-header-subject-face ((t (:weight bold :foreground "#FF6633"))))
-       (message-header-to-face ((t (:family "Sans Serif" :foreground "blue"))))
-       (message-header-xheader-face ((t (:foreground "red"))))
-       (message-mml-face ((t (:foreground "forest green"))))
-       (message-separator-face ((t (:family "Sans Serif" :weight bold :foreground "red"))))
-
-       (mm-uu-extract ((t ,block-code)))
-
-       (minibuffer-noticeable-prompt ((t (:weight bold :foreground "black" :background "gold"))))
-       (minibuffer-prompt ((t (:weight bold :foreground "black" :background "gold"))))
-
-       ;; GNU Emacs mode-line
-       (mode-line ((t (:box (:line-width 1 :color "#254394") :foreground "#D4EAFF" :background "#4241EF"))))
-       (mode-line-buffer-id ((t (:weight bold :foreground "white"))))
-       (mode-line-highlight ((t (:foreground "yellow"))))
-       (mode-line-inactive ((t (:box (:line-width 1 :color "#636363") :foreground "#818181" :background "#C6C3C6"))))
-
-       ;; XEmacs modeline
-       (modeline-mousable ((t (:weight bold :foreground "firebrick")))) ; major-mode
-       (modeline-mousable-minor-mode ((t (:foreground "green4"))))
-
-       (mumamo-background-chunk-major ((t (:background "white"))))
-
-       ;; non-breaking space
-       (nobreak-space ((t (:background "#C6C3C6"))))
-
-       (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 (:slant italic :foreground "red"))))
-       (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"))))
-
-       ;; Org
-       (org-agenda-clocking ((t ,clock-line)))
-       (org-agenda-column-dateline ((t (:inherit org-column))))
-       ;; (org-agenda-column-dateline ((t (:background "deep sky blue" :height 79 :family "Consolas"))))
-       (org-agenda-current-time ((t (:weight bold :underline t :foreground "purple"))))
-       (org-agenda-date ((t (:height 1.6 :weight bold :foreground "#0063F5")))) ; "#87C9FC"
-       (org-agenda-date-today ((t (:height 1.6 :weight bold :foreground "purple"))))  ; "#CCCCFF"  ; inherit
-       (org-agenda-date-weekend ((t (:height 1.6 :weight bold :foreground "dim gray"))))  ; "#B6B2AE"  ; inherit
-       (org-agenda-diary ((t (:weight bold :foreground "green4" :background "light blue"))))
-       (org-agenda-dimmed-todo-face ((t (:foreground "gold2"))))  ; org-blocked-todo
-       (org-agenda-done ((t (:foreground "gray50" :background "#EAFFEA"))))
-       (org-agenda-restriction-lock ((t (:foreground "white" :background "SkyBlue4"))))
-       (org-agenda-structure ((t (:weight bold :foreground "white" :background "#0099FF"))))
-       (org-archived ((t (:foreground "gray70"))))
-       (org-beamer-tag ((t (:box (:line-width 1 :color "#00CC00" :style nil)))))
-       (org-block ((t ,block-code)))
-       (org-block-background ((t (:background "#FFFFEA"))))
-       (org-block-begin-line ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
-       (org-block-end-line ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
-       (org-checkbox ((t (:weight bold :foreground "white" :background "#777777" :box (:line-width 1 :style pressed-button)))))
-       (org-clock-overlay ((t (:foreground "white" :background "SkyBlue4"))))
-       (org-code ((t (:foreground "#0077CC" :background "#EAFFEA"))))
-       (org-column ((t ,column)))
-       ;; (org-column ((t (:background "gold" :height 79 :family "Consolas"))))
-       (org-column-title ((t (:inherit org-column))))
-       ;; (org-column-title ((t (:background "gold" :height 79 :family "Consolas"))))
-       (org-date ((t (:underline t :foreground "purple"))))
-       (org-dim ((t (:foreground "#AAAAAA"))))
-       (org-document-info ((t (:foreground "midnight blue"))))
-       (org-document-info-keyword ((t (:foreground "#008ED1" :background "#EAEAFF"))))
-       (org-document-title ((t (:family "Sans Serif" :height 1.8 :weight bold :foreground "blue"))))
-       (org-done ((t (:weight bold :box (:line-width 1 :color "#666666") :foreground "white" :background "#888888"))))
-       (org-drawer ((t (:foreground "light sky blue"))))
-       (org-ellipsis ((t (:underline "#B0EEB0" :foreground "#00BB00"))))
-       (org-example ((t (:foreground "blue" :background "#EAFFEA"))))
-       (org-footnote ((t (:underline t :foreground "#008ED1"))))
-       (org-formula ((t (:foreground "chocolate1"))))
-       (org-headline-done ((t (:height 1.0 :weight bold :strike-through t :foreground "#A7A6AA")))) ; 1.4
-       (org-hide ((t (:foreground "#666666" :background "#FFFFCC"))))
-       (org-latex-and-export-specials ((t (:foreground "blue"))))
-       (org-level-1 ((t ,ol1)))
-       (org-level-2 ((t ,ol2)))
-       (org-level-3 ((t ,ol3)))
-       (org-level-4 ((t ,ol4)))
-       (org-level-5 ((t ,ol5)))
-       (org-level-6 ((t ,ol6)))
-       (org-level-7 ((t ,ol7)))
-       (org-level-8 ((t ,ol8)))
-       (org-link ((t (:underline t :foreground "#0077CC"))))
-       (org-meta-line ((t (:foreground "#008ED1" :background "#EAEAFF"))))
-       (org-mode-line-clock ((t ,clock-line)))
-       (org-mode-line-clock-overrun ((t (:weight bold :box (:line-width 1 :color "#FFBB00") :foreground "white" :background "#FF4040"))))
-       (org-property-value ((t (nil))))
-       (org-quote ((t (:slant italic :foreground "dim gray"))))
-       (org-scheduled ((t (:foreground "#0077CC"))))
-       (org-scheduled-previously ((t (:foreground "#0077CC"))))
-       (org-scheduled-today ((t (:slant italic :foreground "purple"))))
-       (org-sexp-date ((t (:foreground "purple"))))
-       (org-special-keyword ((t (:foreground "#00BB00" :background "#EAFFEA"))))
-       (org-table ((t (:foreground "blue" :background "#EAFFEA"))))
-       (org-tag ((t (:height 1.0 :weight normal :slant italic :foreground "#816A7D" :background "#F7B8DE"))))
-       (org-target ((t (:underline t))))
-       (org-time-grid ((t (:foreground "#008ED1"))))
-       (org-todo ((t (:weight bold :box (:line-width 1 :color "red3") :foreground "white" :background "#FF5555"))))
-       (org-upcoming-deadline ((t (:foreground "#FF5555"))))
-       ;; (org-upcoming-deadline ((t (:foreground "white" :background "#E9A36A" :weight bold))))
-       (org-verbatim ((t ,inline-code)))
-       (org-verse ((t (:slant italic :foreground "dim gray" :background "#EEEEEE"))))
-       (org-warning ((t (:weight bold :box (:line-width 1 :color "#4488BB") :foreground "#5C88D3" :background "#BBDDFF"))))
-
-       ;; pabbrev
-       (pabbrev-debug-display-label-face ((t (:background "chartreuse"))))
-       (pabbrev-suggestions-label-face ((t (:weight bold :foreground "white" :background "purple"))))
-       (pabbrev-suggestions-face ((t (:weight bold :foreground "white" :background "red"))))
-
-       ;; parentheses
-       (paren-face-match ((t (:background "chartreuse"))))
-       (paren-face-mismatch ((t (:weight bold :foreground "white" :background "purple"))))
-       (paren-face-no-match ((t (:weight bold :foreground "white" :background "purple"))))
-
-       (pesche-space ((t (:background "lemon chiffon"))))
-       (pesche-tab ((t (:background "gold"))))
-
-       ;; pretty print ^L
-       (pp^L-highlight ((t (:strike-through t :inherit shadow))))
-
-       (recover-this-file ((t (:background "tomato"))))
-
-       ;; selection, selected region
-       (region ((t (:background "#D2D9E0"))))  ; for GNU Emacs ; was seashell2
-       (zmacs-region ((t (:background "gray84"))))  ; for XEmacs
-
-       ;; used by Org-mode for highlighting matched entries and keywords
-       (secondary-selection ((t (:weight bold :foreground "white" :background "#335EA8"))))
-
-       (shadow ((t (:weight bold :foreground "#666666" :background "#FFFFCC"))))
-
-       ;; for `cat <<EOF' in shell scripts
-       (sh-heredoc ((t (:foreground "blue"))))
-
-       ;; shell
-       (shell-option-face ((t (:foreground "forest green"))))
-       (shell-output-2-face ((t (:foreground "blue"))))
-       (shell-output-3-face ((t (:foreground "purple"))))
-       (shell-output-face ((t (:foreground "black"))))
-       (shell-prompt-face ((t (:weight bold :foreground "yellow"))))
-
-       ;; parentheses
-       (show-paren-match-face ((t (:background "chartreuse"))))
-       (show-paren-mismatch-face ((t (:weight bold :foreground "white" :background "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"))))
-
-       ;; subversion
-       (svn-status-directory-face ((t ,directory)))
-       (svn-status-filename-face ((t (:weight bold :foreground "#4183C4"))))
-       (svn-status-locked-face ((t (:weight bold :foreground "red"))))
-       (svn-status-marked-face ((t ,marked-line)))
-       (svn-status-marked-popup-face ((t (:weight bold :foreground "green3"))))
-       (svn-status-switched-face ((t (:slant italic :foreground "gray55"))))
-       (svn-status-symlink-face  ((t ,symlink)))
-       (svn-status-update-available-face ((t (:foreground "orange"))))
-
-       ;; TeX
-       (tex-verbatim ((t (:foreground "blue"))))
-
-       ;; tool-bar
-       (tool-bar ((t (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
-
-       ;; tooltip
-       (tooltip ((t (:foreground "black" :background "light yellow"))))
-
-       ;; show trailing whitespace
-       (trailing-whitespace ((t (:background "#D5FFD5"))))
-
-       (traverse-match-face ((t (:weight bold :foreground "blue violet"))))
-
-       (vc-annotate-face-FF3F3F ((t (:foreground "#FF3F3F" :background "black"))))
-       (vc-annotate-face-FF6C3F ((t (:foreground "#FF3F3F" :background "black"))))
-       (vc-annotate-face-FF993F ((t (:foreground "#FF993F" :background "black"))))
-       (vc-annotate-face-FFC63F ((t (:foreground "#FF993F" :background "black"))))
-       (vc-annotate-face-FFF33F ((t (:foreground "#FFF33F" :background "black"))))
-       (vc-annotate-face-DDFF3F ((t (:foreground "#FFF33F" :background "black"))))
-       (vc-annotate-face-B0FF3F ((t (:foreground "#B0FF3F" :background "black"))))
-       (vc-annotate-face-83FF3F ((t (:foreground "#B0FF3F" :background "black"))))
-       (vc-annotate-face-56FF3F ((t (:foreground "#4BFF4B" :background "black"))))
-       (vc-annotate-face-3FFF56 ((t (:foreground "#4BFF4B" :background "black"))))
-       (vc-annotate-face-3FFF83 ((t (:foreground "#3FFFB0" :background "black"))))
-       (vc-annotate-face-3FFFB0 ((t (:foreground "#3FFFB0" :background "black"))))
-       (vc-annotate-face-3FFFDD ((t (:foreground "#3FF3FF" :background "black"))))
-       (vc-annotate-face-3FF3FF ((t (:foreground "#3FF3FF" :background "black"))))
-       (vc-annotate-face-3FC6FF ((t (:foreground "#3F99FF" :background "black"))))
-       (vc-annotate-face-3F99FF ((t (:foreground "#3F99FF" :background "black"))))
-       (vc-annotate-face-3F6CFF ((t (:foreground "#3F3FFF" :background "black"))))
-       (vc-annotate-face-3F3FFF ((t (:foreground "#3F3FFF" :background "black"))))
-
-       ;; w3m
-       (w3m-anchor ((t (:foreground "blue"))))
-       (w3m-arrived-anchor ((t (:foreground "purple1"))))
-       (w3m-bitmap-image-face ((t (:foreground "gray4" :background "green"))))
-       (w3m-bold ((t (:weight bold :foreground "medium sea green"))))
-       (w3m-current-anchor ((t (:weight bold :underline t :foreground "blue"))))
-       (w3m-form ((t (:underline t :foreground "tan1"))))
-       (w3m-form-button-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
-       ;; (w3m-form-button-face ((t (:background "lightgray" :foreground "black"))))
-       (w3m-form-button-mouse-face ((t (:underline t :foreground "light grey" :background "#2B7E2A"))))
-       ;; (w3m-form-button-mouse-face ((t (:background "orange"))))
-       (w3m-form-button-pressed-face ((t (:weight bold :underline t :foreground "gray4" :background "light grey"))))
-       ;; (w3m-form-button-pressed-face ((t (:background "yellow"))))
-       (w3m-header-line-location-content-face ((t (:foreground "purple2"))))
-       (w3m-header-line-location-title-face ((t (:foreground "cadet blue"))))
-       (w3m-history-current-url-face ((t (:foreground "lemon chiffon"))))
-       ;; (w3m-history-current-url-face ((t (:foreground "LightSkyBlue" :background "SkyBlue4"))))
-       (w3m-image-face ((t (:weight bold :foreground "DarkSeaGreen2"))))
-       (w3m-link-numbering ((t (:foreground "#B4C7EB"))))     ;; mouseless browsing
-       (w3m-strike-through-face ((t (:strike-through t))))
-       (w3m-underline-face ((t (:underline t))))
-       ;; (w3m-tab-background-face ((t (:foreground "white" :background "#21364B"))))
-       ;; (w3m-tab-selected-face ((t (:foreground "black" :background "Gray85" :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 (:foreground "gray20" :background "gray70" :box (:line-width 1 :style nil)))))
-       ;; (w3m-tab-unselected-retrieving-face ((t (:foreground "white" :background "gray50" :box (:line-width -1 :style nil)))))
-
-       (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"))))
-
-       (yas/field-debug-face ((t (:background "ivory2"))))
-       (yas/field-highlight-face ((t (:background "DarkSeaGreen1"))))
-       ))))
-
-(add-to-list 'color-themes
-             '(color-theme-leuven "Leuven" "Sebastien Vauban"))
-
-(provide 'color-theme-leuven)
-
-
-;; This is for the sake of Emacs.
-;; Local Variables:
-;; ispell-local-dictionary: "en_US"
-;; mode: outline-minor
-;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode))
-;; End:
-
-;;; color-theme-leuven.el ends here

+ 1 - 1
org-color-themes.org

@@ -53,7 +53,7 @@ Links to Scott's themes all point directly to his site.
 
 ** [[http://jaderholm.com/color-themes/color-theme-active.el][color-theme-active.el]] (Scott Jaderholm)
 
-** [[file:color-themes/color-theme-leuven.el][color-theme-leuven.el]] (maintained by Sebastien Vauban)
+** [[https://github.com/fniessen/color-theme-leuven][color-theme-leuven.el]] (Fabrice Niessen)
 
 ** [[file:color-themes/color-theme-zenburn.el][color-theme-zenburn.el]] (Daniel Brockman Adrian C., Bastien Guerry)
 

+ 2 - 3
org-contrib/babel/examples/fontify-src-code-blocks.org

@@ -14,8 +14,7 @@ appearance of source code blocks.
 
 * Screenshot
 
-Screenshot for the *Leuven* theme (light theme, i.e. with a white background,
-formerly known as =color-theme-sva=):
+Screenshot for the [[https://github.com/fniessen/color-theme-leuven][Leuven]] theme (light theme, i.e. with a white background):
 
 [[file:../images/fontified-src-code-blocks.png]]
 
@@ -30,7 +29,7 @@ following in your =.emacs= file:
 * Configuration File
 
 - To get the above full contributed theme, please visit [[file:../../../org-color-themes.org][Installing Org Color
-  themes]] and copy the file [[file:../../../color-themes/color-theme-leuven.el][color-theme-leuven.el]] in your =load-path=.
+  themes]] and copy the file [[https://github.com/fniessen/color-theme-leuven/blob/master/color-theme-leuven.el][color-theme-leuven.el]] in your =load-path=.
 
 - If you want to keep your existing Emacs color theme, and you only want to
   customize the "delimiter lines" of the code blocks, either: