30 URL utilities

(require (planet untyped/unlib/url))

Useful URL utilities.

(url-remove-params url) → url?

url : url?

Returns a copy of url with the param parts of the path removed.

Examples:

> (url->string (url-remove-params (string->url "http://www.example.com/abc/def/ghi")))

"http://www.example.com/abc/def/ghi"

> (url->string (url-remove-params (string->url "/a;1/b;2/c;3")))

"/a/b/c"

> (url->string (url-remove-params (string->url "/;1*2*345678")))

"/"

(url-local url) → url?

url : url?

Returns a copy of url with the scheme, user and hostname and port removed.

Examples:

> (url->string (url-local (string->url "http://www.example.com/abc/def/ghi")))

"/abc/def/ghi"

> (url->string (url-local (string->url "/a;1/b;2/c;3")))

"/a;1/b;2/c;3"

> (url->string (url-local (string->url "/;1*2*345678")))

"/;1*2*345678"

(url-path-only url) → url?

url : url?

Like url-local but removes the query and anchor strings as well.

Examples:

> (url->string (url-path-only (string->url "http://www.example.com/abc/def/ghi")))

"/abc/def/ghi"

> (url->string (url-path-only (string->url "/a;1/b;2/c;3")))

"/a;1/b;2/c;3"

> (url->string (url-path-only (string->url "/;1*2*345678")))

"/;1*2*345678"