From 36e63a795fe04b81eb2f8af5a6f9ea382a1b4edd Mon Sep 17 00:00:00 2001
From: midden-fabler <midden-fabler@protonmail.com>
Date: Sat, 10 Jun 2023 13:08:23 -0400
Subject: [PATCH] dojo: complete-naked-poke for live dudes

---
 pkg/arvo/app/dojo.hoon | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/pkg/arvo/app/dojo.hoon b/pkg/arvo/app/dojo.hoon
index ae4cea6c66..a2a997970a 100644
--- a/pkg/arvo/app/dojo.hoon
+++ b/pkg/arvo/app/dojo.hoon
@@ -1442,15 +1442,19 @@
       %-  zing
       %+  turn  ~(tap in desks)
       |=  =desk
+      %+  murn
+        %~  tap  in
+        .^((set [dude:gall ?]) %ge /[our]/[desk]/[now]/$)
+      |=  [=dude:gall live=?]
+      ^-  (unit [term tank])
+      ?.  live
+        ~
+      ?.  =(app (end [3 (met 3 app)] dude))
+        ~
       =/  pax=path  /[our]/[desk]/[now]/app
-      %+  murn  ~(tap by dir:.^(arch %cy pax))
-      |=  [=term ~]
-      ^-  (unit [^term tank])
-      ?.  =(app (end [3 (met 3 app)] term))
+      ?~  =<(fil .^(arch %cy (weld pax ~[dude %hoon])))
         ~
-      ?~  =<(fil .^(arch %cy (weld pax ~[term %hoon])))
-        ~
-      `[(cat 3 ':' term) *tank]
+      `[(cat 3 ':' dude) *tank]
     ::
     ++  complete-variable
       |=  variable=term