[emms-help] Some functions to improve your EMMS Experience

[Lucas]

Hi !

Here are some function that i find useful :

(defun emms-add-directory-to-playlist (&optional dir)
  "Adds a directory to the current playlist."
  (interactive)
  (let* ((appended-dir  (emms-source-directory dir))
         (new-with-concat (vconcat emms-playlist appended-dir)))
    (emms-playlist-set-playlist new-with-concat)
    (emms-playlist-set-current (emms-playlist-get-current))))

(defun emms-google-for-lyrics ()
  "Opens a google search for the lyrics of the current track."
  (interactive)
  (browse-url
   (concat "http://www.google.com/search?q=";
           (replace-regexp-in-string " +" "+"
                                     (concat "lyrics "
                                             (delete ?- 
(emms-playlist-current)))))))



HTH

-- 
Lucas / Lukhas
EMMS l33t webm4st4