                     :padding-right  10}}
       [touchable-highlight
        {:style    defaults
-        :on-press #(let [put-fn @put-fn-atom]
-                     (put-fn [:healthkit/weight]))}
+        :on-press #(put-fn [:healthkit/weight])}
        [text {:style {:color       "white"
                       :text-align  "center"
                       :font-weight "bold"}}
         "weight"]]
       [touchable-highlight
        {:style    defaults
-        :on-press #(let [put-fn @put-fn-atom]
-                     (put-fn [:healthkit/bp]))}
+        :on-press #(put-fn [:healthkit/bp])}
        [text {:style {:color       "white"
                       :text-align  "center"
                       :font-weight "bold"}}
         "bp"]]
       [touchable-highlight
        {:style    defaults
-        :on-press #(let [put-fn @put-fn-atom]
-                     (dotimes [n 2]
-                       (put-fn [:healthkit/steps n])))}
+        :on-press #(dotimes [n 2]
+                     (put-fn [:healthkit/steps n]))}
        [text {:style {:color       "white"
                       :text-align  "center"
                       :font-weight "bold"}}
         "steps"]]
       [touchable-highlight
        {:style    defaults
-        :on-press #(let [put-fn @put-fn-atom]
-                     (put-fn [:healthkit/sleep]))}
+        :on-press #(put-fn [:healthkit/sleep])}
        [text {:style {:color       "white"
                       :text-align  "center"
                       :font-weight "bold"}}

                       :default-value  (:md @local)
                       :keyboard-type  "twitter"
                       :on-change-text (fn [text]
                                         (swap! local assoc-in [:md] text))}])]

       #_[text {:style {:font-size     10
                        :font-weight   "500"
                        :color         "#CCC"
                        :margin-bottom 20
                        :text-align    "center"}}
          (with-out-str (pp/pprint (second (last (sort-by first @entries)))))]
       #_[image {:source logo-img
                 :style  {:width         80
                          :height        80
                          :margin-bottom 5}}]
       ])))

(defn state-fn [put-fn]
  (let [app-root (app-root put-fn)
        register #(r/reactify-component app-root)]
    (.registerComponent app-registry "meo" register)
    (reset! put-fn-atom put-fn))
  {:observed rdb/app-db})

(defn cmp-map [cmp-id]

        (if (:cam @local) "hide cam" "ws")]]
      [touchable-highlight
       {:style    defaults
        :on-press #(put-fn [:sync/initiate])}
       [text {:style {:color       "white"
                      :text-align  "center"
                      :font-weight "bold"}}
        "sync"]]
      [touchable-highlight
       {:style    defaults
        :on-press #(put-fn [:state/reset])}
       [text {:style {:color       "white"
                      :text-align  "center"
                      :font-weight "bold"}}
