Rename

1 files changed, 141 insertions, 0 deletions

diff --git a/lisp/emms-librefm-scrobbler.el b/lisp/emms-librefm-scrobbler.el
new file mode 100644
index 0000000..0afd39e
--- /dev/null
+++ b/lisp/emms-librefm-scrobbler.el
@@ -0,0 +1,141 @@
+;;; emms-librefm-scrobbler.el --- Last.FM Music API
+
+;; Copyright (C) 2014  Free Software Foundation, Inc.
+
+;; Author: Yoni Rabkin <yrk@gnu.org>
+
+;; Keywords: emms, libre.fm
+
+;; 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:
+
+(defvar emms-librefm-scrobbler-handshake-url
+  "turtle.libre.fm"
+  "Endpoint for client handshake.")
+
+(defvar emms-librefm-scrobbler-method
+  "http"
+  "Transfer method.")
+
+(defvar emms-librefm-scrobbler-username
+  ""
+  "Libre.fm username.")
+
+(defvar emms-librefm-scrobbler-password
+  ""
+  "Libre.fm user password.")
+
+(defvar emms-librefm-scrobbler-debug
+  ""
+  "Debugging variable to store communication.")
+
+(defvar emms-librefm-scrobbler-session-id
+  ""
+  "Session ID for Libre.fm.")
+
+(defvar emms-librefm-scrobbler-now-playing-url
+  ""
+  "URL for getting the track playing.")
+
+(defvar emms-librefm-scrobbler-submission-url
+  ""
+  "URL for submissions.")
+
+
+(defun emms-librefm-scrobbler-handshake-string (url username password)
+  "Return the client handshake string."
+  (when (= 0 (length url))
+    (error "bad url"))
+  (when (= 0 (length username))
+    (error "bad username"))
+  (when (= 0 (length password))
+    (error "bad password"))
+  (let ((timestamp (format-time-string "%s")))
+    (concat emms-librefm-scrobbler-method
+	    "://"
+	    url "/?"
+	    "hs=true" "&"
+	    "p=1.2"   "&"
+	    "c=emm"   "&"
+	    "v=1.0"   "&"
+	    "u=" (url-encode-url username) "&"
+	    "t=" timestamp "&"
+	    "a=" (md5 (concat (md5 password) timestamp)))))
+
+(defun emms-librefm-scrobbler-handshake-call (url username password)
+  "Perform client handshake and return a response in a buffer."
+  (let ((url-request-method "POST"))
+    (let ((response
+	   (url-retrieve-synchronously
+	    (emms-librefm-scrobbler-handshake-string
+	     url username password))))
+      (setq emms-librefm-scrobbler-debug
+	    (with-current-buffer response
+	      (buffer-substring-no-properties (point-min)
+					      (point-max))))
+      response)))
+
+(defun emms-librefm-scrobbler-handle-handshake-response (resbuf)
+  "Handle the client handshake server response."
+  (when (not (bufferp resbuf))
+    (error "response not a buffer"))
+  (with-current-buffer resbuf
+    (goto-char (point-min))
+    (when (not (re-search-forward "^.*200 OK$" (point-at-eol) t))
+      (error "bad HTTP server response"))
+    ;; go to the start of the FM response
+    (when (not (re-search-forward "\n\n" (point-max) t))
+      (error "bad FM server response"))
+    (let ((status (buffer-substring (point-at-bol)
+				    (point-at-eol))))
+      (when (not (string= status "OK"))
+	(error "FM server returned: %s" status))
+      (let (session-id
+	    now-playing-url
+	    submission-url)
+	(forward-line 1)
+	(setq session-id (buffer-substring (point-at-bol)
+					   (point-at-eol)))
+	(forward-line 1)
+	(setq now-playing-url (buffer-substring (point-at-bol)
+						(point-at-eol)))
+	(forward-line 1)
+	(setq submission-url (buffer-substring (point-at-bol)
+					       (point-at-eol)))
+	(when (or (= 0 (length session-id))
+		  (= 0 (length now-playing-url))
+		  (= 0 (length submission-url)))
+	  (error "couldn't parse FM server response"))
+	(setq emms-librefm-scrobbler-session-id      session-id
+	      emms-librefm-scrobbler-now-playing-url now-playing-url
+	      emms-librefm-scrobbler-submission-url  submission-url)
+	(message "handshake successful")))))
+
+(defun emms-librefm-scrobbler-handshake ()
+  "Perform client handshake call and handle response."
+  (emms-librefm-scrobbler-handle-handshake-response
+   (emms-librefm-scrobbler-handshake-call
+    emms-librefm-scrobbler-handshake-url
+    emms-librefm-scrobbler-username
+    emms-librefm-scrobbler-password)))
+
+
+(provide 'emms-librefm-scrobbler)
+
+
+;;; emms-librefm-scrobbler.el ends here