diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2021-08-25 10:56:13 -0400 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2021-08-25 10:56:13 -0400 |
commit | b582a75d033e5a21090c854f58abeefdd238798f (patch) | |
tree | 70019b0d63fc47c34acdb3e087eb522fc1df447b | |
parent | 89e2caf942299b64360280c2606cf2553dccb58a (diff) |
* emms-source-file.el: use thing-at-point for URLs.
-rw-r--r-- | emms-source-file.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |