fix: remove extLst of replaced images

Author: erdos

src/stencil/ooxml.clj

@@ -129,6 +129,9 @@
    "http://schemas.microsoft.com/office/powerpoint/2012/main"            "p15"
    })
 
+;; extension list, used for SVG image reference inside a blip
+(def ext-lst :xmlns.http%3A%2F%2Fschemas.openxmlformats.org%2Fdrawingml%2F2006%2Fmain/extLst)
+
 ;; drawing, binary large image or picture
 (def blip :xmlns.http%3A%2F%2Fschemas.openxmlformats.org%2Fdrawingml%2F2006%2Fmain/blip)
 ;; hyperlinks

src/stencil/postprocess/images.clj

@@ -48,7 +48,11 @@
         new-val     (-> data .relation)]
     (assert new-val)
     (log/debug "Replacing image relation {} by {}" current-rel new-val)
-    (assoc-in img-node [:attrs attr-key] new-val)))
+    (-> img-node
+        (assoc-in [:attrs attr-key] new-val)
+        ; If placeholder has an SVG graphic, remove so the replacement raster image is used directly:
+        (update :content remove (comp #{ooxml/ext-lst} :tag)))))
+
 
 (defn- replace-image [marker-loc]
   (if-let [img-loc (->> (zip/remove marker-loc)