commit 9cd30e2a5970d3e47468ffff1682a831f24b9d2d
Author: Ben Sima <ben@bensima.com>
Date: Thu Nov 27 18:37:18 2025
Convert task list/search page to list-group pattern
The build and tests pass. The task list/search page now uses the
`list-g
Task-Id: t-156.3
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs
index 79e32f65..e1933e2a 100644
--- a/Omni/Jr/Web.hs
+++ b/Omni/Jr/Web.hs
@@ -566,7 +566,7 @@ instance Lucid.ToHtml TaskListPage where
Lucid.div_ [Lucid.id_ "task-list"] <| do
if null tasks
then Lucid.p_ [Lucid.class_ "empty-msg"] "No tasks match the current filters."
- else Lucid.div_ [Lucid.class_ "task-list"] <| traverse_ renderTaskCard tasks
+ else Lucid.div_ [Lucid.class_ "list-group"] <| traverse_ renderListGroupItem tasks
where
maybeSelected :: (Eq a) => Maybe a -> Maybe a -> [Lucid.Attribute]
maybeSelected opt current = [Lucid.selected_ "selected" | opt == current]
@@ -1159,7 +1159,7 @@ instance Lucid.ToHtml TaskListPartial where
toHtml (TaskListPartial tasks) =
if null tasks
then Lucid.p_ [Lucid.class_ "empty-msg"] "No tasks match the current filters."
- else Lucid.div_ [Lucid.class_ "task-list"] <| traverse_ renderTaskCard tasks
+ else Lucid.div_ [Lucid.class_ "list-group"] <| traverse_ renderListGroupItem tasks
instance Lucid.ToHtml TaskMetricsPartial where
toHtmlRaw = Lucid.toHtml