coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename all 1,169 components to path-based names with namespace support

Browse Source 
Component names now reflect filesystem location using / as path separator
and : as namespace separator for shared components:
  ~sx-header → ~layouts/header
  ~layout-app-body → ~shared:layout/app-body
  ~blog-admin-dashboard → ~admin/dashboard

209 files, 4,941 replacements across all services.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-12 22:00:12 +00:00
parent de80d921e9
commit b0920a1121
209 changed files with 4620 additions and 4620 deletions
Download Patch File Download Diff File Expand all files Collapse all files

122
events/sx/entries.sx
View File

@@ -4,8 +4,8 @@
;; State badges — cond maps state string to class + label
;; ---------------------------------------------------------------------------
(defcomp ~entry-state-badge (&key state)
(~badge
(defcomp ~entries/entry-state-badge (&key state)
(~shared:misc/badge
:cls (cond
((= state "confirmed") "bg-emerald-100 text-emerald-800")
((= state "provisional") "bg-amber-100 text-amber-800")
@@ -21,7 +21,7 @@
((= state "declined") "Declined")
(true (or state "Unknown")))))
(defcomp ~entry-state-badge-lg (&key state)
(defcomp ~entries/entry-state-badge-lg (&key state)
(span :class (str "inline-flex items-center rounded-full px-3 py-1 text-sm font-medium "
(cond
((= state "confirmed") "bg-emerald-100 text-emerald-800")
@@ -38,8 +38,8 @@
((= state "declined") "Declined")
(true (or state "Unknown")))))
(defcomp ~ticket-state-badge (&key state)
(~badge
(defcomp ~entries/ticket-state-badge (&key state)
(~shared:misc/badge
:cls (cond
((= state "confirmed") "bg-emerald-100 text-emerald-800")
((= state "checked_in") "bg-blue-100 text-blue-800")
@@ -53,7 +53,7 @@
((= state "cancelled") "Cancelled")
(true (or state "Unknown")))))
(defcomp ~ticket-state-badge-lg (&key state)
(defcomp ~entries/ticket-state-badge-lg (&key state)
(span :class (str "inline-flex items-center rounded-full px-3 py-1 text-sm font-medium "
(cond
((= state "confirmed") "bg-emerald-100 text-emerald-800")
@@ -73,36 +73,36 @@
;; Entry card components
;; ---------------------------------------------------------------------------
(defcomp ~events-entry-title-linked (&key href name)
(defcomp ~entries/entry-title-linked (&key href name)
(a :href href :class "hover:text-emerald-700"
(h2 :class "text-lg font-semibold text-stone-900" name)))
(defcomp ~events-entry-title-plain (&key name)
(defcomp ~entries/entry-title-plain (&key name)
(h2 :class "text-lg font-semibold text-stone-900" name))
(defcomp ~events-entry-title-tile-linked (&key href name)
(defcomp ~entries/entry-title-tile-linked (&key href name)
(a :href href :class "hover:text-emerald-700"
(h2 :class "text-base font-semibold text-stone-900 line-clamp-2" name)))
(defcomp ~events-entry-title-tile-plain (&key name)
(defcomp ~entries/entry-title-tile-plain (&key name)
(h2 :class "text-base font-semibold text-stone-900 line-clamp-2" name))
(defcomp ~events-entry-page-badge (&key href title)
(defcomp ~entries/entry-page-badge (&key href title)
(a :href href :class "inline-block px-2 py-0.5 rounded-full text-xs font-medium bg-amber-100 text-amber-800 hover:bg-amber-200" title))
(defcomp ~events-entry-cal-badge (&key name)
(defcomp ~entries/entry-cal-badge (&key name)
(span :class "inline-block px-2 py-0.5 rounded-full text-xs font-medium bg-sky-100 text-sky-700" name))
(defcomp ~events-entry-time-linked (&key href date-str)
(defcomp ~entries/entry-time-linked (&key href date-str)
(<> (a :href href :class "hover:text-stone-700" date-str) " · "))
(defcomp ~events-entry-time-plain (&key date-str)
(defcomp ~entries/entry-time-plain (&key date-str)
(<> (span date-str) " · "))
(defcomp ~events-entry-cost (&key cost)
(defcomp ~entries/entry-cost (&key cost)
(div :class "mt-1 text-sm font-medium text-green-600" cost))
(defcomp ~events-entry-card (&key title badges time-parts cost widget)
(defcomp ~entries/entry-card (&key title badges time-parts cost widget)
(article :class "rounded-xl bg-white shadow-sm border border-stone-200 p-4"
(div :class "flex flex-col sm:flex-row sm:items-start justify-between gap-3"
(div :class "flex-1 min-w-0"
@@ -112,7 +112,7 @@
cost)
widget)))
(defcomp ~events-entry-card-tile (&key title badges time cost widget)
(defcomp ~entries/entry-card-tile (&key title badges time cost widget)
(article :class "rounded-xl bg-white shadow-sm border border-stone-200 overflow-hidden"
(div :class "p-3"
title
@@ -121,20 +121,20 @@
cost)
widget))
(defcomp ~events-entry-tile-widget-wrapper (&key widget)
(defcomp ~entries/entry-tile-widget-wrapper (&key widget)
(div :class "border-t border-stone-100 px-3 py-2" widget))
(defcomp ~events-entry-widget-wrapper (&key widget)
(defcomp ~entries/entry-widget-wrapper (&key widget)
(div :class "shrink-0" widget))
(defcomp ~events-date-separator (&key date-str)
(defcomp ~entries/date-separator (&key date-str)
(div :class "pt-2 pb-1"
(h3 :class "text-sm font-semibold text-stone-500 uppercase tracking-wide" date-str)))
(defcomp ~events-grid (&key grid-cls cards)
(defcomp ~entries/grid (&key grid-cls cards)
(div :class grid-cls cards))
(defcomp ~events-main-panel-body (&key toggle body)
(defcomp ~entries/main-panel-body (&key toggle body)
(<> toggle body (div :class "pb-8")))
@@ -143,46 +143,46 @@
;; ---------------------------------------------------------------------------
;; Ticket widget from data — replaces _ticket_widget_html Python composition
(defcomp ~events-tw-widget-from-data (&key entry-id price qty ticket-url csrf)
(~events-tw-widget :entry-id (str entry-id) :price price
(defcomp ~entries/tw-widget-from-data (&key entry-id price qty ticket-url csrf)
(~page/tw-widget :entry-id (str entry-id) :price price
:inner (if (= (or qty 0) 0)
(~events-tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
(~page/tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
:csrf csrf :entry-id (str entry-id) :count-val "1"
:btn (~events-tw-cart-plus))
:btn (~page/tw-cart-plus))
(<>
(~events-tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
(~page/tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
:csrf csrf :entry-id (str entry-id) :count-val (str (- qty 1))
:btn (~events-tw-minus))
(~events-tw-cart-icon :qty (str qty))
(~events-tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
:btn (~page/tw-minus))
(~page/tw-cart-icon :qty (str qty))
(~page/tw-form :ticket-url ticket-url :target (str "#page-ticket-" entry-id)
:csrf csrf :entry-id (str entry-id) :count-val (str (+ qty 1))
:btn (~events-tw-plus))))))
:btn (~page/tw-plus))))))
;; Entry card (list view) from data
(defcomp ~events-entry-card-from-data (&key entry-href name day-href
(defcomp ~entries/entry-card-from-data (&key entry-href name day-href
page-badge-href page-badge-title cal-name
date-str start-time end-time is-page-scoped
cost has-ticket ticket-data)
(~events-entry-card
(~entries/entry-card
:title (if entry-href
(~events-entry-title-linked :href entry-href :name name)
(~events-entry-title-plain :name name))
(~entries/entry-title-linked :href entry-href :name name)
(~entries/entry-title-plain :name name))
:badges (<>
(when page-badge-title
(~events-entry-page-badge :href page-badge-href :title page-badge-title))
(~entries/entry-page-badge :href page-badge-href :title page-badge-title))
(when cal-name
(~events-entry-cal-badge :name cal-name)))
(~entries/entry-cal-badge :name cal-name)))
:time-parts (<>
(when (and day-href (not is-page-scoped))
(~events-entry-time-linked :href day-href :date-str date-str))
(~entries/entry-time-linked :href day-href :date-str date-str))
(when (and (not day-href) (not is-page-scoped) date-str)
(~events-entry-time-plain :date-str date-str))
(~entries/entry-time-plain :date-str date-str))
start-time
(when end-time (str " \u2013 " end-time)))
:cost (when cost (~events-entry-cost :cost cost))
:cost (when cost (~entries/entry-cost :cost cost))
:widget (when has-ticket
(~events-entry-widget-wrapper
:widget (~events-tw-widget-from-data
(~entries/entry-widget-wrapper
:widget (~entries/tw-widget-from-data
:entry-id (get ticket-data "entry-id")
:price (get ticket-data "price")
:qty (get ticket-data "qty")
@@ -190,24 +190,24 @@
:csrf (get ticket-data "csrf"))))))
;; Entry card (tile view) from data
(defcomp ~events-entry-card-tile-from-data (&key entry-href name day-href
(defcomp ~entries/entry-card-tile-from-data (&key entry-href name day-href
page-badge-href page-badge-title cal-name
date-str time-str
cost has-ticket ticket-data)
(~events-entry-card-tile
(~entries/entry-card-tile
:title (if entry-href
(~events-entry-title-tile-linked :href entry-href :name name)
(~events-entry-title-tile-plain :name name))
(~entries/entry-title-tile-linked :href entry-href :name name)
(~entries/entry-title-tile-plain :name name))
:badges (<>
(when page-badge-title
(~events-entry-page-badge :href page-badge-href :title page-badge-title))
(~entries/entry-page-badge :href page-badge-href :title page-badge-title))
(when cal-name
(~events-entry-cal-badge :name cal-name)))
(~entries/entry-cal-badge :name cal-name)))
:time time-str
:cost (when cost (~events-entry-cost :cost cost))
:cost (when cost (~entries/entry-cost :cost cost))
:widget (when has-ticket
(~events-entry-tile-widget-wrapper
:widget (~events-tw-widget-from-data
(~entries/entry-tile-widget-wrapper
:widget (~entries/tw-widget-from-data
:entry-id (get ticket-data "entry-id")
:price (get ticket-data "price")
:qty (get ticket-data "qty")
@@ -215,13 +215,13 @@
:csrf (get ticket-data "csrf"))))))
;; Entry cards list (with date separators + sentinel) from data
(defcomp ~events-entry-cards-from-data (&key items view page has-more next-url)
(defcomp ~entries/entry-cards-from-data (&key items view page has-more next-url)
(<>
(map (lambda (item)
(if (get item "is-separator")
(~events-date-separator :date-str (get item "date-str"))
(~entries/date-separator :date-str (get item "date-str"))
(if (= view "tile")
(~events-entry-card-tile-from-data
(~entries/entry-card-tile-from-data
:entry-href (get item "entry-href") :name (get item "name")
:day-href (get item "day-href")
:page-badge-href (get item "page-badge-href")
@@ -230,7 +230,7 @@
:date-str (get item "date-str") :time-str (get item "time-str")
:cost (get item "cost") :has-ticket (get item "has-ticket")
:ticket-data (get item "ticket-data"))
(~events-entry-card-from-data
(~entries/entry-card-from-data
:entry-href (get item "entry-href") :name (get item "name")
:day-href (get item "day-href")
:page-badge-href (get item "page-badge-href")
@@ -243,20 +243,20 @@
:ticket-data (get item "ticket-data")))))
(or items (list)))
(when has-more
(~sentinel-simple :id (str "sentinel-" page) :next-url next-url))))
(~shared:misc/sentinel-simple :id (str "sentinel-" page) :next-url next-url))))
;; Events main panel (toggle + cards grid) from data
(defcomp ~events-main-panel-from-data (&key toggle items view page has-more next-url)
(~events-main-panel-body
(defcomp ~entries/main-panel-from-data (&key toggle items view page has-more next-url)
(~entries/main-panel-body
:toggle toggle
:body (if items
(~events-grid
(~entries/grid
:grid-cls (if (= view "tile")
"max-w-full px-3 py-3 grid grid-cols-1 sm:grid-cols-2 md:grid-cols-3 gap-4"
"max-w-full px-3 py-3 space-y-3")
:cards (~events-entry-cards-from-data
:cards (~entries/entry-cards-from-data
:items items :view view :page page
:has-more has-more :next-url next-url))
(~empty-state :icon "fa fa-calendar-xmark"
(~shared:misc/empty-state :icon "fa fa-calendar-xmark"
:message "No upcoming events"
:cls "px-3 py-12 text-center text-stone-400"))))