From 81739d5467f40e05a8ddd5c06675f278c60f464e Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 9 Jul 2020 05:00:19 +0900 Subject: qkbox: toot: timeline: Use record. --- qkbox/toot.scm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/qkbox/toot.scm b/qkbox/toot.scm index de891d9..1de9fb4 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -185,13 +185,7 @@ #:local? local?)) (case (response-code res) ((200) - (map (lambda (status) - `((id . ,(assoc-ref status "id")) - (name . ,(assoc-ref (assoc-ref status "account") - "display_name")) - (url . ,(assoc-ref status "url")) - (content . ,(assoc-ref status "content")))) - (vector->list body))) + (map make-status (vector->list body))) ((206) (error "timeline: Home feed is regenerating")) (else -- cgit v1.2.3