sqrtminusone/lyrics-fetcher.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/lyrics-fetcher.el.git synced 2025-12-10 17:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: fix package-lint errors

Browse source
This commit is contained in:
Pavel Korytov 2021-08-12 11:16:59 +03:00
parent 46a2045526
commit 3bfc8c856e
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lyrics-fetcher.el
View file

@ -1,4 +1,4 @@
;;; lyrics-fetcher.el --- fetch song lyrics and album covers -*- lexical-binding: t -*- ;;; lyrics-fetcher.el --- Fetch song lyrics and album covers -*- lexical-binding: t -*-
;; Copyright (C) 2021 Korytov Pavel ;; Copyright (C) 2021 Korytov Pavel
@ -35,7 +35,8 @@
(defgroup lyrics-fetcher () (defgroup lyrics-fetcher ()
"Fetch song and album covers." "Fetch song and album covers."
:link '(url-link :tag "GitHub" "https://github.com/SqrtMinusOne/lyrics-fetcher.el")) :link '(url-link :tag "GitHub" "https://github.com/SqrtMinusOne/lyrics-fetcher.el")
:group 'multimedia)
(defcustom lyrics-fetcher-fetch-method (defcustom lyrics-fetcher-fetch-method
'lyrics-fetcher-genius-do-search 'lyrics-fetcher-genius-do-search
@ -73,7 +74,7 @@ EMMS-like alist, which has to have the following fields:
:type 'string) :type 'string)
(defcustom lyrics-fetcher-format-song-name-method (defcustom lyrics-fetcher-format-song-name-method
'lyrics-fetcher-format-song-name #'lyrics-fetcher-format-song-name
"A function to format song name to a human-readable format. "A function to format song name to a human-readable format.
Has to receive either a string or EMMS alist. Take a look at Has to receive either a string or EMMS alist. Take a look at
@ -82,7 +83,7 @@ Has to receive either a string or EMMS alist. Take a look at
:group 'lyrics-fetcher) :group 'lyrics-fetcher)
(defcustom lyrics-fetcher-format-file-name-method (defcustom lyrics-fetcher-format-file-name-method
'lyrics-fetcher-format-file-name #'lyrics-fetcher-format-file-name
"A function to format a song name to a valid filename. "A function to format a song name to a valid filename.
Has to receive either a string or EMMS alist. Take a look at Has to receive either a string or EMMS alist. Take a look at
@ -91,7 +92,7 @@ Has to receive either a string or EMMS alist. Take a look at
:group 'lyrics-fetcher) :group 'lyrics-fetcher)
(defcustom lyrics-fetcher-download-cover-method (defcustom lyrics-fetcher-download-cover-method
'lyrics-fetcher-genius-download-cover #'lyrics-fetcher-genius-download-cover
"A function to perform downloading album cover. "A function to perform downloading album cover.
As of now, genius.com is the only one available." As of now, genius.com is the only one available."
@ -324,7 +325,7 @@ same way as `lyrics-fetcher-show-lyrics'."
;;;###autoload ;;;###autoload
(defun lyrics-fetcher-emms-browser-open-large-cover-at-point () (defun lyrics-fetcher-emms-browser-open-large-cover-at-point ()
"Open large_cover for the current point in EMMS browser." "Open cover_large for the current point in EMMS browser."
(interactive) (interactive)
(let ((tracks (lyrics-fetcher--emms-extract-albums (emms-browser-bdata-at-point)))) (let ((tracks (lyrics-fetcher--emms-extract-albums (emms-browser-bdata-at-point))))
(when (seq-empty-p tracks) (when (seq-empty-p tracks)