2014-12-05 23:14:00 +03:00
|
|
|
::
|
|
|
|
|
:::: /hook/core/radio/sur
|
|
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
++ audience (map station delivery) :: destination/state
|
2014-12-17 21:05:38 +03:00
|
|
|
++ atlas (map ship status) :: presence map
|
2014-12-05 23:14:00 +03:00
|
|
|
++ command :: effect on party
|
|
|
|
|
$% [%design (pair span (unit config))] :: configure/destroy
|
|
|
|
|
[%publish (list thought)] :: originate
|
|
|
|
|
[%review (list thought)] :: deliver
|
2014-12-17 21:05:38 +03:00
|
|
|
[%ping (map station presence)] :: declare status
|
2014-12-05 23:14:00 +03:00
|
|
|
== ::
|
|
|
|
|
++ config :: party configuration
|
|
|
|
|
$: sources=(set station) :: pulls from
|
|
|
|
|
cordon=(each (set ship) (set ship)) :: white/blacklist
|
|
|
|
|
== ::
|
2014-12-09 22:04:09 +03:00
|
|
|
++ cousin (pair ship span) :: domestic flow
|
2014-12-17 21:05:38 +03:00
|
|
|
++ delivery ?(%pending %received %rejected %released) :: delivery state
|
2014-12-05 23:14:00 +03:00
|
|
|
++ human :: human identifier
|
|
|
|
|
$: true=(unit (trel ,@t (unit ,@t) ,@t)) :: true name
|
|
|
|
|
hand=(unit ,@t) :: handle
|
|
|
|
|
== ::
|
|
|
|
|
++ partner :: foreign flow
|
|
|
|
|
$% [%twitter p=@t] :: twitter
|
|
|
|
|
== ::
|
|
|
|
|
++ presence ?(%hear %talk) :: status type
|
|
|
|
|
++ report :: unified rush/rust
|
2014-12-06 11:12:52 +03:00
|
|
|
$% [%house (set span)] :: meta-changes
|
2014-12-05 23:14:00 +03:00
|
|
|
[%grams (pair ,@ud (list telegram))] :: thoughts
|
2014-12-17 22:40:27 +03:00
|
|
|
[%group (pair atlas (map station atlas))] :: presence
|
2014-12-05 23:14:00 +03:00
|
|
|
[%config config] :: reconfigure
|
|
|
|
|
== ::
|
|
|
|
|
++ serial ,@uvH :: unique identity
|
2014-12-09 22:04:09 +03:00
|
|
|
++ station (each cousin partner) :: interlocutor
|
2014-12-17 03:36:45 +03:00
|
|
|
++ status (pair presence human) :: participant
|
2014-12-05 23:14:00 +03:00
|
|
|
++ speech :: party action
|
|
|
|
|
$% [%own p=@t] :: @ or /me
|
2014-12-06 04:18:31 +03:00
|
|
|
[%exp p=@t q=(unit tank)] :: program output
|
2014-12-05 23:14:00 +03:00
|
|
|
[%say p=@t] :: normal line
|
|
|
|
|
[%inv p=ship q=span] :: invite to
|
|
|
|
|
== ::
|
2014-12-06 04:18:31 +03:00
|
|
|
++ statement (pair ,@da speech) :: when this
|
2014-12-05 23:14:00 +03:00
|
|
|
++ telegram (pair ship thought) :: who which whom what
|
|
|
|
|
++ thought (trel serial audience statement) :: which whom what
|
|
|
|
|
--
|
