              #(reduce (fn [l k] (assoc-in l [date-key k] (read-string (get-elmt activity k))))
                       %
                       [::date ::weight ::bf ::water ::muscle]))
+      (write-logfile activity (listing->csv @listing))
       (update-ui activity))))
 
 (defn date-picker [activity]

  (set-elmt activity ::water "")
  (set-elmt activity ::muscle ""))

(defn add-event [activity]
  (let [date-key (try
                   (read-string (get-elmt activity ::date))

(defn show-picker [^Activity activity dp]
  (. dp show (. activity getFragmentManager) "datePicker"))


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