@@ -55,19 +55,19 @@ s5Meta = "<!-- configuration parameters -->\n<meta name=\"defaultView\" content=
5555
5656s5Javascript :: IO String
5757s5Javascript = do
58− jsCom <- readDataFile $ "data" </> "ui" </> "default" </> "slides.js.comment"
59− jsPacked <- readDataFile $ "data" </> "ui" </> "default" </> "slides.js.packed"
58+ jsCom <- readDataFile $ "s5" </> "default" </> "slides.js.comment"
59+ jsPacked <- readDataFile $ "s5" </> "default" </> "slides.js.packed"
6060 return $ "<script type=\"text/javascript\">\n" ++ jsCom ++ jsPacked ++
6161 "</script>\n"
6262
6363s5CSS :: IO String
6464s5CSS = do
65− s5CoreCSS <- readDataFile $ "data" </> "ui" </> "default" </> "s5-core.css"
66− s5FramingCSS <- readDataFile $ "data" </> "ui" </> "default" </> "framing.css"
67− s5PrettyCSS <- readDataFile $ "data" </> "ui" </> "default" </> "pretty.css"
68− s5OperaCSS <- readDataFile $ "data" </> "ui" </> "default" </> "opera.css"
69− s5OutlineCSS <- readDataFile $ "data" </> "ui" </> "default" </> "outline.css"
70− s5PrintCSS <- readDataFile $ "data" </> "ui" </> "default" </> "print.css"
65+ s5CoreCSS <- readDataFile $ "s5" </> "default" </> "s5-core.css"
66+ s5FramingCSS <- readDataFile $ "s5" </> "default" </> "framing.css"
67+ s5PrettyCSS <- readDataFile $ "s5" </> "default" </> "pretty.css"
68+ s5OperaCSS <- readDataFile $ "s5" </> "default" </> "opera.css"
69+ s5OutlineCSS <- readDataFile $ "s5" </> "default" </> "outline.css"
70+ s5PrintCSS <- readDataFile $ "s5" </> "default" </> "print.css"
7171 return $ "<style type=\"text/css\" media=\"projection\" id=\"slideProj\">\n" ++ s5CoreCSS ++ "\n" ++ s5FramingCSS ++ "\n" ++ s5PrettyCSS ++ "\n</style>\n<style type=\"text/css\" media=\"projection\" id=\"operaFix\">\n" ++ s5OperaCSS ++ "\n</style>\n<style type=\"text/css\" media=\"screen\" id=\"outlineStyle\">\n" ++ s5OutlineCSS ++ "\n</style>\n<style type=\"text/css\" media=\"print\" id=\"slidePrint\">\n" ++ s5PrintCSS ++ "\n</style>\n"
7272
7373s5Links :: String