     (on-ui
      (set-content-view! this
                         (main-layout this)))
-    (on-ui
-     (set-elmt ::listing @listing))))
+    (on-ui (set-elmt ::listing (format-listing @listing)))))

        (DatePickerDialog. activity this year month day)))
     (onDateSet [view year month day]
       (set-elmt ::date
         (format "%02d/%02d/%02d" year (inc month) day)))))

(defn show-picker [activity dp]
  (. dp show (. activity getFragmentManager) "datePicker"))

(defn main-layout [activity]
  [:linear-layout {:orientation :vertical,

  (str (.getText (elmt (.getTag mylayout)))))

(defn add-event []
  (let [date-key (try
                   (read-string (get-elmt ::date))
                   (catch RuntimeException e "Date string is empty!"))]
    (log/d "add-event. date-key: " date-key)
    (log/d "add-event. Current val of listing: " @listing)
    (when (number? date-key)
      (swap! listing update-in [date-key] (fnil conj []) [(get-elmt ::location) (get-elmt ::name)])
      (update-ui))))

(defn date-picker [activity]
  (proxy [DialogFragment DatePickerDialog$OnDateSetListener] []
