feat(P6/T04): WidgetAdapterSpecsController, registry, widget adapter integration

CRUD for WidgetAdapterSpec (index, show, new/create, edit/update — status+notes only
after creation). Widget new/edit forms expose optional adapter_spec_id select.
Widget show page renders adapter badge with link to spec. Widgets controller
fetches adapter spec for show action.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Web/View/Widgets/Edit.hs

@@ -7,8 +7,9 @@ import IHP.ViewPrelude
 import Web.View.Widgets.New (renderForm)
 
 data EditView = EditView
-    { widget :: !Widget
-    , hubs   :: ![Hub]
+    { widget       :: !Widget
+    , hubs         :: ![Hub]
+    , adapterSpecs :: ![WidgetAdapterSpec]
     }
 
 instance View EditView where
@@ -22,6 +23,6 @@ instance View EditView where
                 <span>Edit</span>
             </div>
             <h1 class="text-2xl font-semibold mb-6">Edit Widget</h1>
-            {renderForm widget hubs}
+            {renderForm widget hubs adapterSpecs}
         </div>
     |]

Web/View/Widgets/New.hs

@@ -6,20 +6,21 @@ import IHP.Prelude
 import IHP.ViewPrelude
 
 data NewView = NewView
-    { widget :: !Widget
-    , hubs   :: ![Hub]
+    { widget       :: !Widget
+    , hubs         :: ![Hub]
+    , adapterSpecs :: ![WidgetAdapterSpec]
     }
 
 instance View NewView where
     html NewView { .. } = [hsx|
         <div class="max-w-lg">
             <h1 class="text-2xl font-semibold mb-6">Register Widget</h1>
-            {renderForm widget hubs}
+            {renderForm widget hubs adapterSpecs}
         </div>
     |]
 
-renderForm :: Widget -> [Hub] -> Html
-renderForm widget hubs = formFor widget [hsx|
+renderForm :: Widget -> [Hub] -> [WidgetAdapterSpec] -> Html
+renderForm widget hubs adapterSpecs = formFor widget [hsx|
     {textField #name}
     {selectField #widgetType widgetTypeOptions}
     {selectField #hubId (hubOptions hubs)}
@@ -27,6 +28,15 @@ renderForm widget hubs = formFor widget [hsx|
     {textField #viewContext}
     {selectField #policyScope policyScopeOptions}
     {selectField #status statusOptions}
+    <div>
+        <label class="ihp-form-label">Adapter Spec (optional — leave blank for native IHP widget)</label>
+        <select name="adapterSpecId" class="ihp-form-field">
+            <option value="">— Native IHP widget —</option>
+            {forEach adapterSpecs (\s -> [hsx|
+                <option value={tshow s.id}>{s.name} ({s.framework} v{s.version})</option>
+            |])}
+        </select>
+    </div>
     {submitButton}
 |]
 

Web/View/Widgets/Show.hs

@@ -15,6 +15,7 @@ data ShowView = ShowView
     , recentSignals :: ![OutcomeSignal]
     , isRegressed   :: !Bool
     , cycleCount    :: !Int
+    , mAdapterSpec  :: !(Maybe WidgetAdapterSpec)
     }
 
 instance View ShowView where
@@ -54,6 +55,7 @@ instance View ShowView where
                         <span class="ml-2 text-xs bg-gray-100 px-1.5 py-0.5 rounded">{widget.policyScope}</span>
                         <span class="ml-2 text-xs bg-green-100 text-green-700 px-1.5 py-0.5 rounded">{widget.status}</span>
                         <span class="ml-2 text-xs text-gray-400">v{show widget.version}</span>
+                        {renderAdapterBadge mAdapterSpec}
                     </p>
                 </div>
                 <a href={EditWidgetAction { widgetId = widget.id }}
@@ -222,3 +224,12 @@ signalTypeClass "regressed"    = "bg-red-100 text-red-800"
 signalTypeClass "neutral"      = "bg-gray-100 text-gray-600"
 signalTypeClass "inconclusive" = "bg-yellow-100 text-yellow-800"
 signalTypeClass _              = "bg-gray-100 text-gray-600"
+
+renderAdapterBadge :: Maybe WidgetAdapterSpec -> Html
+renderAdapterBadge Nothing = mempty
+renderAdapterBadge (Just s) = [hsx|
+    <a href={ShowWidgetAdapterSpecAction { widgetAdapterSpecId = s.id }}
+       class="ml-2 text-xs bg-purple-100 text-purple-700 px-1.5 py-0.5 rounded hover:bg-purple-200">
+        adapter: {s.name}
+    </a>
+|]