    {:title "Event Handling"
     :bg "/images/swan.jpg"}
    {:title "Client-side Routing"
-    :bg "/images/heron.jpg"}])
+    :bg "/images/heron.jpg"}
+   {:title "Adding Local State"
+    :bg "/images/raven.jpg"}])
 
 (defn main []
   (om/root app app-state {:target (. js/document (getElementById "app"))}))

    (when (within-slides? index app-state)
    (swap! app-state assoc :index index))))

(defn slide [model owner]
  (reify
    om/IRender

        (when-let [bg (:bg model)]
          (dom/img #js {:className "bg" :src bg}))
        (dom/div #js {:className "slide-content banner"}
          (om/build slide-title model))))))

(defn next-slide-path [model f]
  (let [slides (:slides @model)
