dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Resolve flycheck warnings in db-music

This commit is contained in:
Daniel - 2021-02-24 14:14:08 +01:00
parent b0df6465f8
commit 1788ceb0f4
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
site-lisp/db-music.el
View File

@ -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)))