diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-17 08:12:50 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-18 16:31:32 -0500 |
| commit | 6fa6b6a5f26bc4b23501ff0f0cd6597524d48dd3 (patch) | |
| tree | f21fdfcf0848e29624a22e3bd05de9d9fb859d3c /src/Text | |
| parent | bb7681a85af76b2b85b263d593f560caf5428def (diff) | |
| download | pandoc-6fa6b6a5f26bc4b23501ff0f0cd6597524d48dd3.tar.gz | |
Powerpoint writer: Change references to Notes to SpeakerNotes
This is to avoid confusion with {foot,end}notes.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index 0cf01ee01..e42a38dbe 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -37,7 +37,7 @@ module Text.Pandoc.Writers.Powerpoint.Presentation ( documentToPresentation , DocProps(..) , Slide(..) , Layout(..) - , Notes(..) + , SpeakerNotes(..) , SlideId(..) , Shape(..) , Graphic(..) @@ -180,7 +180,7 @@ data DocProps = DocProps { dcTitle :: Maybe String data Slide = Slide { slideId :: SlideId , slideLayout :: Layout - , slideNotes :: Maybe Notes + , slideSpeakerNotes :: Maybe SpeakerNotes } deriving (Show, Eq) newtype SlideId = SlideId String @@ -189,7 +189,7 @@ newtype SlideId = SlideId String -- In theory you could have anything on a notes slide but it seems -- designed mainly for one textbox, so we'll just put in the contents -- of that textbox, to avoid other shapes that won't work as well. -newtype Notes = Notes [Paragraph] +newtype SpeakerNotes = SpeakerNotes {fromSpeakerNotes :: [Paragraph]} deriving (Show, Eq) data Layout = MetadataSlide { metadataSlideTitle :: [ParaElem] @@ -806,11 +806,11 @@ applyToLayout f (TwoColumnSlide hdr contentL contentR) = do applyToSlide :: Monad m => (ParaElem -> m ParaElem) -> Slide -> m Slide applyToSlide f slide = do layout' <- applyToLayout f $ slideLayout slide - mbNotes' <- case slideNotes slide of - Just (Notes notes) -> (Just . Notes) <$> - mapM (applyToParagraph f) notes + mbNotes' <- case slideSpeakerNotes slide of + Just (SpeakerNotes notes) -> (Just . SpeakerNotes) <$> + mapM (applyToParagraph f) notes Nothing -> return Nothing - return slide{slideLayout = layout', slideNotes = mbNotes'} + return slide{slideLayout = layout', slideSpeakerNotes = mbNotes'} replaceAnchor :: ParaElem -> Pres ParaElem replaceAnchor (Run rProps s) |