@@ -231,10 +231,11 @@ writeDocx opts doc@(Pandoc meta _) = do
231 ,("xmlns:dcmitype","http://purl.org/dc/dcmitype/")
231 ,("xmlns:dcmitype","http://purl.org/dc/dcmitype/")
232 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
232 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
233 $ mknode "dc:title" [] (stringify $ docTitle meta)
233 $ mknode "dc:title" [] (stringify $ docTitle meta)
234− : mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")]
235− (maybe "" id $ normalizeDate $ stringify $ docDate meta)
236− : mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] () -- put current time here
237− : map (mknode "dc:creator" [] . stringify) (docAuthors meta)
234+ : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
236+ (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] $ x
237+ , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] $ x
238+ ]) (normalizeDate $ stringify $ docDate meta)
238 let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
239 let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
240 let relsPath = "_rels/.rels"
241 let relsPath = "_rels/.rels"