From 06cdcfb3b4c3955e3835b37266bea9102082fe60 Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Tue, 12 Nov 2024 14:24:08 -0500 Subject: [PATCH] Try file/convertible {svg png}bytes+bounds8 formats; fixes #727 --- racket/image.rkt | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/racket/image.rkt b/racket/image.rkt index 7f30efa0..86dde9fb 100644 --- a/racket/image.rkt +++ b/racket/image.rkt @@ -39,12 +39,15 @@ ;; - Within each flavor: Try svg (if this Emacs can use it) ;; before png. Because space. (define fmts/exts (if use-svg? - '((svg-bytes+bounds "svg") - (png-bytes+bounds "png") - (svg-bytes "svg") - (png-bytes "png")) - '((png-bytes+bounds "png") - (png-bytes "png")))) + '((svg-bytes+bounds8 "svg") + (png-bytes+bounds8 "png") + (svg-bytes+bounds "svg") + (png-bytes+bounds "png") + (svg-bytes "svg") + (png-bytes "png")) + '((png-bytes+bounds8 "png") + (png-bytes+bounds "png") + (png-bytes "png")))) (for/or ([fmt/ext (in-list fmts/exts)]) (apply convert-and-save v fmt/ext)))