diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-06-02 10:11:37 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-06-02 10:11:37 +0200 |
| commit | a063ba58fddbe7f7ac8ef55cae9f5db4d841e8d3 (patch) | |
| tree | b67a6a282c700bd9f22a05eecf44833a48e70d1e /src/Text/Pandoc | |
| parent | e43ea03410db11276eff9f8112625415f045eab6 (diff) | |
| parent | b2fe1015d9d92cf001018781f2e047e637ed9a54 (diff) | |
| download | pandoc-a063ba58fddbe7f7ac8ef55cae9f5db4d841e8d3.tar.gz | |
Merge pull request #3719 from iandol/patch-2
Add keywords metadata to docx core.xml document properties
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 5b714ba41..c68e90049 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -505,6 +505,7 @@ writeDocx opts doc@(Pandoc meta _) = do ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")] $ mknode "dc:title" [] (stringify $ docTitle meta) : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta)) + : mknode "cp:keywords" [] (intercalate ", " (map stringify $ docKeywords meta)) : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x ]) (formatTime defaultTimeLocale "%FT%XZ" utctime) |