/+  default-agent, verb, dbug
::
=|  state=~
%-  agent:dbug
%+  verb  &
^-  agent:gall
|_  =bowl:gall
+*  this  .
    def   ~(. (default-agent this %|) bowl)
::
++  on-poke
  |=  [=mark =vase]
  (on-poke:def +<)
::
++  on-watch
  |=  =path
  ~&  pub-watch+path
  (on-watch:def +<)
::
++  on-agent
  |=  [=wire =sign:agent:gall]
  (on-agent:def +<)
::
++  on-fail
  |=  [=term =tang]
  (mean ':pub +on-fail' term tang)
::
++  on-leave
  |=  =path
  ~&  pub-leave+path
  `this
::
++  on-init   `this
++  on-save   !>(state)
++  on-load   |=(old=vase `this(state !<(_state old)))
++  on-arvo   on-arvo:def
++  on-peek   on-peek:def
--