diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-09-29 12:14:02 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-09-30 16:16:02 +0200 |
| commit | ac1402819f222793d5148c4882fb4bfdab42d97f (patch) | |
| tree | 608027ec092eae409746999f75045b7a96b129cc /neocities/api.scm | |
| parent | 20a6598147a3cba39edf3a5c63ba059814fa5aab (diff) | |
requests: configurable port and http vs https
Diffstat (limited to 'neocities/api.scm')
| -rw-r--r-- | neocities/api.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/neocities/api.scm b/neocities/api.scm index 5e3d2d0..a2017a7 100644 --- a/neocities/api.scm +++ b/neocities/api.scm @@ -61,11 +61,14 @@ (throw 'neocities "Authentication scheme not supported")))) (define-record-type <neocities-api> - (make-neocities-api hostname auth) + (_make-neocities-api hostname port auth) neocities-api? (hostname neocities-api-hostname) + (port neocities-api-port) (auth neocities-api-auth neocities-api-auth-set!)) +(define* (make-neocities-api hostname auth #:optional port) + (_make-neocities-api hostname port auth)) (define* (neocities-delete api files) @@ -73,6 +76,7 @@ (throw 'neocities "files to delete must be a list")) (let ((url (neocities-url "delete" + #:port (neocities-api-port api) #:hostname (neocities-api-hostname api) #:querystring `(("files" . ,files))))) (neocities-request |