         (read-string (get-elmt activity ::time))
         (catch RuntimeException e "Time string is empty!"))]
     (when (number? date-key)
-      (swap! listing update-in [date-key] (fnil conj [])
-        [(get-elmt activity ::name) time-key])
+      (add-to-listing (get-elmt activity ::name) date-key time-key)
       (update-ui activity))))
 
 (defn date-picker [activity]

           android.graphics.Color
           java.util.Calendar
           android.app.Activity
           [android.app DatePickerDialog DatePickerDialog$OnDateSetListener]
           [android.app TimePickerDialog TimePickerDialog$OnTimeSetListener]
           android.app.DialogFragment))

      :text "+ Event",
      :on-click (fn [_] (add-event activity))}]
    [:list-view {
      :id ::days
      :draw-selector-on-top true
      :adapter (make-date-adapter activity)}]])

(defn get-elmt [activity elmt]
  (str (.getText ^TextView (find-view activity elmt))))
