git.iko.soy/typeable/pandoc
on master help sign in
Add keywords metadata to docx document properties
b2fe101Ian
src/Text/Pandoc/Writers/Docx.hs+1
compare with master
unifiedsplit
@@ -505,6 +505,7 @@ writeDocx opts doc@(Pandoc meta _) = do
505 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
505 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
506 $ mknode "dc:title" [] (stringify $ docTitle meta)
506 $ mknode "dc:title" [] (stringify $ docTitle meta)
507 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
507 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
508+ : mknode "cp:keywords" [] (intercalate ", " (map stringify $ docKeywords meta))
508 : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
509 : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
509 , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
510 , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
510 ]) (formatTime defaultTimeLocale "%FT%XZ" utctime)
511 ]) (formatTime defaultTimeLocale "%FT%XZ" utctime)