diff options
Diffstat (limited to 'qkbox/toot.scm')
| -rw-r--r-- | qkbox/toot.scm | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index 3881934..e4314bd 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -378,29 +378,29 @@ (define* (fetch-pict url #:key resize height>) (receive (res body) (http-get url) - (let ((tmp (tmpnam))) - (let ((in (open tmp (logior O_WRONLY O_CREAT O_EXCL)))) - (put-bytevector in body) - (close in)) - (case (response-code res) - ((200) - (let ((pict (and (zero? (apply system* "convert" - `(,@(and/nil resize - `("-resize" - ,(format #f "~dx~d!" - (car resize) - (cadr resize)))) - ,@(and/nil height> - `("-resize" - ,(format #f "x~d>" - height>))) - ,(string-append tmp "[0]") - ,(string-append "png:" tmp)))) - (pict-from-file tmp)))) + (case (response-code res) + ((200) + (let ((tmp (tmpnam))) + (let ((in (open tmp (logior O_WRONLY O_CREAT O_EXCL)))) + (put-bytevector in body) + (close in)) + (let ((pict + (and (zero? (apply system* "convert" + `(,@(and/nil resize + `("-resize" + ,(format #f "~dx~d!" + (car resize) + (cadr resize)))) + ,@(and/nil height> + `("-resize" + ,(format #f "x~d>" + height>))) + ,(string-append tmp "[0]") + ,(string-append "png:" tmp)))) + (pict-from-file tmp)))) (delete-file tmp) - pict)) - (else - #f))))) + pict))) + (else #f)))) (define* (fetch-avatar-static url) (cond |