site: Create posters directory

docs/ct2024.html

@@ -54,8 +54,8 @@ <h1>Pivotality, Twisted Centres, and the Anti-Double of a Hopf Monad</h1>
   Click on the preview image for a full-scale version.
 <div style="text-align: center">
 <p></p>
-<a href="./ct2024-poster/poster.pdf">
-<img class="pure-img" style="text-align: center; max-width: 30%;" src="./ct2024-poster/poster.png" alt="A preview of the poster">
+<a href="./posters/ct2024/poster.pdf">
+<img class="pure-img" style="text-align: center; max-width: 30%;" src="./posters/ct2024/poster.png" alt="A preview of the poster">
 </a>
 </div>
 <p></p>
@@ -65,7 +65,7 @@ <h1>Pivotality, Twisted Centres, and the Anti-Double of a Hopf Monad</h1>
 and <span class="citation" data-cites="stroinski2024:reconstr">[<a href="#ref-stroinski2024:reconstr" role="doc-biblioref">StZo</a>]</span>;
 a repository with the full source code is available <a href="https://github.com/slotThe/ct2024">here</a>.<!--
 --><label for="sn-0" class="margin-toggle sidenote-number"></label><input type="checkbox" id="sn-0" class="margin-toggle" /><div class="sidenote">In the unlikely case that ever goes away before this website does,
-<a href="./ct2024-poster/source.tar.gz" class="local-link">a tarball</a> is also available.</div><!--
+<a href="./posters/ct2024/source.tar.gz" class="local-link">a tarball</a> is also available.</div><!--
 -->
 <!-- References; site.hs does not have 'no-cite' support right now. -->
 <p></p>

docs/research.html

@@ -281,7 +281,7 @@ <h2 id="posters">Posters<a href="#posters" class="floatleft sec-link">§</a></h2
 
 <em>Pivotality, Twisted Centres, and the Anti-Double of a Hopf Monad</em><br />
 2024-06-27, CT24, Santiago de Compostela;
-<a href="./ct2024-poster/poster.pdf" class="local-link"><span class="small-caps">pdf</span></a>
+<a href="./posters/ct2024/poster.pdf" class="local-link"><span class="small-caps">pdf</span></a>
 and
 <a href="./ct2024.html" class="local-link">accompanying website</a>;
 <p></p>

ct2024.md → posters/ct2024/ct2024.md

@@ -7,10 +7,10 @@ no-comment: true
 
 Click on the preview image for a full-scale version.
 <div style="text-align: center">
-  <a href="./ct2024-poster/poster.pdf">
+  <a href="./posters/ct2024/poster.pdf">
     <img class="pure-img"
        style="text-align: center; max-width: 30%;"
-       src="./ct2024-poster/poster.png"
+       src="./posters/ct2024/poster.png"
        alt="A preview of the poster">
   </a>
 </div>
@@ -39,4 +39,4 @@ a repository with the full source code is available [here][ghub:source-code].[^1
 [paper:diagrammatics]: https://arxiv.org/abs/2312.13074
 
 [^1]: In the unlikely case that ever goes away before this website does,
-      [a tarball](./ct2024-poster/source.tar.gz) is also available.
+      [a tarball](./posters/ct2024/source.tar.gz) is also available.

research.md

@@ -162,7 +162,7 @@ All of my papers are readily available on the [arXiv].[^2]
 
 - *Pivotality, Twisted Centres, and the Anti-Double of a Hopf Monad* \
   2024-06-27, CT24, Santiago de Compostela;
-  [PDF](./ct2024-poster/poster.pdf)
+  [PDF](./posters/ct2024/poster.pdf)
   and
   [accompanying website](./ct2024.html);
 

src/site.hs

@@ -144,22 +144,28 @@ aboutMe = do
 standalones :: Context String -> Rules ()
 standalones tagCtx = do
   -- Mackey functors seminar
-  mkStandalone "mackey-functors.md" pure tagCtx
-  -- CT2024 poster
-  match "ct2024-poster/**" do
+  mkStandalone "mackey-functors.md" pure tagCtx Nothing
+  -- Posters
+  let posterGlob :: String -> Pattern
+        = \pth -> fromGlob ("posters/" <> pth <> "/**") .&&. complement "**.md"
+  --- CT2024
+  match (posterGlob "ct2024") do
     route   idRoute
     compile copyFileCompiler
-  mkStandalone "ct2024.md" pure tagCtx
+  mkStandalone "posters/ct2024/ct2024.md" pure tagCtx (Just "ct2024.html")
+  --- Ferrara 2024
   -- Git introduction
   let gitCtx title = constField "title" title <> tagCtx
       fixTranscript = withItemBody $ pure .                  -- I know…
         asTxt (T.replace "./transcript.md" "./git-introduction/transcript.html")
   mkStandalone "talks/git-introduction.md"
                fixTranscript
                (gitCtx "Git Introduction" <> constField "no-toc" "true")
+               Nothing
   mkStandalone "talks/git-introduction/transcript.md"
                pure
                (gitCtx "How to Use Git—an Interactive Tutorial")
+               Nothing
   -- Key
   match "key.txt" do
     route idRoute
@@ -170,9 +176,14 @@ standalones tagCtx = do
     compile $ getResourceBody >>= relativizeUrls
  where
   -- Compile a standalone site.
-  mkStandalone :: Pattern -> (Item String -> Compiler (Item String)) -> Context String -> Rules ()
-  mkStandalone ptn action baseCtx = match ptn do
-    route $ setExtension "html"
+  mkStandalone
+    :: Pattern                                 -- Match the main standalone page
+    -> (Item String -> Compiler (Item String))  -- Additional compilation step
+    -> Context String                          -- Context
+    -> Maybe String                            -- Alternative route
+    -> Rules ()
+  mkStandalone ptn action baseCtx altRoute = match ptn do
+    route $ maybe (setExtension "html") constRoute altRoute
     compile do
       ctx <- getTocCtx baseCtx
       myPandocCompiler