Flip and rotate images in Office output

Transforms images based on exif metadata
jgm · Nov 14, 2024 · a778b98 · a778b98
1 parent 7e19347
commit a778b98
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/Docx/OpenXML.hs b/src/Text/Pandoc/Writers/Docx/OpenXML.hs
@@ -962,7 +962,17 @@ inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
           , mknode "a:stretch" [] $
               mknode "a:fillRect" [] ()
           ]
-        xfrm =    mknode "a:xfrm" []
+        transform = either (const def) id $ imageTransform img
+        attrflip NoFlip = []
+        attrflip FlipH = [("flipH", "1")]
+        attrflip FlipV = [("flipV", "1")]
+        -- 60,000ths of a degree
+        rotate R0 = []
+        rotate R90 = [("rot", "5400000")]
+        rotate R180 = [("rot", "10800000")]
+        rotate R270 = [("rot", "16200000")]
+
+        xfrm =    mknode "a:xfrm" ((attrflip (tFlip transform)) <> (rotate (tRotate transform)))
                         [ mknode "a:off" [("x","0"),("y","0")] ()
                         , mknode "a:ext" [("cx",tshow xemu)
                                          ,("cy",tshow yemu)] () ]