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

- [pleroma-API] added 'fetch-chat-message.

Browse Source
This commit is contained in:
cage 2020-09-02 17:17:16 +02:00
parent 9902d3d430
commit 4046f516f8
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/api-pleroma.lisp
View File

@ -126,6 +126,15 @@ media `media'. Returns a `chat-message' instance"
:media-id (tooter:id (tooter:make-media object :media-id (tooter:id (tooter:make-media object
path-media)))))) path-media))))))
(defgeneric fetch-chat-messages (object chat-id &key min-id))
(defmethod fetch-chat-messages ((object tooter:client) chat-id &key (min-id nil))
(decode-chat-message (tooter:query object
(format nil
"/api/v1/pleroma/chats/~a/messages"
chat-id)
:min-id min-id)))
(defgeneric delete-chat-message (object chat-id message-id)) (defgeneric delete-chat-message (object chat-id message-id))
(defmethod delete-chat-message ((object tooter:client) (chat-id string) (message-id string)) (defmethod delete-chat-message ((object tooter:client) (chat-id string) (message-id string))

1
src/package.lisp
View File

@ -1244,6 +1244,7 @@
:create-chat :create-chat
:get-all-chats :get-all-chats
:post-chat-message :post-chat-message
:fetch-chat-messages
:delete-chat-message)) :delete-chat-message))
(defpackage :api-client (defpackage :api-client