diff --git a/sx/sxc/docs.sx b/sx/sxc/docs.sx index f5937e3..b4328e9 100644 --- a/sx/sxc/docs.sx +++ b/sx/sxc/docs.sx @@ -15,10 +15,9 @@ (h3 :class "text-xl font-semibold text-stone-700" title) children)) -(defcomp ~doc-code (&key language code) +(defcomp ~doc-code (&key code) (div :class "bg-stone-50 border border-stone-200 rounded-lg p-4 overflow-x-auto" - (pre :class "text-sm" - (code :class (str "language-" (or language "lisp")) code)))) + (pre :class "text-sm" (code code)))) (defcomp ~doc-note (&key &rest children) (div :class "border-l-4 border-violet-400 bg-violet-50 p-4 text-stone-700 text-sm" diff --git a/sx/sxc/examples.sx b/sx/sxc/examples.sx index 436d2d4..03a6cdc 100644 --- a/sx/sxc/examples.sx +++ b/sx/sxc/examples.sx @@ -13,8 +13,7 @@ (defcomp ~example-source (&key code) (div :class "bg-stone-50 border border-stone-200 rounded p-4 mt-3 overflow-x-auto" - (pre :class "text-sm" - (code :class "language-lisp" code)))) + (pre :class "text-sm" (code code)))) ;; --- Click to load demo ---