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

module Web.View.Annotations.Show where

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

data ShowView = ShowView
    { widget     :: !Widget
    , annotation :: !Annotation
    , mCandidate :: !(Maybe RequirementCandidate)
    }

instance View ShowView where
    html ShowView { .. } = [hsx|
        <div class="mb-6 flex items-center gap-2 text-sm text-gray-500">
            <a href={WidgetsAction} class="hover:text-gray-700">Widgets</a>
            <span>/</span>
            <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>Detail</span>
        </div>

        <div class="max-w-2xl">
            <div class="bg-white rounded-lg border border-gray-200 px-6 py-5 mb-4">
                <div class="flex items-center gap-2 mb-3">
                    <span class="text-xs bg-gray-100 text-gray-600 px-2 py-0.5 rounded font-medium">
                        {annotation.category}
                    </span>
                    <span class={severityClass annotation.severity}>
                        {annotation.severity}
                    </span>
                    {if isJust annotation.retractedAt
                        then [hsx|<span class="text-xs text-red-400 italic">retracted</span>|]
                        else mempty}
                    <span class="ml-auto text-xs text-gray-400">{show annotation.createdAt}</span>
                </div>
                <p class="text-sm text-gray-800 leading-relaxed">{annotation.body}</p>
            </div>

            <div class="bg-gray-50 rounded-lg border border-gray-200 px-6 py-4">
                <h2 class="text-sm font-semibold text-gray-700 mb-3">Escalation</h2>
                {renderEscalation annotation mCandidate}
            </div>
        </div>
    |]

renderEscalation :: Annotation -> Maybe RequirementCandidate -> Html
renderEscalation annotation Nothing = [hsx|
    <p class="text-sm text-gray-500 mb-3">This annotation has not been escalated yet.</p>
    <form method="POST" action={EscalateAnnotationAction { annotationId = annotation.id }}>
        {hiddenField "authenticity_token"}
        <button type="submit"
                class="text-sm bg-amber-600 text-white px-4 py-2 rounded hover:bg-amber-700">
            Escalate to Requirement Candidate
        </button>
    </form>
|]
renderEscalation _ (Just candidate) = [hsx|
    <p class="text-sm text-gray-600 mb-2">Escalated to:</p>
    <a href={ShowRequirementCandidateAction { requirementCandidateId = candidate.id }}
       class="text-sm text-indigo-600 hover:text-indigo-800 font-medium">
        {candidate.title} →
    </a>
    <span class={candidateStatusClass candidate.status <> " ml-3 text-xs px-2 py-0.5 rounded"}>
        {candidate.status}
    </span>
|]

severityClass :: Text -> Text
severityClass "low"      = "text-xs px-2 py-0.5 rounded bg-gray-100 text-gray-500"
severityClass "medium"   = "text-xs px-2 py-0.5 rounded bg-blue-100 text-blue-700"
severityClass "high"     = "text-xs px-2 py-0.5 rounded bg-yellow-100 text-yellow-800"
severityClass "critical" = "text-xs px-2 py-0.5 rounded bg-red-100 text-red-800 font-semibold"
severityClass _          = "text-xs px-2 py-0.5 rounded bg-gray-100 text-gray-500"

candidateStatusClass :: Text -> Text
candidateStatusClass "open"      = "bg-blue-100 text-blue-700"
candidateStatusClass "in_review" = "bg-yellow-100 text-yellow-800"
candidateStatusClass "accepted"  = "bg-green-100 text-green-800"
candidateStatusClass "rejected"  = "bg-red-100 text-red-800"
candidateStatusClass "deferred"  = "bg-gray-100 text-gray-600"
candidateStatusClass _           = "bg-gray-100 text-gray-600"