new function: consult-emms-embark--rename-playlist

For renaming playlist buffers
Hugo-Heagren · Dec 25, 2021 · 6754e3b · 6754e3b
1 parent 4f89cff
commit 6754e3b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/consult-emms-embark.el b/consult-emms-embark.el
@@ -122,6 +122,13 @@ Selected track is added to the current playlist."
   (consult-emms-embark--with-buffer-from-text-property
    playlist-name (emms-shuffle)))
 
+(defun consult-emms-embark--rename-playlist (playlist-name)
+  "Shuffle playlist extracted from PLAYLIST-NAME."
+  (let ((buffer
+	 (consult-emms-embark--get-buffer-text-property playlist-name)))
+    (with-current-buffer buffer
+      (call-interactively 'rename-buffer))))
+
 (embark-define-keymap consult-emms-embark-playlist-actions
   "Keymap for actions on playlists in `consult-emms'."
   ("W" '("Write to file" . consult-emms-embark--write-playlist))