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