(defcomp
  (&key (target-id :as string) (text :as string))
  (div
    :id target-id
    :sx-swap-oob "innerHTML"
    (div
      (~tw :tokens "not-prose bg-stone-100 rounded p-4 mt-3")
      (pre (~tw :tokens "text-sm whitespace-pre-wrap break-words") (code text)))))
