Seesaw radio button binding example

radio-binding.clj

(use 'seesaw.core)
(require '[seesaw.bind :as b])

(def f (let [bg (button-group)
             f  (-> (frame :title "test"
                  :content (border-panel :center (text :id :text :text "hi")
                                         :south (horizontal-panel :items
                                                  [(radio :group bg :text "enabled")
                                                   (radio :group bg :text "disabled")])))
           pack!
           show!)]

          (b/bind (b/selection bg)
                  ; when a radio button is clicked the selection temporarily goes to nil
                  ; so filter those out
                  (b/filter identity)
                  (b/transform #(= "enabled" (text %)))
                  (b/property (select f [:#text]) :enabled?)) 
        f))