Add pastebins.html listing page

1 files changed, 24 insertions, 3 deletions

diff --git a/hakyll/Main.hs b/hakyll/Main.hs
index 6d27c66..139b607 100644
--- a/hakyll/Main.hs
+++ b/hakyll/Main.hs
@@ -20,13 +20,18 @@ main = hakyll $ do
   match "fonts/*" $ do
     route   idRoute
     compile copyFileCompiler
-  match "pastebin/*.html" $ do
-    route   idRoute
-    compile copyFileCompiler
   match "root/*" $ do
     route $ dropPrefix "root/"
     compile copyFileCompiler
 
+  match "pastebin/*" $ do
+    route $ setExtension "html"
+    compile $ pandocCompiler
+      >>= loadAndApplyTemplate "templates/pastebin.html" pastebinCtx
+      >>= saveSnapshot "content"
+      >>= loadAndApplyTemplate "templates/default.html"  pastebinCtx
+      >>= relativizeUrls
+
   match "posts/*" $ do
     route $ setExtension "html"
       `composeRoutes` dropPrefix "posts/"
@@ -44,6 +49,19 @@ main = hakyll $ do
         >>= loadAndApplyTemplate "templates/default.html" defaultContext
         >>= relativizeUrls
 
+  match "pastebins.html" $ do
+    route idRoute
+    compile $ do
+      pastebins <- recentFirst =<< loadAll "pastebin/*"
+      let pastebinCtx =
+            listField "pastebins" pastebinCtx (return pastebins) `mappend`
+            defaultContext
+
+      getResourceBody
+        >>= applyAsTemplate pastebinCtx
+        >>= loadAndApplyTemplate "templates/default.html" pastebinCtx
+        >>= relativizeUrls
+
   match "index.html" $ do
     route idRoute
     compile $ do
@@ -96,6 +114,9 @@ postCtx =
     dateField "date" "%B %e, %Y" `mappend`
     defaultContext
 
+pastebinCtx :: Context String
+pastebinCtx = postCtx
+
 feedCtx :: Context String
 feedCtx =
     bodyField "description" `mappend`