Hi, The attached patch uses thing-at-point to provide an initial filename when calling the following functions: - 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
>From 60624f6fca074638a4970e0f2bed7d379e2908e7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= <[email protected]> Date: Fri, 1 Mar 2013 12:49:00 +0100 Subject: [PATCH] Use `thing-at-point' to find an initial filename * 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
-- Daimrod/Greg
_______________________________________________ Emms-help mailing list [email protected] https://lists.gnu.org/mailman/listinfo/emms-help
