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

48
market/sx/meta.sx
View File

@@ -1,21 +1,21 @@
;; Market meta/SEO components
(defcomp ~market-meta-title (&key (title :as string))
(defcomp ~meta/title (&key (title :as string))
(title title))
(defcomp ~market-meta-description (&key (description :as string))
(defcomp ~meta/description (&key (description :as string))
(meta :name "description" :content description))
(defcomp ~market-meta-canonical (&key (href :as string))
(defcomp ~meta/canonical (&key (href :as string))
(link :rel "canonical" :href href))
(defcomp ~market-meta-og (&key (property :as string) (content :as string))
(defcomp ~meta/og (&key (property :as string) (content :as string))
(meta :property property :content content))
(defcomp ~market-meta-twitter (&key (name :as string) (content :as string))
(defcomp ~meta/twitter (&key (name :as string) (content :as string))
(meta :name name :content content))
(defcomp ~market-meta-jsonld (&key (json :as string))
(defcomp ~meta/jsonld (&key (json :as string))
(script :type "application/ld+json" (~rich-text :html json)))
@@ -23,30 +23,30 @@
;; Composition: all product meta tags from data
;; ---------------------------------------------------------------------------
(defcomp ~market-product-meta-from-data (&key (title :as string) (description :as string) (canonical :as string?)
(defcomp ~meta/product-meta-from-data (&key (title :as string) (description :as string) (canonical :as string?)
(image-url :as string?)
(site-title :as string) (brand :as string?) (price :as string?) (price-currency :as string?)
(jsonld-json :as string))
(<>
(~market-meta-title :title title)
(~market-meta-description :description description)
(when canonical (~market-meta-canonical :href canonical))
(~meta/title :title title)
(~meta/description :description description)
(when canonical (~meta/canonical :href canonical))
;; OpenGraph
(~market-meta-og :property "og:site_name" :content site-title)
(~market-meta-og :property "og:type" :content "product")
(~market-meta-og :property "og:title" :content title)
(~market-meta-og :property "og:description" :content description)
(when canonical (~market-meta-og :property "og:url" :content canonical))
(when image-url (~market-meta-og :property "og:image" :content image-url))
(~meta/og :property "og:site_name" :content site-title)
(~meta/og :property "og:type" :content "product")
(~meta/og :property "og:title" :content title)
(~meta/og :property "og:description" :content description)
(when canonical (~meta/og :property "og:url" :content canonical))
(when image-url (~meta/og :property "og:image" :content image-url))
(when (and price price-currency)
(<> (~market-meta-og :property "product:price:amount" :content price)
(~market-meta-og :property "product:price:currency" :content price-currency)))
(when brand (~market-meta-og :property "product:brand" :content brand))
(<> (~meta/og :property "product:price:amount" :content price)
(~meta/og :property "product:price:currency" :content price-currency)))
(when brand (~meta/og :property "product:brand" :content brand))
;; Twitter
(~market-meta-twitter :name "twitter:card"
(~meta/twitter :name "twitter:card"
:content (if image-url "summary_large_image" "summary"))
(~market-meta-twitter :name "twitter:title" :content title)
(~market-meta-twitter :name "twitter:description" :content description)
(when image-url (~market-meta-twitter :name "twitter:image" :content image-url))
(~meta/twitter :name "twitter:title" :content title)
(~meta/twitter :name "twitter:description" :content description)
(when image-url (~meta/twitter :name "twitter:image" :content image-url))
;; JSON-LD
(~market-meta-jsonld :json jsonld-json)))
(~meta/jsonld :json jsonld-json)))