mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 17:32:11 +03:00
36 lines
665 B
Plaintext
36 lines
665 B
Plaintext
:: |new-desk: creates a minimal desk
|
|
::
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ bek=beak]
|
|
[=desk ~]
|
|
from=$~(%base desk)
|
|
==
|
|
::
|
|
?: (~(has in .^((set ^desk) %cd (en-beam bek(q from) /))) desk)
|
|
~| [%already-exists desk]
|
|
!!
|
|
::
|
|
=+ .^(=dome:clay %cv (en-beam bek /))
|
|
::
|
|
:- %helm-pass
|
|
%^ new-desk:cloy desk
|
|
~
|
|
%- ~(gas by *(map path page:clay))
|
|
|^ =- (turn - mage)
|
|
^- (list path)
|
|
:~ /mar/noun/hoon
|
|
/mar/hoon/hoon
|
|
/mar/kelvin/hoon
|
|
/sys/kelvin
|
|
==
|
|
::
|
|
++ mage
|
|
|= =path
|
|
:- path
|
|
^- page:clay
|
|
=; =cage [p q.q]:cage
|
|
~| [%missing-source-file from path]
|
|
(need (~(get an:cloy ank.dome) path))
|
|
--
|
|
|