example app for userspace scry bindings

scry-app.hoon

/+  default-agent, verb, dbug
::
|%
+$  poke
  $%  [%grow =case =spur =noun]
      [%tomb =case =spur]
      [%cull =case =spur]
  ==
--
::
%+  verb  &
%-  agent:dbug
^-  agent:gall
|_  =bowl:gall
+*  this  .
    def  ~(. (default-agent this %|) bowl)
++  on-init   on-init:def
++  on-load   on-load:def
++  on-save   on-save:def
++  on-watch  on-watch:def
++  on-poke
  |=  [=mark =vase]
  ^-  (quip card:agent:gall _this)
  :_  this
  =+  !<(=poke vase)
  ?-  -.poke
    %grow  [%pass /grow %grow [case spur noun]:poke]~
    %tomb  [%pass /tomb %tomb [case spur]:poke]~
    %cull  [%pass /cull %cull [case spur]:poke]~
  ==
::
++  on-arvo   on-arvo:def
++  on-peek   on-peek:def
++  on-leave  on-leave:def
++  on-agent  on-agent:def
++  on-fail   on-fail:def
--