diff options
-rw-r--r-- | toot.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -40,8 +40,8 @@ #:select (sxpath)) #:use-module (rnrs io ports) #:export (;; config - current-mastodon-host - current-mastodon-access-token + mastodon-host + mastodon-access-token ;; get fetch-status @@ -105,10 +105,10 @@ expr '())) -(define current-mastodon-host +(define mastodon-host (make-parameter (getenv "MASTODON_HOST"))) -(define current-mastodon-access-token +(define mastodon-access-token (make-parameter (getenv "MASTODON_ACCESS_TOKEN"))) (define (created-at-string->date str) @@ -669,7 +669,7 @@ (define* (raw-request method path #:key (headers '()) (body "") authorization? streaming?) (receive (res body) (http-request (string-append "https://" - (current-mastodon-host) + (mastodon-host) path) #:method method #:headers `(,@headers @@ -679,7 +679,7 @@ ,(string->symbol (string-append "Bearer " - (current-mastodon-access-token))))))) + (mastodon-access-token))))))) #:decode-body? #f #:streaming? streaming? #:body body) |