dojo: improve autocomplete between desks
++ complete-naked-poke
|= app=term
=/ pax=path
- /(scot %p our.hid)/[q.byk.hid]/(scot %da now.hid)/app
+ /(scot %p our.hid)/[q:he-beam]/(scot %da now.hid)/app
%+ complete (cat 3 ':' app)
%+ murn ~(tap by dir:.^(arch %cy pax))
|= [=term ~]
(cat 3 '|' gen)
:((cury cat 3) ':' app '|' gen)
=/ pfix=path
- /(scot %p our.hid)/[q.byk.hid]/(scot %da now.hid)/gen/[app]
+ /(scot %p our.hid)/[q:he-beam]/(scot %da now.hid)/gen/[app]
::
%^ tab-generators:auto pfix `app
%+ murn
|= gen=term
%+ complete (cat 3 '+' gen)
=/ pax=path
- /(scot %p our.hid)/[q.byk.hid]/(scot %da now.hid)/gen
+ /(scot %p our.hid)/[q:he-beam]/(scot %da now.hid)/gen
%^ tab-generators:auto pax ~
%+ murn
~(tap by dir:.^(arch %cy pax))
