inter-hub-haskell/Web/View/RequirementCandidates/New.hs

module Web.View.RequirementCandidates.New where

import Web.View.Prelude
import Web.Routes ()

data NewView = NewView
    { candidate :: !RequirementCandidate
    , widgets   :: ![Widget]
    , threads   :: ![AnnotationThread]
    }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="mb-6 flex items-center gap-2 text-sm text-gray-500">
            <a href={RequirementCandidatesAction} class="hover:text-gray-700">Candidates</a>
            <span>/</span>
            <span>New</span>
        </div>
        <div class="max-w-lg">
            <h1 class="text-2xl font-semibold mb-6">New Requirement Candidate</h1>
            {renderForm candidate widgets threads}
        </div>
    |]

renderForm :: RequirementCandidate -> [Widget] -> [AnnotationThread] -> Html
renderForm candidate widgets threads = formFor candidate [hsx|
    {(textField #title) { fieldLabel = "Title" }}
    {(textareaField #description) { fieldLabel = "Description" }}
    {selectField #sourceWidgetId (widgetOptions widgets)}
    <div>
        <label class="block text-sm font-medium text-gray-700 mb-1">Source Thread</label>
        <select name="sourceThreadId" class="w-full border border-gray-300 rounded px-3 py-2 text-sm">
            <option value="">None</option>
            {forEach threads renderThreadOption}
        </select>
    </div>
    {selectField #category categoryOptions}
    {submitButton}
|]

widgetOptions :: [Widget] -> [(Text, Id Widget)]
widgetOptions = map (\w -> (w.name, w.id))

renderThreadOption :: AnnotationThread -> Html
renderThreadOption t = [hsx|<option value={show t.id}>{t.title}</option>|]

categoryOptions :: [(Text, Text)]
categoryOptions =
    [ ("Friction",          "friction")
    , ("Defect",            "defect")
    , ("Wish",              "wish")
    , ("Policy Concern",    "policy_concern")
    , ("Documentation Gap", "doc_gap")
    , ("Trust",             "trust")
    , ("Other",             "other")
    ]