 (def service-id "00ff")
 (def characteristic-id "ff01")
 
-(defn control-button [label on-press on-release]
+(defn touch-button [label on-press on-release]
   [v.common/touchable-highlight
    {:style {:background-color "#494" :width 100 :height 100 :margin 5 :border-radius 5}
     :justify-content "center"

      (fn []
        [v.common/view
         [v.common/touchable-highlight {:style {:background-color "#999" :padding 10 :width "100%"}
                               :on-press #(dispatch [:set-page nil])}
          [v.common/text {:style {:color "#fff"}}
           "<< back to top"]]
           [v.common/view {:style {:flex-direction "column" :align-items "flex-start" :margin 10}}

             (:name @current-device)]
            [v.common/text (:id @current-device)]]
         (if @connected?
           [tile-buttons]
           [v.common/view {:style {:align-content "center" :align-self "center"}}
            [v.common/text "connecting"]])])
      :component-will-mount (fn []
