                            (set! (.-width params) (int fit-w))
                            (set! (.-height params) (int fit-h))
                            (on-ui
+                               (toast (format "Fit (%d x %d) to (%d x %d)"
+                                              width height
+                                              (int fit-w) (int fit-h)))
                                (doto surface
                                  (.setLayoutParams params)
                                  (.requestLayout)))
                            (when (and from to)
+                             (log/i "darknet" "stream-video" from to width height)
                              (server/stream-video from to width height)))))]
         (doto (.getHolder surface)
           (.setType SurfaceHolder/SURFACE_TYPE_PUSH_BUFFERS)

     (reify
       MediaPlayer$OnCompletionListener
       (onCompletion [this mp]
         (swap-view! activity (layout activity idle-screen)))))
    (.start))
  view)


(defn swap-view! [activity view]
  (replace-view! activity view))

(defn idle-screen [color]
  [:relative-layout {:layout-width :fill
                     :layout-height :fill}
   [:text-view {:text " °"
                :id ::status-indicator
                :text-size 50
                :text-color color}]])

(defn setup-video-view [view activity path]
  (doto view
