From f03880a7cfeb6f66c6551b3efbb6af50efef3006 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 13 Mar 2021 20:50:04 +0100 Subject: [PATCH] - used version 2 for get chats. --- src/api-pleroma.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/src/api-pleroma.lisp b/src/api-pleroma.lisp index 4b30755..27946ee 100644 --- a/src/api-pleroma.lisp +++ b/src/api-pleroma.lisp @@ -46,22 +46,16 @@ :offset offset :limits limits))) -(defgeneric get-all-chats-v2 (object min-id &key &allow-other-keys)) +(defgeneric get-all-chats (object &key &allow-other-keys)) -(defmethod get-all-chats-v2 ((object tooter:client) min-id &key (accum ())) +(defmethod get-all-chats ((object tooter:client) &key (accum ())) "Get a list of all chats, ordered from the more recent updated." (let ((chats (api-client:sort-id< (get-chats-list object)))) (if chats (let ((new-min-id (tooter:id (last-elt chats)))) - (get-all-chats-v2 object object new-min-id (append chats accum))) + (get-all-chats object object new-min-id (append chats accum))) (api-client:sort-id< accum)))) -(defgeneric get-all-chats (object)) - -(defmethod get-all-chats ((object tooter:client)) - "Get a list of all chats, ordered from the more recent updated." - (decode-chat (tooter:query object "/api/v1/pleroma/chats"))) - (defgeneric post-chat-message (object chat-id content media)) (defun post-chat-path (chat-id)