1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; File: dired-faces.el
;; Dired Version: #Revision: 7.9 $
;; RCS:
;; Description: rudimentary face customization support for dired
;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de>
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'dired-faces)
(require 'custom)
;;; Variables
(defgroup dired nil
"Directory editing."
:group 'environment)
(defcustom dired-do-highlighting t
"Set if we should use highlighting according to filetype."
:type 'boolean
:group 'dired)
(defcustom dired-do-interactive-permissions t
"Set if we should allow interactive chmod."
:type 'boolean
:group 'dired)
(defface dired-face-marked '((((class color))
(:background "PaleVioletRed"))
(t (:underline t)))
"Face used for marked files."
:group 'dired)
(defface dired-face-flagged '((((class color))
(:background "LightSlateGray"))
(t (:underline t)))
"Face used for flagged files."
:group 'dired)
(defface dired-face-directory '((t (:bold t)))
"Face used for directories."
:group 'dired)
(defface dired-face-executable '((((class color))
(:foreground "SeaGreen"))
(t (:bold t)))
"Face used for executables."
:group 'dired)
(defface dired-face-setuid '((((class color))
(:foreground "Red"))
(t (:bold t)))
"Face used for setuid executables."
:group 'dired)
(defface dired-face-boring '((((class color))
(:foreground "Gray65"))
(((class grayscale))
(:foreground "Gray65")))
"Face used for unimportant files."
:group 'dired)
(defface dired-face-permissions '((t (:background "grey75"
:foreground "black")))
"Face used for interactive permissions."
:group 'dired)
(defface dired-face-socket '((((class color))
(:foreground "magenta"))
(t (:bold nil)))
"Face used to indicate sockets."
:group 'dired)
(defface dired-face-symlink '((((class color))
(:foreground "cyan"))
(t (:bold t)))
"Face used to indicate symbolic links."
:group 'dired)
;;; end of dired-faces.el
|
