commit 36c5a2342ce8697c490d90e091d1153c7e592daf
Author: Ben Sima <ben@bensima.com>
Date: Thu Nov 27 10:10:50 2025
Make dashboard metric cards clickable
The build and tests pass. The dashboard metric cards are now
clickable a
Task-Id: t-149.3
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs
index 1ecc034b..6d2c1634 100644
--- a/Omni/Jr/Web.hs
+++ b/Omni/Jr/Web.hs
@@ -164,11 +164,11 @@ instance Lucid.ToHtml HomePage where
Lucid.h2_ "Task Status"
Lucid.div_ [Lucid.class_ "stats-grid"] <| do
- statCard "Open" (TaskCore.openTasks stats) "badge-open"
- statCard "In Progress" (TaskCore.inProgressTasks stats) "badge-inprogress"
- statCard "Review" (TaskCore.reviewTasks stats) "badge-review"
- statCard "Approved" (TaskCore.approvedTasks stats) "badge-approved"
- statCard "Done" (TaskCore.doneTasks stats) "badge-done"
+ statCard "Open" (TaskCore.openTasks stats) "badge-open" "/tasks?status=Open"
+ statCard "In Progress" (TaskCore.inProgressTasks stats) "badge-inprogress" "/tasks?status=InProgress"
+ statCard "Review" (TaskCore.reviewTasks stats) "badge-review" "/tasks?status=Review"
+ statCard "Approved" (TaskCore.approvedTasks stats) "badge-approved" "/tasks?status=Approved"
+ statCard "Done" (TaskCore.doneTasks stats) "badge-done" "/tasks?status=Done"
Lucid.h2_ <| do
"Ready Queue "
@@ -187,9 +187,9 @@ instance Lucid.ToHtml HomePage where
Lucid.div_ [Lucid.class_ "task-list"]
<| traverse_ renderTaskCard recentTasks
where
- statCard :: (Monad m) => Text -> Int -> Text -> Lucid.HtmlT m ()
- statCard label count badgeClass =
- Lucid.div_ [Lucid.class_ ("stat-card " <> badgeClass)] <| do
+ statCard :: (Monad m) => Text -> Int -> Text -> Text -> Lucid.HtmlT m ()
+ statCard label count badgeClass href =
+ Lucid.a_ [Lucid.href_ href, Lucid.class_ ("stat-card " <> badgeClass)] <| do
Lucid.div_ [Lucid.class_ "stat-count"] (Lucid.toHtml (tshow count))
Lucid.div_ [Lucid.class_ "stat-label"] (Lucid.toHtml label)