ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 05:11:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

formatting

Browse Source
This commit is contained in:
ryjm 2023-02-11 14:38:06 -05:00
parent 2849d3a64d
commit 47ab7efb27
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/gen/hood/tomb.hoon
View File

@ -54,7 +54,6 @@
=/ prom=$-([tint tape] sole-prompt) :: styled |rm prompt =/ prom=$-([tint tape] sole-prompt) :: styled |rm prompt
|= [=tint =tape] |= [=tint =tape]
[%& %prompt (snoc *styx [[~ `tint ~] tape])] [%& %prompt (snoc *styx [[~ `tint ~] tape])]
::
:: print out the paths blocking the tomb :: print out the paths blocking the tomb
%+ prints (snoc prat leaf+"tomb blocked by:") %+ prints (snoc prat leaf+"tomb blocked by:")
:: prompt for deletion using |rm :: prompt for deletion using |rm
@ -67,7 +66,6 @@
(print (crip "dry run: would remove {<paths>} from {<dusk>}") no-product) (print (crip "dry run: would remove {<paths>} from {<dusk>}") no-product)
%+ produce %helm-pans %+ produce %helm-pans
~[(rm paz)] ~[(rm paz)]
::
:: abort if no other desks using target :: abort if no other desks using target
?~ used ?~ used
(print (crip "aborting") no-product) (print (crip "aborting") no-product)
@ -82,6 +80,7 @@
|= confirm=tape |= confirm=tape
?. |(=("y" confirm) =("Y" confirm) =("yes" confirm)) ?. |(=("y" confirm) =("Y" confirm) =("yes" confirm))
no-product no-product
::
?: dry ?: dry
(print (crip "dry run: would remove {<paths>} from {<~(tap in all)>}") no-product) (print (crip "dry run: would remove {<paths>} from {<~(tap in all)>}") no-product)
%+ produce %helm-pans %+ produce %helm-pans
@ -90,7 +89,6 @@
%- rm %- rm
%- en-beam %- en-beam
beam(r da+now, q desk, s path) beam(r da+now, q desk, s path)
::
:: no blocking paths, tombstone the target recursively :: no blocking paths, tombstone the target recursively
%- produce %- produce
:- %helm-pans :- %helm-pans
@ -136,7 +134,6 @@
~ ~
[[ship desk tako (~(gut by tom) tako nor) p.n.q.yaki] ~ ~] [[ship desk tako (~(gut by tom) tako nor) p.n.q.yaki] ~ ~]
-- --
::
:: +lobes: recursively list hashes under target :: +lobes: recursively list hashes under target
:: ::
++ lobes ++ lobes
@ -148,8 +145,8 @@
%+ turn ~(tap by dir.b) %+ turn ~(tap by dir.b)
|= [kid=@ta ~] |= [kid=@ta ~]
^$(target (weld target /[kid])) ^$(target (weld target /[kid]))
::
:: +notes: build cards for each path to tombstone :: +notes: build cards for each path to tombstone
::
++ notes ++ notes
|= norms=(set [ship desk tako norm path]) |= norms=(set [ship desk tako norm path])
^- (list note-arvo) ^- (list note-arvo)
@ -161,6 +158,7 @@
?: dry ?: dry
~ ~
`[%c %tomb %worn ship desk tako (~(put of norm) path %|)] `[%c %tomb %worn ship desk tako (~(put of norm) path %|)]
:: +info: toro into card
:: ::
:: XX move to a shared library :: XX move to a shared library
++ info ++ info
@ -168,6 +166,7 @@
^- note-arvo ^- note-arvo
~| [%tomb-error "tomb: failed to delete {<target>}"] ~| [%tomb-error "tomb: failed to delete {<target>}"]
[%c [%info (need tor)]] [%c [%info (need tor)]]
:: +rm: remove a path from a desk
:: ::
:: XX move to a shared library :: XX move to a shared library
++ rm ++ rm