module Web.View.DeploymentRecords.Index where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()
import Data.Int (Int16)

data IndexView = IndexView
    { records     :: ![DeploymentRecord]
    , decisions   :: ![DecisionRecord]
    , signals     :: ![OutcomeSignal]
    , evaluations :: ![ChangeEvaluation]
    }

instance View IndexView where
    html IndexView { .. } = [hsx|
        <div class="flex items-center justify-between mb-6">
            <h1 class="text-2xl font-semibold">Deployments</h1>
            <a href={NewDeploymentRecordAction}
               class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
                New Deployment
            </a>
        </div>

        {if null records then noDeployments else renderTable records decisions signals evaluations}
    |]

noDeployments :: Html
noDeployments = [hsx|<p class="text-gray-500 text-sm">No deployment records yet.</p>|]

renderTable :: [DeploymentRecord] -> [DecisionRecord] -> [OutcomeSignal] -> [ChangeEvaluation] -> Html
renderTable records decisions signals evaluations = [hsx|
    <div class="bg-white rounded-lg border border-gray-200 overflow-hidden">
        <table class="w-full text-sm">
            <thead class="bg-gray-50 border-b border-gray-200">
                <tr>
                    <th class="text-left px-4 py-3 font-semibold text-gray-600">Decision</th>
                    <th class="text-left px-4 py-3 font-semibold text-gray-600">Version</th>
                    <th class="text-left px-4 py-3 font-semibold text-gray-600">Deployed At</th>
                    <th class="text-right px-4 py-3 font-semibold text-gray-600">Signals</th>
                    <th class="text-right px-4 py-3 font-semibold text-gray-600">Evaluation</th>
                </tr>
            </thead>
            <tbody>
                {forEach records (renderRow decisions signals evaluations)}
            </tbody>
        </table>
    </div>
|]

renderRow :: [DecisionRecord] -> [OutcomeSignal] -> [ChangeEvaluation] -> DeploymentRecord -> Html
renderRow decisions signals evaluations record = [hsx|
    <tr class="border-b border-gray-100 hover:bg-gray-50 last:border-0">
        <td class="px-4 py-3">
            <a href={ShowDeploymentRecordAction (record.id)}
               class="text-indigo-600 hover:text-indigo-800">{decisionTitle}</a>
        </td>
        <td class="px-4 py-3 font-mono text-gray-700">{record.versionRef}</td>
        <td class="px-4 py-3 text-gray-500">{show record.deployedAt}</td>
        <td class="px-4 py-3 text-right text-gray-600">{show signalCount}</td>
        <td class="px-4 py-3 text-right">
            {renderMaybeScore mScore}
        </td>
    </tr>
|]
  where
    decisionTitle = maybe "(unknown)" (.title) $
        find (\d -> d.id == record.decisionId) decisions
    signalCount = length $ filter (\s -> s.deploymentId == record.id) signals
    mScore :: Maybe Int
    mScore = fmap (.score) $ find (\e -> e.deploymentId == record.id) evaluations

renderMaybeScore :: Maybe Int -> Html
renderMaybeScore Nothing      = [hsx|<span class="text-gray-400">—</span>|]
renderMaybeScore (Just score) = renderScoreBadge score

renderScoreBadge :: Int -> Html
renderScoreBadge score = [hsx|
    <span class={scoreClass score <> " text-xs px-2 py-0.5 rounded font-medium"}>
        {starsFor score}
    </span>
|]

starsFor :: Int -> Text
starsFor n = cs (replicate n '★') <> cs (replicate (5 - n) '☆')

scoreClass :: Int -> Text
scoreClass n
    | n <= 2    = "bg-red-100 text-red-800"
    | n == 3    = "bg-yellow-100 text-yellow-800"
    | otherwise = "bg-green-100 text-green-800"