From f902be4f4641262787c623deac267c02d89fec7c Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Tue, 25 Mar 2025 17:31:18 -0500
Subject: Working more on my publication list

---
 app/Main.hs | 31 +++++++++++++++++++++++--------
 1 file changed, 23 insertions(+), 8 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 1e935e8..6e00f0a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -20,21 +20,36 @@ import WWW.Templates (myContext, defaultTemplate)
 main :: IO ()
 main = baseHakyll domain $ do
     match "templates/**" $ compile templateCompiler
-    match "data/*.bib" $ compile bibtexCompiler
+    -- match "data/*.bib" $ compile bibtexCompiler
+    match "data/papers.bib" $ compile papersCompiler
     match "data/people.yaml" $ compile $ yamlCompiler @(AliasMap Name_ Person_)
     match "data/licenses.yaml" $ compile $ yamlCompiler @(AliasMap StrictText License_)
     match "data/journals.yaml" $ compile $ yamlCompiler @(AliasMap StrictText Journal_)
-    let baseCtxt :: Compiler (Context String)
-        baseCtxt = fold <$> sequence
-            [ pure myContext
-            , personCtxt @StrictText <$> loadBody "data/people.yaml"
-            , licenseCtxt @StrictText <$> loadBody "data/licenses.yaml"
-            , journalCtxt @StrictText <$> loadBody "data/journals.yaml"
+    let baseCtxt :: Context String
+        baseCtxt = fold $
+            [ myContext
+            , personCtxt "data/people.yaml"
+            , licenseCtxt "data/licenses.yaml"
+            , journalCtxt "data/journals.yaml"
             ]
+    -- let baseCtxt :: Compiler (Context String)
+    --     baseCtxt = fold <$> sequence
+    --         [ pure myContext
+    --         , personCtxt @StrictText <$> loadBody "data/people.yaml"
+    --         , licenseCtxt @StrictText <$> loadBody "data/licenses.yaml"
+    --         , journalCtxt @StrictText <$> loadBody "data/journals.yaml"
+    --         ]
     match "www/research/index.html" $ do
         route $ dropParentRoute 1
         compile $ do
-            papers <- undefined
+            papers <- loadBody @[Paper String] "data/papers.bib"
+            let fixedPapers = sort $ papers <&> \p -> p
+                    { authors = (`filter` authors p) $ flip notElem
+                        [ Name "Cox" "Christopher" Nothing
+                        , Name "Wells" "Chris" Nothing
+                        ]   -- Remove me from the author list
+                    }
+            undefined >>= applyTemplate defaultTemplate baseCtxt >>= applyAsTemplate (mkPaperContext fixedPapers)
     match "www/teaching/index.md" $ do
         route $ dropParentRoute 1 `composeRoutes` setExtension ".html"
         compile $ myPandocCompiler >>= applyTemplate defaultTemplate baseCtxt
-- 
cgit v1.2.3