Replace env free-variable threading with IO-primitive auto-fetch macros

Layout components now self-resolve context (cart-mini, auth-menu, nav-tree,
rights, URLs) via new IO primitives (root-header-ctx, select-colours,
account-nav-ctx, app-rights) and defmacro wrappers (~root-header-auto,
~auth-header-row-auto, ~root-mobile-auto). This eliminates _ctx_to_env(),
HELPER_CSS_CLASSES, and verbose :key threading across all 10 services.

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

market/sx/grids.sx

@@ -1,11 +1,14 @@
 ;; Market grid and layout components
 
 (defcomp ~market-markets-grid (&key cards)
-  (div :class "max-w-full px-3 py-3 grid grid-cols-1 sm:grid-cols-2 md:grid-cols-3 gap-4" cards))
+  (<> (div :class "max-w-full px-3 py-3 grid grid-cols-1 sm:grid-cols-2 md:grid-cols-3 gap-4" cards) (div :class "pb-8")))
 
 (defcomp ~market-product-grid (&key cards)
   (<> (div :class "grid grid-cols-1 sm:grid-cols-3 md:grid-cols-6 gap-3" cards) (div :class "pb-8")))
 
+(defcomp ~market-admin-content-wrap (&key inner)
+  (div :id "main-panel" inner))
+
 (defcomp ~market-like-toggle-button (&key colour action hx-headers label icon-cls)
   (button :class (str "flex items-center gap-1 " colour " hover:text-red-600 transition-colors w-[1em] h-[1em]")
           :sx-post action :sx-target "this" :sx-swap "outerHTML" :sx-push-url "false"

market/sx/headers.sx

@@ -4,7 +4,7 @@
   (div :class "font-bold text-xl flex-shrink-0 flex gap-2 items-center"
     (div (i :class "fa fa-shop") " " title)
     (div :class "flex flex-col md:flex-row md:gap-2 text-xs"
-      (div top-slug) sub-div)))
+      (div top-slug) (when sub-div (div sub-div)))))
 
 (defcomp ~market-product-label (&key title)
   (<> (i :class "fa fa-shopping-bag" :aria-hidden "true") (div title)))

market/sx/layouts.sx

@@ -1,12 +1,10 @@
-;; Market layout defcomps — root header from env free variables,
+;; Market layout defcomps — root header via ~root-header-auto,
 ;; market-specific headers passed as &key params.
 
 ;; --- Browse layout: root + post header + market header ---
 
 (defcomp ~market-browse-layout-full (&key post-header market-header)
-  (<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
-                     :app-label app-label :nav-tree nav-tree :auth-menu auth-menu
-                     :nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
+  (<> (~root-header-auto)
     (~header-child-sx :inner (<> post-header market-header))))
 
 (defcomp ~market-browse-layout-oob (&key oob-header post-header-oob clear-oob)
@@ -15,25 +13,19 @@
 ;; --- Product layout: root + post + market + product ---
 
 (defcomp ~market-product-layout-full (&key post-header market-header product-header)
-  (<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
-                     :app-label app-label :nav-tree nav-tree :auth-menu auth-menu
-                     :nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
+  (<> (~root-header-auto)
     (~header-child-sx :inner (<> post-header market-header product-header))))
 
 ;; --- Product admin layout: root + post + market + product + admin ---
 
 (defcomp ~market-product-admin-layout-full (&key post-header market-header product-header admin-header)
-  (<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
-                     :app-label app-label :nav-tree nav-tree :auth-menu auth-menu
-                     :nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
+  (<> (~root-header-auto)
     (~header-child-sx :inner (<> post-header market-header product-header admin-header))))
 
 ;; --- Market admin layout: root + post + market + market-admin ---
 
 (defcomp ~market-admin-layout-full (&key post-header market-header admin-header)
-  (<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
-                     :app-label app-label :nav-tree nav-tree :auth-menu auth-menu
-                     :nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
+  (<> (~root-header-auto)
     (~header-child-sx :inner (<> post-header market-header admin-header))))
 
 (defcomp ~market-admin-layout-oob (&key market-header-oob admin-oob-header clear-oob)