module Web.View.RequirementCandidates.Edit where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude

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

instance View EditView where
    html EditView { .. } = [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>
            <a href={ShowRequirementCandidateAction { requirementCandidateId = candidate.id }}
               class="hover:text-gray-700">{candidate.title}</a>
            <span>/</span>
            <span>Edit</span>
        </div>
        <div class="max-w-lg">
            <h1 class="text-2xl font-semibold mb-6">Edit 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)}
    {selectField #sourceThreadId (threadOptions threads)}
    {selectField #category categoryOptions}
    {submitButton}
|]

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

threadOptions :: [AnnotationThread] -> [(Text, Text)]
threadOptions threads = ("None", "") : map (\t -> (t.title, show t.id)) threads

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