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

module Web.View.AnnotationThreads.New where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()

data NewView = NewView
    { widget :: !Widget
    , thread :: !AnnotationThread
    }

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

renderForm :: AnnotationThread -> Id Widget -> Html
renderForm thread widgetId = formFor thread [hsx|
    {(textField #title) { fieldLabel = "Title" }}
    {(textareaField #description) { fieldLabel = "Description (optional)" }}
    {submitButton}
|]