diff options
Diffstat (limited to 'neocities/requests.scm')
| -rw-r--r-- | neocities/requests.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/neocities/requests.scm b/neocities/requests.scm index 094b7bf..b6a74ff 100644 --- a/neocities/requests.scm +++ b/neocities/requests.scm @@ -43,7 +43,9 @@ encode-multipart-body)) (define* (neocities-url endpoint #:key (querystring '()) - (hostname #f)) + (hostname #f) + (insecure #f) + (port #f)) (define (encode-querystring querystring) (string-join (map (lambda (x) @@ -59,17 +61,12 @@ querystring) "&")) - ;; This is for testing locally :) - #;(build-uri 'http #:host "localhost" - #:port 1234 - #:path (string-append "/api/" endpoint) - #:query (encode-querystring querystring)) - (build-uri 'https + (build-uri (if insecure 'http 'https) #:host (or hostname "neocities.org") + #:port port #:path (string-append "/api/" endpoint) #:query (encode-querystring querystring))) - (define (encode-multipart-body files) "files is an alist with the filename and destination" |