Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-faces.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents
children 7e54bd776075
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;;
3 ;; File: dired-faces.el
4 ;; Dired Version: $Revision: 1.1 $
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
15 ;;; Variables
16
17 (defgroup dired nil
18 "Directory editing."
19 :group 'emacs)
20
21 (defcustom dired-do-highlighting t
22 "Set if we should use highlighting according to filetype."
23 :type 'boolean
24 :group 'dired)
25
26 (defcustom dired-do-interactive-permissions t
27 "Set if we should allow interactive chmod."
28 :type 'boolean
29 :group 'dired)
30
31 (defface dired-face-marked '((((class color))
32 (:background "PaleVioletRed"))
33 (t (:underline t)))
34 "Face used for marked files."
35 :group 'dired)
36
37 (defface dired-face-flagged '((((class color))
38 (:background "LightSlateGray"))
39 (t (:underline t)))
40 "Face used for flagged files."
41 :group 'dired)
42
43 (defface dired-face-directory '((t (:bold t)))
44 "Face used for directories."
45 :group 'dired)
46
47 (defface dired-face-executable '((((class color))
48 (:foreground "SeaGreen"))
49 (t (:bold t)))
50 "Face used for executables."
51 :group 'dired)
52
53 (defface dired-face-setuid '((((class color))
54 (:foreground "Red"))
55 (t (:bold t)))
56 "Face used for setuid executables."
57 :group 'dired)
58
59 (defface dired-face-boring '((((class color))
60 (:foreground "Grey"))
61 (((class grayscale))
62 (:foreground "Grey")))
63 "Face used for unimportant files."
64 :group 'dired)
65
66 (defface dired-face-permissions '((t (:background "grey75")
67 (:foreground "black")))
68 "Face used for interactive permissions."
69 :group 'dired)
70
71 (defface dired-face-deleted '((((class color))
72 (:foreground "yellow3"))
73 (t (:reverse t)))
74 "Face used to indicate deleted files."
75 :group 'dired)
76
77 (defface dired-face-socket '((((class color))
78 (:foreground "magenta"))
79 (t (:bold nil)))
80 "Face used to indicate sockets."
81 :group 'dired)
82
83 (defface dired-face-symlink '((((class color))
84 (:foreground "cyan"))
85 (t (:bold t)))
86 "Face used to indicate symbolic links."
87 :group 'dired)
88
89 ;;; end of dired-faces.el