From 813d1134ac60c7a00899aadf7b5baebdb6c25964 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 11 Aug 2017 09:06:42 +0200 Subject: [PATCH] =?UTF-8?q?[EMMS]=20Don=E2=80=99t=20use=20fixed=20playlist?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit play everything instead. --- init.el | 4 +--- site-lisp/db-emms.el | 12 ++++++------ 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/init.el b/init.el index bc2545c..6190a8d 100644 --- a/init.el +++ b/init.el @@ -866,9 +866,7 @@ _h_ _l_ _o_k _y_ank db/play-playlist emms-cache-save emms-play-directory-tree - emms-control/body) - :config (setq db/personal-playlist - (expand-file-name "private/playlist-daniel.pls" emacs-d))) + emms-control/body)) (use-package helm-emms :commands (helm-emms) diff --git a/site-lisp/db-emms.el b/site-lisp/db-emms.el index c63b2f7..c05a57f 100644 --- a/site-lisp/db-emms.el +++ b/site-lisp/db-emms.el @@ -40,12 +40,12 @@ ;; Basic configuration -(defvar db/personal-playlist nil - "Personal playlist.") - (setq emms-source-file-default-directory "~/Documents/media/audio/") -(advice-add 'emms-tag-editor-submit :after #'delete-window) +(advice-add 'emms-tag-editor-submit + :after (lambda (&rest r) + (declare (ignore r)) + (delete-window))) (bind-key "S s" #'emms-shuffle emms-playlist-mode-map) @@ -72,8 +72,8 @@ (emms-playlist-set-playlist-buffer) (emms-playlist-current-clear) (emms-playlist-current-insert-source - 'emms-insert-playlist - db/personal-playlist) + 'emms-insert-directory-tree + (expand-file-name "songs/" emms-source-file-default-directory)) (goto-char (point-min)) (emms-shuffle) ;; (emms-playlist-sort-by-play-count)