mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 20:31:40 +03:00
821f99a351
This commit refactors `sur/hood.hoon` and changes the signature of the `+vats` generator thus: ```hoon |= $: [now=@da eny=@uvJ bec=beak] $@(~ [?(%suspended %running %blocking %nonexistent) ~]) $: verb=? show-suspended=? show-running=? show-blocking=? show-nonexistent=? == == ``` Called with a single positional argument, `+vats` will show only those desks fitting the description given, while keyword parameters allow finer-grained control over which desks are described. The `verb` parameter determines whether the full load of desk information be shown, or a subset thereof. Resolves #6297.
21 lines
485 B
Plaintext
21 lines
485 B
Plaintext
/- *hood
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
$@(~ [?(%suspended %running %blocking %nonexistent) ~])
|
|
$: verb=?
|
|
show-suspended=?
|
|
show-running=?
|
|
show-blocking=?
|
|
show-nonexistent=?
|
|
==
|
|
==
|
|
=+ :- verb
|
|
?~ +<+< +<+>+
|
|
?- -.+<+<
|
|
%suspended [& | | |]
|
|
%running [| & | |]
|
|
%blocking [| | & |]
|
|
%nonexistent [| | | &]
|
|
==
|
|
tang+((report-vats p.bec now) -)
|