From a93b9117a202e7764a6b0377fb4b5826471c43ec Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 12 Apr 2020 13:35:49 -0500 Subject: added info parameter to upload --- granolin.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3