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 teds in dirs

Browse Source
This commit is contained in:
midden-fabler 2023-06-13 02:02:36 -04:00
parent dabc9ea631
commit a6189648f4
1 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1510,17 +1510,35 @@
:: ::
++ complete-naked-ted ++ complete-naked-ted
|= ted=term |= ted=term
=/ pax=path |^
=/ pfix=path
/(scot %p our.hid)/[q:he-beam]/(scot %da now.hid)/ted /(scot %p our.hid)/[q:he-beam]/(scot %da now.hid)/ted
=+ .^(paths=(list path) %ct pfix)
%+ complete (cat 3 '-' ted) %+ complete (cat 3 '-' ted)
%+ murn ~(tap by dir:.^(arch %cy pax)) %+ murn paths
|= [=term ~] |= =path
^- (unit [^term tank]) ^- (unit [term tank])
?. =(ted (end [3 (met 3 ted)] term)) ?~ path
~ ~
?~ =<(fil .^(arch %cy (weld pax ~[term %hoon]))) ?~ t.path
~ ~
`[(cat 3 '-' term) *tank] ?. =(%hoon (rear t.path))
~
=/ =cord
%- crip
(path-heps (snip `^path`t.path))
?. =(ted (end [3 (met 3 ted)] cord))
~
`[(cat 3 '-' cord) *tank]
::
++ path-heps
|= a=path ^- tape
?~ a ""
|- ^- tape
%+ welp (trip i.a)
?~ t.a ""
['-' $(a t.a)]
--
:: ::
++ complete ++ complete
|= [completing=term options=(list [term tank])] |= [completing=term options=(list [term tank])]