From bfb9419d22f762982a662f4548d59cffe69e0e62 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Thu, 1 Jul 2021 20:34:17 -0400
Subject: [PATCH] kiln: tell gall to fade apps on uninstall

---
 pkg/arvo/lib/hood/kiln.hoon | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

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