From 2a2aa4aa384e031a9467bfb58c090f60cd88c4a1 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 9 Jul 2020 04:58:58 +0900
Subject: qkbox: toot: Add id->status procedure.

---
 qkbox/toot.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index f021b1b..de891d9 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -162,6 +162,20 @@
                 (format #f "~s"
                         (status-content status)))))))))
 
+(define* (id->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 "timeline: failed" res body))))
+
+(define* (/api/v1/statuses/:id id #:key (authorization? #t))
+  (request
+   'GET
+   (format #f "/api/v1/statuses/~a" id)
+   #:authorization? authorization?))
+
 (define* (timeline #:key max-id since-id min-id limit local?)
   (define-values (res body)
     (/api/v1/timelines/home #:max-id max-id
-- 
cgit v1.2.3