 (defn swap-view! [activity view]
   (replace-view! activity view))
 
-(def idle-screen
+(defn idle-screen [color]
   [:relative-layout {:layout-width :fill
                      :layout-height :fill}
    [:text-view {:text " °"
                 :id ::status-indicator
                 :text-size 50
-                :text-color Color/RED}]])
+                :text-color color}]])
 
 (defn setup-video-view [view activity path]
   (doto view

        (doto mjpeg-view
          ;; (.setResolution width height)
          (.setSource stream)
          (.setDisplayMode MjpegView/SIZE_BEST_FIT))))
    mjpeg-view))

(defn stream-view [^Context activity instruction]

                               "saveLocally" (save-locally! this instruction)
                               "viewRemote" (sv (view-remote this instruction))
                               "viewLocal" (sv (view-local this instruction))
                               "info" (sv (layout this [:text-view {:text
                                                                    (let [out (java.io.StringWriter.)]
                                                                      (pprint sizes out)
                                                                      (.toString out))}]))
                               "stop" (sv (layout this (idle-screen Color/GREEN)))
                               :default))))]
      (helper/fullscreen! this)
      (helper/keep-screen-on! this)
      (helper/landscape! this)
      (let [client (atom nil)]
        (letfn [(new-client []
                  (log/i "darknet" "new client called")
                  (reset! client
                          (websocket/connect!
                           (:ws-url config)
