 
 
 (defn modal [{:keys [stream media-error show-about? result-gif cells win-state
-                     grid-size tick-ms gif-building? camera-waiting?] :as app}]
+                     grid-size tick-ms gif-building? camera-waiting?
+                     previous-grant?] :as app}]
   (let [winner?    (and cells (= cells win-state))
         no-stream? (not stream)]
     (dom/div

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

             "view cellf source"))

        no-stream?
          (if previous-grant?
            (dom/div nil "One moment…")
            (dom/div nil
              (dom/h1 nil "Hi")
              (dom/p nil (:intro1 strings))
              (dom/p nil (:intro2 strings))
              (apply dom/button
                (if camera-waiting?
                  [#js {:className "wait"} "hold on"]
                  [#js {:onClick get-camera!} "✔ ok"]))))

        result-gif
          (dom/div nil
