docx writer -- support custom properties

fixes jgm#3024
agusmba · Jan 24, 2019 · 1746491 · 1746491
1 parent e18d9ba
commit 1746491
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
@@ -512,7 +512,8 @@ writeDocx opts doc@(Pandoc meta _) = do
   let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
 
   let customProperties :: [(String, String)]
-      customProperties = [] -- FIXME
+      customProperties = [(k, lookupMetaString k meta) | k <- M.keys (unMeta meta)
+                         , k `notElem` ["title", "lang", "author", "date"]]
   let mkCustomProp (k, v) pid = mknode "property"
          [("fmtid","{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
          ,("pid", show pid)