[PATCH] Use `thing-at-point' to find an initial filename

[Grégoire Jadi]

* lisp/emms-source-file.el (emms-source-file): Use `thing-at-point' to
find an initial filename.

* emms-source-playlist.el (emms-play-playlist, emms-add-playlist)
(emms-play-native-playlist, emms-add-native-playlist)
(emms-play-m3u-playlist, emms-add-m3u-playlist, emms-play-pls-playlist)
(emms-add-pls-playlist, emms-play-playlist-file, emms-add-playlist-file):
Use `thing-at-point' to find an initial filename.
---
lisp/emms-source-file.el | 3 ++-
lisp/emms-source-playlist.el | 15 ++++++++++-----
2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lisp/emms-source-file.el b/lisp/emms-source-file.el
index a72fbf8..7e02900 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..e3d0cff 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))))
--
1.8.0.2722.gc0242e5


--=-=-=
Content-Type: text/plain