 (defn ^:export start-app [uri-path]
   (start-history!) ; in Chrome this triggers an event,
                    ; leading to a (routes) call
-  (routes uri-path))+  (execute-routes! uri-path))
        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 navigate [token title]
  (. @*h* (setToken token title)))

;; limitations under the License.

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