From ef7fe16f8b6a1283012099998c4abea2818abd93 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 5 Jan 2007 23:06:00 +0000 Subject: Add support for playing Last.fm streams using emms-streams interface darcs-hash:20070105230616-1bfb2-51c5cd5cdac1b0ab9daee569c4258296a030cdf3.gz --- emms-source-file.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'emms-source-file.el') diff --git a/emms-source-file.el b/emms-source-file.el index e3c8a59..5384f4a 100644 --- a/emms-source-file.el +++ b/emms-source-file.el @@ -280,10 +280,17 @@ files) can play." ;;;###autoload (autoload 'emms-play-streamlist "emms-source-file" nil t) ;;;###autoload (autoload 'emms-add-streamlist "emms-source-file" nil t) (define-emms-source streamlist (streamlist) - "An EMMS source for streaming playlists (usually URLs ending in .pls." - (interactive "sPlay URL: ") + "An EMMS source for streaming playlists (usually URLs ending in .pls)." + (interactive "sPlay streamlist URL: ") (emms-playlist-insert-track (emms-track 'streamlist streamlist))) +;;;###autoload (autoload 'emms-play-lastfm "emms-lastfm" nil t) +;;;###autoload (autoload 'emms-add-lastfm "emms-lastfm" nil t) +(define-emms-source lastfm (lastfm-url) + "An EMMS source for Last.fm URLs, which begin with lastfm://." + (interactive "sPlay Last.fm URL: ") + (emms-playlist-insert-track (emms-track 'lastfm lastfm-url))) + (provide 'emms-source-file) ;;; emms-source-file.el ends here -- cgit v1.2.3