   (proxy [DialogFragment DatePickerDialog$OnDateSetListener] []
     (onCreateDialog [savedInstanceState]
       (let [c (Calendar/getInstance)
-        year (.get c Calendar/YEAR)
-        month (.get c Calendar/MONTH)
-        day (.get c Calendar/DAY_OF_MONTH)]
+            year (.get c Calendar/YEAR)
+            month (.get c Calendar/MONTH)
+            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)))))
+                     (format "%d%02d%02d" year (inc month) day)))))
 
 (defn time-picker [activity]
   (proxy [DialogFragment TimePickerDialog$OnTimeSetListener] []

      (TimePickerDialog. activity this 0 0 true))
    (onTimeSet [view hourOfDay minute]
      (set-elmt-text activity ::time
        (format "%d"  (+ (* hourOfDay 60) minute))))))

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

  (onCreate [this bundle]
    (.superOnCreate this bundle)
    (on-ui (set-content-view! (*a) (main-layout (*a))))))

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

(defn sorted-map-array-to-array-task [lst]
  (mapcat identity (map (fn [sorted-map-data]
                          (into [] (map-indexed (fn [i ele] (apply ->Task (concat [(first sorted-map-data)] ele [i]))) (second sorted-map-data))))
                        lst)))

(defn make-date-adapter []
  (adapters/ref-adapter
    (fn [_]
      [:linear-layout {:id-holder   true
                       :orientation :vertical}
       [:text-view {:id ::date-tv}]
       [:text-view {:id ::event-tv}]])
    (fn [_ view _ task]
      (let [date-view (find-view view ::date-tv)
            event-view (find-view view ::event-tv)]
