giles
e8bc228c7f
Rename all sexp directories, files, identifiers, and references to sx. artdag/ excluded (separate media processing DSL). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
95 lines
4.6 KiB
Plaintext
95 lines
4.6 KiB
Plaintext
;; Events fragment components — served as HTML fragments for other apps.
|
|
;; container-cards entries, account page tickets, account page bookings.
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Container cards entries (fragments/container_cards_entries.html)
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defcomp ~events-frag-entry-card (&key href name date-str time-str)
|
|
(a :href href
|
|
:class "flex flex-col gap-1 px-3 py-2 bg-stone-50 hover:bg-stone-100 rounded border border-stone-200 transition text-sm whitespace-nowrap flex-shrink-0 min-w-[180px]"
|
|
(div :class "font-medium text-stone-900 truncate" name)
|
|
(div :class "text-xs text-stone-600" date-str)
|
|
(div :class "text-xs text-stone-500" time-str)))
|
|
|
|
(defcomp ~events-frag-entries-widget (&key cards)
|
|
(div :class "mt-4 mb-2"
|
|
(h3 :class "text-sm font-semibold text-stone-700 mb-2 px-2" "Events:")
|
|
(div :class "overflow-x-auto scrollbar-hide" :style "scroll-behavior: smooth;"
|
|
(div :class "flex gap-2 px-2" cards))))
|
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Account page tickets (fragments/account_page_tickets.html)
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defcomp ~events-frag-ticket-badge (&key state)
|
|
(cond
|
|
((= state "checked_in")
|
|
(span :class "inline-flex items-center rounded-full bg-blue-50 border border-blue-200 px-2.5 py-0.5 text-xs font-medium text-blue-700" "checked in"))
|
|
((= state "confirmed")
|
|
(span :class "inline-flex items-center rounded-full bg-emerald-50 border border-emerald-200 px-2.5 py-0.5 text-xs font-medium text-emerald-700" "confirmed"))
|
|
(true
|
|
(span :class "inline-flex items-center rounded-full bg-amber-50 border border-amber-200 px-2.5 py-0.5 text-xs font-medium text-amber-700" state))))
|
|
|
|
(defcomp ~events-frag-ticket-item (&key href entry-name date-str calendar-name type-name badge)
|
|
(div :class "py-4 first:pt-0 last:pb-0"
|
|
(div :class "flex items-start justify-between gap-4"
|
|
(div :class "min-w-0 flex-1"
|
|
(a :href href :class "text-sm font-medium text-stone-800 hover:text-emerald-700 transition"
|
|
entry-name)
|
|
(div :class "mt-1 flex flex-wrap items-center gap-x-3 gap-y-1 text-xs text-stone-500"
|
|
(span date-str)
|
|
calendar-name
|
|
type-name))
|
|
(div :class "flex-shrink-0" badge))))
|
|
|
|
(defcomp ~events-frag-tickets-panel (&key items)
|
|
(div :class "w-full max-w-3xl mx-auto px-4 py-6"
|
|
(div :class "bg-white/70 backdrop-blur rounded-2xl shadow border border-stone-200 p-6 sm:p-8 space-y-6"
|
|
(h1 :class "text-xl font-semibold tracking-tight" "Tickets")
|
|
items)))
|
|
|
|
(defcomp ~events-frag-tickets-empty ()
|
|
(p :class "text-sm text-stone-500" "No tickets yet."))
|
|
|
|
(defcomp ~events-frag-tickets-list (&key items)
|
|
(div :class "divide-y divide-stone-100" items))
|
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Account page bookings (fragments/account_page_bookings.html)
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defcomp ~events-frag-booking-badge (&key state)
|
|
(cond
|
|
((= state "confirmed")
|
|
(span :class "inline-flex items-center rounded-full bg-emerald-50 border border-emerald-200 px-2.5 py-0.5 text-xs font-medium text-emerald-700" "confirmed"))
|
|
((= state "provisional")
|
|
(span :class "inline-flex items-center rounded-full bg-amber-50 border border-amber-200 px-2.5 py-0.5 text-xs font-medium text-amber-700" "provisional"))
|
|
(true
|
|
(span :class "inline-flex items-center rounded-full bg-stone-50 border border-stone-200 px-2.5 py-0.5 text-xs font-medium text-stone-600" state))))
|
|
|
|
(defcomp ~events-frag-booking-item (&key name date-str calendar-name cost-str badge)
|
|
(div :class "py-4 first:pt-0 last:pb-0"
|
|
(div :class "flex items-start justify-between gap-4"
|
|
(div :class "min-w-0 flex-1"
|
|
(p :class "text-sm font-medium text-stone-800" name)
|
|
(div :class "mt-1 flex flex-wrap items-center gap-x-3 gap-y-1 text-xs text-stone-500"
|
|
(span date-str)
|
|
calendar-name
|
|
cost-str))
|
|
(div :class "flex-shrink-0" badge))))
|
|
|
|
(defcomp ~events-frag-bookings-panel (&key items)
|
|
(div :class "w-full max-w-3xl mx-auto px-4 py-6"
|
|
(div :class "bg-white/70 backdrop-blur rounded-2xl shadow border border-stone-200 p-6 sm:p-8 space-y-6"
|
|
(h1 :class "text-xl font-semibold tracking-tight" "Bookings")
|
|
items)))
|
|
|
|
(defcomp ~events-frag-bookings-empty ()
|
|
(p :class "text-sm text-stone-500" "No bookings yet."))
|
|
|
|
(defcomp ~events-frag-bookings-list (&key items)
|
|
(div :class "divide-y divide-stone-100" items))
|