exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

use human tag names for search indexes

Browse source
This commit is contained in:
Mirek Kratochvil 2023-07-16 19:45:33 +02:00
parent 4a32e69bff
commit 0e717b5dda
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
site.hs
View file

@ -507,15 +507,15 @@ mkSearchData mount pi = do
-- TODO: unify retrieval of tags -- TODO: unify retrieval of tags
let tags = let tags =
sort $ pi ^.. pageMeta . key "tags" . values . _String . to T.unpack 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 if pi ^? pageMeta . key "search" . _Bool == Just False -- `off` gets parsed as bool
then pure [] then pure []
else pure $ else pure $
[ Y.object [ Y.object
[ ("link", fromString link) [ ("link", fromString link)
, ("title", maybe (fromString mount) Y.String title) , ("title", maybe (fromString mount) Y.String title)
, ( "tags" , ("tags", tagarray)
, Y.array $
map (Y.array . map fromString . splitDirectories) tags)
, ("text", Y.String text) , ("text", Y.String text)
] ]
] ]