git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/zuse/gate/earl.md
40 lines 945 B history raw
1### `++earl`
3Localize purl
5Prepends a ship name to the spur of a [`++purl`]().
7Accepts
8-------
10`who` is a [`@p`](), a ship name.
12`pul` is a `++purl`.
14Produces
15--------
17A `++purl`.
19Source
20------
22 ++ earl :: localize purl
23 |= [who=@p pul=purl]
24 ^- purl
25 pul(q.q [(rsh 3 1 (scot %p who)) q.q.pul])
26 ::
28Examples
29--------
31 ~zod/main=> (need (epur 'http://123.1.1.1/me.ham'))
32 [p=[p=%.n q=~ r=[%.n p=.123.1.1.1]] q=[p=[~ ~.ham] q=<|me|>] r=~]
33 ~zod/main=> (earl ~zod (need (epur 'http://123.1.1.1/me.ham')))
34 [p=[p=%.n q=~ r=[%.n p=.123.1.1.1]] q=[p=[~ ~.ham] q=<|zod me|>] r=~]
35 ~zod/main=> (earl ~pittyp (need (epur 'http://123.1.1.1/me.ham')))
36 [p=[p=%.n q=~ r=[%.n p=.123.1.1.1]] q=[p=[~ ~.ham] q=<|pittyp me|>] r=~]
37 ~zod/main=> (earn (earl ~pittyp (need (epur 'http://123.1.1.1/me.ham'))))
38 "http://123.1.1.1/pittyp/me"