From 83bc473966e4a2dfbc1aaab4e398adb10e5491fc Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sat, 30 Sep 2023 22:39:48 +0200
Subject: api: add neocities-success?

---
 neocities/api.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'neocities')

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"))
-- 
cgit v1.2.3