inter-hub-haskell/Web/View/Widgets/Edit.hs

module Web.View.Widgets.Edit where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()
import Web.View.Widgets.New (renderForm)

data EditView = EditView
    { widget       :: !Widget
    , hubs         :: ![Hub]
    , adapterSpecs :: ![WidgetAdapterSpec]
    , widgetTypes  :: ![WidgetTypeRegistry]
    , policyScopes :: ![PolicyScopeRegistry]
    }

instance View EditView where
    html EditView { .. } = [hsx|
        <div class="max-w-lg">
            <div class="flex items-center gap-2 text-sm text-gray-500 mb-4">
                <a href={WidgetsAction} class="hover:text-gray-700">Widgets</a>
                <span>/</span>
                <a href={ShowWidgetAction (widget.id)} class="hover:text-gray-700">{widget.name}</a>
                <span>/</span>
                <span>Edit</span>
            </div>
            <h1 class="text-2xl font-semibold mb-6">Edit Widget</h1>
            {renderForm widget hubs adapterSpecs widgetTypes policyScopes}
        </div>
    |]