zzkt/metabrainz
1
0
Fork 0
Code Issues 12 Pull requests Projects Activity Actions

Nature is a language

Browse source
This commit is contained in:
nik gaffney 2023-05-30 09:49:30 +02:00
parent 2386189ec8
commit 986690a515
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
musicbrainz.el
View file

@ -262,8 +262,7 @@ or in the Lucene docs."
:sync t :sync t
:sucess (cl-function :sucess (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(message "ok: %s" data))) (message "ok: %s" data)))))))
))))
(if (called-interactively-p 'any) (if (called-interactively-p 'any)
(message "%s" (pp response)) (message "%s" (pp response))
response))) response)))
@ -781,7 +780,7 @@ Optionally limit the search to TYPE results for ENTITY."
:sync t :sync t
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(message "ok"))))))) (message "ok: %s" (if data data ""))))))))
response)) response))
@ -812,14 +811,17 @@ When RELEASE-GROUP is non-nil MBID is for a release group, rather than release."
(request-response-data (request-response-data
(request (request
(url-encode-url (url-encode-url
(format "%s/release/%s" musicbrainz-coverart-api-url mbid)) (format "%s/release%s/%s"
musicbrainz-coverart-api-url
(if release-group "-group" "")
mbid))
:type "GET" :type "GET"
:header (list `("User-Agent" . ,musicbrainz-user-agent)) :header (list `("User-Agent" . ,musicbrainz-user-agent))
:parser 'json-read :parser 'json-read
:sync t :sync t
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(message "ok"))))))) (message "ok: %s" (if data data ""))))))))
response)) response))
(defun musicbrainz-coverart-file-front (mbid) (defun musicbrainz-coverart-file-front (mbid)
@ -836,7 +838,7 @@ When RELEASE-GROUP is non-nil MBID is for a release group, rather than release."
:sync t :sync t
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(message "ok"))))))) (message "ok: %s" (if data data ""))))))))
response)) response))
(defun musicbrainz-coverart-file-back (mbid) (defun musicbrainz-coverart-file-back (mbid)
@ -853,7 +855,7 @@ When RELEASE-GROUP is non-nil MBID is for a release group, rather than release."
:sync t :sync t
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(message "ok"))))))) (message "ok: %s" (if data data ""))))))))
response)) response))