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>
35 lines
1.7 KiB
Plaintext
35 lines
1.7 KiB
Plaintext
(defcomp ~calendar-entry-nav (&key (href :as string) (name :as string) (date-str :as string) (nav-class :as string?))
|
|
(a :href href :class nav-class
|
|
(div :class "w-8 h-8 rounded bg-stone-200 flex-shrink-0")
|
|
(div :class "flex-1 min-w-0"
|
|
(div :class "font-medium truncate" name)
|
|
(div :class "text-xs text-stone-600 truncate" date-str))))
|
|
|
|
(defcomp ~calendar-link-nav (&key (href :as string) (name :as string) (nav-class :as string?)
|
|
(is-selected :as string?) (select-colours :as string?))
|
|
(a :href href
|
|
:sx-get href
|
|
:sx-target "#main-panel"
|
|
:sx-select "#main-panel"
|
|
:sx-swap "outerHTML"
|
|
:sx-push-url "true"
|
|
:aria-selected (when is-selected "true")
|
|
:class (str (or nav-class "") " " (or select-colours ""))
|
|
(i :class "fa fa-calendar" :aria-hidden "true")
|
|
(span name)))
|
|
|
|
(defcomp ~market-link-nav (&key (href :as string) (name :as string) (nav-class :as string?)
|
|
(select-colours :as string?))
|
|
(a :href href :class (str (or nav-class "") " " (or select-colours ""))
|
|
(i :class "fa fa-shopping-bag" :aria-hidden "true")
|
|
(span name)))
|
|
|
|
(defcomp ~relation-nav (&key (href :as string) (name :as string) (icon :as string?)
|
|
(nav-class :as string?) (relation-type :as string?))
|
|
(a :href href :class (or nav-class "flex items-center gap-3 rounded-lg py-2 px-3 text-sm text-stone-700 hover:bg-stone-100 transition-colors")
|
|
(when icon
|
|
(div :class "w-8 h-8 rounded bg-stone-200 flex items-center justify-center flex-shrink-0"
|
|
(i :class icon :aria-hidden "true")))
|
|
(div :class "flex-1 min-w-0"
|
|
(div :class "font-medium truncate" name))))
|