summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--neocities/api.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/neocities/api.scm b/neocities/api.scm
index a0788e7..303fb83 100644
--- a/neocities/api.scm
+++ b/neocities/api.scm
@@ -88,6 +88,7 @@
(define* (neocities-list api #:optional path)
(let ((url (neocities-url "list"
+ #:port (neocities-api-port api)
#:hostname (neocities-api-hostname api)
#:querystring (if path `(("path" ,path)) '()))))
(neocities-request
@@ -98,6 +99,7 @@
(define* (neocities-info api #:optional sitename)
;; It can be unauthenticated, but this is only the authenticated version
(let ((url (neocities-url "info"
+ #:port (neocities-api-port api)
#:hostname (neocities-api-hostname api)
#:querystring (if sitename
`(("sitename" ,sitename))
@@ -109,6 +111,7 @@
(define* (neocities-key api)
(let ((url (neocities-url "key"
+ #:port (neocities-api-port api)
#:hostname (neocities-api-hostname api))))
(neocities-request
'GET
@@ -118,6 +121,7 @@
(define* (neocities-upload api files)
"files is an alist with the filename and destination"
(let ((url (neocities-url "upload"
+ #:port (neocities-api-port api)
#:hostname (neocities-api-hostname api))))
(let-values (((boundary body) (encode-multipart-body files)))
(neocities-request