diff --git a/lisp/init-audio.el b/lisp/init-audio.el index 5900739..9d1e386 100644 --- a/lisp/init-audio.el +++ b/lisp/init-audio.el @@ -2,14 +2,25 @@ :defer nil :config - (setq emms-source-file-default-directory "~/MP3") + (setq emms-source-file-default-directory "~/MP3" + emms-playlist-buffer-name "*Music*" + emms-player-mplayer-parameters '("-slave" "-quiet" "-really-quiet" "-novideo") + emms-toggle-repeat-playlist t + emms-toggle-random-playlist nil) + (emms-add-directory-tree "~/MP3/") - '(emms-player-mplayer-parameters (quote ("-slave" "-quiet" "-really-quiet" "-novideo"))) (require 'emms-player-simple) (require 'emms-source-file) (require 'emms-source-playlist) (require 'emms-player-mplayer) + (require 'emms-browser) + + (emms-browser-make-filter "recent" + (lambda (track) (< 30 + (time-to-number-of-days + (time-subtract (current-time) + (emms-info-track-file-mtime track)))))) (emms-all) (emms-default-players) @@ -18,10 +29,21 @@ (interactive) (emms-seek-to '00:00)) + (defun audio-open-playlist (filename &optional wildcards) + "makes a new EMMS playlist buffer from the playlist of filename" + (interactive + (find-file-read-args "Find file: " + (confirm-nonexistent-file-or-buffer))) + (emms-playlist-new (file-name-base filename)) + (switch-to-buffer (file-name-base filename)) + (emms-playlist-set-playlist-buffer) + (emms-play-playlist filename)) + :bind (:map emms-playlist-mode-map ( "" . 'emms-seek-forward) ( "" . 'emms-seek-backward) ( "" . 'emms-pause) + ( "c" . 'emms-playlist-set-playlist-buffer) ( "b" . 'tvd-emms-beginning-of-song))) (defalias 'audio 'emms)