                       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."
+  "Query for match expression and play resulting audio files.
+
+The match expression must be suitable for git-annex to find the
+desired 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)))

;; Autogeneration of Playlist

(defcustom db/auto-playlist-file-function #'db/play-auto-playlist-from-git-annex-find
  "Function that has to return a list of all music files that
should be included in the auto playlist."
  :group 'db-music
  :type 'function)

(defun db/play-auto-playlist ()
  "Generate playlist using `db/auto-playlist-file-function’ and
start playing it.

Current backend is EMMS."
  (interactive)
  (db/-emms-playlist-from-files (funcall db/auto-playlist-file-function)))


(require 'seq)
(require 'emms)
(require 'emms-source-file)
(require 'emms-playlist-sort)
(require 'emms-info)
(require 'hydra)
(require 'db-emms)

