   (seesaw.core/scrollable
    (gpckwlf.seesaw/wrap-panel
     :align :left
-    :items ["These" "will" "be" "tiles." "Look" "how" "they" "rearrange"
-            "themselves." "Isn't" "that" "cool?"])
+    :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))
 

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

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

(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"
