From 1f2ab58478925481d5cf273d38e30fc06e96e69e Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 15 Oct 2023 23:06:59 +0200
Subject: stabilize and parametrize sorting of stuff, get rid of "title"

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

(limited to 'reploy.hs')

diff --git a/reploy.hs b/reploy.hs
index 12d7a57..8f1cd73 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -439,8 +439,8 @@ makeSearchData :: FilePath -> PageInfo -> Site [Y.Value]
 makeSearchData mount pi = do
   link <- rootedPageLink mount
   text <- io . runIOorExplode $ writePlain plainWriteOpts (pi ^. pageDoc)
-  let title = pi ^? pageMeta . key "title" . _String
-  -- TODO: unify retrieval of tags
+  let name = pi ^? pageMeta . key "name" . _String
+  -- TODO: unify retrieval of tags?
   let tags =
         sort $ pi ^.. pageMeta . key "tags" . values . _String . to T.unpack
   tagnames <- traverse (traverse getTagGroupName . inits . splitTag) tags
@@ -450,7 +450,7 @@ makeSearchData mount pi = do
     else pure $
          [ Y.object
              [ ("link", fromString link)
-             , ("title", maybe (fromString mount) Y.String title)
+             , ("name", maybe (fromString mount) Y.String name)
              , ("tags", tagarray)
              , ("text", Y.String text)
              ]
-- 
cgit v1.2.3