aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorYoni Rabkin <yonirabkin@member.fsf.org>2014-04-06 23:52:11 -0400
committerYoni Rabkin <yonirabkin@member.fsf.org>2014-04-06 23:52:11 -0400
commit6c638958dd4a3b4c90b78359a6ac467c174fc4ed (patch)
tree0d5b3663296183f41a364c8957c869fd1de040a2 /lisp
parent6e650a9ad6d0091ffb448487563dc7e799a99af2 (diff)
Solve dependencies and compiler issues.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-librefm-scrobbler.el3
-rw-r--r--lisp/emms-librefm-stream.el6
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"))