a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

tentative chopped QR issue fix

Browse source
This commit is contained in:
eta 2020-07-10 20:42:12 +01:00
parent 2e4e375196
commit c9f27dc69a
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
stuff.lisp
View file

@ -183,6 +183,7 @@ MEDIA-TYPE is one of (:image :video :audio :document)."
:keep t) ; Needed because async :keep t) ; Needed because async
(format *debug-io* "~&using path ~A~%" path) (format *debug-io* "~&using path ~A~%" path)
(cl-qrencode:encode-png-stream text stream) (cl-qrencode:encode-png-stream text stream)
(force-output stream) ; otherwise the QR codes get chopped off?
(catcher (catcher
(let ((content-length (file-length stream))) (let ((content-length (file-length stream)))
(attach (attach