Merge pull request #4167 from urbit/m/drum-unlink

drum: update app index early when unlinking

pkg/arvo/lib/hood/drum.hoon

@@ -564,7 +564,12 @@
 ::
 ++  se-klin                                           ::  disconnect app
   |=  gyl=gill:gall
-  +>(eel (~(del in eel) gyl))
+  =/  gil=(unit gill:gall)  se-agon
+  =.  eel  (~(del in eel) gyl)
+  ?~  gil  +>.$
+  ?:  =(gyl u.gil)
+    +>.$(inx 0)
+  (se-alas u.gil)
 ::
 ++  se-link                                           ::  connect to app
   |=  gyl=gill:gall
@@ -788,6 +793,7 @@
     ?-  fec
       [%bel *]  ta-bel
       [%blk *]  +>
+      [%bye *]  +>(..ta (se-klin gyl))
       [%clr *]  +>(..ta (se-blit fec))
       [%det *]  (ta-got +.fec)
       [%err *]  (ta-err p.fec)

pkg/arvo/mar/sole/effect.hoon

@@ -75,7 +75,7 @@
           info+(tape ~(ram re tank))
       ==
     ::
-        ?(%bel %clr %nex)
+        ?(%bel %clr %nex %bye)
       (frond %act %s -.sef)
     ==
   --

pkg/arvo/sur/sole.hoon

@@ -30,6 +30,7 @@
 +$  sole-effect                                         ::  app to sole
   $%  [%bel ~]                                          ::  beep
       [%blk p=@ud q=@c]                                 ::  blink+match char at
+      [%bye ~]                                          ::  close session
       [%clr ~]                                          ::  clear screen
       [%det sole-change]                                ::  edit command
       [%err p=@ud]                                      ::  error point