From 9b48edd77f48742ede44adc38137ca96b01de27c Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Mon, 10 Jun 2019 09:22:00 +0200
Subject: [PATCH] [Music] Allow for customizing automatic playlist function

---
 init.el               | 8 +++++++-
 site-lisp/db-music.el | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index d94d3ce..1b829e7 100644
--- a/init.el
+++ b/init.el
@@ -2145,9 +2145,15 @@ search commands like `db/helm-shortcuts’."
             (require 'helm-adaptive)))
 
 (use-package db-music
-  :commands (db/play-playlist
+  :commands (db/play-playlist-from-cache
+             db/play-playlist-from-git-annex-tag
              db/update-playlist-from-directory))
 
+(defcustom db/playlist-play-function #'db/play-playlist-from-cache
+  "Function to use to automatically generate playlists"
+  :group 'personal-settings
+  :type 'function)
+
 (defcustom db/playlist nil
   "List of songs to include in a random playlist."
   :group 'personal-settings
diff --git a/site-lisp/db-music.el b/site-lisp/db-music.el
index d87a880..6746aac 100644
--- a/site-lisp/db-music.el
+++ b/site-lisp/db-music.el
@@ -6,7 +6,7 @@
 
 (require 'emms)
 
-(defun db/play-playlist ()
+(defun db/play-playlist-from-cache ()
   "Start playing songs from `db/playlist’"
   (interactive)
   (save-window-excursion