diff options
Diffstat (limited to 'Omni/Jr/Web.hs')
| -rw-r--r-- | Omni/Jr/Web.hs | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index a861944..4a37c6f 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -1059,11 +1059,29 @@ instance Lucid.ToHtml TaskDetailPage where Lucid.div_ [Lucid.class_ "form-actions"] <| do Lucid.button_ [Lucid.type_ "submit", Lucid.class_ "submit-btn"] "Save Design" _ -> - unless (Text.null (TaskCore.taskDescription task)) - <| Lucid.div_ [Lucid.class_ "detail-section"] - <| do - Lucid.h3_ "Description" - Lucid.pre_ [Lucid.class_ "description"] (Lucid.toHtml (TaskCore.taskDescription task)) + Lucid.div_ [Lucid.class_ "detail-section"] <| do + Lucid.h3_ "Description" + if Text.null (TaskCore.taskDescription task) + then Lucid.p_ [Lucid.class_ "empty-msg"] "No description yet." + else Lucid.pre_ [Lucid.class_ "description"] (Lucid.toHtml (TaskCore.taskDescription task)) + Lucid.details_ [Lucid.class_ "edit-description"] <| do + Lucid.summary_ "Edit Description" + Lucid.form_ + [ Lucid.method_ "POST", + Lucid.action_ ("/tasks/" <> TaskCore.taskId task <> "/description"), + Lucid.makeAttribute "hx-post" ("/tasks/" <> TaskCore.taskId task <> "/description"), + Lucid.makeAttribute "hx-swap" "none" + ] + <| do + Lucid.textarea_ + [ Lucid.name_ "description", + Lucid.class_ "description-textarea", + Lucid.rows_ "10", + Lucid.placeholder_ "Enter description..." + ] + (Lucid.toHtml (TaskCore.taskDescription task)) + Lucid.div_ [Lucid.class_ "form-actions"] <| do + Lucid.button_ [Lucid.type_ "submit", Lucid.class_ "submit-btn"] "Save Description" let children = filter (maybe False (TaskCore.matchesId (TaskCore.taskId task)) <. TaskCore.taskParent) allTasks unless (null children) <| do |