source and use humanized tag names

1 files changed, 3 insertions, 0 deletions

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