giles
7fda7a8027
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 1m38s
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>
18 lines
717 B
Plaintext
18 lines
717 B
Plaintext
;; Market header components
|
|
|
|
(defcomp ~market-shop-label (&key title top-slug sub-div)
|
|
(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) (when sub-div (div sub-div)))))
|
|
|
|
(defcomp ~market-product-label (&key title)
|
|
(<> (i :class "fa fa-shopping-bag" :aria-hidden "true") (div title)))
|
|
|
|
(defcomp ~market-admin-link (&key href hx-select)
|
|
(a :href href :sx-get href :sx-target "#main-panel"
|
|
:sx-select hx-select :sx-swap "outerHTML" :sx-push-url "true"
|
|
:class "px-2 py-1 text-stone-500 hover:text-stone-700"
|
|
(i :class "fa fa-cog" :aria-hidden "true")))
|
|
|