Clojure / seeseaw.core / table lazy-seq检索失败

时间:2017-12-19 16:17:03

标签: clojure jtable lazy-sequences seesaw

我的“(list-projects)”方法从SQLITE数据库中查询地图。

    (doall (apply prn (pm.models.db/list-projects)))    

pm.core==>{:id 1, :name "MyTestProj", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 2, :name "newproject1", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 3, :name "newproject1", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 4, :name "abc", :owner "def", :date "2017-12-19 13:12:45"} {:id 5, :name "abc", :owner "def", :date "2017-12-19 13:12:45"} {:id 6, :name "abc", :owner "def", :date "2017-12-19 13:12:45"} {:id 7, :name "newproject1", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 8, :name "", :owner "", :date strong text"2017-12-19 13:12:45"}

当我构造seesaw.core / frame / mig-panel / table(JFrame / JPanel / JTable)时,我想使用:row属性填充一个seesaw.core / table(Java JTable)和那些结果。

(def main-panel 
  (mig-panel
  :constraints ["fill, ins 0"]
  :items [[(seesaw.core/table
                  :id :tbl1
                  :size [640 :by 480]
                  :model [:columns [:id :name :owner :date]
                          :rows [(doall (apply prn (pm.models.db/list-projects)))]
                         ]) "grow"]
         ]))

2. Unhandled clojure.lang.Compiler$CompilerException
   Error compiling form-init4108264894568019320.clj at (44:16)
   ang.Thread/run

1. Caused by java.lang.IllegalArgumentException
   row must be a map or vector, got null

如果我插入地图{:id 1,:name“MyTestProj”,:所有者“mbc”,:date“2017-12-19 13:12:45”} {:id ....... 。} {} {} {} {} 直接,它工作正常,表中的行被正确填充,因此(doall(应用prn(pm.models.db / list-projects)))的输出格式是我需要的。

如何在seesaw.core / mig-panel的上下文中检索(我推测)lazy-seq? 谢谢 莫蒂默

1 个答案:

答案 0 :(得分:1)

pm.core> (pm.models.db/list-projects)
({:id 1, :name "MyTestProj", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 2, :name "newproject1", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 3, :name "newproject1", :owner "mbc", :date "2017-12-19 13:12:45"} {:id 4, :name "abc", :owner "def", :date "2017-12-19 13:12:45"} {:id 5, :name "abc", :owner "def", :date "2017-12-19 13:12:45"} )
pm.core> 

(pm.models.db / list-projects)产生一个列表,可以直接用作:rows键(无括号)的值。 :rows(pm.models.db / list-projects)

感谢Carcigenicate的建议。