@@ -151,7 +151,6 @@ writeDocx mbRefDocx opts doc@(Pandoc (Meta tit auths _) _) = do
151151 let markersUsed = stMarkersUsed st
152152 let numpath = "word/numbering.xml"
153153 let numEntry = toEntry numpath epochtime $ fromString $ showTopElement' $ mkNumbering markersUsed
154− -- TODO add metadata, etc.
155154 let docPropsPath = "docProps/core.xml"
156155 let docProps = mknode "cp:coreProperties"
157156 [("xmlns:cp","http://schemas.openxmlformats.org/package/2006/metadata/core-properties")
@@ -585,7 +584,6 @@ inlineToOpenXML opts (Image alt (src, tit)) = do
585584 (ident,size) <- case M.lookup src imgs of
586585 Just (i,img) -> return (i, imageSize img)
587586 Nothing -> do
588− -- TODO check existence download etc.
589587 img <- liftIO $ B.readFile src
590588 let ident' = "image" ++ show (M.size imgs + 1)
591589 let size' = imageSize img