cgit.sxemacs.org Git - packages/blob - xemacs-packages/dired/dired-faces.el

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;
   3 ;; File:          dired-faces.el
   4 ;; Dired Version: 7.17
   5 ;; RCS:
   6 ;; Description:   rudimentary face customization support for dired
   7 ;; Author:        Mike Sperber <sperber@informatik.uni-tuebingen.de>
   8 ;;
   9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10
  11 (provide 'dired-faces)
  12
  13 (require 'custom)
  14 (require 'dired)
  15
  16 ;;; Variables
  17
  18 (defgroup dired-faces nil
  19   "Dired faces."
  20   :group 'dired)
  21
  22 (defcustom dired-do-highlighting t
  23   "Set if we should use highlighting according to filetype."
  24   :type 'boolean
  25   :group 'dired-faces)
  26
  27 (defcustom dired-do-interactive-permissions t
  28   "Set if we should allow interactive chmod."
  29   :type 'boolean
  30   :group 'dired-faces)
  31
  32
  33 (defface dired-face-marked '((((type x pm mswindows)
  34                                (class color))
  35                               (:background "PaleVioletRed"))
  36                              (((type tty)
  37                                (class color mono))
  38                               (:bold t)))
  39   "Face used for marked files."
  40   :group 'dired)
  41
  42 (defface dired-face-flagged '((((type x pm mswindows)
  43                                 (class color)
  44                                 (background light))
  45                                (:background "LightSlateGray"))
  46                               (((type x pm mswindows)
  47                                 (class color)
  48                                 (background dark))
  49                                (:background "DarkSlateGray"
  50                                 :underline t)))
  51   "Face used for flagged files."
  52   :group 'dired)
  53
  54 (defface dired-face-directory '((((type x pm mswindows tty)
  55                                   (class color))
  56                                  (:bold t)))
  57   "Face used for directories."
  58   :group 'dired)
  59
  60 (defface dired-face-executable '((((type x pm mswindows)
  61                                    (class color)
  62                                    (background light))
  63                                   (:foreground "green4"))
  64                                  (((type tty)
  65                                    (class color))
  66                                   (:foreground "green"))
  67                                  (((type x pm mswindows)
  68                                    (class color)
  69                                    (background dark))
  70                                   (:foreground "green"))
  71                                  (t
  72                                   (:bold t)))
  73   "Face used for executables."
  74   :group 'dired)
  75
  76 (defface dired-face-setuid '((((class color))
  77                               (:foreground "Red"))
  78                              (t
  79                               (:bold t)))
  80   "Face used for setuid executables."
  81   :group 'dired)
  82
  83 (defface dired-face-boring '((((type x pm mswindows)
  84                                (class color grayscale)
  85                                (background light))
  86                               (:foreground "gray30"))
  87                              (((type x pm mswindows)
  88                                (class color grayscale)
  89                                (background dark))
  90                               (:foreground "gray65"))
  91                              (((type tty)
  92                                (class color)
  93                                (background dark))
  94                               (:foreground "white"
  95                                :dim t))
  96                              (((type tty)
  97                                (class color)
  98                                (background light))
  99                               (:foreground "gray65")))
 100   "Face used for unimportant files."
 101   :group 'dired)
 102
 103 (defface dired-face-permissions '((((type tty)
 104                                     (class color))
 105                                    (:foreground "black"
 106                                     :background "cyan"))
 107                                   (((type x pm mswindows)
 108                                     (class color))
 109                                    (:foreground "black"
 110                                     :background "grey75")))
 111   "Face used for interactive permissions."
 112   :group 'dired)
 113
 114 (defface dired-face-header '((t (:background "grey75"
 115                                  :foreground "black")))
 116   "Face used for directory header."
 117   :group 'dired)
 118
 119 (defface dired-face-socket '((((class color))
 120                               (:foreground "magenta"))
 121                              (t
 122                               (:bold nil)))
 123   "Face used to indicate sockets."
 124   :group 'dired)
 125
 126 (defface dired-face-symlink  '((((type x pm mswindows)
 127                                  (class color)
 128                                  (background light))
 129                                 (:foreground "cyan4"))
 130                                (((class color))
 131                                 (:foreground "cyan"))
 132                                (t
 133                                 (:bold t)))
 134   "Face used to indicate symbolic links."
 135   :group 'dired)
 136
 137 ;;; end of dired-faces.el