 (defui MazeDisplay
   static om/IQuery
   (query [this]
-    '[{:maze [:grid :rows :columns :cell-size :algorithm]}])
+    '[{:maze [:grid :rows :columns :cell-size :algorithm :active]}])
   Object
   (componentDidMount [this]
     (let [{:keys [grid cell-size] :as maze} (om/props this)

  form-value)

(defmethod produce-maze-value :analysis
  [_ form-value _]
  form-value)


          :start-row 0
          :start-col 0
          :end-row 0
          :end-col 0

          :active nil}})

(defn run [algorithm-name rows columns]
  (let [algorithm (algs/synchronous-algorithm algorithm-name)]
