diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-10 00:39:58 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-10 00:39:58 +0200 |
| commit | cfb3f067eb00306caca5710430bfd76640e344b2 (patch) | |
| tree | 8d19a30a35bd71ddf6e61cda88915a645d8e5155 | |
| parent | 81ef7bf7988fc7ff30f87ac50f511b0b8a76d378 (diff) | |
api: add port to all urls
| -rw-r--r-- | neocities/api.scm | 4 |
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 |