(defcomp
  (&key (title :as string) (headers :as list))
  (~docs/headers-table
    :title title
    :rows (<>
      (map
        (fn
          (h)
          (~docs/headers-row
            :name (get h "name")
            :value (get h "value")
            :description (get h "desc")
            :href (get h "href")))
        headers))))