31 URL utilities
| (require (planet untyped/unlib/url)) |
Useful URL utilities.
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"))) |
"/" |
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" |
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" |