diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emms-lastfm-client.el | 286 | ||||
| -rw-r--r-- | lisp/emms-lastfm-scrobbler.el | 367 |
2 files changed, 414 insertions, 239 deletions
diff --git a/lisp/emms-lastfm-client.el b/lisp/emms-lastfm-client.el index 7456bc9..9f66877 100644 --- a/lisp/emms-lastfm-client.el +++ b/lisp/emms-lastfm-client.el @@ -34,19 +34,32 @@ (require 'emms) (require 'emms-source-file) (require 'xml) +(require 'emms-lastfm-scrobbler) -(defvar emms-lastfm-client-username nil - "Valid Last.fm account username.") +(defcustom emms-lastfm-client-username nil + "Valid Last.fm account username." + :group 'emms-lastfm + :type 'string) -(defvar emms-lastfm-client-api-key nil - "Key for the Last.fm API.") +(defcustom emms-lastfm-client-api-key nil + "Key for the Last.fm API." + :group 'emms-lastfm + :type 'string) -(defvar emms-lastfm-client-api-secret-key nil - "Secret key for the Last.fm API.") +(defcustom emms-lastfm-client-api-secret-key nil + "Secret key for the Last.fm API." + :group 'emms-lastfm + :type 'string) (defvar emms-lastfm-client-api-session-key nil "Session key for the Last.fm API.") +(defvar emms-lastfm-client-track nil + "Latest Last.fm track.") + +(defvar emms-lastfm-client-submission-api t + "Use the Last.fm submission API if true, otherwise don't.") + (defvar emms-lastfm-client-token nil "Authorization token for API.") @@ -80,30 +93,6 @@ (defvar emms-lastfm-client-playlist-buffer nil "Non-interactive Emms Last.fm buffer.") -(defvar emms-lastfm-client-client-identifier "emm" - "Client identifier for Emms (Last.fm define this, not us).") - -(defvar emms-lastfm-client-submission-protocol-number "1.2.1" - "Version of the submissions protocol to which Emms conforms.") - -(defvar emms-lastfm-client-published-version "1.0" - "Version of this package published to the Last.fm service.") - -(defvar emms-lastfm-client-submission-session-id nil - "Scrobble session id, for now-playing and submission requests.") - -(defvar emms-lastfm-client-submission-now-playing-url nil - "URL that should be used for a now-playing request.") - -(defvar emms-lastfm-client-submission-url nil - "URL that should be used for submissions") - -(defvar emms-lastfm-client-track-play-start-timestamp nil - "UTC timestamp.") - -(defvar emms-lastfm-client-submission-api t - "Use the Last.fm submission API if true, otherwise don't.") - (defvar emms-lastfm-client-inhibit-cleanup nil "If true, do not perform clean-up after `emms-stop'.") @@ -467,9 +456,6 @@ This function includes the cryptographic signature." emms-lastfm-client-playlist-buffer-name)) (setq emms-playlist-buffer emms-lastfm-client-playlist-buffer)) -(defun emms-lastfm-client-timestamp () - "Return a UNIX UTC timestamp." - (format-time-string "%s" (current-time) t)) (defun emms-lastfm-client-load-next-track () "Queue the next track from Last.fm." @@ -481,8 +467,8 @@ This function includes the cryptographic signature." (if emms-lastfm-client-playlist (let ((track (emms-lastfm-client-consume-next-track))) (setq emms-lastfm-client-track track) - (setq emms-lastfm-client-track-play-start-timestamp - (emms-lastfm-client-timestamp)) + (setq emms-lastfm-scrobbler-track-play-start-timestamp + (emms-lastfm-scrobbler-timestamp)) (let ((emms-lastfm-client-inhibit-cleanup t)) (emms-play-url (emms-lastfm-client-xspf-get 'location track)))) @@ -492,28 +478,26 @@ This function includes the cryptographic signature." (defun emms-lastfm-client-love-track () "Submit the currently playing track with a `love' rating." (interactive) - (if emms-lastfm-client-track - (let ((result (emms-lastfm-client-make-async-submission-call - emms-lastfm-client-track 'love))) - ;; the following submission API call looks redundant but - ;; isn't; indeed, it might be done away with in a future - ;; version of the Last.fm API (see API docs) - (emms-lastfm-client-make-call-track-love) - (when (equal result 'track-successfully-submitted) - (message "track sucessfully submitted with a `love' rating"))) - (error "no current track"))) + (when emms-lastfm-client-track + (emms-lastfm-scrobbler-make-async-submission-call + (emms-lastfm-client-convert-track + emms-lastfm-client-track) 'love) + ;; the following submission API call looks redundant but + ;; isn't; indeed, it might be done away with in a future + ;; version of the Last.fm API (see API docs) + (emms-lastfm-client-make-call-track-love))) (defun emms-lastfm-client-ban-track () "Submit currently playing track with a `ban' rating and skip." (interactive) - (if emms-lastfm-client-track - (let ((result (emms-lastfm-client-make-async-submission-call - emms-lastfm-client-track 'ban))) - (emms-lastfm-client-make-call-track-ban) - (when (equal result 'track-successfully-submitted) - (message "track sucessfully submitted with a `ban' rating")) - (emms-lastfm-client-load-next-track)) - (error "no current track"))) + (when emms-lastfm-client-track + (emms-lastfm-scrobbler-make-async-submission-call + (emms-lastfm-client-convert-track + emms-lastfm-client-track) 'ban) + ;; the following submission API call looks redundant but + ;; isn't; see `...-love-track' + (emms-lastfm-client-make-call-track-ban) + (emms-lastfm-client-load-next-track))) ;; call this `-track-advance' to avoid confusion with Emms' ;; `-next-track-' mechanism @@ -524,10 +508,9 @@ This function includes the cryptographic signature." emms-lastfm-client-playlist-buffer) (when (and emms-lastfm-client-submission-api (not first)) - (let ((result (emms-lastfm-client-make-async-submission-call - emms-lastfm-client-track nil))) - (when (equal result 'track-successfully-submitted) - (message "track sucessfully submitted")))) + (let ((result (emms-lastfm-scrobbler-make-async-submission-call + (emms-lastfm-client-convert-track + emms-lastfm-client-track) nil))))) (emms-lastfm-client-load-next-track))) (defun emms-lastfm-client-next-function () @@ -589,7 +572,7 @@ This function includes the cryptographic signature." (emms-lastfm-client-make-call-radio-tune (format url username)) (emms-lastfm-client-make-call-radio-getplaylist) - (emms-lastfm-client-handshake) + (emms-lastfm-scrobbler-handshake) (emms-lastfm-client-play-playlist)) (defun emms-lastfm-client-play-similar-artists (artist) @@ -601,7 +584,7 @@ This function includes the cryptographic signature." (emms-lastfm-client-make-call-radio-tune (format "lastfm://artist/%s/similarartists" artist)) (emms-lastfm-client-make-call-radio-getplaylist) - (emms-lastfm-client-handshake) + (emms-lastfm-scrobbler-handshake) (emms-lastfm-client-play-playlist)) (defun emms-lastfm-client-play-loved () @@ -659,10 +642,11 @@ This function includes the cryptographic signature." (emms-track-set emms-track 'info-album (emms-lastfm-client-xspf-get 'album track)) (emms-track-set emms-track 'info-playing-time - (/ - (parse-integer - (emms-lastfm-client-xspf-get 'duration track)) - 1000)) + (/ (parse-integer + (emms-lastfm-client-xspf-get 'duration + track)) + 1000)) + (emms-track-set emms-track 'type 'lastfm-streaming) emms-track)) (defun emms-lastfm-client-show-track (track) @@ -961,182 +945,6 @@ This function includes the cryptographic signature." "Function called with DATA after `ban' rating succeeds." 'track-ban-succeed) -;;; ------------------------------------------------------------------ -;;; Submission API [http://www.last.fm/api/submissions] -;;; ------------------------------------------------------------------ - -;; 1.3 Authentication Token for Web Services Authentication: token = -;; md5(shared_secret + timestamp) - -(defun emms-lastfm-client-make-token-for-web-services (timestamp) - (when (not (and emms-lastfm-client-api-secret-key timestamp)) - (error "secret and timestamp needed to make an auth token")) - (md5 (concat emms-lastfm-client-api-secret-key timestamp))) - -;; Handshake: The initial negotiation with the submissions server to -;; establish authentication and connection details for the session. - -(defun emms-lastfm-client-make-handshake-call () - "Return a submission protocol handshake string." - (when (not (and emms-lastfm-client-submission-protocol-number - emms-lastfm-client-client-identifier - emms-lastfm-client-published-version - emms-lastfm-client-username)) - (error "missing variables to generate handshake call")) - (let ((timestamp (format-time-string "%s"))) - (concat - "http://post.audioscrobbler.com/?hs=true" - "&p=" emms-lastfm-client-submission-protocol-number - "&c=" emms-lastfm-client-client-identifier - "&v=" emms-lastfm-client-published-version - "&u=" emms-lastfm-client-username - "&t=" timestamp - "&a=" (emms-lastfm-client-make-token-for-web-services timestamp) - "&api_key=" emms-lastfm-client-api-key - "&sk=" emms-lastfm-client-api-session-key))) - -(defun emms-lastfm-client-handshake () - "Make handshake call." - (if emms-lastfm-client-playlist-valid - (let* ((url-request-method "GET")) - (let ((response - (url-retrieve-synchronously - (emms-lastfm-client-make-handshake-call)))) - (emms-lastfm-client-handle-handshake - (with-current-buffer response - (buffer-substring-no-properties - (point-min) (point-max)))))) - (error "cannot handshake without initializing the client"))) - -(defun emms-lastfm-client-handle-handshake (response) - (let ((ok200 "HTTP/1.1 200 OK")) - (when (not (string= ok200 (substring response 0 15))) - (error "server not responding correctly")) - (with-temp-buffer - (insert response) - (goto-char (point-min)) - (re-search-forward "\n\n") - (let ((status (buffer-substring-no-properties - (point-at-bol) (point-at-eol)))) - (cond ((string= status "OK") - (forward-line) - (setq emms-lastfm-client-submission-session-id - (buffer-substring-no-properties - (point-at-bol) (point-at-eol))) - (forward-line) - (setq emms-lastfm-client-submission-now-playing-url - (buffer-substring-no-properties - (point-at-bol) (point-at-eol))) - (forward-line) - (setq emms-lastfm-client-submission-url - (buffer-substring-no-properties - (point-at-bol) (point-at-eol)))) - ((string= status "BANNED") - (error "this version of Emms has been BANNED")) - ((string= status "BADAUTH") - (error "bad authentication paramaters to handshake")) - ((string= status "BADTIME") - (error "handshake timestamp diverges too much")) - (t - (error "unhandled handshake failure"))))))) - -(defun emms-lastfm-client-assert-submission-handshake () - (when (not (and emms-lastfm-client-submission-session-id - emms-lastfm-client-submission-now-playing-url - emms-lastfm-client-submission-url)) - (error "cannot use submission API before handshake"))) - -(defun emms-lastfm-client-hexify-encode (str) - "UTF-8 encode and URL-hexify STR." - (url-hexify-string (encode-coding-string str 'utf-8))) - -(defun emms-lastfm-client-submission-data (track rating) - (emms-lastfm-client-assert-submission-handshake) - (setq rating - (cond ((equal 'love rating) "L") - ((equal 'ban rating) "B") - ((equal 'skip rating) "S") - (t ""))) - (concat - "s=" (emms-lastfm-client-hexify-encode - emms-lastfm-client-submission-session-id) - "&a[0]=" (emms-lastfm-client-hexify-encode - (emms-lastfm-client-xspf-get 'creator track)) - "&t[0]=" (emms-lastfm-client-hexify-encode - (emms-lastfm-client-xspf-get 'title track)) - ;; warning: won't extend to submitting multiple tracks - "&i[0]=" (emms-lastfm-client-hexify-encode - emms-lastfm-client-track-play-start-timestamp) - "&o[0]=L" (emms-lastfm-client-hexify-encode - (emms-lastfm-client-xspf-get - 'trackauth - (emms-lastfm-client-xspf-extension track))) - "&r[0]=" (emms-lastfm-client-hexify-encode rating) - "&l[0]=" "" ; empty string to be explicit - "&b[0]=" "" ; empty string to be explicit - "&n[0]=" "" ; empty string to be explicit - "&m[0]=" "" ; empty string to be explicit - )) - -(defun emms-lastfm-client-handle-submission-response (response track rating) - (let ((ok200 "HTTP/1.1 200 OK")) - (when (not (string= ok200 (substring response 0 15))) - (error "submission server not responding correctly")) - (with-temp-buffer - (insert response) - (goto-char (point-min)) - (re-search-forward "\n\n") - (let ((status (buffer-substring-no-properties - (point-at-bol) (point-at-eol)))) - (cond ((string= status "OK") - ;; From the API docs: This indicates that the - ;; submission request was accepted for processing. It - ;; does not mean that the submission was valid, but - ;; only that the authentication and the form of the - ;; submission was validated. - (message "successfully submitted %s" - (emms-lastfm-client-xspf-get 'title track))) - ((string= status "BADSESSION") - (emms-lastfm-client-handshake) - (emms-lastfm-client-make-async-submission-call track rating)) - (t - (error "unhandled submission failure"))))))) - -(defun emms-lastfm-client-submit () - "Submit the current track as having been played." - (if emms-lastfm-client-track - (emms-lastfm-client-make-async-submission-call - emms-lastfm-client-track nil) - (error "no current track"))) - -;;; ------------------------------------------------------------------ -;;; Asynchronous Submission -;;; ------------------------------------------------------------------ - -(defun emms-lastfm-client-async-submission-callback (status &optional cbargs) - "Pass response of asynchronous submission call to handler." - (let ((response (copy-sequence - (buffer-substring-no-properties - (point-min) (point-max))))) - (emms-lastfm-client-handle-submission-response - response - (car cbargs) ; track - (cdr cbargs) ; rating - ))) - -(defun emms-lastfm-client-make-async-submission-call (track rating) - "Make asynchronous submission call." - (if emms-lastfm-client-playlist-valid - (let* ((url-request-method "POST") - (url-request-data - (emms-lastfm-client-submission-data track rating)) - (url-request-extra-headers - `(("Content-type" . "application/x-www-form-urlencoded")))) - (url-retrieve emms-lastfm-client-submission-url - #'emms-lastfm-client-async-submission-callback - (list (cons track rating)))) - (error "cannot make submission call without initializing the client"))) - (provide 'emms-lastfm-client) ;;; emms-lastfm-client.el ends here diff --git a/lisp/emms-lastfm-scrobbler.el b/lisp/emms-lastfm-scrobbler.el new file mode 100644 index 0000000..a2171b8 --- /dev/null +++ b/lisp/emms-lastfm-scrobbler.el @@ -0,0 +1,367 @@ +;;; emms-lastfm-scrobbler.el --- Last.FM Music API + +;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. + +;; Authors: Bram van der Kroef <bram@fortfrances.com>, Yoni Rabkin +;; <yonirabkin@member.fsf.org> + +;; Keywords: emms, lastfm + +;; EMMS is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. +;; +;; EMMS is distributed in the hope that it will be useful, but WITHOUT +;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public +;; License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with EMMS; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +;; MA 02110-1301, USA. + +;;; Code: + +;;; ------------------------------------------------------------------ +;;; Submission API [http://www.last.fm/api/submissions] +;;; ------------------------------------------------------------------ + +(require 'emms) +(require 'emms-playing-time) + +;; Variables referenced from emms-lastfm-client: +;; emms-lastfm-client-username, emms-lastfm-client-api-key, +;; emms-lastfm-client-api-secret-key, emms-lastfm-client-api-session-key, +;; emms-lastfm-client-track +;; Functions referenced: +;; emms-lastfm-client-xspf-get, emms-lastfm-client-xspf-extension, +;; emms-lastfm-client-initialize-session + +(defcustom emms-lastfm-scrobbler-submit-track-types '(file) + "Specify what types of tracks to submit to Last.fm. +The default is to only submit files. + +To submit every track to Last.fm, set this to t." + :type '(choice (const :tag "All" t) + (set :tag "Types" + (const :tag "Files" file) + (const :tag "URLs" url) + (const :tag "Playlists" playlist) + (const :tag "Streamlists" streamlist) + (const :tag "Last.fm streams" lastfm-streaming))) + :group 'emms-lastfm) + +(defvar emms-lastfm-scrobbler-submission-protocol-number "1.2.1" + "Version of the submissions protocol to which Emms conforms.") + +(defvar emms-lastfm-scrobbler-published-version "1.0" + "Version of this package published to the Last.fm service.") + +(defvar emms-lastfm-scrobbler-submission-session-id nil + "Scrobble session id, for now-playing and submission requests.") + +(defvar emms-lastfm-scrobbler-submission-now-playing-url nil + "URL that should be used for a now-playing request.") + +(defvar emms-lastfm-scrobbler-submission-url nil + "URL that should be used for submissions") + +(defvar emms-lastfm-scrobbler-client-identifier "emm" + "Client identifier for Emms (Last.fm define this, not us).") + +(defvar emms-lastfm-scrobbler-track-play-start-timestamp nil + "UTC timestamp.") + +;; 1.3 Authentication Token for Web Services Authentication: token = +;; md5(shared_secret + timestamp) + +(defun emms-lastfm-scrobbler-make-token-for-web-services (timestamp) + (when (not (and emms-lastfm-client-api-secret-key timestamp)) + (error "secret and timestamp needed to make an auth token")) + (md5 (concat emms-lastfm-client-api-secret-key timestamp))) + +;; Handshake: The initial negotiation with the submissions server to +;; establish authentication and connection details for the session. + +(defun emms-lastfm-scrobbler-handshake () + "Make handshake call." + (let* ((url-request-method "GET")) + (let ((response + (url-retrieve-synchronously + (emms-lastfm-scrobbler-make-handshake-call)))) + (emms-lastfm-scrobbler-handle-handshake + (with-current-buffer response + (buffer-substring-no-properties + (point-min) (point-max))))))) + +(defun emms-lastfm-scrobbler-make-handshake-call () + "Return a submission protocol handshake string." + (when (not (and emms-lastfm-scrobbler-submission-protocol-number + emms-lastfm-scrobbler-client-identifier + emms-lastfm-scrobbler-published-version + emms-lastfm-client-username)) + (error "missing variables to generate handshake call")) + (let ((timestamp (emms-lastfm-scrobbler-timestamp))) + (concat + "http://post.audioscrobbler.com/?hs=true" + "&p=" emms-lastfm-scrobbler-submission-protocol-number + "&c=" emms-lastfm-scrobbler-client-identifier + "&v=" emms-lastfm-scrobbler-published-version + "&u=" emms-lastfm-client-username + "&t=" timestamp + "&a=" (emms-lastfm-scrobbler-make-token-for-web-services timestamp) + "&api_key=" emms-lastfm-client-api-key + "&sk=" emms-lastfm-client-api-session-key))) + +(defun emms-lastfm-scrobbler-handle-handshake (response) + (let ((ok200 "HTTP/1.1 200 OK")) + (when (not (string= ok200 (substring response 0 15))) + (error "server not responding correctly")) + (with-temp-buffer + (insert response) + (goto-char (point-min)) + (re-search-forward "\n\n") + (let ((status (buffer-substring-no-properties + (point-at-bol) (point-at-eol)))) + (cond ((string= status "OK") + (forward-line) + (setq emms-lastfm-scrobbler-submission-session-id + (buffer-substring-no-properties + (point-at-bol) (point-at-eol))) + (forward-line) + (setq emms-lastfm-scrobbler-submission-now-playing-url + (buffer-substring-no-properties + (point-at-bol) (point-at-eol))) + (forward-line) + (setq emms-lastfm-scrobbler-submission-url + (buffer-substring-no-properties + (point-at-bol) (point-at-eol)))) + ((string= status "BANNED") + (error "this version of Emms has been BANNED")) + ((string= status "BADAUTH") + (error "bad authentication paramaters to handshake")) + ((string= status "BADTIME") + (error "handshake timestamp diverges too much")) + (t + (error "unhandled handshake failure"))))))) + +(defun emms-lastfm-scrobbler-assert-submission-handshake () + (when (not (and emms-lastfm-scrobbler-submission-session-id + emms-lastfm-scrobbler-submission-now-playing-url + emms-lastfm-scrobbler-submission-url)) + (error "cannot use submission API before handshake"))) + +(defun emms-lastfm-scrobbler-hexify-encode (str) + "UTF-8 encode and URL-hexify STR." + (url-hexify-string (encode-coding-string str 'utf-8))) + +(defun emms-lastfm-scrobbler-timestamp () + "Return a UNIX UTC timestamp." + (format-time-string "%s")) + +(defun emms-lastfm-scrobbler-get-response-status () + "Check the http header and return the body" + (let ((ok200 "HTTP/1.1 200 OK")) + (if (< (point-max) 1) + (error "No response from submission server")) + (if (not (string= ok200 (buffer-substring-no-properties (point-min) 16))) + (error "submission server not responding correctly")) + (goto-char (point-min)) + (re-search-forward "\n\n") + (buffer-substring-no-properties + (point-at-bol) (point-at-eol)))) + +(defun emms-lastfm-scrobbler-submission-data (track rating) + "Format the url parameters containing the track artist, title, rating, time the + track was played, etc." + ;; (emms-lastfm-scrobbler-assert-submission-handshake) + (setq rating + (cond ((equal 'love rating) "L") + ((equal 'ban rating) "B") + ((equal 'skip rating) "S") + (t ""))) + (let ((artist (emms-track-get track 'info-artist)) + (title (emms-track-get track 'info-title)) + (album (or (emms-track-get track 'info-album) "")) + (track-number (emms-track-get track 'info-tracknumber)) + (musicbrainz-id "") + (track-length (number-to-string + (or (emms-track-get track + 'info-playing-time) + 0)))) + (if (and artist title) + (concat + "s=" (emms-lastfm-scrobbler-hexify-encode + emms-lastfm-scrobbler-submission-session-id) + "&a[0]=" (emms-lastfm-scrobbler-hexify-encode artist) + "&t[0]=" (emms-lastfm-scrobbler-hexify-encode title) + "&i[0]=" (emms-lastfm-scrobbler-hexify-encode + emms-lastfm-scrobbler-track-play-start-timestamp) + "&o[0]=" (if (equal (emms-track-type track) + 'lastfm-streaming) + (concat "L" + (emms-lastfm-scrobbler-hexify-encode + (emms-lastfm-client-xspf-get + 'trackauth + (emms-lastfm-client-xspf-extension + emms-lastfm-client-track)))) + "P") + "&r[0]=" (emms-lastfm-scrobbler-hexify-encode rating) + "&l[0]=" track-length + "&b[0]=" (emms-lastfm-scrobbler-hexify-encode album) + "&n[0]=" track-number + "&m[0]=" musicbrainz-id) + (error "Track title and artist must be known.")))) + +(defun emms-lastfm-scrobbler-nowplaying-data (track) + "Format the parameters for the Now playing submission." + ;; (emms-lastfm-scrobbler-assert-submission-handshake) + (let ((artist (emms-track-get track 'info-artist)) + (title (emms-track-get track 'info-title)) + (album (or (emms-track-get track 'info-album) "")) + (track-number (emms-track-get track + 'info-tracknumber)) + (musicbrainz-id "") + (track-length (number-to-string + (or (emms-track-get track + 'info-playing-time) + 0)))) + (if (and artist title) + (concat + "s=" (emms-lastfm-scrobbler-hexify-encode + emms-lastfm-scrobbler-submission-session-id) + "&a=" (emms-lastfm-scrobbler-hexify-encode artist) + "&t=" (emms-lastfm-scrobbler-hexify-encode title) + "&b=" (emms-lastfm-scrobbler-hexify-encode album) + "&l=" track-length + "&n=" track-number + "&m=" musicbrainz-id) + (error "Track title and artist must be known.")))) + +(defun emms-lastfm-scrobbler-allowed-track-type (track) + "Check if the track-type is one of the allowed types" + (let ((track-type (emms-track-type track))) + (or (eq emms-lastfm-scrobbler-submit-track-types t) + (and (listp emms-lastfm-scrobbler-submit-track-types) + (memq track-type emms-lastfm-scrobbler-submit-track-types))))) + +;;; ------------------------------------------------------------------ +;;; EMMS hooks +;;; ------------------------------------------------------------------ + +(defun emms-lastfm-scrobbler-start-hook () + "Update the now playing info displayed on the user's last.fm page. This + doesn't affect the user's profile, so it con be done even for tracks that + should not be submitted." + ;; wait 5 seconds for the stop hook to submit the last track + (sit-for 5) + (let ((current-track (emms-playlist-current-selected-track))) + (setq emms-lastfm-scrobbler-track-play-start-timestamp + (emms-lastfm-scrobbler-timestamp)) + (if (emms-lastfm-scrobbler-allowed-track-type current-track) + (emms-lastfm-scrobbler-make-async-nowplaying-call + current-track)))) + +(defun emms-lastfm-scrobbler-stop-hook () + "Submit the track to last.fm if it has been played for 240 +seconds or half the length of the track." + (let ((current-track (emms-playlist-current-selected-track))) + (let ((track-length (emms-track-get current-track 'info-playing-time))) + (when (and track-length + (emms-lastfm-scrobbler-allowed-track-type current-track)) + (when (and + ;; track must be longer than 30 secs + (> track-length 30) + ;; track must be played for more than 240 secs or + ;; half the tracks length, whichever comes first. + (> emms-playing-time (min 240 (/ track-length 2)))) + (emms-lastfm-scrobbler-make-async-submission-call + current-track nil)))))) + +(defun emms-lastfm-scrobbler-enable () + "Enable the Last.fm scrobbler and submit the tracks EMMS plays +to last.fm" + (interactive) + (emms-lastfm-client-initialize-session) + (if (not emms-lastfm-scrobbler-submission-session-id) + (emms-lastfm-scrobbler-handshake)) + (add-hook 'emms-player-started-hook + 'emms-lastfm-scrobbler-start-hook t) + (add-hook 'emms-player-stopped-hook + 'emms-lastfm-scrobbler-stop-hook) + (add-hook 'emms-player-finished-hook + 'emms-lastfm-scrobbler-stop-hook)) + +(defun emms-lastfm-scrobbler-disable () + "Stop submitting to last.fm" + (interactive) + (remove-hook 'emms-player-started-hook + 'emms-lastfm-scrobbler-start-hook) + (remove-hook 'emms-player-stopped-hook + 'emms-lastfm-scrobbler-stop-hook) + (remove-hook 'emms-player-finished-hook + 'emms-lastfm-scrobbler-stop-hook)) + +;;; ------------------------------------------------------------------ +;;; Asynchronous Submission +;;; ------------------------------------------------------------------ + + +(defun emms-lastfm-scrobbler-make-async-submission-call (track rating) + "Make asynchronous submission call." + (let ((flarb (emms-lastfm-scrobbler-submission-data track rating))) + (setq flooz flarb) + (let* ((url-request-method "POST") + (url-request-data flarb) + (url-request-extra-headers + `(("Content-type" . "application/x-www-form-urlencoded")))) + (url-retrieve emms-lastfm-scrobbler-submission-url + #'emms-lastfm-scrobbler-async-submission-callback + (list (cons track rating)))))) + +(defun emms-lastfm-scrobbler-async-submission-callback (status &optional cbargs) + "Pass response of asynchronous submission call to handler." + (emms-lastfm-scrobbler-assert-submission-handshake) + (let ((response (emms-lastfm-scrobbler-get-response-status))) + ;; From the API docs: This indicates that the + ;; submission request was accepted for processing. It + ;; does not mean that the submission was valid, but + ;; only that the authentication and the form of the + ;; submission was validated. + (let ((track (car cbargs))) + (cond ((string= response "OK") + (message "Last.fm: Submitted %s" + (emms-track-get track 'info-title))) + ((string= response "BADSESSION") + (emms-lastfm-scrobbler-handshake) + (emms-lastfm-scrobbler-make-async-submission-call (car cbargs) (cdr cbargs))) + (t + (error "unhandled submission failure")))))) + +(defun emms-lastfm-scrobbler-make-async-nowplaying-call (track) + "Make asynchronous now-playing submission call." + (emms-lastfm-scrobbler-assert-submission-handshake) + (let* ((url-request-method "POST") + (url-request-data + (emms-lastfm-scrobbler-nowplaying-data track)) + (url-request-extra-headers + `(("Content-type" . "application/x-www-form-urlencoded")))) + (url-retrieve emms-lastfm-scrobbler-submission-now-playing-url + #'emms-lastfm-scrobbler-async-nowplaying-callback + (list (cons track nil))))) + +(defun emms-lastfm-scrobbler-async-nowplaying-callback (status &optional cbargs) + "Pass response of asynchronous now-playing submission call to handler." + (let ((response (emms-lastfm-scrobbler-get-response-status))) + (cond ((string= response "OK") nil) + ((string= response "BADSESSION") + (emms-lastfm-scrobbler-handshake) + (emms-lastfm-scrobbler-make-async-nowplaying-call (car cbargs))) + (t + (error "unhandled submission failure"))))) + +(provide 'emms-lastfm-scrobbler) + +;;; emms-lastfm-scrobbler.el ends here. |