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

Merge pull request #2 from syohex/byte-compile-warning

Browse source 
Fix byte-compile warnings
This commit is contained in:
Pavel Korytov 2021-08-13 10:07:02 +03:00 • committed by GitHub
commit 5650202cb5
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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
first song."
(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))))
(results-songs (seq-filter
(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."
(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
(assoc 'cover_art_url
(assoc 'album

3
lyrics-fetcher.el
View file

@ -32,6 +32,7 @@
(require 'lyrics-fetcher-genius)
(require 'f)
(require 'emms)
(require 'emms-browser)
(defgroup lyrics-fetcher ()
"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
"Current track in the lyrics view buffer")
(defvar lyrics-fetcher-current-track)
;;; Actual lyrics fetching
(defun lyrics-fetcher-format-song-name (track)
"Format TRACK to a human-readable form.