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-compilation warnings

Browse source
This commit is contained in:
Pavel Korytov 2021-08-12 11:54:27 +03:00
parent b4e8870272
commit 68731eb78f
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lyrics-fetcher.el
View file

@ -111,6 +111,9 @@ As of now, genius.com is the only one available."
:type 'string :type 'string
:group 'lyrics-fetcher) :group 'lyrics-fetcher)
(defvar lyrics-fetcher-current-track-method
"Current track in the lyrics view buffer")
;;; 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.
@ -383,7 +386,7 @@ When NO-SWITCH is non-nil, don't switch to buffer."
(insert-file-contents (lyrics-fetcher--process-filename filename)) (insert-file-contents (lyrics-fetcher--process-filename filename))
(lyrics-fetcher-view-mode) (lyrics-fetcher-view-mode)
(when track (when track
(setq-local track track)) (setq-local lyrics-fetcher-current-track track))
(unless no-switch (unless no-switch
(switch-to-buffer-other-window buffer))))) (switch-to-buffer-other-window buffer)))))
@ -406,7 +409,7 @@ Behavior of the function is modified by \\[universal-argument]
the same way as `lyrics-fetcher-show-lyrics'." the same way as `lyrics-fetcher-show-lyrics'."
(interactive) (interactive)
(lyrics-fetcher-show-lyrics (lyrics-fetcher-show-lyrics
track lyrics-fetcher-current-track
:force-fetch t :force-fetch t
:suppress-switch t)) :suppress-switch t))
@ -442,7 +445,7 @@ FORCE-FETCH, SYNC and EDIT are passed to `lyrics-fetcher--fetch-cover'."
(message "Done. Refresh EMMS browser to see the result.") (message "Done. Refresh EMMS browser to see the result.")
(let ((force-fetch (or force-fetch (member (prefix-numeric-value current-prefix-arg) '(4 16 64)))) (let ((force-fetch (or force-fetch (member (prefix-numeric-value current-prefix-arg) '(4 16 64))))
(sync (or sync (member (prefix-numeric-value current-prefix-arg) '(16 64)))) (sync (or sync (member (prefix-numeric-value current-prefix-arg) '(16 64))))
(edit (or sync (member (prefix-numeric-value current-prefix-arg) '(64))))) (edit (or edit (member (prefix-numeric-value current-prefix-arg) '(64)))))
(lyrics-fetcher--fetch-cover (lyrics-fetcher--fetch-cover
(car tracks) (car tracks)
:callback :callback