diff --git a/pkg/arvo/lib/hood/kiln.hoon b/pkg/arvo/lib/hood/kiln.hoon index 2df03a10f..54a9c3b66 100644 --- a/pkg/arvo/lib/hood/kiln.hoon +++ b/pkg/arvo/lib/hood/kiln.hoon @@ -175,7 +175,12 @@ ^+ ..vats =. ..abet (abed lac) ~> %slog.0^leaf/"kiln: uninstalling {here}" - :: TODO: ask gall to doze + =. ..abet + %- emil + %+ turn (get-apps lac) + |= =dude:gall + [%pass /kiln/vats/uninstall %arvo %g %fade dude %idle] + :: ..vats(ark (~(del by ark) lac)) :: ++ install @@ -269,6 +274,15 @@ ~> %slog.0^leaf/"merge into {here} succeeded" ..abet -- +:: +get-apps: find which apps Gall is running on a desk +:: +:: TODO: move to zuse? +:: +++ get-apps + |= =desk + ^- (list dude:gall) + %~ tap in + .^((set dude:gall) ge+/(scot %p our)/[desk]/(scot %da now)) :: +get-germ: select merge strategy into local desk :: :: If destination desk doesn't exist, need a %init merge. If this is