summaryrefslogtreecommitdiff
path: root/Omni/Jr/Web/Pages.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bensima.com>2025-12-01 21:38:17 -0500
committerBen Sima <ben@bensima.com>2025-12-01 21:38:17 -0500
commit7da1c7e717af3cadf927b5f6efb253f0d10423a8 (patch)
treee6d52326215026a5cc1002a06f68cbd6281b1b6f /Omni/Jr/Web/Pages.hs
parent437a204017c7b357c3fc4dcc8c23151a288d1a8e (diff)
Make complexity badge editable on task detail page
- Add ComplexityForm and ComplexityBadgePartial types - Add /tasks/:id/complexity POST endpoint - Add complexityBadgeWithForm component with dropdown - Add complexity dropdown JS for keyboard navigation - Add CSS styles for complexity dropdown - Always show complexity badge (Set Complexity if none) Task-Id: t-219
Diffstat (limited to 'Omni/Jr/Web/Pages.hs')
-rw-r--r--Omni/Jr/Web/Pages.hs9
1 files changed, 3 insertions, 6 deletions
diff --git a/Omni/Jr/Web/Pages.hs b/Omni/Jr/Web/Pages.hs
index 2fbbc00..b3cc8ea 100644
--- a/Omni/Jr/Web/Pages.hs
+++ b/Omni/Jr/Web/Pages.hs
@@ -18,7 +18,7 @@ import qualified Lucid.Base as Lucid
import Numeric (showFFloat)
import Omni.Jr.Web.Components
( Breadcrumb (..),
- complexityBadge,
+ complexityBadgeWithForm,
metaSep,
multiColorProgressBar,
pageBody,
@@ -567,11 +567,8 @@ instance Lucid.ToHtml TaskDetailPage where
statusBadgeWithForm (TaskCore.taskStatus task) (TaskCore.taskId task)
metaSep
priorityBadgeWithForm (TaskCore.taskPriority task) (TaskCore.taskId task)
- case TaskCore.taskComplexity task of
- Nothing -> pure ()
- Just c -> do
- metaSep
- complexityBadge c
+ metaSep
+ complexityBadgeWithForm (TaskCore.taskComplexity task) (TaskCore.taskId task)
case TaskCore.taskNamespace task of
Nothing -> pure ()
Just ns -> do