1 Exception utilities
2 Number utilities
3 String utilities
4 Bytes utilities
5 Symbol utilities
6 List utilities
7 PLT 4x hash utilities
8 PLT 3x hash utilities
9 URL utilities
10 Contract utilities
11 File and path utilities
12 Parameter utilities
13 Syntax utilities
14 SRFI19 time utilities
15 Scribble utilities
16 Generators
17 Generators (short names)
18 Pipelines
19 Write-through cache
20 Yieldable procedures
21 Debugging tools
22 Profiling tools
23 Logging tools
On this page:
url-remove-params
url-local
url-path-only
Version: 4.0.1.2

 

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