summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-15 06:55:36 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-15 06:55:36 +0900
commit2cf9a08cc8bab4be9c79d66aefcc7b3c4ad1517b (patch)
tree5cd4b53fae5a44bb7c7310478dcf3c38c880609e
parent54382859c1f6fff40fc7ffffca3b2499c52bce44 (diff)
toot: Renmae from current-mastodon-* to mastodon-*.
-rw-r--r--toot.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/toot.scm b/toot.scm
index a752c40..b7452b4 100644
--- a/toot.scm
+++ b/toot.scm
@@ -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)