         false))
     true))
 
-(defn routes [uri-path]
-  (macros/routes uri-path
-                 ["admin" ""]
-                 (feed/list-feeds)
-                 ["admin" "new-feed"]
-                 (feed/display-new-feed-form)
-                 ["admin" "edit-feed" :language :feed-name]
-                 (feed/display-edit-feed-form (:language params)
-                                              (:feed-name params))
-                 ["admin" :language :feed-name "new"]
-                 (editor/start (:language params)
-                               (:feed-name params)
-                               nil
-                               :new)
-                 ["admin" :language :feed-name "edit" :*]
-                 (editor/start (:language params)
-                               (:feed-name params)
-                               (str "/" (:* params))
-                               :edit)
-                 ["admin" :language :feed-name "overview"]
-                 (feed/list-documents (:language params) (:feed-name params))
-                 :fallback
-                 (navigate-replace-state "" "Vix overview")
-                 ))
+(defn execute-routes! [uri-path]
+  (routes uri-path
+          ["admin" ""]
+          (feed/list-feeds)
+          ["admin" "new-feed"]
+          (feed/display-new-feed-form)
+          ["admin" "edit-feed" :language :feed-name]
+          (feed/display-edit-feed-form (:language params)
+                                       (:feed-name params))
+          ["admin" :language :feed-name "new"]
+          (editor/start (:language params)
+                        (:feed-name params)
+                        nil
+                        :new)
+          ["admin" :language :feed-name "edit" :*]
+          (editor/start (:language params)
+                        (:feed-name params)
+                        (str "/" (:* params))
+                        :edit)
+          ["admin" :language :feed-name "overview"]
+          (feed/list-documents (:language params) (:feed-name params))
+          :fallback
+          (navigate-replace-state "" "Vix overview")))
 
 (defn navigate [token title]
   (. @*h* (setToken token title)))

;; limitations under the License.

(ns vix.core
  (:require-macros [vix.macros :as macros])
  (:require [vix.views.editor :as editor]
            [vix.views.feed :as feed]
            [goog.global :as global]

(defn ^:export start-app [uri-path]
  (start-history!) ; in Chrome this triggers an event,
                   ; leading to a (routes) call
  (execute-routes! uri-path))