mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
22 lines
519 B
Plaintext
22 lines
519 B
Plaintext
:: Drum: boot unstarted app
|
|
::
|
|
:::: /hoon/start/hood/gen
|
|
::
|
|
/? 310
|
|
::
|
|
::::
|
|
::
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
[arg=[@ $@(~ [@ ~])] ~]
|
|
==
|
|
=/ [des=@tas dap=@tas]
|
|
?> ((sane %tas) -.arg)
|
|
?@ +.arg [q.bec -.arg]
|
|
?> ((sane %tas) +<.arg)
|
|
[-.arg +<.arg]
|
|
=+ .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
|
|
=/ =dome:clay (~(gut by cone) [p.bec des] *dome:clay)
|
|
=+ ((slog ?:(=(%live liv.dome) ~ ['kiln: desk not live' ~])) ~)
|
|
[%kiln-rein des (~(put by ren.dome) dap &)]
|