Resolve flycheck warnings in db-music
This commit is contained in:
parent
b0df6465f8
commit
1788ceb0f4
|
@ -9,6 +9,8 @@
|
||||||
(require 'seq)
|
(require 'seq)
|
||||||
(require 'emms)
|
(require 'emms)
|
||||||
(require 'emms-source-file)
|
(require 'emms-source-file)
|
||||||
|
(require 'emms-playlist-sort)
|
||||||
|
(require 'emms-info)
|
||||||
(require 'hydra)
|
(require 'hydra)
|
||||||
(require 'db-emms)
|
(require 'db-emms)
|
||||||
|
|
||||||
|
@ -22,16 +24,17 @@
|
||||||
;; Autogeneration of Playlist
|
;; Autogeneration of Playlist
|
||||||
|
|
||||||
(defcustom db/auto-playlist-file-function #'db/play-auto-playlist-from-git-annex-find
|
(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
|
"Function returning all music files of an automatically generated playlist.
|
||||||
should be included in the auto playlist."
|
|
||||||
|
This function should return a list of file names of music files."
|
||||||
:group 'db-music
|
:group 'db-music
|
||||||
:type 'function)
|
:type 'function)
|
||||||
|
|
||||||
(defun db/play-auto-playlist ()
|
(defun db/play-auto-playlist ()
|
||||||
"Generate playlist using `db/auto-playlist-file-function’ and
|
"Automatically generate playlist and play it.
|
||||||
start playing it.
|
|
||||||
|
|
||||||
Current backend is EMMS."
|
Will use `db/auto-playlist-file-function’ for generating that
|
||||||
|
playlist. Current backend is EMMS."
|
||||||
(interactive)
|
(interactive)
|
||||||
(db/-emms-playlist-from-files (funcall db/auto-playlist-file-function)))
|
(db/-emms-playlist-from-files (funcall db/auto-playlist-file-function)))
|
||||||
|
|
||||||
|
@ -89,10 +92,11 @@ be part of a git-annex repository, complaining otherwise."
|
||||||
emms-source-file-default-directory))))))
|
emms-source-file-default-directory))))))
|
||||||
|
|
||||||
(defun db/play-auto-playlist-from-git-annex-find ()
|
(defun db/play-auto-playlist-from-git-annex-find ()
|
||||||
"Interactively query user for a git-annex match expression and
|
"Query for match expression and play resulting audio files.
|
||||||
play resulting list of audio files.
|
|
||||||
|
|
||||||
See `db/playlist-files-from-git-annex-find’ for more details."
|
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)
|
(interactive)
|
||||||
(db/-emms-playlist-from-files
|
(db/-emms-playlist-from-files
|
||||||
(call-interactively #'db/playlist-files-from-git-annex-find)))
|
(call-interactively #'db/playlist-files-from-git-annex-find)))
|
||||||
|
|
Loading…
Reference in New Issue