From b582a75d033e5a21090c854f58abeefdd238798f Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 25 Aug 2021 10:56:13 -0400 Subject: * emms-source-file.el: use thing-at-point for URLs. --- emms-source-file.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/emms-source-file.el b/emms-source-file.el index 9678b41..7186a92 100644 --- a/emms-source-file.el +++ b/emms-source-file.el @@ -45,6 +45,7 @@ (require 'locate) (error nil))) (require 'dired) +(require 'thingatpt) (defgroup emms-source-file nil "*Sources for EMMS that use the file system." @@ -293,7 +294,7 @@ files) can play." ;;;###autoload (autoload 'emms-add-url "emms-source-file" nil t) (define-emms-source url (url) "An EMMS source for an URL - for example, for streaming." - (interactive "sPlay URL: ") + (interactive (list (read-string "Play URL: " (thing-at-point-url-at-point)))) (emms-playlist-insert-track (emms-track 'url url))) ;;;###autoload (autoload 'emms-play-streamlist "emms-source-file" nil t) -- cgit v1.2.3