mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-19 06:28:52 +03:00
Merge pull request #6057 from urbit/jm/recurse-rm
kiln: recursive `|rm`
This commit is contained in:
commit
cb95c641a1
@ -766,11 +766,19 @@
|
||||
::
|
||||
++ poke-rm
|
||||
|= a=path
|
||||
=| c=(list (unit toro))
|
||||
%+ poke-info "removed: {<a>}"
|
||||
=- %+ roll -
|
||||
|= [a=(unit toro) b=(unit toro)]
|
||||
(clap a b furl)
|
||||
|- ^- (list (unit toro))
|
||||
=+ b=.^(arch %cy a)
|
||||
?~ fil.b
|
||||
=+ ~[leaf+"No such file:" leaf+"{<a>}"]
|
||||
abet:(spam -)
|
||||
(poke-info "removed" `(fray a))
|
||||
?: ?=([^ ~] b) (snoc c `(fray a))
|
||||
=? c ?=(^ fil.b) (snoc c `(fray a))
|
||||
%- zing
|
||||
%+ turn ~(tap by dir.b)
|
||||
|= [kid=@ta ~]
|
||||
^$(a (weld a /[kid]))
|
||||
::
|
||||
++ poke-schedule
|
||||
|= [where=path tym=@da eve=@t]
|
||||
|
Loading…
Reference in New Issue
Block a user