summaryrefslogtreecommitdiff
path: root/neocities
diff options
context:
space:
mode:
authorEkaitz Zarraga <ekaitz@elenq.tech>2023-10-10 00:39:58 +0200
committerEkaitz Zarraga <ekaitz@elenq.tech>2023-10-10 00:39:58 +0200
commitcfb3f067eb00306caca5710430bfd76640e344b2 (patch)
tree8d19a30a35bd71ddf6e61cda88915a645d8e5155 /neocities
parent81ef7bf7988fc7ff30f87ac50f511b0b8a76d378 (diff)
api: add port to all urls
Diffstat (limited to 'neocities')
-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