From 766f8132730c904667ed466d8b745e203dc7505e Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Thu, 18 Jan 2024 22:04:46 -0500
Subject: lev too

---
 dist/antiquitysort-exe | Bin 22624312 -> 22384040 bytes
 src/Lib.hs             |   7 +++----
 static/manifest.toml   |   8 ++++----
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/dist/antiquitysort-exe b/dist/antiquitysort-exe
index 6ca9fe4..6ca8bac 100755
Binary files a/dist/antiquitysort-exe and b/dist/antiquitysort-exe differ
diff --git a/src/Lib.hs b/src/Lib.hs
index 35db408..064b88b 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -516,14 +516,13 @@ pageTemplate crumbs body = doctypehtml_ $ do
         div_ [class_ "home"] $ do
           a_ [href_ homeURI, class_ "home-title"] (strong_ "Antiquitysort")
           span_ " at "
-          a_ [href_ "/"] "cyfraeviolae.org"
+          a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+          a_ [class_ "source", href_ "/git/spectralrenga"] "[src]"
         div_ [class_ "crumbs"] $ sequence_ $
           L.intersperse
             (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; ")))
-            (srcCrumb : crumbs)
+            crumbs
       body
-  where
-    srcCrumb = a_ [href_ "/git/antiquitysort"] "source code"
 
 tshow :: Show a => a -> T.Text
 tshow = T.pack . show
diff --git a/static/manifest.toml b/static/manifest.toml
index f167310..0ac3c75 100644
--- a/static/manifest.toml
+++ b/static/manifest.toml
@@ -676,11 +676,11 @@ byline = "CC BY-SA 3.0 Mr. Tickle"
 [[mediums]]
 tag = "LyricPoetry"
 label = "Lyric poetry"
-description = "Sylvan historian, who canst thus express?"
+description = "The birds in vain their amorous descant join."
 disabled = true
 
 [[mediums]]
-tag = "FolkMusic"
-label = "Folk music"
-description = "Aaaah! Je ris&hellip;"
+tag = "LandscapePainting"
+label = "Landscape painting"
+description = "Though the west lake swells with water as spring arrives, the emerald bamboo outdoors blocks the sight of boats."
 disabled = true
-- 
cgit v1.2.3