ames: style fixes and comments

This commit is contained in:
yosoyubik 2023-02-14 06:06:41 +01:00
parent 25dc16addb
commit 21158d6d54
2 changed files with 5 additions and 5 deletions

View File

@ -1,4 +1,4 @@
:: |close-flows: corks all stale ames flows
:: Deletes all stale ames flows from failed (re) subscriptions
::
:: It runs in dry mode by default, printing the flows that can be closed.
:: To actually close the flows, run with |close-flows, =dry |
@ -6,4 +6,4 @@
:- %say
|= [^ arg=~ dry=?]
::
[%helm-kroc dry]
[%helm-ames-kroc dry]

View File

@ -245,9 +245,9 @@
|= ~ =< abet
(emit %pass /helm %arvo %a %stir '')
::
++ poke-kroc
++ poke-ames-kroc
|= dry=? =< abet
(emit [%pass /helm/kroc %arvo %a %kroc dry])
(emit %pass /helm %arvo %a %kroc dry)
::
++ poke-knob
|= [error-tag=@tas level=?(%hush %soft %loud)] =< abet
@ -284,7 +284,7 @@
%helm-ames-sift =;(f (f !<(_+<.f vase)) poke-ames-sift)
%helm-ames-verb =;(f (f !<(_+<.f vase)) poke-ames-verb)
%helm-ames-wake =;(f (f !<(_+<.f vase)) poke-ames-wake)
%helm-kroc =;(f (f !<(_+<.f vase)) poke-kroc)
%helm-ames-kroc =;(f (f !<(_+<.f vase)) poke-ames-kroc)
%helm-atom =;(f (f !<(_+<.f vase)) poke-atom)
%helm-automass =;(f (f !<(_+<.f vase)) poke-automass)
%helm-cancel-automass =;(f (f !<(_+<.f vase)) poke-cancel-automass)