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

adds |syncs hood generator to print all active syncs

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-08 14:15:19 -04:00
parent 26c674e9ae
commit e6e9195d9c
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/hood.hoon
View File

@ -124,6 +124,7 @@
++ poke-kiln-schedule (wrap poke-schedule):from-kiln
++ poke-kiln-track (wrap poke-track):from-kiln
++ poke-kiln-sync (wrap poke-sync):from-kiln
++ poke-kiln-syncs (wrap poke-syncs):from-kiln
++ poke-kiln-start-autoload (wrap poke-start-autoload):from-kiln
++ poke-kiln-autoload (wrap poke-autoload):from-kiln
++ poke-kiln-overload (wrap poke-overload):from-kiln

10
gen/hood/syncs.hoon Normal file
View File

@ -0,0 +1,10 @@
::
:::: /hoon/syncs/hood/gen
::
/? 310
::
::::
!:
:- %say
|= {{now/@da eny/@uvI bec/beak} $~ $~}
[%kiln-syncs ~]

10
lib/kiln.hoon
View File

@ -121,6 +121,16 @@
abet:(spam (render "already syncing" [sud her syd]:hos) ~)
abet:abet:(start-sync:(auto hos) |)
::
++ poke-syncs ::
|= $~
=< abet %- spam
=+ a=(~(tap by syn))
?: =(0 (lent a))
[%leaf "no syncs configured"]~
%- flop %+ turn a
|= a/(pair kiln-sync *)
(render "sync configured" [sud her syd]:p.a)
::
++ poke-init-sync
|= hos/kiln-sync
?: (~(has by syn) hos)