diff options
| -rw-r--r-- | neocities/api.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/neocities/api.scm b/neocities/api.scm index a2017a7..83f2afe 100644 --- a/neocities/api.scm +++ b/neocities/api.scm @@ -36,6 +36,7 @@ neocities-list neocities-key neocities-upload + neocities-success? )) (define-record-type <neocities-auth-api-key> @@ -125,3 +126,6 @@ #:content-type (string-append "multipart/form-data; boundary=" boundary) #:body body #:auth (encode-auth (neocities-api-auth api)))))) + +(define (neocities-success? response) + (string=? (assoc-ref response "result") "success")) |