Commits

Anonymous committed b2b06c4

* ibuffer.el (ibuffer-marked-face): replace defface and defvar
with defcustom.
(ibuffer-deletion-face): ditto.
(ibuffer-title-face): ditto.
(ibuffer-read-only-buffer-face): ditto.
(ibuffer-special-buffer-face): ditto.
(ibuffer-hidden-buffer-face): ditto.
(ibuffer-help-buffer-face): ditto.
(ibuffer-dired-buffer-face): ditto.
(ibuffer-header-line-face): changed foreground colours.

Comments (0)

Files changed (2)

+2002-02-24  John Paul Wallington  <jpw@xemacs.org>
+
+	* ibuffer.el (ibuffer-marked-face): replace defface and defvar
+	with defcustom.
+	(ibuffer-deletion-face): ditto.
+	(ibuffer-title-face): ditto.
+	(ibuffer-read-only-buffer-face): ditto.
+	(ibuffer-special-buffer-face): ditto.
+	(ibuffer-hidden-buffer-face): ditto.
+	(ibuffer-help-buffer-face): ditto.
+	(ibuffer-dired-buffer-face): ditto.
+	(ibuffer-header-line-face): changed foreground colours.
+	
 2002-02-24  Adrian Aichner  <adrian@xemacs.org>
 
 	* ibuffer.el (ibuffer-fontification-alist): Fix 'info-mode to
   :group 'ibuffer
   :group 'faces)
 
-(defface ibuffer-marked-face
-  '((((class color) (background light)) (:foreground "Red" :bold t))
-    (((class color) (background dark)) (:foreground "Pink" :bold t))
-    (t (:inverse-video t :bold t)))
-  "Face used for displaying marked buffers."
+(defcustom ibuffer-marked-face 'font-lock-warning-face
+   "Face used for displaying marked buffers."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-marked-face 'ibuffer-marked-face)
 
-(defface ibuffer-deletion-face
-  '((((class color) (background dark)) (:foreground "wheat"))
-    (((class color) (background light)) (:foreground "steelblue"))
-    (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-deletion-face 'font-lock-type-face
   "Face used for displaying buffers marked for deletion."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-deletion-face 'ibuffer-deletion-face)
 
-(defface ibuffer-title-face
-  '((((class color) (background dark)) (:foreground "wheat"))
-    (((class color) (background light)) (:foreground "steelblue"))
-    (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-title-face 'font-lock-type-face
   "Face used for the title string."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-title-face 'ibuffer-title-face)
 
-(defface ibuffer-read-only-buffer-face 
-  '((((class color) (background dark)) (:foreground "cyan"))
-    (((class color) (background light) (type mswindows)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "red4"))
-    (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-read-only-buffer-face 'font-lock-keyword-face
   "Face used for displaying read-only buffers."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-read-only-buffer-face 'ibuffer-read-only-buffer-face)
 
-(defface ibuffer-special-buffer-face 
-  '((((class color) (background dark)) (:foreground "cyan"))
-    (((class color) (background light) (type mswindows)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "red4"))
-    (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-special-buffer-face 'font-lock-keyword-face
   "Face used for displaying \"special\" buffers."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-special-buffer-face 'ibuffer-special-buffer-face)
 
-(defface ibuffer-hidden-buffer-face
-  '((((class color) (background dark)) (:foreground "cyan"))
-    (((class color) (background light) (type mswindows)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "red4"))
-    (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-hidden-buffer-face 'font-lock-keyword-face
   "Face used for displaying normally hidden buffers."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-hidden-buffer-face 'ibuffer-hidden-buffer-face)
 
-(defface ibuffer-help-buffer-face 
-  '((((class color) (background dark)) (:foreground "cyan"))
-    (((class color) (background light) (type mswindows)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "red4"))
-    (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-help-buffer-face 'font-lock-keyword-face
   "Face used for displaying help buffers \(info, apropos, help\)."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-help-buffer-face 'ibuffer-help-buffer-face)
 
-(defface ibuffer-dired-buffer-face
-  '((((class color) (background dark)) (:foreground "cyan"))
-    (((class color) (background light) (type mswindows)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "red4"))
-    (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-dired-buffer-face 'font-lock-keyword-face
   "Face used for displaying dired buffers."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-dired-buffer-face 'ibuffer-dired-buffer-face)
 
-(defface ibuffer-occur-match-face
-  '((((class color) (background light)) (:foreground "Red" :bold t))
-    (((class color) (background dark)) (:foreground "Pink" :bold t))
-    (t (:inverse-video t :bold t)))
+(defcustom ibuffer-occur-match-face 'font-lock-warning-face
   "Face used for displaying matched strings for `ibuffer-do-occur'."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-occur-match-face 'ibuffer-occur-match-face)
 
 (defface ibuffer-header-line-face
   '((((class color) (background light))
-     (:foreground "DarkGoldenrod" :background "Gray90"))
+     (:foreground "Gray20" :background "Gray90"))
     (((class color) (background dark))
-     (:foreground "LightGoldenrod" :background "Gray20"))
+     (:foreground "Gray90" :background "Gray20"))
     (((class grayscale) (background light)) (:background "LightGray" :bold t))
     (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
     (t (:bold t)))