mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 11:24:21 +03:00
50 lines
942 B
Plaintext
50 lines
942 B
Plaintext
|
:: invite-view: provide a json interface to invite-store
|
||
|
|
::
|
||
|
|
/+ *invite-json
|
||
|
|
::
|
||
|
|
|%
|
||
|
|
+$ move [bone card]
|
||
|
|
::
|
||
|
|
+$ card
|
||
|
|
$% [%peer wire dock path]
|
||
|
|
[%diff %json json]
|
||
|
|
==
|
||
|
|
--
|
||
|
|
::
|
||
|
|
|_ [bol=bowl:gall ~]
|
||
|
|
::
|
||
|
|
++ this .
|
||
|
|
::
|
||
|
|
++ prep
|
||
|
|
|= old=*
|
||
|
|
^- (quip move _this)
|
||
|
|
:_ this
|
||
|
|
[ost.bol %peer / [our.bol %invite-store] /updates]~
|
||
|
|
::
|
||
|
|
++ peer-primary
|
||
|
|
|= pax=path
|
||
|
|
^- (quip move _this)
|
||
|
|
?> (team:title our.bol src.bol)
|
||
|
|
:_ this
|
||
|
|
[ost.bol %diff %json (invites-to-json invites-scry)]~
|
||
|
|
::
|
||
|
|
++ diff-invite-update
|
||
|
|
|= [wir=wire upd=invite-update]
|
||
|
|
^- (quip move _this)
|
||
|
|
=/ updates-json (update-to-json upd)
|
||
|
|
:_ this
|
||
|
|
%+ turn (prey:pubsub:userlib /primary bol)
|
||
|
|
|= [=bone *]
|
||
|
|
[bone %diff %json updates-json]
|
||
|
|
::
|
||
|
|
++ quit
|
||
|
|
|= wir=wire
|
||
|
|
^- (quip move _this)
|
||
|
|
:_ this
|
||
|
|
[ost.bol %peer / [our.bol %invite-store] /updates]~
|
||
|
|
::
|
||
|
|
++ invites-scry
|
||
|
|
^- invites
|
||
|
|
.^(invites %gx /=invite-store/(scot %da now.bol)/all/noun)
|
||
|
|
--
|