urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 11:09:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

dojo: complete-naked-poke for live dudes

Browse Source
This commit is contained in:
midden-fabler 2023-06-10 13:08:23 -04:00
parent 6d43e73d3e
commit 36e63a795f
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkg/arvo/app/dojo.hoon
View File

@ -1442,15 +1442,19 @@
%- zing %- zing
%+ turn ~(tap in desks) %+ turn ~(tap in desks)
|= =desk |= =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 =/ pax=path /[our]/[desk]/[now]/app
%+ murn ~(tap by dir:.^(arch %cy pax)) ?~ =<(fil .^(arch %cy (weld pax ~[dude %hoon])))
|= [=term ~]
^- (unit [^term tank])
?. =(app (end [3 (met 3 app)] term))
~ ~
?~ =<(fil .^(arch %cy (weld pax ~[term %hoon]))) `[(cat 3 ':' dude) *tank]
~
`[(cat 3 ':' term) *tank]
:: ::
++ complete-variable ++ complete-variable
|= variable=term |= variable=term