giles
477ce766ff
Annotates ~500 defcomp params across 62 files: market (5), blog (7), cart (5), events (3), federation (4), account (3), orders (2), shared templates (11), sx docs (14), plus remaining spec fn params (z3, test-framework, adapter-dom, adapter-async, engine, eval). Total annotations in codebase: 1043. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
69 lines
3.1 KiB
Plaintext
69 lines
3.1 KiB
Plaintext
;; Market price display components
|
|
|
|
(defcomp ~market-price-special (&key (price :as string))
|
|
(div :class "text-lg font-semibold text-emerald-700" price))
|
|
|
|
(defcomp ~market-price-regular-strike (&key (price :as string))
|
|
(div :class "text-sm line-through text-stone-500" price))
|
|
|
|
(defcomp ~market-price-regular (&key (price :as string))
|
|
(div :class "mt-1 text-lg font-semibold" price))
|
|
|
|
(defcomp ~market-price-line (&key (inner :as list))
|
|
(div :class "mt-1 flex items-baseline gap-2 justify-center" inner))
|
|
|
|
(defcomp ~market-header-price-special-label ()
|
|
(div :class "text-md font-bold text-emerald-700" "Special price"))
|
|
|
|
(defcomp ~market-header-price-special (&key (price :as string))
|
|
(div :class "text-xl font-semibold text-emerald-700" price))
|
|
|
|
(defcomp ~market-header-price-strike (&key (price :as string))
|
|
(div :class "text-base text-md line-through text-stone-500" price))
|
|
|
|
(defcomp ~market-header-price-regular-label ()
|
|
(div :class "hidden md:block text-xl font-bold" "Our price"))
|
|
|
|
(defcomp ~market-header-price-regular (&key (price :as string))
|
|
(div :class "text-xl font-semibold" price))
|
|
|
|
(defcomp ~market-header-rrp (&key (rrp :as string))
|
|
(div :class "text-base text-stone-400" (span "rrp:") " " (span rrp)))
|
|
|
|
(defcomp ~market-prices-row (&key (inner :as list))
|
|
(div :class "flex flex-row items-center justify-between md:gap-2 md:px-2" inner))
|
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Composition: prices header + cart button from data
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defcomp ~market-prices-header-from-data (&key (cart-id :as string) (cart-action :as string) (csrf :as string) (quantity :as number?)
|
|
(cart-href :as string)
|
|
(sp-val :as number?) (sp-str :as string?) (rp-val :as number?) (rp-str :as string?) (rrp-str :as string?))
|
|
(~market-prices-row :inner
|
|
(<>
|
|
(if quantity
|
|
(~market-cart-add-quantity :cart-id cart-id :action cart-action :csrf csrf
|
|
:minus-val (str (- quantity 1)) :plus-val (str (+ quantity 1))
|
|
:quantity (str quantity) :cart-href cart-href)
|
|
(~market-cart-add-empty :cart-id cart-id :action cart-action :csrf csrf))
|
|
(when sp-val
|
|
(<> (~market-header-price-special-label)
|
|
(~market-header-price-special :price sp-str)
|
|
(when rp-val (~market-header-price-strike :price rp-str))))
|
|
(when (and (not sp-val) rp-val)
|
|
(<> (~market-header-price-regular-label)
|
|
(~market-header-price-regular :price rp-str)))
|
|
(when rrp-str (~market-header-rrp :rrp rrp-str)))))
|
|
|
|
;; Card price line from data (used in product cards)
|
|
(defcomp ~market-card-price-from-data (&key (sp-val :as number?) (sp-str :as string?) (rp-val :as number?) (rp-str :as string?))
|
|
(~market-price-line :inner
|
|
(<>
|
|
(when sp-val
|
|
(<> (~market-price-special :price sp-str)
|
|
(when rp-val (~market-price-regular-strike :price rp-str))))
|
|
(when (and (not sp-val) rp-val)
|
|
(~market-price-regular :price rp-str)))))
|