diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Templates.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/S5.hs | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Templates.hs b/src/Text/Pandoc/Templates.hs index de2991566..b8c70c569 100644 --- a/src/Text/Pandoc/Templates.hs +++ b/src/Text/Pandoc/Templates.hs @@ -55,6 +55,7 @@ import Text.Pandoc.Shared (readDataFile) -- directory (~/.pandoc on unix) or from the cabal data directory. getDefaultTemplate :: String -> IO (Either E.IOException String) getDefaultTemplate "native" = return $ Right "" +getDefaultTemplate "s5" = getDefaultTemplate "html" getDefaultTemplate "odt" = getDefaultTemplate "opendocument" getDefaultTemplate format = do let format' = takeWhile (/='+') format -- strip off "+lhs" if present 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 ++ |