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