6fa6b6a · typeable/pandoc

37 , DocProps(..)

38 , Slide(..)

39 , Layout(..)

40− , Notes(..)

40+ , SpeakerNotes(..)

41 , SlideId(..)

42 , Shape(..)

43 , Graphic(..)

180

181data Slide = Slide { slideId :: SlideId

182 , slideLayout :: Layout

183− , slideNotes :: Maybe Notes

183+ , slideSpeakerNotes :: Maybe SpeakerNotes

184 } deriving (Show, Eq)

185

186newtype SlideId = SlideId String

189-- In theory you could have anything on a notes slide but it seems

190-- designed mainly for one textbox, so we'll just put in the contents

191-- of that textbox, to avoid other shapes that won't work as well.

192−newtype Notes = Notes [Paragraph]

192+newtype SpeakerNotes = SpeakerNotes {fromSpeakerNotes :: [Paragraph]}

193 deriving (Show, Eq)

194

195data Layout = MetadataSlide { metadataSlideTitle :: [ParaElem]

806applyToSlide :: Monad m => (ParaElem -> m ParaElem) -> Slide -> m Slide

807applyToSlide f slide = do

808 layout' <- applyToLayout f $ slideLayout slide

809− mbNotes' <- case slideNotes slide of

809+ mbNotes' <- case slideSpeakerNotes slide of

810− Just (Notes notes) -> (Just . Notes) <$>

810+ Just (SpeakerNotes notes) -> (Just . SpeakerNotes) <$>

811− mapM (applyToParagraph f) notes

811+ mapM (applyToParagraph f) notes

812 Nothing -> return Nothing

813− return slide{slideLayout = layout', slideNotes = mbNotes'}

813+ return slide{slideLayout = layout', slideSpeakerNotes = mbNotes'}

814

815replaceAnchor :: ParaElem -> Pres ParaElem

816replaceAnchor (Run rProps s)