shrub/pkg/arvo/gen/hood/start.hoon

22 lines
519 B
Plaintext
Raw Normal View History

2016-10-22 02:44:39 +03:00
:: Drum: boot unstarted app
2015-05-12 03:31:37 +03:00
::
2016-02-11 03:41:28 +03:00
:::: /hoon/start/hood/gen
2015-05-12 03:31:37 +03:00
::
/? 310
2015-05-12 03:31:37 +03:00
::
::::
2016-11-17 04:42:58 +03:00
::
2015-09-12 03:24:51 +03:00
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[arg=[@ $@(~ [@ ~])] ~]
2015-05-12 03:31:37 +03:00
==
2021-11-10 10:28:38 +03:00
=/ [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 &)]