cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-08 07:08:39 +01:00
Code Issues

- used version 2 for get chats.

Browse Source
This commit is contained in:
cage 2021-03-13 20:50:04 +01:00
parent 81e5c3eba1
commit f03880a7cf
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/api-pleroma.lisp
View File

@ -46,22 +46,16 @@
:offset offset :offset offset
:limits limits))) :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." "Get a list of all chats, ordered from the more recent updated."
(let ((chats (api-client:sort-id< (get-chats-list object)))) (let ((chats (api-client:sort-id< (get-chats-list object))))
(if chats (if chats
(let ((new-min-id (tooter:id (last-elt 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)))) (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)) (defgeneric post-chat-message (object chat-id content media))
(defun post-chat-path (chat-id) (defun post-chat-path (chat-id)