From d6c9e4f243438de767a2e3e2a08c5a0eb546023c Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Thu, 21 Dec 2017 11:35:00 -0500 Subject: [PATCH] Add Note state to PowerPoint writer. First step toward implementing notes in pptx writer. --- src/Text/Pandoc/Writers/Powerpoint.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs index eb695b2be..6f83b5976 100644 --- a/src/Text/Pandoc/Writers/Powerpoint.hs +++ b/src/Text/Pandoc/Writers/Powerpoint.hs @@ -139,6 +139,7 @@ data WriterState = WriterState { stCurSlideId :: Int -- (FP, Local ID, Global ID, Maybe Mime) , stMediaIds :: M.Map Int [MediaInfo] , stMediaGlobalIds :: M.Map FilePath Int + , stNoteIds :: M.Map Int [Block] } deriving (Show, Eq) instance Default WriterState where @@ -147,6 +148,7 @@ instance Default WriterState where , stLinkIds = mempty , stMediaIds = mempty , stMediaGlobalIds = mempty + , stNoteIds = mempty } type P m = ReaderT WriterEnv (StateT WriterState m)