         new-step  (inc old-step)]
     (when (< new-step (count (:steps tour)))
       (reset! (:current-step tour) new-step)
+      (reset! current-step new-step)
       (reset! ((nth steps old-step) tour) false)
       (reset! ((nth steps new-step) tour) true))))
 

                        #(do (finish-tour tour)
                             (utils/scroll-to-top))]]
                      [welcome-modal-dialog]
                      [finished-tour-modal-dialog @(:current-step tour)]]]
        (if (= :narrow @media-query)
          [v-box
           :size "1 1 auto"


(def tour
  (make-tour [:step1 :step2 :step3 :step4 :step5 :step6 :step7 :step8 :step9 :step10]))

(def current-step (reagent/atom @(:current-step tour)))

(def tour-steps
  {:welcome {:title "Welcome to clojurescript.io!"
