aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorYoni Rabkin <yonirabkin@member.fsf.org>2014-08-20 15:51:38 -0400
committerYoni Rabkin <yonirabkin@member.fsf.org>2014-08-20 15:51:38 -0400
commit22ca956b821e44802446d1ee8e412d6790ce17f4 (patch)
tree88cc0d803f8db1a53129891a27aee01bbecd6b4a /lisp
parent96c9802e97742be2e44482f2ea16123436b35fd6 (diff)
Add thing-at-point to interactive input.
Patch by Daimrod <daimrod@gmail.com>. Change too small for copyright papers.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-source-file.el3
-rw-r--r--lisp/emms-source-playlist.el15
2 files changed, 12 insertions, 6 deletions
diff --git a/lisp/emms-source-file.el b/lisp/emms-source-file.el
index 97b7a39..660cbd5 100644
--- a/lisp/emms-source-file.el
+++ b/lisp/emms-source-file.el
@@ -104,7 +104,8 @@ user."
(interactive (list (read-file-name "Play file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(if (file-directory-p file)
(emms-source-directory file)
(emms-playlist-insert-track
diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el
index 0bcc548..0054f43 100644
--- a/lisp/emms-source-playlist.el
+++ b/lisp/emms-source-playlist.el
@@ -174,7 +174,8 @@ See `emms-source-playlist-formats' for a list of supported formats."
(interactive (list (read-file-name "Playlist file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(mapc #'emms-playlist-insert-track
(with-temp-buffer
(emms-insert-file-contents file)
@@ -231,7 +232,8 @@ OUT should be the buffer where tracks are stored in the native EMMS format."
(interactive (list (read-file-name "Playlist file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(mapc #'emms-playlist-insert-track
(with-temp-buffer
(emms-insert-file-contents file)
@@ -304,7 +306,8 @@ OUT should be the buffer where tracks are stored in m3u format."
(interactive (list (read-file-name "Playlist file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(mapc #'emms-playlist-insert-track
(with-temp-buffer
(emms-insert-file-contents file)
@@ -389,7 +392,8 @@ OUT should be the buffer where tracks are stored in pls format."
(interactive (list (read-file-name "Playlist file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(mapc #'emms-playlist-insert-track
(with-temp-buffer
(emms-insert-file-contents file)
@@ -437,7 +441,8 @@ See `emms-source-playlist-formats' for a list of supported formats."
(interactive (list (read-file-name "Playlist file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(emms-playlist-insert-track
(emms-track 'playlist (expand-file-name file))))