* themes/color-theme-library.el (color-theme-domq-pastel): New

	theme from Dominique Quatravaux,

themes/color-theme-library.el

@@ -13536,4 +13536,137 @@ Created by Dave Benjamin <ramen@ramenfest.com> Dec 23 2005."
     (underline ((t (:underline t))))
     (variable-pitch ((t (:family "helv")))))))
 
+(defun color-theme-domq-pastel ()
+ "Color theme by Dominique Quatravaux, created 2008-02-25."
+ (interactive)
+ (color-theme-install
+  '(my-color-theme
+    ((background-color . "white")
+     (background-mode . light)
+     (border-color . "black")
+     (cursor-color . "black")
+     (foreground-color . "black")
+     (mouse-color . "black"))
+    ((compilation-message-face . underline)
+     (goto-address-mail-face . italic)
+     (goto-address-mail-mouse-face . secondary-selection)
+     (goto-address-url-face . bold)
+     (goto-address-url-mouse-face . highlight)
+     (ibuffer-dired-buffer-face . font-lock-function-name-face)
+     (ibuffer-help-buffer-face . font-lock-comment-face)
+     (ibuffer-hidden-buffer-face . font-lock-warning-face)
+     (ibuffer-occur-match-face . font-lock-warning-face)
+     (ibuffer-read-only-buffer-face . font-lock-type-face)
+     (ibuffer-special-buffer-face . font-lock-keyword-face)
+     (ibuffer-title-face . font-lock-type-face)
+     (list-matching-lines-buffer-name-face . underline)
+     (list-matching-lines-face . match)
+     (rmail-highlight-face . rmail-highlight)
+     (rst-block-face . font-lock-keyword-face)
+     (rst-comment-face . font-lock-comment-face)
+     (rst-definition-face . font-lock-function-name-face)
+     (rst-directive-face . font-lock-builtin-face)
+     (rst-emphasis1-face quote italic)
+     (rst-emphasis2-face quote bold)
+     (rst-external-face . font-lock-type-face)
+     (rst-level-face-base-color . "grey")
+     (rst-literal-face . font-lock-string-face)
+     (rst-reference-face . font-lock-variable-name-face)
+     (view-highlight-face . highlight)
+     (widget-mouse-face . highlight))
+    (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :family "apple-monaco"))))
+    (bold ((t (:bold t :weight bold))))
+    (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+    (border ((t (:background "black"))))
+    (buffer-menu-buffer ((t (:bold t :weight bold))))
+    (button ((t (:underline t))))
+    (compilation-column-number ((t (:foreground "cyan3"))))
+    (compilation-error ((t (:bold t :weight bold :foreground "Red1"))))
+    (compilation-info ((t (:bold t :foreground "Green3" :weight bold))))
+    (compilation-line-number ((t (:foreground "darkgoldenrod"))))
+    (compilation-warning ((t (:bold t :foreground "Orange" :weight bold))))
+    (completions-common-part ((t (:family "apple-monaco" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "black" :background "white" :stipple nil :height 120))))
+    (completions-first-difference ((t (:bold t :weight bold))))
+    (cursor ((t (:background "black"))))
+    (escape-glyph ((t (:foreground "brown"))))
+    (file-name-shadow ((t (:foreground "grey50"))))
+    (fixed-pitch ((t (:family "courier"))))
+    (font-lock-builtin-face ((t (:foreground "Orchid"))))
+    (font-lock-comment-delimiter-face ((t (:foreground "blue4"))))
+    (font-lock-comment-face ((t (:foreground "blue4"))))
+    (font-lock-constant-face ((t (:foreground "cadetblue"))))
+    (font-lock-doc-face ((t (:foreground "green4"))))
+    (font-lock-function-name-face ((t (:foreground "blue"))))
+    (font-lock-keyword-face ((t (:foreground "purple"))))
+    (font-lock-negation-char-face ((t (nil))))
+    (font-lock-preprocessor-face ((t (:foreground "Orchid"))))
+    (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 "green4"))))
+    (font-lock-type-face ((t (:foreground "cyan3"))))
+    (font-lock-variable-name-face ((t (:foreground "darkgoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red1" :weight bold))))
+    (fringe ((t (:background "grey95"))))
+    (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+    (help-argument-name ((t (:italic t :slant italic))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (ibuffer-deletion-face ((t (:foreground "red"))))
+    (ibuffer-marked-face ((t (:foreground "green"))))
+    (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+    (italic ((t (:italic t :slant italic))))
+    (lazy-highlight ((t (:background "paleturquoise"))))
+    (link ((t (:foreground "blue1" :underline t))))
+    (link-visited ((t (:underline t :foreground "magenta4"))))
+    (mac-ts-block-fill-text ((t (:underline t))))
+    (mac-ts-caret-position ((t (nil))))
+    (mac-ts-converted-text ((t (:underline "gray80"))))
+    (mac-ts-no-hilite ((t (:family "apple-monaco" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "black" :background "white" :stipple nil :height 120))))
+    (mac-ts-outline-text ((t (:underline t))))
+    (mac-ts-raw-text ((t (:underline t))))
+    (mac-ts-selected-converted-text ((t (:underline t))))
+    (mac-ts-selected-raw-text ((t (:underline t))))
+    (mac-ts-selected-text ((t (:underline t))))
+    (match ((t (:background "yellow1"))))
+    (menu ((t (nil))))
+    (minibuffer-prompt ((t (:foreground "medium blue"))))
+    (mmm-cleanup-submode-face ((t (:background "Wheat"))))
+    (mmm-code-submode-face ((t (:background "LightGray"))))
+    (mmm-comment-submode-face ((t (:background "SkyBlue"))))
+    (mmm-declaration-submode-face ((t (:background "Aquamarine"))))
+    (mmm-default-submode-face ((t (:background "gray85"))))
+    (mmm-delimiter-face ((t (nil))))
+    (mmm-init-submode-face ((t (:background "Pink"))))
+    (mmm-output-submode-face ((t (:background "Plum"))))
+    (mmm-special-submode-face ((t (:background "MediumSpringGreen"))))
+    (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+    (mode-line-buffer-id ((t (:bold t :weight bold))))
+    (mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
+    (mode-line-inactive ((t (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey75" :style nil) :weight light))))
+    (mouse ((t (:background "black"))))
+    (next-error ((t (:background "lightgoldenrod2"))))
+    (nobreak-space ((t (:foreground "brown" :underline t))))
+    (query-replace ((t (:foreground "lightskyblue1" :background "magenta4"))))
+    (region ((t (:background "lightgoldenrod2"))))
+    (rst-level-1-face ((t (:background "grey85"))))
+    (rst-level-2-face ((t (:background "grey78"))))
+    (rst-level-3-face ((t (:background "grey71"))))
+    (rst-level-4-face ((t (:background "grey64"))))
+    (rst-level-5-face ((t (:background "grey57"))))
+    (rst-level-6-face ((t (:background "grey50"))))
+    (scroll-bar ((t (nil))))
+    (secondary-selection ((t (:background "yellow1"))))
+    (shadow ((t (:foreground "grey50"))))
+    (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+    (tooltip ((t (:family "helv" :background "lightyellow" :foreground "black"))))
+    (trailing-whitespace ((t (:background "red"))))
+    (underline ((t (:underline t))))
+    (variable-pitch ((t (:family "helv"))))
+    (vertical-border ((t (nil))))
+    (widget-button ((t (:bold t :weight bold))))
+    (widget-button-pressed ((t (:foreground "red1"))))
+    (widget-documentation ((t (:foreground "dark green"))))
+    (widget-field ((t (:background "gray85"))))
+    (widget-inactive ((t (:foreground "grey50"))))
+    (widget-single-line-field ((t (:background "gray85")))))))
+
 ;;; color-theme-library.el ends here