|
24
|
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
2 ;;
|
|
|
3 ;; File: dired-faces.el
|
|
40
|
4 ;; Dired Version: $Revision: 1.2 $
|
|
24
|
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-socket '((((class color))
|
|
|
72 (:foreground "magenta"))
|
|
|
73 (t (:bold nil)))
|
|
|
74 "Face used to indicate sockets."
|
|
|
75 :group 'dired)
|
|
|
76
|
|
|
77 (defface dired-face-symlink '((((class color))
|
|
|
78 (:foreground "cyan"))
|
|
|
79 (t (:bold t)))
|
|
|
80 "Face used to indicate symbolic links."
|
|
|
81 :group 'dired)
|
|
|
82
|
|
|
83 ;;; end of dired-faces.el
|
