branch: externals/emms
commit 4b05827071c9dface4ff75de588a82b5c2385948
Author: Yoni Rabkin <[email protected]>
Commit: Yoni Rabkin <[email protected]>
* emms-playlist-mode.el: new function: emms-playlist-mode-add-after-current
Insert tracks from directory tree DIR after current track.
---
emms-playlist-mode.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index 9aff497ce3..e0d37579c0 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -268,6 +268,20 @@ function switches back to the remembered buffer."
(emms-with-inhibit-read-only-t
(undo)))
+(defun emms-playlist-mode-add-after-current (dir)
+ "Insert tracks from directory tree DIR after current track."
+ (interactive (list
+ (emms-read-directory-name "Add directory after current track: "
+ (emms-source-file-directory-hint)
+ emms-source-file-default-directory
+ t)))
+ (let ((p (if emms-playlist-mode-selected-overlay
+ (overlay-start emms-playlist-mode-selected-overlay)
+ (error "no current track"))))
+ (goto-char p)
+ (forward-line 1)
+ (emms-insert-directory-tree dir)))
+
(defun emms-playlist-mode-add-contents ()
"Add files in the playlist at point to the current playlist buffer.
