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>
16 lines
591 B
Plaintext
16 lines
591 B
Plaintext
;; Cart header components
|
|
|
|
(defcomp ~cart-page-label-img (&key src)
|
|
(img :src src :class "h-8 w-8 rounded-full object-cover border border-stone-300 flex-shrink-0"))
|
|
|
|
(defcomp ~cart-page-label (&key feature-image title)
|
|
(<> (when feature-image
|
|
(~cart-page-label-img :src feature-image))
|
|
(span title)))
|
|
|
|
(defcomp ~cart-all-carts-link (&key href)
|
|
(a :href href :class "inline-flex items-center gap-1.5 px-3 py-1.5 text-sm rounded-full border border-stone-300 bg-white hover:bg-stone-50 transition"
|
|
(i :class "fa fa-arrow-left text-xs" :aria-hidden "true") "All carts"))
|
|
|
|
|