       :on-click (fn [_] (add-event activity))}]
     [:text-view {
       :text (format-listing @listing)
-      :id ::listing}]])
+      :id ::listing}]
+    [:list-view {
+      :id ::listings
+      :draw-selector-on-top true
+      :adapter (make-adapter)
+      ;:on-item-click (fn [_] (show-picker activity
+      ;  (date-picker activity) "timerActivity"))
+
+                 }]
+   ])
 
 (defn get-elmt [activity elmt]
   (str (.getText ^TextView (find-view activity elmt))))
 
-(defn set-elmt [activity elmt s]
+(defn set-elmt-text [activity elmt s]
   (on-ui (config (find-view activity elmt) :text s)))
 
+;(defn update-listings [activity]
+;  (on-ui (config (find-view activity ::listings) :adapter (timer-adapter activity @listing))))
+
 (defn update-ui [activity]
-  (set-elmt activity ::listing (format-listing @listing))
-  (set-elmt activity ::name ""))
+  (set-elmt-text activity ::listing (format-listing @listing))
+  (set-elmt-text activity ::name "")
+  (swap! alphabet update-in [:letters] conj "echo")
+  )
 
 (defn add-event [activity]
-  (let [date-key (try
-      (read-string (get-elmt activity ::date))
-      (catch RuntimeException e "Date string is empty!"))]
+  (let [
+      date-key (try
+        (read-string (get-elmt activity ::date))
+        (catch RuntimeException e "Date string is empty!"))
+      time-key (try
+        (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)])
+        [(get-elmt activity ::name) time-key])
       (update-ui activity))))
 
 (defn date-picker [activity]

            [neko.debug :refer [*a]]
            [neko.ui :refer [config]]
            [neko.log :as log]
            [clojure.string :refer [join]]
            [neko.find-view :refer [find-view]]
            [neko.threading :refer [on-ui]])
  (:import android.widget.TextView
           (java.util Calendar)
           (android.app Activity)
           (android.app DatePickerDialog DatePickerDialog$OnDateSetListener)
           (android.app TimePickerDialog TimePickerDialog$OnTimeSetListener)
           (android.app DialogFragment)))

(declare add-event)
(declare date-picker)
(declare time-picker)

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

(def listing (atom (sorted-map)))

(defn format-events [events]
  (->> (map (fn [[event]]
    (format "%s\n" event))
    events)
  (join "                      ")))

(defn format-listing [lst]
  (->> (map (fn [[date events]]
      (format "%s - %s" date (format-events events)))
    lst)
  join))

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

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

(defn time-picker [activity]
