hood: |knob {tag} {level} to set dill verbosity

This commit is contained in:
Ted Blackman 2019-09-27 13:56:27 -04:00 committed by Jared Tobin
parent f2073dbc34
commit 0bf9e98d08
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
3 changed files with 16 additions and 0 deletions

View File

@ -155,6 +155,7 @@
++ poke-drum-set-boot-apps (wrap poke-set-boot-apps):from-drum
++ poke-helm-hi (wrap poke-hi):from-helm
::++ poke-helm-invite (wrap poke-invite):from-helm
++ poke-helm-knob (wrap poke-knob):from-helm
++ poke-helm-mass (wrap poke-mass):from-helm
++ poke-helm-reload (wrap poke-reload):from-helm
++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm

View File

@ -0,0 +1,10 @@
:: Helm: Adjust vane error verbosity knob
::
/? 310
::
::::
::
:- %say
|= [^ [error-tag=@tas level=?(%hush %soft %loud) ~] ~]
:- %helm-knob
[error-tag level]

View File

@ -40,6 +40,7 @@
$% [%bonk wire ~] ::
{$conf wire dock ship term} ::
{$flog wire flog:dill} ::
[%knob wire @tas ?(%hush %soft %loud)] ::
{$nuke wire ship} ::
[%serve wire binding:eyre generator:eyre] ::
{$poke wire dock pear} ::
@ -197,6 +198,10 @@
|= ~ =< abet
(emit %flog /helm %verb ~)
::
++ poke-knob
|= [error-tag=@tas level=?(%hush %soft %loud)] =< abet
(emit %knob /helm error-tag level)
::
++ take-onto :: result of %conf
|= saw/(each suss:gall tang) =< abet
%- emit