diff options
| -rw-r--r-- | qkbox/toot.scm | 14 |
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 |