Reindent re-frame example code

examples/frontend-re-frame/src/cljs/frontend_re_frame/core.cljs

@@ -9,32 +9,27 @@
 
 ;;; Events ;;;
 
-(re-frame/reg-event-db
+(re-frame/reg-event-db ::initialize-db
- ::initialize-db
+  (fn [db _]
- (fn [db _]
+    (if db
-   (if db
+      db
-     db
+      {:current-route nil})))
-     {:current-route nil})))
 
-(re-frame/reg-event-fx
+(re-frame/reg-event-fx ::navigate
- ::navigate
+  (fn [db [_ & route]]
- (fn [db [_ & route]]
+    {::navigate! route}))
-   ;; See `navigate` effect in routes.cljs
-   {::navigate! route}))
 
-(re-frame/reg-event-db
+(re-frame/reg-event-db ::navigated
- ::navigated
+  (fn [db [_ new-match]]
- (fn [db [_ new-match]]
+    (let [old-match   (:current-route db)
-   (let [old-match   (:current-route db)
+          controllers (rfc/apply-controllers (:controllers old-match) new-match)]
-         controllers (rfc/apply-controllers (:controllers old-match) new-match)]
+      (assoc db :current-route (assoc new-match :controllers controllers)))))
-     (assoc db :current-route (assoc new-match :controllers controllers)))))
 
 ;;; Subscriptions ;;;
 
-(re-frame/reg-sub
+(re-frame/reg-sub ::current-route
- ::current-route
+  (fn [db]
- (fn [db]
+    (:current-route db)))
-   (:current-route db)))
 
 ;;; Views ;;;
 
@@ -57,10 +52,10 @@
 ;;; Effects ;;;
 
 ;; Triggering navigation from events.
-(re-frame/reg-fx
+
- ::navigate!
+(re-frame/reg-fx ::navigate!
- (fn [route]
+  (fn [route]
-   (apply rfe/push-state route)))
+    (apply rfe/push-state route)))
 
 ;;; Routes ;;;
 
@@ -106,15 +101,15 @@
 
 (def router
   (rf/router
-   routes
+    routes
-   {:data {:coercion rss/coercion}}))
+    {:data {:coercion rss/coercion}}))
 
 (defn init-routes! []
   (js/console.log "initializing routes")
   (rfe/start!
-   router
+    router
-   on-navigate
+    on-navigate
-   {:use-fragment true}))
+    {:use-fragment true}))
 
 (defn nav [{:keys [router current-route]}]
   [:ul