mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
28 lines
414 B
Plaintext
28 lines
414 B
Plaintext
:: Kiln: Mount path to unix
|
|
::
|
|
:::: /hoon/mount/hood/gen
|
|
::
|
|
/? 310
|
|
::
|
|
::::
|
|
::
|
|
:- %say
|
|
=> |%
|
|
+$ bath
|
|
$@ desk
|
|
(lest knot)
|
|
--
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
[=bath pot=$@(~ [v=@tas ~])]
|
|
~
|
|
==
|
|
=/ bem=beam
|
|
?@ bath [bec(q bath) /]
|
|
(need (de-beam `path`bath))
|
|
::
|
|
=/ =desk
|
|
?^ pot v.pot
|
|
?^(s.bem (rear s.bem) q.bem)
|
|
::
|
|
[%kiln-mount (en-beam bem) desk]
|