Fix post listings & add comments

site.hs

@@ -196,7 +196,7 @@ main = (*>) (setEnv "AMC_LIBRARY_PATH" "/usr/lib/amuletml/lib/") $ hakyllWith co
   create ["archive.html"] $ do
     route idRoute
     compile $ do
-      posts <- recentFirst =<< loadAll "posts/*"
+      posts <- recentFirst =<< loadAll "pages/posts/*"
       let archiveCtx =
             listField "posts" postCtx (return posts) <>
             constField "title" "Archives"            <>
@@ -209,7 +209,7 @@ main = (*>) (setEnv "AMC_LIBRARY_PATH" "/usr/lib/amuletml/lib/") $ hakyllWith co
   match "pages/*.html" $ do
     route $ gsubRoute "pages/" (const "")
     compile $ do
-      posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*"
+      posts <- fmap (take 5) . recentFirst =<< loadAll "pages/posts/*"
       let indexCtx =
             listField "posts" postCtx (return posts) <>
             constField "title" "Home"                <>
@@ -241,7 +241,7 @@ main = (*>) (setEnv "AMC_LIBRARY_PATH" "/usr/lib/amuletml/lib/") $ hakyllWith co
     route idRoute
     compile $ do
       let feedCtx = postCtx <> bodyField "description"
-      posts <- (take 10 <$>) . recentFirst =<< loadAllSnapshots "posts/*" "content"
+      posts <- (take 10 <$>) . recentFirst =<< loadAllSnapshots "pages/posts/*" "content"
       renderRss rssfeed feedCtx posts
 
 postCtx :: Context String

templates/post.html

@@ -1,10 +1,21 @@
 <div class="info">
-    Posted on $date$
-    $if(author)$
-        by $author$
-    $endif$
+    Posted on $date$ <br />
+    Comment on this post <a href="#comments">here</a>
 </div>
 
 <article>
 $body$
-</article>
+</article>
+
+<hr />
+
+<div id="comments">
+    <script src="https://utteranc.es/client.js"
+            repo="plt-hokusai/blag"
+            issue-term="og:title"
+            label="comment"
+            theme="github-light"
+            crossorigin="anonymous"
+            async>
+    </script>
+</div>