From ac9bb221022b60c987f0caab4be4cfcd99a33964 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 30 May 2006 19:06:00 +0000 Subject: emms-streams: Re-add space after prompt and use completion for type. darcs-hash:20060530190620-1bfb2-ab99409d531e96ce9bc2bca3585a7c193c0b117b.gz --- emms-streams.el | 12 ++++++++---- 1 file 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) -- cgit v1.2.3