2020-10-16 21:22:57 +03:00
|
|
|
/- *resource
|
2019-10-31 21:38:23 +03:00
|
|
|
|%
|
|
|
|
++ serial @uvH
|
|
|
|
::
|
|
|
|
+$ invite
|
2019-11-01 01:13:23 +03:00
|
|
|
$: =ship :: ship to subscribe to upon accepting invite
|
|
|
|
app=@tas :: app to subscribe to upon accepting invite
|
2020-10-27 20:33:28 +03:00
|
|
|
=resource :: resource to subscribe to upon accepting invite
|
2019-11-01 01:13:23 +03:00
|
|
|
recipient=ship :: recipient to receive invite
|
|
|
|
text=cord :: text to describe the invite
|
2019-10-31 21:38:23 +03:00
|
|
|
==
|
|
|
|
::
|
2020-10-22 20:17:15 +03:00
|
|
|
+$ multi-invite
|
|
|
|
$: =ship :: ship to subscribe to upon accepting invite
|
|
|
|
app=@tas :: app to subscribe to upon accepting invite
|
2020-10-27 20:33:28 +03:00
|
|
|
=resource :: resource to subscribe to upon accepting invite
|
2020-10-22 20:17:15 +03:00
|
|
|
recipients=(set ship) :: recipient to receive invite
|
|
|
|
text=cord :: text to describe the invite
|
|
|
|
==
|
|
|
|
::
|
2020-10-16 21:22:57 +03:00
|
|
|
:: +invites: each application using invites creates its own resource that
|
2019-11-01 01:13:23 +03:00
|
|
|
:: contains a map of serial to invite. this allows it to only receive
|
|
|
|
:: invites that it is concerned with
|
|
|
|
::
|
2020-10-21 01:18:30 +03:00
|
|
|
+$ invites (map term invitatory) :: main data structure
|
2019-11-01 01:13:23 +03:00
|
|
|
::
|
2019-10-31 21:38:23 +03:00
|
|
|
+$ invitatory (map serial invite) :: containing or conveying an invitation
|
|
|
|
::
|
|
|
|
+$ invite-base
|
2020-10-21 01:18:30 +03:00
|
|
|
$% [%create =term] :: create a resource
|
|
|
|
[%delete =term] :: delete a resource
|
|
|
|
[%invite =term uid=serial =invite] :: receive an invite at term/uid
|
|
|
|
[%decline =term uid=serial] :: decline an invite at term/uid
|
2019-10-31 21:38:23 +03:00
|
|
|
==
|
|
|
|
::
|
2020-10-22 20:17:15 +03:00
|
|
|
+$ action
|
2019-10-31 21:38:23 +03:00
|
|
|
$% invite-base
|
2020-10-21 01:18:30 +03:00
|
|
|
[%accept =term uid=serial] :: accept an invite at term/uid
|
2020-10-22 20:17:15 +03:00
|
|
|
[%invites =term uid=serial invites=multi-invite]
|
2019-10-31 21:38:23 +03:00
|
|
|
==
|
|
|
|
::
|
2020-10-22 20:17:15 +03:00
|
|
|
+$ update
|
2019-10-31 21:38:23 +03:00
|
|
|
$% invite-base
|
2020-05-22 21:21:10 +03:00
|
|
|
[%initial =invites]
|
2020-10-16 21:22:57 +03:00
|
|
|
[%invitatory =invitatory] :: receive invitatory
|
2020-10-27 20:33:28 +03:00
|
|
|
[%accepted =term uid=serial =invite] :: an invite has been accepted
|
2019-11-02 01:18:17 +03:00
|
|
|
==
|
2019-10-31 21:38:23 +03:00
|
|
|
--
|
|
|
|
|