[emms-help] New features?

[Lucas Bonnet]

Hello,

   I realize that it's a bit late for the V3 release, but I have a
feature I'd like to submit, so that it becomes part of EMMS. If you're
not using the browser (that's you, forcer :p), you may skip to the next
mail.

The browser offers a nice filter possibility, which I use quite
intensively, and you can navigate between filters with < and >. But
sometimes that's not fast enough, especially since a) the
filter I want is almost always the last one b) I have quite a big cache,
and it takes several *seconds* to swap it out.

So I had the idea to implement (yes, I wrote some elisp code, call the
newspapers) something a bit friendlier. Here's the whole code, awaiting
for your advice about how to write the same in 2 lines :

;; define some filters, change the paths, unless you've got an account
;; to my computer
(emms-browser-make-filter "Albums" (emms-browser-filter-only-dir 
"/zic/Albums/"))
(emms-browser-make-filter "Jazz" (emms-browser-filter-only-dir "/zic/Jazz/"))
(emms-browser-make-filter "All" (emms-browser-filter-only-dir "/zic/"))

;; I'm not sure I can produce something uglier than this right now
(defun my-emms-build-filter-list ()
  (let (( l (mapcar (lambda (el) (car el)) emms-browser-filters)))
    (mapcar (lambda (el)
              `(,el . ,el)) (reverse l))))

;; pop-up the list, move with <up>/<down>, select with RET
(defun my-emms-popup ()
  (interactive)
  (funcall (intern
            (format "emms-browser-show-%s"
                    (x-popup-menu (list '(300 50) (selected-window))
                                  (list "Choose filter" (append (list "AAa")
                                                                
(my-emms-build-filter-list))))))))

;; bind, hook, etc.
(defun my-emms-browser-hook ()
  (local-set-key (kbd "C-c C-c") 'my-emms-popup))

(add-hook 'emms-browser-show-display-hook 'my-emms-browser-hook)

-- 
Lucas