[elpa] externals/emms 4b05827071 2/2: * emms-playlist-mode.el: new function: emms-playlist-mode-add-after-current

[ELPA Syncer]

branch: externals/emms
commit 4b05827071c9dface4ff75de588a82b5c2385948
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * 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.