defroutes macro for ClojureScript/Secretary - quickly define many routes at once

defroutes.clj

(defmacro defroutes [& routes]
  `(do
     ~@(map (fn [[[path] body]]
              (let [has-args? (or (vector? (first body)) (map? (first body)))
                    body (if has-args? body (cons [] body))]
                `(~'secretary.core/defroute ~path ~@body)))
            (partition 2 (partition-by string? routes)))))

usage_example.cljs

(defroutes
  "/" (if (signed-in?)
        (set-view! :user/home)
        (set-view! :app/landing))

  "/sign-in" (set-view! :auth/sign-in)

  "/sign-out" (do (auth/sign-out)
                  (h/nav! "/"))
                
  "/horse/:name" [name] (prn "This horse has a name: " name)  ;; parameter destructuring works normally
  
  "*" (set-view! :app/not-found))