building using stack

.gitignore

@@ -1,6 +1,7 @@
 TAGS
+build/
 compile
-compile.hi
-compile.o
+*.hi
+*.o
 *.html
 *.pdf

build.sh

@@ -0,0 +1,7 @@
+#!/usr/bin/env zsh
+
+if hash stack 2>/dev/null; then
+    stack ghc -- -odir build -hidir build compile.hs -O2
+else
+    print -- "Please install 'stack' (http://haskellstack.org)"
+fi

compile.hs

@@ -60,7 +60,7 @@ main = do
 -- | Find Markdown Files (skip hidden directories)
 findMarkdownFiles :: Shell FilePath
 findMarkdownFiles = do
-    fic <- find  (has ".md") "." & fgrep (invert (prefix "./."))
+    fic <- find  (suffix ".md") "." & fgrep (invert (prefix "./."))
     let mf = stripPrefix "./" fic
     _ <- guard (isJust mf)
     return (fromJust mf)
@@ -101,7 +101,7 @@ toReveal dbg fpath = do
   mslideLevel <- fold (fpath & filename
                              & input
                              & grep (prefix "slide_level: ")
-                             & sed (prefix "slide_level: " *> star digit))
+                             & sed (prefix ("slide_level: " *> plus digit)))
                      Fold.head
   let slideLevel = maybe "2" (\l -> if l == "" then "2" else l) mslideLevel
       dest = fpath & filename