From cfb3f067eb00306caca5710430bfd76640e344b2 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Tue, 10 Oct 2023 00:39:58 +0200 Subject: api: add port to all urls --- neocities/api.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'neocities') 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 -- cgit v1.2.3