2019-10-01 02:25:25 +03:00
|
|
|
|%
|
2019-10-08 20:11:18 +03:00
|
|
|
+$ serial @uvH
|
2019-10-01 02:25:25 +03:00
|
|
|
::
|
|
|
|
+$ letter
|
|
|
|
$% [%text text=cord]
|
|
|
|
[%url url=cord]
|
|
|
|
[%code expression=cord output=(list tank)]
|
2019-10-03 23:33:07 +03:00
|
|
|
[%me narrative=cord]
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
+$ envelope
|
|
|
|
$: uid=serial
|
|
|
|
number=@
|
|
|
|
author=ship
|
|
|
|
when=time
|
|
|
|
=letter
|
|
|
|
==
|
|
|
|
::
|
|
|
|
+$ config
|
2019-10-07 21:16:47 +03:00
|
|
|
$: length=@
|
2019-10-01 02:25:25 +03:00
|
|
|
read=@
|
|
|
|
==
|
|
|
|
::
|
|
|
|
+$ mailbox
|
|
|
|
$: =config
|
|
|
|
envelopes=(list envelope)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
+$ inbox (map path mailbox)
|
|
|
|
::
|
|
|
|
+$ chat-configs (map path config)
|
|
|
|
::
|
2019-11-14 03:53:47 +03:00
|
|
|
+$ chat-base
|
2019-10-07 21:16:47 +03:00
|
|
|
$% [%create =ship =path] :: %create: create a mailbox at ~ship/path
|
2019-10-03 23:33:07 +03:00
|
|
|
[%delete =path] :: %delete: delete a mailbox at path
|
|
|
|
[%message =path =envelope] :: %message: append a message to mailbox
|
|
|
|
[%read =path] :: %read: set mailbox to read
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
::
|
2019-11-14 03:53:47 +03:00
|
|
|
+$ chat-action
|
|
|
|
$% :: %messages: append a list of messages to mailbox
|
|
|
|
::
|
|
|
|
[%messages =path envelopes=(list envelope)]
|
|
|
|
chat-base
|
|
|
|
==
|
|
|
|
::
|
2019-10-01 02:25:25 +03:00
|
|
|
+$ chat-update
|
|
|
|
$% [%keys keys=(set path)]
|
|
|
|
[%config =path =config]
|
2019-11-23 01:04:36 +03:00
|
|
|
[%messages =path start=@ud end=@ud envelopes=(list envelope)]
|
2019-11-14 03:53:47 +03:00
|
|
|
chat-base
|
2019-10-01 02:25:25 +03:00
|
|
|
==
|
|
|
|
--
|