@@ -505,6 +505,7 @@ writeDocx opts doc@(Pandoc meta _) = do
505505 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
506506 $ mknode "dc:title" [] (stringify $ docTitle meta)
507507 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
508+ : mknode "cp:keywords" [] (intercalate ", " (map stringify $ docKeywords meta))
508509 : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
509510 , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
510511 ]) (formatTime defaultTimeLocale "%FT%XZ" utctime)