diff options
| -rw-r--r-- | granolin.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/granolin.lisp b/granolin.lisp index b8ea6a9..abdd7c7 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -436,11 +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) +(defun send-image-message (client room-id alt-text mxc-uri + &key info + ) (let ((url (format nil +text-message-path+ room-id (txn-id client))) (body (list :|msgtype| "m.image" :|body| alt-text :|url| mxc-uri + :|info| info ))) (send (client url body :wrap make-basic-json) t))) |