Browse Source

Resolve flycheck warnings in db-music

master
Daniel 9 months ago
parent
commit
1788ceb0f4
No known key found for this signature in database GPG Key ID: 1C7071A75BB72D64
  1. 20
      site-lisp/db-music.el

20
site-lisp/db-music.el

@ -9,6 +9,8 @@
(require 'seq)
(require 'emms)
(require 'emms-source-file)
(require 'emms-playlist-sort)
(require 'emms-info)
(require 'hydra)
(require 'db-emms)
@ -22,16 +24,17 @@
;; 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."
"Function returning all music files of an automatically generated playlist.
This function should return a list of file names of music files."
:group 'db-music
:type 'function)
(defun db/play-auto-playlist ()
"Generate playlist using `db/auto-playlist-file-function’ and
start playing it.
"Automatically generate playlist and play it.
Current backend is EMMS."
Will use `db/auto-playlist-file-function for generating that
playlist. Current backend is EMMS."
(interactive)
(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))))))
(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.
"Query for match expression and play resulting 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)
(db/-emms-playlist-from-files
(call-interactively #'db/playlist-files-from-git-annex-find)))

Loading…
Cancel
Save