From 011057e640e252106a0f293c180831c2099004a2 Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Sun, 18 Jun 2023 20:02:26 +0200 Subject: [PATCH] added 'audio-create-playlist, which is way easier as the EMMS way! --- lisp/init-audio.el | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/lisp/init-audio.el b/lisp/init-audio.el index df91bad..5c287a6 100644 --- a/lisp/init-audio.el +++ b/lisp/init-audio.el @@ -39,6 +39,32 @@ (emms-playlist-set-playlist-buffer) (emms-play-playlist filename)) + (defun audio-create-playlist(name) + "Create a new audio playlist for EMMS player." + (interactive "sPlaylist name: ") + (emms-playlist-new name) + (switch-to-buffer name) + (emms-playlist-set-playlist-buffer name) + (let ((read-answer-short t) + (answer (read-answer "add [D]irectory or [F]ile? " + '(("dir" ?d "add dir") + ("file" ?f "add file")))) + (done nil)) + (message answer) + (cond + ((equal answer "dir") + (emms-add-directory-tree (read-directory-name "Select directory:"))) + ((equal answer "file") + (while (not done) + ;; FIXME: ask to continue + (emms-playlist-set-playlist-buffer name) + (let ((file (read-file-name "Select audio file:"))) + (if file + (emms-add-file file) + (setq done t)))))) + (emms-playlist-save 'native (expand-file-name (format "playlist-%s" name) "~/MP3")) + (emms-playlist-mode))) + :bind (:map emms-playlist-mode-map ( "" . 'emms-seek-forward) ( "" . 'emms-seek-backward)