Teach swagger-routes to heed basePath for swagger-docs path

If {:data {:basePath "/app"}} is given, default to including it as a
prefix to swagger-ui :swagger-docs path. The basePath is already passed
to swagger-docs, so this makes the swagger-ui consistent with the
generated json.

The swagger-docs path can also now be completely overridden via:
{:options {:ui {:swagger-docs "/override.json"}}}

Author: hoxu

src/compojure/api/swagger.clj

@@ -109,7 +109,7 @@
    (if options
      (let [{:keys [ui spec data] {ui-options :ui spec-options :spec} :options} (merge swagger-defaults options)]
        (c/routes
-         (if ui (apply swagger-ui ui (mapcat identity (merge ui-options (if spec {:swagger-docs spec})))))
+         (if ui (apply swagger-ui ui (mapcat identity (merge (if spec {:swagger-docs (apply str (remove clojure.string/blank? [(:basePath data) spec]))}) ui-options))))
          (if spec (apply swagger-docs spec (mapcat identity data))))))))
 
 (defn validate