From db5847e1ec6338e6fc298415fdb25fa8d1740bc6 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 18 Jun 2023 00:14:35 +0200
Subject: sort tags, fix md

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

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index bf18f86..c5ff809 100644
--- a/site.hs
+++ b/site.hs
@@ -351,14 +351,13 @@ mkSearchData mount pi = do
   link <- rootUrl mount
   text <- io . runIOorExplode $ writePlain plainWriteOpts (pi ^. pageDoc)
   let title = pi ^? pageMeta . key "title" . _String
-  let tags =
-        pi ^.. pageMeta . key "tags" . values . _String .
-        to (Y.array . map fromString . splitDirectories . T.unpack)
+  -- TODO: unify retrieval of tags
+  let tags = sort $ pi ^.. pageMeta . key "tags" . values . _String . to T.unpack
   pure $
     Y.object
       [ ("link", fromString link)
       , ("title", maybe (fromString mount) Y.String title)
-      , ("tags", Y.array tags)
+      , ("tags", Y.array $ map (Y.array . map fromString . splitDirectories) tags)
       , ("text", Y.String text)
       ]
 
-- 
cgit v1.2.3