From 6c638958dd4a3b4c90b78359a6ac467c174fc4ed Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Sun, 6 Apr 2014 23:52:11 -0400 Subject: Solve dependencies and compiler issues. --- lisp/emms-librefm-scrobbler.el | 3 +++ lisp/emms-librefm-stream.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/emms-librefm-scrobbler.el b/lisp/emms-librefm-scrobbler.el index bf34790..4f83cdd 100644 --- a/lisp/emms-librefm-scrobbler.el +++ b/lisp/emms-librefm-scrobbler.el @@ -24,6 +24,9 @@ ;;; Code: +(require 'emms-playing-time) + + (defvar emms-librefm-scrobbler-handshake-url "turtle.libre.fm" "Endpoint for client handshake.") diff --git a/lisp/emms-librefm-stream.el b/lisp/emms-librefm-stream.el index b1e31f4..9c55e41 100644 --- a/lisp/emms-librefm-stream.el +++ b/lisp/emms-librefm-stream.el @@ -25,8 +25,10 @@ ;;; Code: (require 'xml) +(require 'emms-playlist-mode) (require 'emms-librefm-scrobbler) + (defvar emms-librefm-stream-host-url "alpha.libre.fm" "URL for the streaming host") @@ -299,7 +301,7 @@ point after the HTTP headers." (emms-track-set emms-track 'info-title title) (emms-track-set emms-track 'info-album album) (emms-track-set emms-track 'info-playing-time - (/ (parse-integer duration) + (/ (string-to-number duration) 1000)) (emms-track-set emms-track 'type 'url) emms-track))) @@ -365,7 +367,7 @@ point after the HTTP headers." (defun emms-librefm-stream (station) "Stream STATION from a GNU FM server." - (interactive) + (interactive "sEnter station URL: ") (when (not (stringp station)) (error "bad argument")) -- cgit v1.2.3