aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2006-05-30 19:06:00 +0000
committerMichael Olson <mwolson@gnu.org>2006-05-30 19:06:00 +0000
commitac9bb221022b60c987f0caab4be4cfcd99a33964 (patch)
treee56340a49834c504c1887878798d24b212f364d0
parenta5e116b511f233f01cf8cd59908182dee4214112 (diff)
emms-streams: Re-add space after prompt and use completion for type.
darcs-hash:20060530190620-1bfb2-ab99409d531e96ce9bc2bca3585a7c193c0b117b.gz
-rw-r--r--emms-streams.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/emms-streams.el b/emms-streams.el
index b50bc18..bf67b05 100644
--- a/emms-streams.el
+++ b/emms-streams.el
@@ -349,10 +349,14 @@ Positions are counted starting with 0."
"Creates a new bookmark, and inserts it at point position.
Don't forget to run `emms-stream-save-bookmarks-file' after !"
- (interactive "sName of the bookmark:
-sURL:
-nFeed descriptor (use 1 if unsure):
-SType (url or streamlist): ")
+ (interactive
+ (list
+ (read-string "Name of the bookmark: ")
+ (read-string "URL: ")
+ (string-to-number (read-string "Feed descriptor (use 1 if unsure): "))
+ (completing-read
+ "Type (url or streamlist): "
+ (mapcar #'list '("url" "streamlist")))))
(let* ((line (emms-line-number-at-pos (point)))
(index (+ (/ line 2) 1)))
(setq emms-stream-list (emms-stream-insert-at index (list name url fd type)