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

module Web.View.WidgetPatterns.New where

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

data NewView = NewView
    { pattern     :: !WidgetPattern
    , hubs        :: ![Hub]
    , widgetTypes :: ![(Text, Text)]  -- (name, label)
    }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="mb-4">
            <a href={WidgetPatternsAction} class="text-sm text-gray-500 hover:text-gray-700">
                ← Widget Patterns
            </a>
        </div>
        <h1 class="text-2xl font-semibold mb-6">New Widget Pattern</h1>

        {renderForm pattern hubs widgetTypes}
    |]

renderForm :: WidgetPattern -> [Hub] -> [(Text, Text)] -> Html
renderForm pattern hubs widgetTypes = [hsx|
    <form method="POST" action={CreateWidgetPatternAction}>
        <div class="space-y-4 max-w-lg">
            <div>
                <label class="block text-sm font-medium text-gray-700 mb-1">Name</label>
                <input type="text" name="name" value={pattern.name}
                    class="w-full border border-gray-300 rounded px-3 py-2 text-sm" />
            </div>
            <div>
                <label class="block text-sm font-medium text-gray-700 mb-1">Hub</label>
                <select name="hubId" class="w-full border border-gray-300 rounded px-3 py-2 text-sm">
                    {forEach hubs renderHubOption}
                </select>
            </div>
            <div>
                <label class="block text-sm font-medium text-gray-700 mb-1">Widget Type</label>
                <select name="widgetType" class="w-full border border-gray-300 rounded px-3 py-2 text-sm font-mono">
                    {forEach widgetTypes renderWidgetTypeOption}
                </select>
            </div>
            <div>
                <label class="block text-sm font-medium text-gray-700 mb-1">Description</label>
                <textarea name="description" rows="3"
                    class="w-full border border-gray-300 rounded px-3 py-2 text-sm"
                    >{fromMaybe "" pattern.description}</textarea>
            </div>
            <button type="submit"
                class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
                Create Pattern
            </button>
        </div>
    </form>
|]

renderHubOption :: Hub -> Html
renderHubOption h = [hsx|<option value={tshow h.id}>{h.name}</option>|]

renderWidgetTypeOption :: (Text, Text) -> Html
renderWidgetTypeOption (n, l) = [hsx|<option value={n}>{l} ({n})</option>|]