     (.superOnCreate this bundle)
     (on-ui
       (set-content-view! (*a) (main-layout (*a)))
-      (set-elmt (*a) ::listing (format-listing @listing)))
+      (swap! alphabet update-in [:letters] conj "echo")
+      )
     ))
    (onCreateDialog [savedInstanceState]
      (TimePickerDialog. activity this 0 0 true))
    (onTimeSet [view hourOfDay minute]
      (set-elmt activity ::time
        (format "%02d:%02d" hourOfDay minute)))))

(defactivity com.example.gt.metime.MainActivity
  :key :main

            [neko.debug :refer [*a]]
            [neko.ui :refer [config]]
            [neko.log :as log]
            [neko.ui.adapters :as adapters]
            [clojure.string :refer [join]]
            [neko.find-view :refer [find-view]]
            [neko.threading :refer [on-ui]])
  (:import [android.widget CursorAdapter TextView]
           android.graphics.Color
           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 picker picker-type]
  (. picker show (. activity getFragmentManager) picker-type))

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

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

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

(def alphabet
  (atom {:type :phonetic
         :letters ["alpha" "bravo" "charlie" "delta"]}))

(defn make-adapter []
  (adapters/ref-adapter
    (fn [_]
      [:linear-layout {:id-holder true}
       [:text-view {:id         ::caption-tv}]
       ])
    (fn [position view _ data]
      (let [tv (find-view view ::caption-tv)]
        (config tv :text (str position ". " data))

        ))
    alphabet
    :letters
    ))

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