diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-10 11:05:21 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-11 07:00:17 -0500 |
| commit | b212a51062c1ea2ab6aa6c5fb9f777ef2e1f29aa (patch) | |
| tree | c0904bb61714fe46e32d1a98e8ec92a66158ac90 /src/Text/Pandoc | |
| parent | da4703236dbef86dd7fa036fb28fa43039e45146 (diff) | |
Integrate Powerpoint writer into pandoc.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/App.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Data.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers.hs | 3 |
3 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index ae62db4f9..3dd4f214c 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -815,6 +815,7 @@ defaultWriterName x = ".tei" -> "tei" ".ms" -> "ms" ".roff" -> "ms" + ".pptx" -> "pptx" ['.',y] | y `elem` ['1'..'9'] -> "man" _ -> "html" diff --git a/src/Text/Pandoc/Data.hs b/src/Text/Pandoc/Data.hs index 6bb6069ca..332882c22 100644 --- a/src/Text/Pandoc/Data.hs +++ b/src/Text/Pandoc/Data.hs @@ -18,4 +18,5 @@ dataFiles' = ("MANUAL.txt", $(embedFile "MANUAL.txt")) : -- handle the hidden file separately, since embedDir doesn't -- include it: ("docx/_rels/.rels", $(embedFile "data/docx/_rels/.rels")) : + ("pptx/_rels/.rels", $(embedFile "data/pptx/_rels/.rels")) : $(embedDir "data") diff --git a/src/Text/Pandoc/Writers.hs b/src/Text/Pandoc/Writers.hs index 046022b09..b336c1f1a 100644 --- a/src/Text/Pandoc/Writers.hs +++ b/src/Text/Pandoc/Writers.hs @@ -68,6 +68,7 @@ module Text.Pandoc.Writers , writeOpenDocument , writeOrg , writePlain + , writePowerpoint , writeRST , writeRTF , writeRevealJs @@ -113,6 +114,7 @@ import Text.Pandoc.Writers.ODT import Text.Pandoc.Writers.OpenDocument import Text.Pandoc.Writers.OPML import Text.Pandoc.Writers.Org +import Text.Pandoc.Writers.Powerpoint import Text.Pandoc.Writers.RST import Text.Pandoc.Writers.RTF import Text.Pandoc.Writers.TEI @@ -131,6 +133,7 @@ writers = [ ,("json" , TextWriter $ \o d -> return $ writeJSON o d) ,("docx" , ByteStringWriter writeDocx) ,("odt" , ByteStringWriter writeODT) + ,("pptx" , ByteStringWriter writePowerpoint) ,("epub" , ByteStringWriter writeEPUB3) ,("epub2" , ByteStringWriter writeEPUB2) ,("epub3" , ByteStringWriter writeEPUB3) |