From 17755d5cc6e21b277071200c5f39f100bda71984 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Fri, 10 Jul 2020 10:26:20 +0900
Subject: qkbox: toot: Use receive.
---
qkbox/toot.scm | 80 +++++++++++++++++++++++++++++-----------------------------
1 file changed, 40 insertions(+), 40 deletions(-)
(limited to 'qkbox')
diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index 57964b4..b3379d1 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -49,17 +49,17 @@
visibility
sensitive?
reply-to)
- (define-values (res body)
- (/api/v1/statuses #:status text
- #:spoiler-text spoiler-text
- #:visibility visibility
- #:sensitive? sensitive?
- #:reply-to reply-to))
- (case (response-code res)
- ((200)
- (assoc-ref body "id"))
- (else
- (error "post: failed" res body))))
+ (receive (res body)
+ (/api/v1/statuses #:status text
+ #:spoiler-text spoiler-text
+ #:visibility visibility
+ #:sensitive? sensitive?
+ #:reply-to reply-to)
+ (case (response-code res)
+ ((200)
+ (assoc-ref body "id"))
+ (else
+ (error "post: failed" res body)))))
(define* (/api/v1/statuses #:key
status
@@ -248,12 +248,12 @@
pict))))
(define*-public (status id #:key (authorization? #t))
- (define-values (res body)
- (/api/v1/statuses/:id id #:authorization? authorization?))
- (case (response-code res)
- ((200) (make-status body))
- (else
- (error "status: failed" res body))))
+ (receive (res body)
+ (/api/v1/statuses/:id id #:authorization? authorization?)
+ (case (response-code res)
+ ((200) (make-status body))
+ (else
+ (error "status: failed" res body)))))
(define* (/api/v1/statuses/:id id #:key (authorization? #t))
(request
@@ -262,19 +262,19 @@
#:authorization? authorization?))
(define*-public (timeline #:key max-id since-id min-id limit local?)
- (define-values (res body)
+ (receive (res body)
(/api/v1/timelines/home #:max-id max-id
#:since-id since-id
#:min-id min-id
#:limit limit
- #:local? local?))
- (case (response-code res)
- ((200)
- (map make-status (vector->list body)))
- ((206)
- (error "timeline: Home feed is regenerating"))
- (else
- (error "timeline: failed" res body))))
+ #:local? local?)
+ (case (response-code res)
+ ((200)
+ (map make-status (vector->list body)))
+ ((206)
+ (error "timeline: Home feed is regenerating"))
+ (else
+ (error "timeline: failed" res body)))))
(define* (/api/v1/timelines/home #:key max-id since-id min-id limit local?)
(request
@@ -380,20 +380,20 @@
(values res body))))
(define*-public (account id)
- (define-values (res body)
- (/api/v1/accounts/:id id))
- (case (response-code res)
- ((200) (make-account body))
- ((401)
- (error "account: Unauthorized" id))
- ((404)
- (error "account: Not Found" id))
- ((410)
- (error "account: Account is suspended" id))
- (else
- (error "account: failed"
- (response-code res)
- (utf8->string body)))))
+ (receive (res body)
+ (/api/v1/accounts/:id id)
+ (case (response-code res)
+ ((200) (make-account body))
+ ((401)
+ (error "account: Unauthorized" id))
+ ((404)
+ (error "account: Not Found" id))
+ ((410)
+ (error "account: Account is suspended" id))
+ (else
+ (error "account: failed"
+ (response-code res)
+ (utf8->string body))))))
(define* (/api/v1/accounts/:id id)
(request
--
cgit v1.2.3