ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-24 10:33:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

kiln: add +poke-suspend-many and rewrite +poke-suspend

Browse Source
This commit is contained in:
silnem2 2023-04-21 15:12:38 -06:00
parent dbc40b3959
commit d363f01080
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkg/arvo/lib/hood/kiln.hoon
View File

@ -551,6 +551,7 @@
%kiln-rm =;(f (f !<(_+<.f vase)) poke-rm)
%kiln-schedule =;(f (f !<(_+<.f vase)) poke-schedule)
%kiln-suspend =;(f (f !<(_+<.f vase)) poke-suspend)
%kiln-suspend-many =;(f (f !<(_+<.f vase)) poke-suspend-many)
%kiln-sync =;(f (f !<(_+<.f vase)) poke-sync)
%kiln-syncs =;(f (f !<(_+<.f vase)) poke-syncs)
%kiln-uninstall =;(f (f !<(_+<.f vase)) poke-uninstall)
@ -784,6 +785,10 @@
`(foal where %sched !>((~(put by old) tym eve)))
::
++ poke-suspend
|= =desk
(poke-suspend-many ~[desk])
::
++ poke-suspend-many
|= desks=(list desk)
=< abet
%- emil
@ -792,7 +797,7 @@
|= dek=desk
?: (~(has in .^((set desk) %cd /(scot %p our)/base/(scot %da now))) dek)
&
((slog leaf+"kiln: desk does not yet exist: {<dek>}" ~) |)
~> %slog.(fmt "desk does not yet exist: {<dek>}") |
|=(=desk [%pass /kiln/suspend %arvo %c %zest desk %dead])
::
++ poke-sync