           (recur (inc tick)))))))
 
 
-(defn get-camera! []
+(defn get-camera! [skip-howto?]
   (swap! app-state assoc :camera-waiting? true)
   (take!
     (media/get-media)

                                    (max 1 (* vw 2))))
                     :canvas-node canvas
                     :ctx         (.getContext canvas "2d")
                     :show-about? true
                     :media-error nil})
                  (js/setTimeout start! 500))))
            (aset "srcObject" data)))
        (swap! app-state assoc :media-error data)))))


(defn make-gif [app ms]

    (reify
      om/IDidMount
      (did-mount [_]
        (when (.getItem js/localStorage ls-key)
          (swap! app-state assoc :previous-grant? true)
          (get-camera! true))

        (def playback-ctx
          (let [ctx (-> (om/get-node owner "playback") (.getContext "2d"))]
            (aset ctx "fillStyle" "#292929")
