branch: externals/mpdired
commit 92fe9893065f95794b40462ee26559043a5ab354
Author: Manuel Giraud <[email protected]>
Commit: Manuel Giraud <[email protected]>
faces
---
mpdired.el | 24 ++++++++++++++++--------
1 file changed, 16 insertions(+), 8 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index 74e44e1ddb..c1f4af2f6f 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -120,6 +120,18 @@
"x" #'mpdired-flagged-delete
"D" #'mpdired-delete)
+(defface mpdired-currdir
+ '((t :inherit dired-header))
+ "Face used to show current directory.")
+
+(defface mpdired-directory
+ '((t :inherit dired-directory))
+ "Face used to show a directory.")
+
+(defface mpdired-playlist
+ '((t :inherit dired-symlink))
+ "Face used to show a playlist.")
+
(defface mpdired-song
'((t :inherit dired-ignored))
"Face used to show a song.")
@@ -128,13 +140,7 @@
'((t :inherit dired-special))
"Face used to show the progress of a song.")
-(defface mpdired-directory
- '((t :inherit dired-directory))
- "Face used to show a directory.")
-(defface mpdired-playlist
- '((t :inherit dired-symlink))
- "Face used to show a playlist.")
(defface mpdired-marked
'((t :inherit dired-marked))
@@ -337,6 +343,8 @@
(put-text-property bol eol 'face 'mpdired-marked))
((eq type 'directory)
(put-text-property bol eol 'face 'mpdired-directory))
+ ((eq type 'playlist)
+ (put-text-property bol eol 'face 'mpdired-playlist))
((eq type 'song)
(put-text-property bol eol 'face 'mpdired-song)))))
@@ -427,9 +435,9 @@
;; Insert the content
(save-excursion
(cond ((stringp top)
- (insert (propertize top 'face 'dired-header) ":\n"))
+ (insert (propertize top 'face 'mpdired-currdir) ":\n"))
(mpdired--playlist
- (insert (propertize mpdired--playlist 'face 'dired-header)
":\n")))
+ (insert (propertize mpdired--playlist 'face 'mpdired-currdir)
":\n")))
(dolist (e data) (mpdired--insert-entry e)))
;; Set mode and memorize stuff
(mpdired-mode)
