From ac1402819f222793d5148c4882fb4bfdab42d97f Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Fri, 29 Sep 2023 12:14:02 +0200
Subject: requests: configurable port and http vs https

---
 neocities/api.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'neocities/api.scm')

diff --git a/neocities/api.scm b/neocities/api.scm
index 5e3d2d0..a2017a7 100644
--- a/neocities/api.scm
+++ b/neocities/api.scm
@@ -61,11 +61,14 @@
      (throw 'neocities "Authentication scheme not supported"))))
 
 (define-record-type <neocities-api>
-  (make-neocities-api hostname auth)
+  (_make-neocities-api hostname port auth)
   neocities-api?
   (hostname neocities-api-hostname)
+  (port neocities-api-port)
   (auth neocities-api-auth neocities-api-auth-set!))
 
+(define* (make-neocities-api hostname auth #:optional port)
+  (_make-neocities-api hostname port auth))
 
 
 (define* (neocities-delete api files)
@@ -73,6 +76,7 @@
     (throw 'neocities "files to delete must be a list"))
 
   (let ((url (neocities-url "delete"
+                            #:port (neocities-api-port api)
                             #:hostname (neocities-api-hostname api)
                             #:querystring `(("files" . ,files)))))
     (neocities-request
-- 
cgit v1.2.3