added info parameter to upload

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)))