From b7ea3e17a00a749e71d8f1b392b4974d1a317a52 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Wed, 3 Jan 2007 20:55:00 +0000 Subject: artist-fan-radio-and-texinfo-docs-for-lastfm.dpatch This patch adds a new function to emms-lastfm.el: `emms-lastfm-radio-artist-fan' I also added a chapter about Last.fm in emms.texinfo. It compiles for me and looks good, but it wold be nice if someone could have a short look at it. It's my first work with texinfo. darcs-hash:20070103205523-c06f4-60d44277e0b325c4bd5bc61c4af7bed922afa1a9.gz --- emms-lastfm.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'emms-lastfm.el') diff --git a/emms-lastfm.el b/emms-lastfm.el index 51bee87..3758a8b 100644 --- a/emms-lastfm.el +++ b/emms-lastfm.el @@ -290,7 +290,7 @@ well or if an error occured." ;;; Playback of lastfm:// streams -(defvar emms-lastfm-radio-base-url "http://ws.audioscrobbler.com/radio/" +(defconst emms-lastfm-radio-base-url "http://ws.audioscrobbler.com/radio/" "The base URL for playing lastfm:// stream. -- only used internally --") @@ -391,6 +391,11 @@ or (interactive "sGlobal Tag: ") (emms-lastfm-radio (concat "lastfm://globaltags/" tag))) +(defun emms-lastfm-radio-artist-fan (artist) + "Plays the artist fan radio of ARTIST." + (interactive "sArtist: ") + (emms-lastfm-radio (concat "lastfm://artist/" artist "/fans"))) + (defun emms-lastfm-radio-love () "Inform Last.fm that you love the currently playing song." (interactive) -- cgit v1.2.3