playing
This commit is contained in:
parent
65e2224958
commit
03c592cb7e
3 changed files with 10 additions and 6 deletions
12
compile.hs
12
compile.hs
|
@ -41,6 +41,7 @@ initOptions = do
|
|||
main :: IO ()
|
||||
main = do
|
||||
opts <- initOptions
|
||||
maindir <- pwd
|
||||
sh $ do
|
||||
argfile <- case file opts of
|
||||
Nothing -> findMarkdownFiles
|
||||
|
@ -52,6 +53,7 @@ main = do
|
|||
when (reveal opts) (toReveal (debug opts) argfile)
|
||||
when (pdf opts) (toPdf (debug opts) argfile)
|
||||
when (beamer opts) (toBeamer (debug opts) argfile)
|
||||
cd maindir
|
||||
|
||||
-- | Find Markdown Files (skip hidden directories)
|
||||
findMarkdownFiles :: Shell FilePath
|
||||
|
@ -67,12 +69,14 @@ execcmd dbg dest cmd = do
|
|||
ExitSuccess -> greenPrn "[DONE]"
|
||||
ExitFailure _ -> redPrn "[FAILED]"
|
||||
|
||||
toprefix :: FilePath -> FilePath
|
||||
toprefix fpath = F.concat $ map (const "..") (filter (== ".") (splitDirectories (directory fpath)))
|
||||
|
||||
-- | Generate HTML format
|
||||
toWeb :: Bool -> FilePath -> IO ()
|
||||
toWeb dbg fpath = do
|
||||
let dest = filename (replaceExtension fpath "html")
|
||||
pr :: FilePath
|
||||
pr = F.concat $ map (const "..") (splitDirectories (directory fpath))
|
||||
pr = toprefix fpath
|
||||
cmd = "pandoc -s -S --toc -mathjax -t html5 --smart "
|
||||
<> "--css " <> format fp (pr </> "styling.css") <> " "
|
||||
<> "-A " <> format fp (pr </> "footer.html") <> " "
|
||||
|
@ -88,7 +92,7 @@ toReveal dbg fpath = do
|
|||
|> flip addExtension "reveal"
|
||||
|> flip addExtension "html"
|
||||
pr :: FilePath
|
||||
pr = F.concat $ map (const "..") (splitDirectories (directory fpath))
|
||||
pr = toprefix fpath
|
||||
template = pr </> "template-revealjs.html"
|
||||
prt :: Text
|
||||
prt = format fp pr
|
||||
|
@ -107,7 +111,7 @@ toPdf dbg fpath = do
|
|||
let dest = fpath |> filename
|
||||
|> dropExtension
|
||||
|> flip addExtension "pdf"
|
||||
pr = F.concat $ map (const "..") (splitDirectories (directory fpath))
|
||||
pr = toprefix fpath
|
||||
template = pr </> "template.latex"
|
||||
cmd = "pandoc -s -S -N --toc "
|
||||
<> "--template=" <> format fp template <> " "
|
||||
|
|
BIN
druid/druid.pdf
BIN
druid/druid.pdf
Binary file not shown.
|
@ -9,7 +9,7 @@
|
|||
<meta name="apple-mobile-web-app-status-bar-style" content="black-translucent" />
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no">
|
||||
<link rel="stylesheet" href="../.reveal.js-3.2.0/css/reveal.css">
|
||||
<link rel="stylesheet" href="../.reveal.js-3.2.0/css/theme/default.css" id="theme">
|
||||
<link rel="stylesheet" href="../.reveal.js-3.2.0/css/theme/solarized.css" id="theme">
|
||||
<!-- For syntax highlighting -->
|
||||
<link rel="stylesheet" href="../.reveal.js-3.2.0/lib/css/zenburn.css">
|
||||
<!-- If the query includes 'print-pdf', use the PDF print sheet -->
|
||||
|
@ -130,7 +130,7 @@
|
|||
center: false,
|
||||
|
||||
// available themes are in /css/theme
|
||||
theme: Reveal.getQueryHash().theme || 'default',
|
||||
theme: Reveal.getQueryHash().theme || 'solarized',
|
||||
|
||||
// default/cube/page/concave/zoom/linear/fade/none
|
||||
transition: Reveal.getQueryHash().transition || 'linear',
|
||||
|
|
Loading…
Reference in a new issue