From 0e717b5dda55602aa3ef34991f9c7dd8762c678b Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 16 Jul 2023 19:45:33 +0200
Subject: [PATCH] use human tag names for search indexes

---
 site.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/site.hs b/site.hs
index 972ae10..7996415 100644
--- a/site.hs
+++ b/site.hs
@@ -507,15 +507,15 @@ mkSearchData mount pi = do
   -- TODO: unify retrieval of tags
   let tags =
         sort $ pi ^.. pageMeta . key "tags" . values . _String . to T.unpack
+  tagnames <- traverse (traverse getTagName . splitDirectories) tags
+  let tagarray = Y.array . map (Y.array . map fromString) $ tagnames
   if pi ^? pageMeta . key "search" . _Bool == Just False -- `off` gets parsed as bool
     then pure []
     else pure $
          [ Y.object
              [ ("link", fromString link)
              , ("title", maybe (fromString mount) Y.String title)
-             , ( "tags"
-               , Y.array $
-                 map (Y.array . map fromString . splitDirectories) tags)
+             , ("tags", tagarray)
              , ("text", Y.String text)
              ]
          ]