diff --git a/common/src/app/common/uri.cljc b/common/src/app/common/uri.cljc index 4fe6e967a4..e7c258adfc 100644 --- a/common/src/app/common/uri.cljc +++ b/common/src/app/common/uri.cljc @@ -13,12 +13,27 @@ #?(:clj (:import lambdaisland.uri.URI))) -(dm/export u/uri) (dm/export u/join) +(dm/export u/parse) (dm/export u/query-encode) (dm/export un/percent-encode) (dm/export u/uri?) +(defn uri + [o] + (cond + (u/uri? o) + o + + (map? o) + (u/map->URI o) + + (nil? o) + o + + :else + (u/parse o))) + (defn query-string->map [s] (u/query-string->map s))