bidi verbose

bidi_verbose.clj

(defn leaf [fragment name]
  [fragment name])

(defn branch [fragment & children]
  (let [[[tag param]] children]
    (if (= tag :bidi/param)
      [[fragment param] (vec (rest children))]
      [fragment (vec children)])))

(defn param [name]
  [:bidi/param name])

(def routes
 (branch
  "http://localhost:8080"
  (branch "/users/" (param :user-id)
          (branch "/topics"
                  (leaf "" :topics)
                  (leaf "/bulk" :topic-bulk)))
  (branch "/topics/" (param :topic)
          (leaf "" :private-topic))
  (leaf "/schemas" :schemas)
  (branch "/orgs/" (param :org-id)
          (leaf "/topics" :org-topics))))

;;compiles to:
;; ["http://localhost:8080"
;;  [[["/users/" :user-id]
;;    [["/topics" [["" :topics] ["/bulk" :topic-bulk]]]]]
;;   [["/topics/" :topic] [["" :private-topic]]]
;;   ["/schemas" :schemas]
;;   [["/orgs/" :org-id] [["/topics" [["" :org-topics]]]]]]]