requests: configurable port and http vs https

1 files changed, 5 insertions, 8 deletions

diff --git a/neocities/requests.scm b/neocities/requests.scm
index 094b7bf..b6a74ff 100644
--- a/neocities/requests.scm
+++ b/neocities/requests.scm
@@ -43,7 +43,9 @@
             encode-multipart-body))
 
 (define* (neocities-url endpoint #:key (querystring '())
-                                       (hostname     #f))
+                                       (hostname     #f)
+                                       (insecure     #f)
+                                       (port         #f))
   (define (encode-querystring querystring)
     (string-join
       (map (lambda (x)
@@ -59,17 +61,12 @@
            querystring)
       "&"))
 
-  ;; This is for testing locally :)
-  #;(build-uri 'http #:host "localhost"
-                      #:port 1234
-                      #:path (string-append "/api/" endpoint)
-                      #:query (encode-querystring querystring))
-  (build-uri 'https
+  (build-uri (if insecure 'http 'https)
            #:host (or hostname "neocities.org")
+           #:port port
            #:path (string-append "/api/" endpoint)
            #:query (encode-querystring querystring)))
 
-
 (define (encode-multipart-body files)
   "files is an alist with the filename and destination"