 (seesaw.core/listen exit-button
                     :action (fn [e] (System/exit 0)))
 
+(seesaw.bind/bind tiles
+                  (seesaw.bind/transform #(-> %
+                                              vals
+                                              (concat [add-button])))
+                  (seesaw.bind/property site-tiles :items))
+
 (def main-window
   (seesaw.core/frame
    :title "gpckwlf"

(ns gpckwlf.app
  "Main application."
  (:require [seesaw core]
            [gpckwlf seesaw]))

(def login-username
  (seesaw.core/text :id :username))

  (seesaw.core/scrollable
   (gpckwlf.seesaw/wrap-panel
    :align :left
    :items (concat (vals @tiles)
                   [add-button])
;    :items
;    ["These" "will" "be" "tiles." "Look" "how" "they" "rearrange"
;     "themselves." "Isn't" "that" "cool?"]
    )
   :hscroll :never
   :vscroll :as-needed))

