From 225f7dd4114bc13c17b70595eb8c79aeb3acb1da Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 31 Dec 2009 01:13:41 +0000 Subject: Got s5 writer working with html template. s5 css and js is included using header-includes variable. We don't need a separate s5 template, so it has been removed. Use linebreak to separate authors in S5 title page. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1705 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/S5.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/S5.hs b/src/Text/Pandoc/Writers/S5.hs index c3acbfe71..e3e9e0024 100644 --- a/src/Text/Pandoc/Writers/S5.hs +++ b/src/Text/Pandoc/Writers/S5.hs @@ -43,8 +43,6 @@ import Text.Pandoc.Definition import Text.XHtml.Strict import System.FilePath ( () ) import Data.List ( intercalate ) -import Prelude hiding (readFile) -import System.IO.UTF8 (readFile) s5HeaderIncludes :: IO String s5HeaderIncludes = do @@ -130,7 +128,7 @@ insertS5Structure (Pandoc (Meta title' authors date) blocks) = let slides = insertSlides True blocks firstSlide = if not (null title') then [slideStart, (Header 1 title'), - (Header 3 (intercalate [Str ",", Space] authors)), + (Header 3 (intercalate [LineBreak] authors)), (Header 4 date), slideEnd] else [] newBlocks = (layoutDiv title' date) ++ presentationStart:firstSlide ++ -- cgit v1.2.3