From 5a7ce358d4671694d563eafeb06803acc43a8ca4 Mon Sep 17 00:00:00 2001
From: Amneesh Singh <natto@weirdnatto.in>
Date: Sat, 29 Oct 2022 11:15:35 +0530
Subject: [PATCH] dailies: init

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
---
 index.html             |  1 -
 src/site.hs            | 30 ++++++++++++++++++++++++++++++
 templates/dailies.html | 14 ++++++++++++++
 templates/default.html |  1 +
 4 files changed, 45 insertions(+), 1 deletion(-)
 create mode 100644 templates/dailies.html

diff --git a/index.html b/index.html
index 68abac3..deda82c 100644
--- a/index.html
+++ b/index.html
@@ -2,7 +2,6 @@
 title: Home
 home: true
 ---
-
 <h2>Welcome</h2>
 $partial("templates/post-preview-list.html")$
 <p>Find more in the <a href="/archive.html">archives</a>.</p>
diff --git a/src/site.hs b/src/site.hs
index b1f61d2..1c9c174 100644
--- a/src/site.hs
+++ b/src/site.hs
@@ -80,6 +80,31 @@ main = hakyllWith config $ do
         >>= loadAndApplyTemplate "templates/default.html" archiveCtx
         >>= relativizeUrls
 
+  match "dailies/*org" $ do
+    route $ setExtension "html"
+    compile $ do
+      pandocCompiler
+        >>= saveSnapshot "dailiescontent"
+        >>= loadAndApplyTemplate "templates/post.html" dailiesCtx
+        >>= loadAndApplyTemplate "templates/default.html" dailiesCtx
+        >>= relativizeUrls
+
+  create ["dailies.html"] $ do
+    route idRoute
+    compile $ do
+      dailyToday <- fmap (take 1) . recentFirst =<< loadAllSnapshots "dailies/*" "dailiescontent"
+      dailies <- recentFirst =<< loadAll "dailies/*"
+      let dailiesCtx' =
+            listField "today" dailiesCtx (return dailyToday)
+              <> listField "posts" dailiesCtx (return dailies)
+              <> constField "title" "Dailies"
+              <> defaultCtx
+
+      makeItem ""
+        >>= loadAndApplyTemplate "templates/dailies.html" dailiesCtx'
+        >>= loadAndApplyTemplate "templates/default.html" dailiesCtx'
+        >>= relativizeUrls
+
   match "index.html" $ do
     route idRoute
     compile $ do
@@ -144,6 +169,11 @@ postCtx tags =
     <> teaserField "teaser" "content"
     <> defaultCtx
 
+dailiesCtx :: Context String
+dailiesCtx =
+  dateField "date" "%B %e, %Y"
+    <> defaultCtx
+
 defaultCtx :: Context String
 defaultCtx =
   listField "subdomains" subCtx (return subdomains)
diff --git a/templates/dailies.html b/templates/dailies.html
new file mode 100644
index 0000000..0322435
--- /dev/null
+++ b/templates/dailies.html
@@ -0,0 +1,14 @@
+$for(today)$
+  <article>
+      <h1 class="post-title">$title$</h1>
+      <div class="post-teaser">
+            $body$
+      </div>
+      <hr>
+  </article>
+$endfor$
+
+<p>
+ <h3> Previous Dailies: </h3>
+</p>
+$partial("templates/post-list.html")$
diff --git a/templates/default.html b/templates/default.html
index 6a1b5b4..01634cc 100644
--- a/templates/default.html
+++ b/templates/default.html
@@ -17,6 +17,7 @@
                 <a href="/about.html">About</a>
                 <a href="/contact.html">Contact</a>
                 <a href="/archive.html">Archive</a>
+                <a href="/dailies.html">Dailies</a>
                 <a href="/links.html">Links</a>
             </nav>
         </header>