el/dot-emacs.el: Lots of face settings for monochrome terminals.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 784aad1f7c35a56f997a2a8443aa075ba0739de4..0a8d390bed254450f877c5f60a3d655d3deb325b 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -700,7 +700,8 @@      (defvar ,name ',name)
 (mdw-define-face default
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)
 (mdw-define-face default
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)

-  (t :foreground "white" :background "black"))
+  (((type color)) :foreground "white" :background "black")
+  (t nil))

 (mdw-define-face fixed-pitch
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)
 (mdw-define-face fixed-pitch
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)


@@ -711,25 +712,32 @@ (if (>= emacs-major-version 23)
   (mdw-define-face variable-pitch
     (((type x)) :family "helvetica" :height 120)))
 (mdw-define-face region
   (mdw-define-face variable-pitch
     (((type x)) :family "helvetica" :height 120)))
 (mdw-define-face region

-  (((type tty)) :background "blue") (t :background "grey30"))
+  (((type tty) (class color)) :background "blue")
+  (((type tty) (class mono)) :inverse-video t)
+  (t :background "grey30"))

 (mdw-define-face minibuffer-prompt
   (t :weight bold))
 (mdw-define-face mode-line
 (mdw-define-face minibuffer-prompt
   (t :weight bold))
 (mdw-define-face mode-line

-  (t :foreground "blue" :background "yellow"
-     :box (:line-width 1 :style released-button)))
+  (((class color)) :foreground "blue" :background "yellow"
+                  :box (:line-width 1 :style released-button))
+  (t :inverse-video t))

 (mdw-define-face mode-line-inactive
 (mdw-define-face mode-line-inactive

-  (t :foreground "yellow" :background "blue"
-     :box (:line-width 1 :style released-button)))
+  (((class color)) :foreground "yellow" :background "blue"
+                  :box (:line-width 1 :style released-button))
+  (t :inverse-video t))

 (mdw-define-face scroll-bar
   (t :foreground "black" :background "lightgrey"))
 (mdw-define-face fringe
   (t :foreground "yellow"))
 (mdw-define-face show-paren-match
 (mdw-define-face scroll-bar
   (t :foreground "black" :background "lightgrey"))
 (mdw-define-face fringe
   (t :foreground "yellow"))
 (mdw-define-face show-paren-match

-  (t :background "darkgreen"))
+  (((class color)) :background "darkgreen")
+  (t :underline t))

 (mdw-define-face show-paren-mismatch
 (mdw-define-face show-paren-mismatch

-  (t :background "red"))
+  (((class color)) :background "red")
+  (t :inverse-video t))

 (mdw-define-face highlight
 (mdw-define-face highlight

-  (t :background "DarkSeaGreen4"))
+  (((class color)) :background "DarkSeaGreen4")
+  (t :inverse-video t))

 
 (mdw-define-face holiday-face
   (t :background "red"))
 
 (mdw-define-face holiday-face
   (t :background "red"))


@@ -738,11 +746,11 @@ (mdw-define-face calendar-today-face
 
 (mdw-define-face comint-highlight-prompt
   (t :weight bold))
 
 (mdw-define-face comint-highlight-prompt
   (t :weight bold))

-(mdw-define-face comint-highlight-input
-  (t :slant italic))
+(mdw-define-face comint-highlight-input)

 
 (mdw-define-face trailing-whitespace
 
 (mdw-define-face trailing-whitespace

-  (t :background "red"))
+  (((class color)) :background "red")
+  (t :inverse-video t))

 (mdw-define-face mdw-punct-face
   (((type tty)) :foreground "yellow") (t :foreground "burlywood2"))
 (mdw-define-face mdw-number-face
 (mdw-define-face mdw-punct-face
   (((type tty)) :foreground "yellow") (t :foreground "burlywood2"))
 (mdw-define-face mdw-number-face


@@ -760,14 +768,16 @@ (mdw-define-face font-lock-reference-face
 (mdw-define-face font-lock-variable-name-face
   (t :slant italic))
 (mdw-define-face font-lock-comment-delimiter-face
 (mdw-define-face font-lock-variable-name-face
   (t :slant italic))
 (mdw-define-face font-lock-comment-delimiter-face

-  (default :slant italic)
-  (((type tty)) :foreground "green") (t :foreground "SeaGreen1"))
+  (((class mono)) :weight bold)
+  (((type tty) (class color)) :foreground "green")
+  (t :slant italic :foreground "SeaGreen1"))

 (mdw-define-face font-lock-comment-face
 (mdw-define-face font-lock-comment-face

-  (default :slant italic)
-  (((type tty)) :foreground "green") (t :foreground "SeaGreen1"))
+  (((class mono)) :weight bold)
+  (((type tty) (class color)) :foreground "green")
+  (t :slant italic :foreground "SeaGreen1"))

 (mdw-define-face font-lock-string-face
 (mdw-define-face font-lock-string-face

-  (t :foreground "SkyBlue1"))
-
+  (((class mono)) :weight bold)
+  (((class color)) :foreground "SkyBlue1"))

 (mdw-define-face message-separator
   (t :background "red" :foreground "white" :weight bold))
 (mdw-define-face message-cited-text
 (mdw-define-face message-separator
   (t :background "red" :foreground "white" :weight bold))
 (mdw-define-face message-cited-text