summaryrefslogtreecommitdiff
path: root/qkbox/toot.scm
diff options
context:
space:
mode:
Diffstat (limited to 'qkbox/toot.scm')
-rw-r--r--qkbox/toot.scm32
1 files changed, 17 insertions, 15 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index aa8bd8f..8f163c4 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -552,13 +552,13 @@
(define-public (favourite id)
(define-values (res body)
- (get-/api/v1/statuses/:id/favourite id))
+ (post-/api/v1/statuses/:id/favourite id))
(case (response-code res)
((200) #t)
(else
(error "favourite: failed" res body))))
-(define (get-/api/v1/statuses/:id/favourite id)
+(define (post-/api/v1/statuses/:id/favourite id)
(request
'POST
(format #f "/api/v1/statuses/~a/favourite" id)
@@ -572,7 +572,7 @@
(else
(error "unfavourite: failed" res body))))
-(define (get-/api/v1/statuses/:id/unfavourite id)
+(define (post-/api/v1/statuses/:id/unfavourite id)
(request
'POST
(format #f "/api/v1/statuses/~a/unfavourite" id)
@@ -580,13 +580,13 @@
(define-public (reblog id)
(define-values (res body)
- (get-/api/v1/statuses/:id/reblog id))
+ (post-/api/v1/statuses/:id/reblog id))
(case (response-code res)
((200) #t)
(else
(error "reblog: failed" res body))))
-(define (get-/api/v1/statuses/:id/reblog id)
+(define (post-/api/v1/statuses/:id/reblog id)
(request
'POST
(format #f "/api/v1/statuses/~a/reblog" id)
@@ -594,13 +594,13 @@
(define-public (unreblog id)
(define-values (res body)
- (get-/api/v1/statuses/:id/unreblog id))
+ (post-/api/v1/statuses/:id/unreblog id))
(case (response-code res)
((200) #t)
(else
(error "unreblog: failed" res body))))
-(define (get-/api/v1/statuses/:id/unreblog id)
+(define (post-/api/v1/statuses/:id/unreblog id)
(request
'POST
(format #f "/api/v1/statuses/~a/unreblog" id)
@@ -711,14 +711,14 @@
(define* (streaming-public handler #:key only-media?)
(streaming (if only-media?
- get-/api/v1/streaming/public
- get-/api/v1/streaming/public?only_media=true)
+ get-/api/v1/streaming/public?only_media=true
+ get-/api/v1/streaming/public)
handler))
(define* (streaming-local handler #:key only-media?)
(streaming (if only-media?
- get-/api/v1/streaming/local
- get-/api/v1/streaming/local?only_media=true)
+ get-/api/v1/streaming/local?only_media=true
+ get-/api/v1/streaming/local)
handler))
(define (streaming-hashtag hashtag handler)
@@ -759,16 +759,18 @@
((update)
(handler event
(make-status
- (json-string->scm data))))
+ (json-string->scm data)))
+ (loop #f))
((delete)
(handler event data))
((notification)
(handler event
(make-notification
- (json-string->scm data))))
+ (json-string->scm data)))
+ (loop #f))
(else
- (handler event data)))
- (loop #f))
+ (handler event data)
+ (loop #f))))
(else
(format #t "[DEBUG] ~a: ~a" event data)
(loop #f))))))