[Music] Add simple function to play files from git-annex-find call
This commit is contained in:
parent
b6414e118d
commit
952e6f1c95
1
init.el
1
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))
|
||||
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue