       :text "+ Event",
       :on-click (fn [_] (add-event activity))}]
     [:list-view {
-      :id ::listings
+      :id ::days
       :draw-selector-on-top true
-      :adapter (make-adapter)
-      ;:on-item-click (fn [_] (show-picker activity
-      ;  (date-picker activity) "timerActivity"))
-
-                 }]
-   ])
+      :adapter (make-date-adapter activity)}]])
 
 (defn get-elmt [activity elmt]
   (str (.getText ^TextView (find-view activity elmt))))

        (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])
      (update-ui activity))))

(defn date-picker [activity]

  (on-ui (config (find-view activity elmt) :text s)))

(defn update-ui [activity]
  (set-elmt-text activity ::name ""))

(defn add-to-listing [event-name date-key time-key]
  (swap! listing update-in [date-key] (fnil conj []) [event-name time-key]))

(defn add-event [activity]
  (let [
