Commit f12f01c9 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Better css defaults and complete handouts

parent 66f8a4f9
......@@ -29,8 +29,9 @@ $endif$
$if(theme)$
<link rel="stylesheet" href="$revealjs-url$/css/theme/$theme$.css" id="theme">
$else$
<link rel="stylesheet" href="$revealjs-url$/css/theme/black.css" id="theme">
<link rel="stylesheet" href="$revealjs-url$/css/theme/white.css" id="theme">
$endif$
<link rel="stylesheet" href="$decker-support-dir$/decker.css">
$for(css)$
<link rel="stylesheet" href="$css$"/>
$endfor$
......
......@@ -23,13 +23,10 @@ $if(highlighting-css)$
$highlighting-css$
</style>
$endif$
$if(css)$
<link rel="stylesheet" href="$decker-support-dir$/sandstone/bootstrap.min.css">
$for(css)$
<link rel="stylesheet" href="$css$">
$endfor$
$else$
<link rel="stylesheet" href="$decker-support-dir$/sandstone/bootstrap.min.css">
$endif$
<link rel="stylesheet" href="$decker-support-dir$/font-awesome-4.6.3/css/font-awesome.min.css">
<style type="text/css">
.container {
......
......@@ -23,13 +23,10 @@ $if(highlighting-css)$
$highlighting-css$
</style>
$endif$
$if(css)$
<link rel="stylesheet" href="$decker-support-dir$/sandstone/bootstrap.min.css">
$for(css)$
<link rel="stylesheet" href="$css$">
$endfor$
$else$
<link rel="stylesheet" href="$decker-support-dir$/sandstone/bootstrap.min.css">
$endif$
<link rel="stylesheet" href="$decker-support-dir$/font-awesome-4.6.3/css/font-awesome.min.css">
<style type="text/css">
.container {
......
......@@ -181,7 +181,7 @@ provisionResource provisioning dirs base path = do
provisionExistingResource ::
Provisioning -> ProjectDirs -> FilePath -> FilePath -> IO FilePath
provisionExistingResource provisioning dirs base path =
provisionExistingResource provisioning dirs base path =
if path == "" || isRemoteURI path
then return path
else do
......
......@@ -840,7 +840,8 @@ processPandocHandout format pandoc = do
processed <-
liftIO $ processCites' pandoc >>= walkM (useCachedImages (cache dirs))
-- processed <- liftIO $ walkM (useCachedImages (cache dirs)) pandoc
return $ (expandMacros f . filterNotes f) processed
-- return $ (expandMacros f . filterNotes f) processed
return $ expandMacros f processed
type StringWriter = WriterOptions -> Pandoc -> String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment