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

module Web.View.Annotations.New where

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

data NewView = NewView
    { widget     :: !Widget
    , annotation :: !Annotation
    }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="max-w-lg">
            <div class="flex items-center gap-2 text-sm text-gray-500 mb-4">
                <a href={ShowWidgetAction { widgetId = widget.id }} class="hover:text-gray-700">{widget.name}</a>
                <span>/</span>
                <a href={WidgetAnnotationsAction { widgetId = widget.id }} class="hover:text-gray-700">Annotations</a>
                <span>/</span>
                <span>New</span>
            </div>
            <h1 class="text-2xl font-semibold mb-6">Add Annotation</h1>
            {renderForm annotation widget.id}
        </div>
    |]

renderForm :: Annotation -> Id Widget -> Html
renderForm annotation widgetId = formFor annotation [hsx|
    {(textareaField #body) { fieldLabel = "Comment" }}
    {selectField #category categoryOptions}
    {selectField #severity severityOptions}
    {submitButton}
|]

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

severityOptions :: [(Text, Text)]
severityOptions =
    [ ("Low",      "low")
    , ("Medium",   "medium")
    , ("High",     "high")
    , ("Critical", "critical")
    ]