On this page:
url-remove-params
url-local
url-path-only
Version: 4.1.4.1

28 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"