From 01a191709e33f2a5b10a24cdf537511f83fc0268 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 22 Jul 2010 23:37:06 -0700 Subject: Moved Text.Pandoc.Writers.S5 -> Text.Pandoc.S5. Now it doesn't export a writer, just some CSS and JS. --- src/Text/Pandoc.hs | 1 - src/Text/Pandoc/S5.hs | 57 +++++++++++++++++++++++++++++++++++++ src/Text/Pandoc/Writers/S5.hs | 66 ------------------------------------------- 3 files changed, 57 insertions(+), 67 deletions(-) create mode 100644 src/Text/Pandoc/S5.hs delete mode 100644 src/Text/Pandoc/Writers/S5.hs (limited to 'src/Text') diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index f0d679dae..ad429bc93 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -110,7 +110,6 @@ import Text.Pandoc.Writers.LaTeX import Text.Pandoc.Writers.ConTeXt import Text.Pandoc.Writers.Texinfo import Text.Pandoc.Writers.HTML -import Text.Pandoc.Writers.S5 import Text.Pandoc.Writers.ODT import Text.Pandoc.Writers.EPUB import Text.Pandoc.Writers.Docbook diff --git a/src/Text/Pandoc/S5.hs b/src/Text/Pandoc/S5.hs new file mode 100644 index 000000000..1567a3ede --- /dev/null +++ b/src/Text/Pandoc/S5.hs @@ -0,0 +1,57 @@ +{- +Copyright (C) 2006-2010 John MacFarlane + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +-} + +{- | + Module : Text.Pandoc.S5 + Copyright : Copyright (C) 2006-2010 John MacFarlane + License : GNU GPL, version 2 or above + + Maintainer : John MacFarlane + Stability : alpha + Portability : portable + +Definitions for creation of S5 powerpoint-like HTML. +(See .) +-} +module Text.Pandoc.S5 ( s5HeaderIncludes) where +import Text.Pandoc.Shared ( readDataFile ) +import System.FilePath ( () ) + +s5HeaderIncludes :: Maybe FilePath -> IO String +s5HeaderIncludes datadir = do + c <- s5CSS datadir + j <- s5Javascript datadir + return $ c ++ j + +s5Javascript :: Maybe FilePath -> IO String +s5Javascript datadir = do + jsCom <- readDataFile datadir $ "s5" "default" "slides.js.comment" + jsPacked <- readDataFile datadir $ "s5" "default" "slides.js.packed" + return $ "\n" + +s5CSS :: Maybe FilePath -> IO String +s5CSS datadir = do + s5CoreCSS <- readDataFile datadir $ "s5" "default" "s5-core.css" + s5FramingCSS <- readDataFile datadir $ "s5" "default" "framing.css" + s5PrettyCSS <- readDataFile datadir $ "s5" "default" "pretty.css" + s5OperaCSS <- readDataFile datadir $ "s5" "default" "opera.css" + s5OutlineCSS <- readDataFile datadir $ "s5" "default" "outline.css" + s5PrintCSS <- readDataFile datadir $ "s5" "default" "print.css" + return $ "\n\n\n\n" + diff --git a/src/Text/Pandoc/Writers/S5.hs b/src/Text/Pandoc/Writers/S5.hs deleted file mode 100644 index a439363f1..000000000 --- a/src/Text/Pandoc/Writers/S5.hs +++ /dev/null @@ -1,66 +0,0 @@ -{- -Copyright (C) 2006-2010 John MacFarlane - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --} - -{- | - Module : Text.Pandoc.Writers.S5 - Copyright : Copyright (C) 2006-2010 John MacFarlane - License : GNU GPL, version 2 or above - - Maintainer : John MacFarlane - Stability : alpha - Portability : portable - -Definitions for creation of S5 powerpoint-like HTML. -(See .) --} -module Text.Pandoc.Writers.S5 ( - -- * Header includes - s5HeaderIncludes - ) where -import Text.Pandoc.Shared ( WriterOptions, readDataFile ) -import Text.Pandoc.Writers.HTML ( writeHtml, writeHtmlString ) -import Text.Pandoc.Definition -import Text.XHtml.Strict -import System.FilePath ( () ) - -s5HeaderIncludes :: Maybe FilePath -> IO String -s5HeaderIncludes datadir = do - c <- s5CSS datadir - j <- s5Javascript datadir - return $ s5Meta ++ c ++ j - -s5Meta :: String -s5Meta = "\n\n\n" - -s5Javascript :: Maybe FilePath -> IO String -s5Javascript datadir = do - jsCom <- readDataFile datadir $ "s5" "default" "slides.js.comment" - jsPacked <- readDataFile datadir $ "s5" "default" "slides.js.packed" - return $ "\n" - -s5CSS :: Maybe FilePath -> IO String -s5CSS datadir = do - s5CoreCSS <- readDataFile datadir $ "s5" "default" "s5-core.css" - s5FramingCSS <- readDataFile datadir $ "s5" "default" "framing.css" - s5PrettyCSS <- readDataFile datadir $ "s5" "default" "pretty.css" - s5OperaCSS <- readDataFile datadir $ "s5" "default" "opera.css" - s5OutlineCSS <- readDataFile datadir $ "s5" "default" "outline.css" - s5PrintCSS <- readDataFile datadir $ "s5" "default" "print.css" - return $ "\n\n\n\n" - -- cgit v1.2.3