From 363a5891d7071c1288a288d4671ddc699ed6b3ca Mon Sep 17 00:00:00 2001 From: Lucian Mogosanu Date: Wed, 17 Jul 2013 09:27:20 +0300 Subject: [PATCH] add a bare site --- index.html | 5 +++++ site.hs | 14 +++++++++++++- templates/default.html | 1 + 3 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 index.html create mode 100644 templates/default.html diff --git a/index.html b/index.html new file mode 100644 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 --- 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 index 0000000..36d66c2 --- /dev/null +++ b/templates/default.html @@ -0,0 +1 @@ +$body$ -- 1.7.10.4