 
 (defn add-event []
   (swap! listing str 
-     (apply format "%d - %s - %s\n" (map get-elmt [::date ::location ::name])))
+     (apply format "%s - %s - %s\n" (map get-elmt [::date ::location ::name])))
   (update-ui))
 
 

                :id ::name}]
   [:edit-text {:hint "Event location",
                :id ::location}]
   [:button {:text "...",
             :on-click (fn [_] (show-picker activity 
                                            (date-picker activity)))}]
   [:button {:text "+ Event",
             :on-click (fn [_](add-event))}]
   [:text-view {:text @listing,
                :id ::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"))
