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

Fix byte-compile warnings

Browse source
This commit is contained in:
Shohei YOSHIDA 2021-08-13 09:44:20 +09:00
parent 08efc1e75b
commit 943be32204
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lyrics-fetcher-genius.el
View file

@ -151,7 +151,7 @@ contains `info-albumartist' or `info-artist' and `info-title'"
If ASK is non-nil, prompt the user for a choice, otherwise select the If ASK is non-nil, prompt the user for a choice, otherwise select the
first song." first song."
(when (not (= (cdr (assoc 'status (assoc 'meta data))) 200)) (when (not (= (cdr (assoc 'status (assoc 'meta data))) 200))
(error "Error: %" (cdr (assoc 'message (assoc 'meta data))))) (error "Error: %s" (cdr (assoc 'message (assoc 'meta data)))))
(let* ((results (cdr (assoc 'hits (assoc 'response data)))) (let* ((results (cdr (assoc 'hits (assoc 'response data))))
(results-songs (seq-filter (results-songs (seq-filter
(lambda (entry) (lambda (entry)
@ -260,7 +260,7 @@ to FOLDER and will be name \"cover_full.<extension>\".
CALLBACK will be called with the path to the resulting file." CALLBACK will be called with the path to the resulting file."
(when (not (= (cdr (assoc 'status (assoc 'meta data))) 200)) (when (not (= (cdr (assoc 'status (assoc 'meta data))) 200))
(error "Error: %" (cdr (assoc 'message (assoc 'meta data))))) (error "Error: %s" (cdr (assoc 'message (assoc 'meta data)))))
(let ((url (cdr (let ((url (cdr
(assoc 'cover_art_url (assoc 'cover_art_url
(assoc 'album (assoc 'album

3
lyrics-fetcher.el
View file

@ -32,6 +32,7 @@
(require 'lyrics-fetcher-genius) (require 'lyrics-fetcher-genius)
(require 'f) (require 'f)
(require 'emms) (require 'emms)
(require 'emms-browser)
(defgroup lyrics-fetcher () (defgroup lyrics-fetcher ()
"Fetch song and album covers." "Fetch song and album covers."
@ -114,6 +115,8 @@ As of now, genius.com is the only one available."
(defvar lyrics-fetcher-current-track-method (defvar lyrics-fetcher-current-track-method
"Current track in the lyrics view buffer") "Current track in the lyrics view buffer")
(defvar lyrics-fetcher-current-track)
;;; Actual lyrics fetching ;;; Actual lyrics fetching
(defun lyrics-fetcher-format-song-name (track) (defun lyrics-fetcher-format-song-name (track)
"Format TRACK to a human-readable form. "Format TRACK to a human-readable form.