             [reitit.frontend :as rf]
             [reitit.frontend.controllers :as rfc]
             [reitit.frontend.easy :as rfe]))
+
+;;; Effects ;;;
+
+;; Triggering navigation from events.
+
+(re-frame/reg-fx :push-state
+  (fn [route]
+    (apply rfe/push-state route)))
 
 ;;; Events ;;;
 

      {:current-route nil})))

(re-frame/reg-event-fx ::push-state
  (fn [db [_ & route]]
    {:push-state route}))

(re-frame/reg-event-db ::navigated

(defn sub-page2 []
  [:div
   [:h1 "This is sub-page 2"]])

;;; Routes ;;;

