From 8fd47d38bb4c3dead49600f93f5345c0b06a6fec Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 18 Jun 2023 19:44:07 +0200
Subject: source and use humanized tag names

---
 Types.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index beb008d..f4212d8 100644
--- a/Types.hs
+++ b/Types.hs
@@ -39,6 +39,8 @@ data SiteState =
     -- | Map of tags, assigning to each tag sequence a list of tagged page
     -- mounts. This one is expanded (tags imply parent categories).
     , _ehtags :: M.Map [String] [FilePath]
+    -- | Map of "short" tags to expanded human-friendly names
+    , _tagNames :: M.Map String String
     -- | List of installed files (enables sharing)
     , _installs :: S.Set (String, FilePath)
     -- | List of installed files (prevents overwriting)
@@ -131,6 +133,7 @@ siteOptions' = do
       , _redirects = M.empty
       , _htags = M.empty
       , _ehtags = M.empty
+      , _tagNames = M.empty
       , _installs = S.empty
       , _targets = S.empty
       , _templates = M.empty
-- 
cgit v1.2.3