Support svg in PDF output, converting with rsvg2pdf.

Closes #1793.
jgm · Aug 9, 2017 · 6b72c5e · 6b72c5e
1 parent 8a4a5e5
commit 6b72c5e
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs
@@ -162,15 +162,24 @@ convertImage tmpdir fname =
     Just "image/png" -> doNothing
     Just "image/jpeg" -> doNothing
     Just "application/pdf" -> doNothing
-    Just "image/svg+xml" -> return $ Left "conversion from svg not supported"
+    Just "image/svg+xml" -> E.catch (do
+      (exit, _) <- pipeProcess Nothing "rsvg-convert"
+                     ["-f","pdf","-a","-o",pdfOut,fname] BL.empty
+      if exit == ExitSuccess
+         then return $ Right pdfOut
+         else return $ Left "conversion from SVG failed")
+      (\(e :: E.SomeException) -> return $ Left $
+          "check that rsvg2pdf is in path.\n" ++
+          show e)
     _ -> JP.readImage fname >>= \res ->
           case res of
                Left e    -> return $ Left e
                Right img ->
-                 E.catch (Right fileOut <$ JP.savePngImage fileOut img) $
+                 E.catch (Right pngOut <$ JP.savePngImage pngOut img) $
                      \(e :: E.SomeException) -> return (Left (show e))
   where
-    fileOut = replaceDirectory (replaceExtension fname ".png") tmpdir
+    pngOut = replaceDirectory (replaceExtension fname ".png") tmpdir
+    pdfOut = replaceDirectory (replaceExtension fname ".pdf") tmpdir
     mime = getMimeType fname
     doNothing = return (Right fname)