;; 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))