Convert list of map to data table

maps-to-table.clj

(defn maps-to-table
  ([labels list-of-maps]
   (maps-to-table labels list-of-maps true))
  ([labels list-of-maps with-headers?]
   (let [header (when with-headers? [(mapv name labels)])
         data   (mapv (apply juxt labels) list-of-maps)]
     (if with-headers?
       (concat header data)
       data))))

(comment
  (maps-to-table [:col1 :col2]
                 [{:col1 "val1-col1" :col2 "val1-col2" :unused "not-relevant"}
                  {:col1 "val2-col1" :col2 "val2-col2"}])
  ;; => (["col1" "col2"]
  ;;     ["val1-col1" "val1-col2"]
  ;;     ["val2-col1" "val2-col2"])
  )