diff options
| author | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-04-06 23:52:11 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-04-06 23:52:11 -0400 |
| commit | 6c638958dd4a3b4c90b78359a6ac467c174fc4ed (patch) | |
| tree | 0d5b3663296183f41a364c8957c869fd1de040a2 /lisp/emms-librefm-stream.el | |
| parent | 6e650a9ad6d0091ffb448487563dc7e799a99af2 (diff) | |
Solve dependencies and compiler issues.
Diffstat (limited to 'lisp/emms-librefm-stream.el')
| -rw-r--r-- | lisp/emms-librefm-stream.el | 6 |
1 files changed, 4 insertions, 2 deletions
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")) |