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

chore: remove trailing parentheses

Browse source
This commit is contained in:
eli 2022-02-04 16:58:51 +08:00
parent 3dfe79f34c
commit 48b6d8e8ac
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lyrics-fetcher-neteasecloud.el
View file

@ -83,13 +83,12 @@ non-nil, the request will be performed synchronously."
:parser 'json-read :parser 'json-read
:sync sync :sync sync
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(funcall callback (alist-get 'lyric (alist-get 'lrc data))))) (funcall callback (alist-get 'lyric (alist-get 'lrc data)))))
:error :error
(cl-function (cl-function
(lambda (&key error-thrown &allow-other-keys) (lambda (&key error-thrown &allow-other-keys)
(message "Error!: %S" error-thrown))) (message "Error!: %S" error-thrown)))))
))
(defun lyrics-fetcher-neteasecloud--do-query (track callback &optional sync edit) (defun lyrics-fetcher-neteasecloud--do-query (track callback &optional sync edit)
"Perform a song search on 'music.163.com'. "Perform a song search on 'music.163.com'.
@ -119,8 +118,7 @@ When EDIT is non-nil, edit the query in minibuffer before search."
(funcall callback data))) (funcall callback data)))
:error (cl-function :error (cl-function
(lambda (&key error-thrown &allow-other-keys) (lambda (&key error-thrown &allow-other-keys)
(message "Error!: %S" error-thrown))) (message "Error!: %S" error-thrown)))))
))
(defun lyrics-fetcher-neteasecloud--maybe-edit-query (query edit) (defun lyrics-fetcher-neteasecloud--maybe-edit-query (query edit)
"If EDIT is non-nil, edit QUERY in minibuffer." "If EDIT is non-nil, edit QUERY in minibuffer."
@ -175,15 +173,13 @@ first song."
results-songs-for-select results-songs-for-select
nil t) nil t)
results-songs-for-select))) results-songs-for-select)))
(assoc 'id (aref results 0)) (assoc 'id (aref results 0))))))))
))))))
(defun lyrics-fetcher-neteasecloud--format-song-title (entry) (defun lyrics-fetcher-neteasecloud--format-song-title (entry)
"Convert a 'music.163.com' search ENTRY to a string, which can be used in selection." "Convert a 'music.163.com' search ENTRY to a string, which can be used in selection."
(format "%s by %s" (format "%s by %s"
(cdr (assoc 'name entry)) (cdr (assoc 'name entry))
(cdr (assoc 'name (aref (alist-get 'artists entry) 0))) (cdr (assoc 'name (aref (alist-get 'artists entry) 0)))))
))
(defun lyrics-fetcher-neteasecloud-format-file-name (track) (defun lyrics-fetcher-neteasecloud-format-file-name (track)
"TRACK should be either a string or EMMS alist. "TRACK should be either a string or EMMS alist.
@ -198,8 +194,7 @@ tracks' name except extensions."
(emms-replace-regexp-in-string (emms-replace-regexp-in-string
(concat "\\." (file-name-extension full-name) "\\'") (concat "\\." (file-name-extension full-name) "\\'")
"" ""
(file-name-nondirectory full-name)) (file-name-nondirectory full-name)))))
)))
(defun lyrics-fetcher-neteasecloud-format-song-name (track) (defun lyrics-fetcher-neteasecloud-format-song-name (track)
"Format TRACK to a human-readable form. "Format TRACK to a human-readable form.
@ -209,8 +204,7 @@ TRACK should be either a string or EMMS alist."
track track
(format "%s %s" (format "%s %s"
(cdr (assoc 'info-title track)) (cdr (assoc 'info-title track))
(cdr (assoc 'info-artist track)) (cdr (assoc 'info-artist track)))))
)))
(provide 'lyrics-fetcher-neteasecloud) (provide 'lyrics-fetcher-neteasecloud)
;;; lyrics-fetcher-neteasecloud.el ends here ;;; lyrics-fetcher-neteasecloud.el ends here