         (DatePickerDialog. activity this year month day)))
      (onDateSet [view year month day]
        (set-elmt ::date
-         (format "%02d/%02d/%02d" year (inc month) day)))))
+         (format "%02d%02d%02d" year (inc month) day)))))
+         ;(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,

              :on-click (fn [_] (show-picker activity
                                            (date-picker activity)))}]]
   [:button {:text "+ Event",
             :on-click (fn [_] (add-event))}]
   [:text-view {:text @listing,
                :id ::listing}]])

(defn update-ui []
  (set-elmt ::listing @listing)
  (set-elmt ::location "")
  (set-elmt ::name ""))


(defactivity com.davidykay.helloclojure.MainActivity
  :key :main

  (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] []
