add a bare site

diff --git a/index.html b/index.html
new file mode 100644 (file)
index 0000000..a806adf
--- /dev/null
+++ b/index.html
@@ -0,0 +1,5 @@
+---
+title: Home
+---
+
+The Tar Pit is cooking, please come back later.

diff --git a/site.hs b/site.hs
index 3549681..04c614f 100644 (file)
--- a/site.hs
+++ b/site.hs
@@ -2,4 +2,16 @@
 import           Data.Monoid (mappend)
 import           Hakyll
 
--- TODO: add site manually
+main :: IO ()
+main = hakyll $ do
+  match "index.html" $ do
+    route idRoute -- TODO: make a "copy to root" route?
+    compile $ do
+      let indexCtx = defaultContext
+
+      getResourceBody
+        >>= applyAsTemplate indexCtx
+        >>= loadAndApplyTemplate "templates/default.html" indexCtx
+        >>= relativizeUrls
+
+  match "templates/*" $ compile templateCompiler

diff --git a/templates/default.html b/templates/default.html
new file mode 100644 (file)
index 0000000..36d66c2
--- /dev/null
+++ b/templates/default.html
@@ -0,0 +1 @@
+$body$