Try file/convertible {svg png}bytes+bounds8 formats; fixes #727

greghendershott · Nov 12, 2024 · 06cdcfb · 06cdcfb
1 parent 04bdadf
commit 06cdcfb
Showing 1 changed file with 9 additions and 6 deletions.
diff --git 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)))