2021-10-25 17:20:34 +03:00
|
|
|
:: |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]
|
|
|
|
|
!!
|
|
|
|
|
::
|
|
|
|
|
:- %helm-pass
|
|
|
|
|
%^ new-desk:cloy desk
|
|
|
|
|
~
|
|
|
|
|
%- ~(gas by *(map path page:clay))
|
|
|
|
|
|^ =- (turn - mage)
|
|
|
|
|
^- (list path)
|
|
|
|
|
:~ /mar/noun/hoon
|
|
|
|
|
/mar/hoon/hoon
|
2022-01-04 17:58:37 +03:00
|
|
|
/mar/txt/hoon
|
2021-10-25 17:20:34 +03:00
|
|
|
/mar/kelvin/hoon
|
|
|
|
|
/sys/kelvin
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ mage
|
|
|
|
|
|= =path
|
|
|
|
|
:- path
|
|
|
|
|
^- page:clay
|
2022-06-01 21:20:18 +03:00
|
|
|
:- (rear path)
|
2021-10-25 17:20:34 +03:00
|
|
|
~| [%missing-source-file from path]
|
2022-06-01 21:20:18 +03:00
|
|
|
.^ *
|
|
|
|
|
%cx
|
|
|
|
|
(scot %p p.bek)
|
|
|
|
|
from
|
|
|
|
|
(scot %da now)
|
|
|
|
|
path
|
|
|
|
|
==
|
2021-10-25 17:20:34 +03:00
|
|
|
--
|
