(defcomp
  (&key (category :as string) (forms :as list))
  (div
    (~tw :tokens "space-y-4")
    (h3
      (~tw :tokens "text-xl font-semibold text-stone-800 border-b border-stone-200 pb-2")
      category)
    (div
      (~tw :tokens "space-y-4")
      (map
        (fn
          (f)
          (~docs/special-form-card
            :name (get f "name")
            :syntax (get f "syntax")
            :doc (get f "doc")
            :tail-position (get f "tail-position")
            :example (get f "example")))
        forms))))