Source

dired / dired-faces.el

Full commit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; File:          dired-faces.el
;; Dired Version: #Revision: 7.10 $
;; RCS:
;; Description:   rudimentary face customization support for dired
;; Author:        Mike Sperber <sperber@informatik.uni-tuebingen.de>
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(provide 'dired-faces)

(require 'custom)
(require 'dired)

;;; Variables

(defgroup dired-faces nil
  "Dired faces."
  :group 'dired)

(defcustom dired-do-highlighting t
  "Set if we should use highlighting according to filetype."
  :type 'boolean
  :group 'dired-faces)

(defcustom dired-do-interactive-permissions t
  "Set if we should allow interactive chmod."
  :type 'boolean
  :group 'dired-faces)


(defface dired-face-marked '((((class color))
			       (:background "PaleVioletRed"))
			     (t (:underline t)))
  "Face used for marked files."
  :group 'dired-faces)

(defface dired-face-flagged '((((class color))
			       (:background "LightSlateGray"))
			      (t (:underline t)))
  "Face used for flagged files."
  :group 'dired-faces)

(defface dired-face-directory '((t (:bold t)))
  "Face used for directories."
  :group 'dired-faces)

(defface dired-face-executable '((((class color))
				  (:foreground "SeaGreen"))
				 (t (:bold t)))
  "Face used for executables."
  :group 'dired-faces)

(defface dired-face-setuid '((((class color))
			      (:foreground "Red"))
			     (t (:bold t)))
  "Face used for setuid executables."
  :group 'dired-faces)

(defface dired-face-boring '((((class color))
			      (:foreground "Gray65"))
			     (((class grayscale))
			      (:foreground "Gray65")))
  "Face used for unimportant files."
  :group 'dired-faces)

(defface dired-face-permissions '((((type tty))
				   (:foreground "black"
				    :background "white"))
				  (t
				    (:background "grey75"
				     :foreground "black")))
  "Face used for interactive permissions."
  :group 'dired-faces)

(defface dired-face-header '((t (:background "grey75"
                                 :foreground "black")))
  "Face used for directory header."
  :group 'dired)

(defface dired-face-socket '((((class color))
			      (:foreground "magenta"))
			     (t (:bold nil)))
  "Face used to indicate sockets."
  :group 'dired-faces)

(defface dired-face-symlink  '((((class color))
			      (:foreground "cyan"))
			     (t (:bold t)))
  "Face used to indicate symbolic links."
  :group 'dired-faces)

;;; end of dired-faces.el