[emms-help] [PATCH] Add browsing by record label

[Petteri Hintsanen]

The browser can now group artists by record label.
---
 lisp/emms-browser.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el
index 8a86bd2..99e8120 100644
--- a/lisp/emms-browser.el
+++ b/lisp/emms-browser.el
@@ -468,6 +468,7 @@ Called once for each directory."
     (define-key map (kbd "b 4") 'emms-browse-by-year)
     (define-key map (kbd "b 5") 'emms-browse-by-composer)
     (define-key map (kbd "b 6") 'emms-browse-by-performer)
+    (define-key map (kbd "b 7") 'emms-browse-by-label)
     (define-key map (kbd "s a") 'emms-browser-search-by-artist)
     (define-key map (kbd "s c") 'emms-browser-search-by-composer)
     (define-key map (kbd "s p") 'emms-browser-search-by-performer)
@@ -634,6 +635,7 @@ example function is `emms-browse-by-artist'."
 (emms-browser-add-category "album" 'info-album)
 (emms-browser-add-category "genre" 'info-genre)
 (emms-browser-add-category "year" 'info-year)
+(emms-browser-add-category "label" 'info-label)
 
 (defun emms-browser-get-track-field (track type)
   "Return TYPE from TRACK.
@@ -748,7 +750,8 @@ Eg. if CURRENT-MAPPING is currently 'info-artist, return 
'info-album."
    ((eq current-mapping 'info-performer) 'info-album)
    ((eq current-mapping 'info-album) 'info-title)
    ((eq current-mapping 'info-genre) 'info-artist)
-   ((eq current-mapping 'info-year) 'info-artist)))
+   ((eq current-mapping 'info-year) 'info-artist)
+   ((eq current-mapping 'info-label) 'info-artist)))
 
 (defun emms-browser-make-bdata-tree (type level tracks name)
   "Build a tree of browser DB elements for tracks."
@@ -1801,11 +1804,12 @@ If > album level, most of the track data will not make 
sense."
          (name (cond
                 ((or (eq type 'info-year)
                      (eq type 'info-genre)) "year/genre")
-                 ((eq type 'info-artist) "artist")
-                 ((eq type 'info-composer) "composer")
-                 ((eq type 'info-performer) "performer")
-                 ((eq type 'info-album) "album")
-                 ((eq type 'info-title) "track"))))
+                ((eq type 'info-artist) "artist")
+                ((eq type 'info-composer) "composer")
+                ((eq type 'info-performer) "performer")
+                ((eq type 'info-label) "label")
+                ((eq type 'info-album) "album")
+                ((eq type 'info-title) "track"))))
     (intern
      (concat "emms-browser-" name "-face"))))
 
@@ -1932,6 +1936,7 @@ the text that it generates."
        :group 'emms-browser-mode)))
 
 (emms-browser-make-face "year/genre" "#aaaaff" "#444477" 1.5)
+(emms-browser-make-face "label"      "#aaaaff" "#444477" 1.5)
 (emms-browser-make-face "artist"     "#aaaaff" "#444477" 1.3)
 (emms-browser-make-face "composer"   "#aaaaff" "#444477" 1.3)
 (emms-browser-make-face "performer"  "#aaaaff" "#444477" 1.3)
-- 
2.1.4