diff options
| author | Ben Sima <ben@bensima.com> | 2025-11-27 18:37:18 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-11-27 18:37:18 -0500 |
| commit | 9cd30e2a5970d3e47468ffff1682a831f24b9d2d (patch) | |
| tree | 9d016ad59fe53fb52bae03aa104988e74999f93c | |
| parent | 4ccd1ada825395654a9e6053d9d7e6cd4986b1c0 (diff) | |
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
| -rw-r--r-- | Omni/Jr/Web.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 79e32f6..e1933e2 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 |