inter-hub/Web/View/HubCapabilityManifests/Show.hs

module Web.View.HubCapabilityManifests.Show where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()
import Data.Aeson (Value(..), encode)
import qualified Data.Vector as V
import qualified Data.ByteString.Lazy.Char8 as BL

data ShowView = ShowView
    { manifest :: !HubCapabilityManifest
    , hub      :: !Hub
    }

instance View ShowView where
    html ShowView { .. } = [hsx|
        <div class="mb-4">
            <a href={HubCapabilityManifestsAction} class="text-sm text-gray-500 hover:text-gray-700">
                ← Capability Manifests
            </a>
        </div>

        <div class="flex items-center gap-3 mb-6">
            <h1 class="text-2xl font-semibold">{hub.name} — Capability Manifest</h1>
            {statusBadge manifest.status}
        </div>

        {manifestActions manifest}

        <div class="grid grid-cols-2 gap-4 mb-6">
            <div class="bg-white rounded-lg border border-gray-200 p-4">
                <p class="text-xs text-gray-500 uppercase tracking-wide">Manifest Version</p>
                <p class="font-mono font-medium mt-1">{manifest.manifestVersion}</p>
            </div>
            <div class="bg-white rounded-lg border border-gray-200 p-4">
                <p class="text-xs text-gray-500 uppercase tracking-wide">Activated</p>
                <p class="font-medium mt-1">{maybe "—" show manifest.activatedAt}</p>
            </div>
        </div>

        {forEach (maybeText manifest.capabilityDescription) renderCapabilityDesc}
        {forEach (maybeText manifest.contact) renderContactLine}

        <div class="grid grid-cols-2 gap-4">
            {jsonArraySection "Declared Widget Types" manifest.declaredWidgetTypes}
            {jsonArraySection "Declared Event Types" manifest.declaredEventTypes}
            {jsonArraySection "Declared Annotation Categories" manifest.declaredAnnotationCategories}
            {jsonArraySection "Declared Policy Scopes" manifest.declaredPolicyScopes}
        </div>
    |]

manifestActions :: HubCapabilityManifest -> Html
manifestActions manifest
    | manifest.status == "draft" = [hsx|
        <div class="mb-4 flex gap-2">
            <a href={EditHubCapabilityManifestAction (manifest.id)}
               class="text-sm border border-indigo-300 text-indigo-700 px-3 py-1.5 rounded hover:bg-indigo-50">
                Edit Draft
            </a>
            <a href={ActivateManifestAction (manifest.id)}
               class="text-sm bg-green-600 text-white px-3 py-1.5 rounded hover:bg-green-700">
                Activate
            </a>
        </div>
    |]
    | manifest.status == "active" = [hsx|
        <div class="mb-4">
            <a href={RetireManifestAction (manifest.id)}
               data-confirm="Retire this manifest? The hub's types will remain registered."
               class="text-sm border border-gray-300 text-gray-600 px-3 py-1.5 rounded hover:bg-gray-50">
                Retire
            </a>
        </div>
    |]
    | otherwise = mempty

renderCapabilityDesc :: Text -> Html
renderCapabilityDesc d = [hsx|<p class="text-sm text-gray-600 mb-4">{d}</p>|]

renderContactLine :: Text -> Html
renderContactLine c = [hsx|<p class="text-xs text-gray-400 mb-6">Contact: {c}</p>|]

jsonArraySection :: Text -> Value -> Html
jsonArraySection title val = [hsx|
    <div class="bg-white rounded-lg border border-gray-200 p-4">
        <h3 class="text-sm font-semibold text-gray-700 mb-2">{title}
            <span class="text-gray-400 font-normal ml-1">({arrayLen val})</span>
        </h3>
        {renderArrayItems val}
    </div>
|]

renderArrayItems :: Value -> Html
renderArrayItems (Array v) | V.null v =
    [hsx|<p class="text-xs text-gray-400">None declared</p>|]
renderArrayItems (Array v) = [hsx|
    <ul class="space-y-1">
        {forEach (V.toList v) renderItem}
    </ul>
|]
renderArrayItems _ = [hsx|<p class="text-xs text-gray-400">—</p>|]

renderItem :: Value -> Html
renderItem (String t) = [hsx|<li class="font-mono text-xs text-gray-700">{t}</li>|]
renderItem v          = [hsx|<li class="font-mono text-xs text-gray-500">{cs (BL.unpack (encode v)) :: Text}</li>|]

arrayLen :: Value -> Text
arrayLen (Array v) = tshow (V.length v)
arrayLen _         = "0"

statusBadge :: Text -> Html
statusBadge "active"  = [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">active</span>|]
statusBadge "draft"   = [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft</span>|]
statusBadge "retired" = [hsx|<span class="px-2 py-0.5 rounded text-xs bg-gray-100 text-gray-500">retired</span>|]
statusBadge s         = [hsx|<span class="px-2 py-0.5 rounded text-xs bg-gray-100 text-gray-600">{s}</span>|]

maybeText :: Maybe Text -> [Text]
maybeText Nothing  = []
maybeText (Just t) = [t]