From 7da1c7e717af3cadf927b5f6efb253f0d10423a8 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 1 Dec 2025 21:38:17 -0500 Subject: 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 --- Omni/Jr/Web/Pages.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Omni/Jr/Web/Pages.hs') 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 -- cgit v1.2.3