attempt at a gui built seesaw app

gistfile1.txt

(ns finance.core
  (:use [seesaw.core])
  (:require [seesaw.selector :as selector]))

(defn identify
  "Given a root widget, find all the named widgets and set their Seesaw :id
   so they can play nicely with select and everything."
  [root]
  (doseq [w (select root [:*])]
    (if-let [n (.getName w)]
      (selector/id-of! w (keyword n))))
  root)

(defn test-panel
  []
  (let [form (identify (gui.TestPanel.))]
    form))

(defn -main [& args]
  (invoke-later
    (let [form (test-panel)]
      (-> (frame :title "Hello",
             :content form,
             :on-close :exit)
       pack!
       show!))))