[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
|
:commands (db/play-auto-playlist
|
||||||
db/playlist-files-from-cache
|
db/playlist-files-from-cache
|
||||||
db/playlist-files-from-git-annex-find
|
db/playlist-files-from-git-annex-find
|
||||||
|
db/play-auto-playlist-from-git-annex-find
|
||||||
db/update-playlist-cache-from-directory))
|
db/update-playlist-cache-from-directory))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -132,6 +132,16 @@ part of a git-annex repository, and will complain otherwise."
|
||||||
(expand-file-name
|
(expand-file-name
|
||||||
path
|
path
|
||||||
emms-source-file-default-directory))))))
|
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)
|
(provide 'db-music)
|
||||||
|
|
||||||
;;; db-music ends here
|
;;; db-music ends here
|
||||||
|
|
Loading…
Reference in New Issue