 
 (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!"

                                   (dispatch [:set-console-queued-forms :cljs-console (:strings example-map)]))]]
               #(do (finish-tour tour)
                    (reset! showing-atom false)
                    (utils/scroll-to-top))]

              [api-example example-map]]])

(defn api-examples

         :style {:padding-bottom "150px"}]))))

(defn finished-tour-modal-dialog
  []
  (let [showing? (reagent/atom true)]
    (fn []
      (.log js/console "current-step?" @current-step)
      (when (and @showing? (= @current-step (dec (count (:steps tour)))))
        [modal-panel
         :backdrop-opacity 0.4
         :child [v-box
                 :align :center
                 :max-width "400px"
                 :class "welcome-popup"
                 :children [[title
                             :label (get-in tour-steps [:step10 :title])
                             :style {:font-weight "bold"
                                     :font-size "20px"
                                     :text-align "center"
                                     :color "rgba(68, 68, 68, 0.6)"}]
                            [p (get-in tour-steps [:step10 :body])]
                            [:hr {:style {:margin "10px 0 10px"}}]
                            [button
                             :label "finish"
                             :on-click #(do (finish-tour tour)
                                            (ls/set-item! :closed-tour? true)
                                            (reset! showing? false))
                             :class "btn-default"
                             :style {:margin-right "15px"}]]
                 :style {:display "inline-block"}]
         :style {:padding-bottom "150px"}]))))

(defn- next-tour-step
  [tour]
