From 33cb84713fc6cbbd7925c9d51c61e94d3e3cff77 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 17 Jun 2023 20:55:26 +0200
Subject: add tags to the search metadata

---
 site.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index 918fdff..e012f04 100644
--- a/site.hs
+++ b/site.hs
@@ -348,13 +348,17 @@ renderTags = use (htags . to M.keys) >>= traverse_ renderTag
 -- | Transform one mounted PageInfo to the base search data
 mkSearchData :: FilePath -> PageInfo -> Site Y.Value
 mkSearchData mount pi = do
+  link <- rootUrl mount
   text <- io . runIOorExplode $ writePlain plainWriteOpts (pi ^. pageDoc)
   let title = pi ^? pageMeta . key "title" . _String
-  link <- rootUrl mount
+  let tags =
+        pi ^.. pageMeta . key "tags" . values . _String .
+        to (Y.array . map fromString . splitDirectories . T.unpack)
   pure $
     Y.object
       [ ("link", fromString link)
       , ("title", maybe (fromString mount) Y.String title)
+      , ("tags", Y.array tags)
       , ("text", Y.String text)
       ]
 
-- 
cgit v1.2.3