diff options
Diffstat (limited to 'granolin.lisp')
| -rw-r--r-- | granolin.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/granolin.lisp b/granolin.lisp index 561aa0e..b8ea6a9 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -436,6 +436,14 @@ :|body| (apply #'format (list* nil message args))))) (send (client url body :wrap make-basic-json) t))) +(defun send-image-message (client room-id alt-text mxc-uri) + (let ((url (format nil +text-message-path+ room-id (txn-id client))) + (body (list :|msgtype| "m.image" + :|body| alt-text + :|url| mxc-uri + ))) + (send (client url body :wrap make-basic-json) t))) + (defun join-room (client room-id) "Attempts to join the client to the room with ROOM-ID." (let ((body (list :|roomId| room-id)) |