From 952e6f1c958a45962b24cf0530f392f6d41a8318 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Mon, 10 Jun 2019 16:27:28 +0200
Subject: [PATCH] [Music] Add simple function to play files from git-annex-find
 call

---
 init.el               |  1 +
 site-lisp/db-music.el | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/init.el b/init.el
index bda9232..126116b 100644
--- a/init.el
+++ b/init.el
@@ -2152,6 +2152,7 @@ search commands like `db/helm-shortcuts’."
   :commands (db/play-auto-playlist
              db/playlist-files-from-cache
              db/playlist-files-from-git-annex-find
+             db/play-auto-playlist-from-git-annex-find
              db/update-playlist-cache-from-directory))
 
 
diff --git a/site-lisp/db-music.el b/site-lisp/db-music.el
index cac6512..c42bc5a 100644
--- a/site-lisp/db-music.el
+++ b/site-lisp/db-music.el
@@ -132,6 +132,16 @@ part of a git-annex repository, and will complain otherwise."
                      (expand-file-name
                       path
                       emms-source-file-default-directory))))))
+
+(defun db/play-auto-playlist-from-git-annex-find ()
+  "Interactively query user for a git-annex match expression and
+  play resulting list of audio files.
+
+See `db/playlist-files-from-git-annex-find’ for more details."
+  (interactive)
+  (db/-emms-playlist-from-files
+   (call-interactively #'db/playlist-files-from-git-annex-find)))
+
 (provide 'db-music)
 
 ;;; db-music ends here