use human tag names for search indexes

1 files 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)
              ]
          ]