diff options
-rw-r--r-- | pandoc.cabal | 1 | ||||
-rw-r--r-- | src/Text/Pandoc/S5.hs | 69 |
2 files changed, 0 insertions, 70 deletions
diff --git a/pandoc.cabal b/pandoc.cabal index de98ae194..1aaed46df 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -265,7 +265,6 @@ Library Text.Pandoc.Writers.RTF, Text.Pandoc.Writers.ODT, Text.Pandoc.Writers.EPUB, - Text.Pandoc.S5, Text.Pandoc.Templates, Text.Pandoc.Biblio, Text.Pandoc.SelfContained diff --git a/src/Text/Pandoc/S5.hs b/src/Text/Pandoc/S5.hs deleted file mode 100644 index b17b052c5..000000000 --- a/src/Text/Pandoc/S5.hs +++ /dev/null @@ -1,69 +0,0 @@ -{- -Copyright (C) 2006-2010 John MacFarlane <jgm@berkeley.edu> - -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 <jgm@berkeley.edu> - Stability : alpha - Portability : portable - -Definitions for creation of S5 powerpoint-like HTML. -(See <http://meyerweb.com/eric/tools/s5/>.) --} -module Text.Pandoc.S5 ( s5HeaderIncludes) where -import Text.Pandoc.Shared ( readDataFile ) -import System.FilePath ( (</>) ) -import Data.ByteString.UTF8 ( toString, fromString ) -import Data.ByteString.Base64 ( encode ) - -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 - js <- readDataFile datadir $ "s5" </> "default" </> "slides.min.js" - return $ "<script type=\"text/javascript\">\n" ++ inCDATA js ++ "</script>\n" - -inCDATA :: String -> String -inCDATA s = "/*<![CDATA[*/\n" ++ s ++ "\n/*]]>*/\n" - -base64 :: String -> String -base64 = toString . encode . fromString - -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 $ "<link rel=\"stylesheet\" type=\"text/css\" media=\"projection\" id=\"slideProj\" href=\"data:text/css;charset=utf-8;base64," ++ - base64 (s5CoreCSS ++ "\n" ++ s5FramingCSS ++ "\n" ++ s5PrettyCSS) ++ "\" />\n" ++ - "<link rel=\"stylesheet\" type=\"text/css\" media=\"screen\" id=\"outlineStyle\" href=\"data:text/css;charset=utf-8;base64," ++ - base64 s5OutlineCSS ++ "\" />\n" ++ - "<link rel=\"stylesheet\" type=\"text/css\" media=\"print\" id=\"slidePrint\" href=\"data:text/css;charset=utf-8;base64," ++ - base64 s5PrintCSS ++ "\" />\n" ++ - "<link rel=\"stylesheet\" type=\"text/css\" media=\"projection\" id=\"operaFix\" href=\"data:text/css;charset=utf-8;base64," ++ - base64 s5OperaCSS ++ "\" />\n" |