Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Add Note state to PowerPoint writer.

Browse source 
First step toward implementing notes in pptx writer.
This commit is contained in:
Jesse Rosenthal 2017-12-21 11:35:00 -05:00
parent 4d0cb0b2fc
commit d6c9e4f243
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Powerpoint.hs
View file

@ -139,6 +139,7 @@ data WriterState = WriterState { stCurSlideId :: Int
-- (FP, Local ID, Global ID, Maybe Mime) -- (FP, Local ID, Global ID, Maybe Mime)
, stMediaIds :: M.Map Int [MediaInfo] , stMediaIds :: M.Map Int [MediaInfo]
, stMediaGlobalIds :: M.Map FilePath Int , stMediaGlobalIds :: M.Map FilePath Int
, stNoteIds :: M.Map Int [Block]
} deriving (Show, Eq) } deriving (Show, Eq)
instance Default WriterState where instance Default WriterState where
@ -147,6 +148,7 @@ instance Default WriterState where
, stLinkIds = mempty , stLinkIds = mempty
, stMediaIds = mempty , stMediaIds = mempty
, stMediaGlobalIds = mempty , stMediaGlobalIds = mempty
, stNoteIds = mempty
} }
type P m = ReaderT WriterEnv (StateT WriterState m) type P m = ReaderT WriterEnv (StateT WriterState m)