shrub/pkg/arvo/app/soto.hoon

::
::  soto [landscape]: A Dojo relay for Urbit's Landscape interface
::
::  Relays sole-effects to subscribers and forwards sole-action pokes
::
/-  sole
/+  *soto, default-agent
|%
+$  card  card:agent:gall
::
+$  versioned-state
  $@  state-null
  state-zero
::
+$  state-null  ~
::
+$  state-zero  [%0 ~]
--
=|  state-zero
=*  state  -
^-  agent:gall
|_  bol=bowl:gall
+*  this      .
    soto-core  +>
    sc        ~(. soto-core bol)
    def       ~(. (default-agent this %|) bol)
::
++  on-init
  :_  this
  :_  ~
  :*  %pass  /srv  %agent  [our.bol %file-server]
      %poke  %file-server-action
      !>([%serve-dir /'~dojo' /app/landscape %.n %.y])
  ==
++  on-save  !>(state)
::
++  on-load
  |=  old-vase=vase
  =/  old
    !<(versioned-state old-vase)
  ?^  old
    [~ this(state old)]
  :_  this(state [%0 ~])
  :~  [%pass /bind/soto %arvo %e %disconnect [~ /'~dojo']]
      :*  %pass  /srv  %agent  [our.bol %file-server]
          %poke  %file-server-action
          !>([%serve-dir /'~dojo' /app/landscape %.n %.y])
      ==
  ==
::
++  on-poke  on-poke:def
++  on-watch
  |=  pax=path
  ^-  (quip card _this)
  ?+  pax  (on-watch:def pax)
      [%sototile ~]
    :_  this
    [%give %fact ~ %json !>(~)]~
  ==
::
++  on-agent  on-agent:def
::
++  on-arvo
  |=  [wir=wire sin=sign-arvo]
  ^-  (quip card _this)
  ?:  ?=(%bound +<.sin)
    [~ this]
  (on-arvo:def wir sin)
::
++  on-fail   on-fail:def
++  on-leave  on-leave:def
++  on-peek   on-peek:def
::
--