diff options
| -rw-r--r-- | lisp/emms-librefm-scrobbler.el | 3 | ||||
| -rw-r--r-- | lisp/emms-librefm-stream.el | 6 |
2 files changed, 7 insertions, 2 deletions
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")) |