verb: add +verb %bowl to print bowl on every event

pkg/arvo/gen/verb.hoon

@@ -1,4 +1,3 @@
 :-  %say
-|=  [* ~ ~]
-[%verb ~]
-
+|=  [* arg=?(~ [%bowl ~]) ~]
+[%verb ?~(arg %loud %bowl)]

pkg/arvo/lib/verb.hoon

@@ -1,98 +1,92 @@
 ::  Print what your agent is doing.
 ::
 |=  [loud=? =agent:gall]
+=|  bowl-print=_|
 ^-  agent:gall
+|^
 |_  =bowl:gall
 +*  this  .
     ag    ~(. agent bowl)
 ::
 ++  on-init
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-init" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-init")
   =^  cards  agent  on-init:ag
   [cards this]
 ::
 ++  on-save
   ^-  vase
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-save" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-save")
   on-save:ag
 ::
 ++  on-load
   |=  old-state=vase
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-load" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-load")
   =^  cards  agent  (on-load:ag old-state)
   [cards this]
 ::
 ++  on-poke
   |=  [=mark =vase]
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-poke with mark {<mark>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-poke with mark {<mark>}")
   ?:  ?=(%verb mark)
-    `this(loud !loud)
+    ?-  !<(?(%loud %bowl) vase)
+      %loud  `this(loud !loud)
+      %bowl  `this(bowl-print !bowl-print)
+    ==
   =^  cards  agent  (on-poke:ag mark vase)
   [cards this]
 ::
 ++  on-watch
   |=  =path
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-watch on path {<path>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-watch on path {<path>}")
   =^  cards  agent  (on-watch:ag path)
   [cards this]
 ::
 ++  on-leave
   |=  =path
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-leave on path {<path>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-leave on path {<path>}")
   =^  cards  agent  (on-leave:ag path)
   [cards this]
 ::
 ++  on-peek
   |=  =path
   ^-  (unit (unit cage))
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-peek on path {<path>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-peek on path {<path>}")
   (on-peek:ag path)
 ::
 ++  on-agent
   |=  [=wire =sign:agent:gall]
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-agent on wire {<wire>}, {<-.sign>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-agent on wire {<wire>}, {<-.sign>}")
   =^  cards  agent  (on-agent:ag wire sign)
   [cards this]
 ::
 ++  on-arvo
   |=  [=wire =sign-arvo]
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  %+  slog
-            leaf+"{<dap.bowl>}: on-arvo on wire {<wire>}, {<[- +<]:sign-arvo>}"
-          ~
-      .
+  %-  (print bowl "{<dap.bowl>}: on-arvo on wire {<wire>}, {<[- +<]:sign-arvo>}")
   =^  cards  agent  (on-arvo:ag wire sign-arvo)
   [cards this]
 ::
 ++  on-fail
   |=  [=term =tang]
   ^-  (quip card:agent:gall agent:gall)
-  =>  ?.  loud  .
-      %-  (slog leaf+"{<dap.bowl>}: on-fail with term {<term>}" ~)
-      .
+  %-  (print bowl "{<dap.bowl>}: on-fail with term {<term>}")
   =^  cards  agent  (on-fail:ag term tang)
   [cards this]
 --
+::
+++  print
+  |=  [=bowl:gall =tape]
+  ^+  same
+  =?  .  bowl-print
+    %-  (slog >bowl< ~)
+    .
+  ?.  loud  same
+  %-  (slog leaf+tape ~)
+  same
+--

pkg/arvo/sys/vane/ames.hoon

@@ -1481,8 +1481,6 @@
           ==
       ^+  event-core
       ::
-      ~>  %slog.0^leaf/"ames: rekey {<our^ship^life>}"
-      ::
       =/  ship-state  (~(get by peers.ames-state) ship)
       ?.  ?=([~ %known *] ship-state)
         =|  =point