[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emms-help] [PATCH] Add browsing by record label
From: |
Petteri Hintsanen |
Subject: |
[emms-help] [PATCH] Add browsing by record label |
Date: |
Sun, 18 Oct 2015 23:25:03 +0300 |
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
[emms-help] [PATCH] Add browsing by record label,
Petteri Hintsanen <=
Re: [emms-help] [PATCH] New metadata extraction program, Rasmus, 2015/10/19