Показать имена столбцов в таблице

Question

Я создал таблицу "sampletable". Я пытаюсь отобразить название столбцов. Я попытался добавить текст, но он все еще не показывает имена.

(def sampletable
  (seesaw/table :model
                [:columns [{:key :name, :text "Name"} :likes]
                 :rows [["Bobby" "Laura Palmer"]
                        ["Agent Cooper" "Cherry Pie"]
                        {:likes "Laura Palmer" :name "James"}
                        {:name "Big Ed" :likes "Norma Jennings"}]]))

Любая помощь будет оценена.

Answer 1

Попробуй это

(require '[seesaw.table])

(def sampletable
  (seesaw/table
   :model (seesaw.table/table-model
           :columns [{:key :name, :text "Name"} :likes]
           :rows [["Bobby" "Laura Palmer"]
                  ["Agent Cooper" "Cherry Pie"]
                  {:likes "Laura Palmer" :name "James"}
                  {:name "Big Ed" :likes "Norma Jennings"}])))