@@ -496,6 +496,11 @@ writeDocx opts doc@(Pandoc meta _) = do
496496 , qName (elName e) == "abstractNum" ] ++
497497 [Elem e | e <- allElts
498498 , qName (elName e) == "num" ] }
499+
500+ let keywords = case lookupMeta "keywords" meta of
501+ Just (MetaList xs) -> map stringify xs
502+ _ -> []
503+
499504 let docPropsPath = "docProps/core.xml"
500505 let docProps = mknode "cp:coreProperties"
501506 [("xmlns:cp","http://schemas.openxmlformats.org/package/2006/metadata/core-properties")
@@ -505,7 +510,7 @@ writeDocx opts doc@(Pandoc meta _) = do
505510 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
506511 $ mknode "dc:title" [] (stringify $ docTitle meta)
507512 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
508− : mknode "cp:keywords" [] (intercalate ", " (map stringify $ docKeywords meta))
513+ : mknode "cp:keywords" [] (intercalate ", " keywords)
509514 : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
510515 , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
511516 ]) (formatTime defaultTimeLocale "%FT%XZ" utctime)