From 2cf9a08cc8bab4be9c79d66aefcc7b3c4ad1517b Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 15 Jul 2020 06:55:36 +0900
Subject: toot: Renmae from current-mastodon-* to mastodon-*.

---
 toot.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'toot.scm')

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)
-- 
cgit v1.2.3