soto: tombstone
+:: soto [tombstone]: former dojo relay for urbit's landscape interface
::
-:: 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
-::
---
+/+ default-agent
+(default-agent *agent:gall %|)
