Provide source insertion

darcs-hash:20050916011202-2189f-8e2e487b296e5a4d69f48c4bf6e19ba54a2274fe.gz

1 files changed, 12 insertions, 1 deletions

diff --git a/emms.el b/emms.el
index 203979b..08df47d 100644
--- a/emms.el
+++ b/emms.el
@@ -788,6 +788,7 @@ See emms-source-file.el for some examples."
   (let ((source-name (intern (format "emms-source-%s" name)))
         (source-play (intern (format "emms-play-%s" name)))
         (source-add (intern (format "emms-add-%s" name)))
+        (source-insert (intern (format "emms-insert-%s" name)))
         (docstring "A source of tracks for EMMS.")
         (interactive nil)
         (call-args (delete '&rest
@@ -810,7 +811,11 @@ See emms-source-file.el for some examples."
        (defun ,source-add ,arglist
          ,docstring
          ,interactive
-         (emms-source-add ',source-name ,@call-args)))))
+         (emms-source-add ',source-name ,@call-args))
+       (defun ,source-insert ,arglist
+         ,docstring
+         ,interactive
+         (emms-source-insert ',source-name ,@call-args)))))
 
 (defun emms-source-play (source &rest args)
   "Play the tracks of SOURCE, after first clearing the EMMS playlist."
@@ -828,6 +833,12 @@ See emms-source-file.el for some examples."
               (not (marker-position emms-playlist-selected-marker)))
       (emms-playlist-select-first))))
 
+(defun emms-source-insert (source &rest args)
+  "Insert the tracks from SOURCE in the current buffer."
+  (if (not emms-playlist-buffer-p)
+      (error "Not in an EMMS playlist buffer")
+    (apply emms-playlist-insert-source source args)))
+
 ;;; User-defined playlists
 ;;; FIXME: Shuffle is bogus here! (because of narrowing)
 (defmacro define-emms-combined-source (name shufflep sources)