qkbox: toot: Add id->status procedure.

1 files changed, 14 insertions, 0 deletions

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