[elpa] externals/mpdired 92fe989306 102/133: faces

[ELPA Syncer]

branch: externals/mpdired
commit 92fe9893065f95794b40462ee26559043a5ab354
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Manuel Giraud <manuel@ledu-giraud.fr>

    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)