(defcomp
  (&key category primitives)
  (div
    (~tw :tokens "space-y-2")
    (h4 (~tw :tokens "text-lg font-semibold text-stone-700") category)
    (div
      (~tw :tokens "flex flex-wrap gap-2")
      (map
        (fn
          (p)
          (span
            (~tw :tokens "inline-block px-2 py-1 rounded bg-stone-100 font-mono text-sm text-stone-700")
            p))
        primitives))))