Add mime save for eps, pdf, png and svg

Author: davidanthoff

src/FileIO.jl

@@ -29,6 +29,7 @@ import Base.showerror
 include("query.jl")
 include("error_handling.jl")
 include("loadsave.jl")
+include("mimesave.jl")
 include("registry.jl")
 
 """

src/mimesave.jl

@@ -0,0 +1,39 @@
+function FileIO.save(file::File{format"PNG"}, data)
+    if mimewritable("image/png", data)
+        open(file.filename, "w") do s
+            show(s, "image/png", data)
+        end
+    else
+        throw(ArgumentError("Argument does not support conversion to png."))
+    end
+end
+
+function FileIO.save(file::File{format"SVG"}, data)
+    if mimewritable("image/svg+xml", data)
+        open(file.filename, "w") do s
+            show(s, "image/svg+xml", data)
+        end
+    else
+        throw(ArgumentError("Argument does not support conversion to svg."))
+    end
+end
+
+function FileIO.save(file::File{format"PDF"}, data)
+    if mimewritable("application/pdf", data)
+        open(file.filename, "w") do s
+            show(s, "application/pdf", data)
+        end
+    else
+        throw(ArgumentError("Argument does not support conversion to pdf."))
+    end
+end
+
+function FileIO.save(file::File{format"EPS"}, data)
+    if mimewritable("application/eps", data)
+        open(file.filename, "w") do s
+            show(s, "application/eps", data)
+        end
+    else
+        throw(ArgumentError("Argument does not support conversion to eps."))
+    end
+end

src/registry.jl

@@ -43,13 +43,13 @@ add_format(format"CRW", UInt8[0x49,0x49,0x1a,0x00,0x00,0x00,0x48,0x45], ".crw",
 add_format(format"CUR", UInt8[0x00,0x00,0x02,0x00],                     ".cur", [:ImageMagick])
 add_format(format"DCX", UInt8[0xb1,0x68,0xde,0x3a],                     ".dcx", [:ImageMagick])
 add_format(format"DOT", UInt8[0xd0,0xcf,0x11,0xe0,0xa1,0xb1,0x1a,0xe1], ".dot", [:ImageMagick])
-add_format(format"EPS", UInt8[0x25,0x21,0x50,0x53,0x2d,0x41,0x64,0x6f], ".eps", [:ImageMagick])
+add_format(format"EPS", UInt8[0x25,0x21,0x50,0x53,0x2d,0x41,0x64,0x6f], ".eps", [:FileIO, SAVE], [:ImageMagick])
 add_format(format"HDR", UInt8[0x23,0x3f,0x52,0x41,0x44,0x49,0x41,0x4e], ".hdr", [:ImageMagick])
 add_format(format"ICO", UInt8[0x00,0x00,0x01,0x00],                     ".ico", [:ImageMagick])
 add_format(format"INFO", UInt8[0x7a,0x62,0x65,0x78],                    ".info",[:ImageMagick])
 add_format(format"JP2", UInt8[0x00,0x00,0x00,0x0c,0x6a,0x50,0x20,0x20], ".jp2", [:ImageMagick])
 add_format(format"PDB", UInt8[0x73,0x7a,0x65,0x7a],                     ".pdb", [:ImageMagick])
-add_format(format"PDF", UInt8[0x25,0x50,0x44,0x46],                     ".pdf", [:ImageMagick])
+add_format(format"PDF", UInt8[0x25,0x50,0x44,0x46],                     ".pdf", [:FileIO, SAVE], [:ImageMagick])
 add_format(format"PGM", UInt8[0x50,0x35,0x0a],                          ".pgm", [:ImageMagick])
 add_format(format"PSD", UInt8[0x38,0x42,0x50,0x53],                     ".psd", [:ImageMagick])
 add_format(format"RGB", UInt8[0x01,0xda,0x01,0x01,0x00,0x03],           ".rgb", [:ImageMagick])
@@ -75,6 +75,7 @@ add_format(
     format"PNG",
     UInt8[0x89,0x50,0x4e,0x47,0x0d,0x0a,0x1a,0x0a],
     ".png",
+    [:FileIO, SAVE],
     [:QuartzImageIO, OSX],
     [:ImageMagick]
 )
@@ -105,6 +106,12 @@ add_format(
     ".pcx",
     [:ImageMagick]
 )
+add_format(
+    format"SVG",
+    (),
+    ".svg",
+    [:FileIO, SAVE]
+)
 
 #=
 add_format(format"NPY", UInt8[0x93, 'N', 'U', 'M', 'P', 'Y'], ".npy")