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

Code cleanup in S5 writer template.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1312 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-07-13 23:21:16 +00:00
parent 5fb67cab88
commit ff43ff6229
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
templates/S5.hs
View file

@ -86,14 +86,18 @@ writeS5String options = (writeHtmlString options) . insertS5Structure
layoutDiv :: [Inline] -- ^ Title of document (for header or footer) layoutDiv :: [Inline] -- ^ Title of document (for header or footer)
-> String -- ^ Date of document (for header or footer) -> String -- ^ Date of document (for header or footer)
-> [Block] -- ^ List of block elements returned -> [Block] -- ^ List of block elements returned
layoutDiv title date = [(RawHtml "<div class=\"layout\">\n<div id=\"controls\"></div>\n<div id=\"currentSlide\"></div>\n<div id=\"header\"></div>\n<div id=\"footer\">\n"), (Header 1 [Str date]), (Header 2 title), (RawHtml "</div>\n</div>\n")] layoutDiv title' date = [(RawHtml "<div class=\"layout\">\n<div id=\"controls\"></div>\n<div id=\"currentSlide\"></div>\n<div id=\"header\"></div>\n<div id=\"footer\">\n"), (Header 1 [Str date]), (Header 2 title'), (RawHtml "</div>\n</div>\n")]
presentationStart :: Block
presentationStart = RawHtml "<div class=\"presentation\">\n\n" presentationStart = RawHtml "<div class=\"presentation\">\n\n"
presentationEnd :: Block
presentationEnd = RawHtml "</div>\n" presentationEnd = RawHtml "</div>\n"
slideStart :: Block
slideStart = RawHtml "<div class=\"slide\">\n" slideStart = RawHtml "<div class=\"slide\">\n"
slideEnd :: Block
slideEnd = RawHtml "</div>\n" slideEnd = RawHtml "</div>\n"
-- | Returns 'True' if block is a Header 1. -- | Returns 'True' if block is a Header 1.
@ -120,14 +124,14 @@ insertSlides beginning blocks =
-- | Insert blocks into 'Pandoc' for slide structure. -- | Insert blocks into 'Pandoc' for slide structure.
insertS5Structure :: Pandoc -> Pandoc insertS5Structure :: Pandoc -> Pandoc
insertS5Structure (Pandoc meta []) = Pandoc meta [] insertS5Structure (Pandoc meta' []) = Pandoc meta' []
insertS5Structure (Pandoc (Meta title authors date) blocks) = insertS5Structure (Pandoc (Meta title' authors date) blocks) =
let slides = insertSlides True blocks let slides = insertSlides True blocks
firstSlide = if not (null title) firstSlide = if not (null title')
then [slideStart, (Header 1 title), then [slideStart, (Header 1 title'),
(Header 3 [Str (joinWithSep ", " authors)]), (Header 3 [Str (joinWithSep ", " authors)]),
(Header 4 [Str date]), slideEnd] (Header 4 [Str date]), slideEnd]
else [] else []
newBlocks = (layoutDiv title date) ++ presentationStart:firstSlide ++ newBlocks = (layoutDiv title' date) ++ presentationStart:firstSlide ++
slides ++ [presentationEnd] slides ++ [presentationEnd]
in Pandoc (Meta title authors date) newBlocks in Pandoc (Meta title' authors date) newBlocks