;; Miscellaneous shared components for Phase 3 conversion ;; The single place where raw! lives — for CMS content (Ghost post body, ;; product descriptions, etc.) that arrives as pre-rendered HTML. (defcomp ~rich-text (&key html) (raw! html)) (defcomp ~error-inline (&key message) (div :class "text-red-600 text-sm" message)) (defcomp ~notification-badge (&key count) (span :class "bg-red-500 text-white text-xs rounded-full px-1.5 py-0.5" count)) (defcomp ~cache-cleared (&key time-str) (span :class "text-green-600 font-bold" "Cache cleared at " time-str)) (defcomp ~error-list (&key items) (ul :class "list-disc pl-5 space-y-1 text-sm text-red-600" (when items items))) (defcomp ~error-list-item (&key message) (li message)) (defcomp ~fragment-error (&key service) (p :class "text-sm text-red-600" "Service " (b service) " is unavailable.")) (defcomp ~htmx-sentinel (&key id hx-get hx-trigger hx-swap class extra-attrs) (div :id id :sx-get hx-get :sx-trigger hx-trigger :sx-swap hx-swap :class class)) (defcomp ~nav-group-link (&key href hx-select nav-class label) (div :class "relative nav-group" (a :href href :sx-get href :sx-target "#main-panel" :sx-select hx-select :sx-swap "outerHTML" :sx-push-url "true" :class nav-class label)))