From e3e3bee184283b11daec5b525c74d4b9532435af Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Fri, 5 Dec 2014 12:14:00 -0800 Subject: [PATCH] Radio structures. --- main/sur/radio/core.hook | 44 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 main/sur/radio/core.hook diff --git a/main/sur/radio/core.hook b/main/sur/radio/core.hook new file mode 100644 index 0000000000..a239b0d0c4 --- /dev/null +++ b/main/sur/radio/core.hook @@ -0,0 +1,44 @@ +:: +:::: /hook/core/radio/sur + :: +|% +++ audience (map station delivery) :: destination/state +++ cousin (pair span ship) :: domestic flow +++ command :: effect on party + $% [%design (pair span (unit config))] :: configure/destroy + [%publish (list thought)] :: originate + [%review (list thought)] :: deliver + [%ping (pair span presence)] :: declare status + == :: +++ config :: party configuration + $: sources=(set station) :: pulls from + cordon=(each (set ship) (set ship)) :: white/blacklist + == :: +++ delivery ?(%pending %received %rejected) :: delivery state +++ 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 + $: [%house (set span)] :: meta-changes + [%grams (pair ,@ud (list telegram))] :: thoughts + [%group (map ship status)] :: presence + [%config config] :: reconfigure + == :: +++ serial ,@uvH :: unique identity +++ station (each cousin partner) :: +++ status (trel presence ,@da human) :: participant +++ speech :: party action + $% [%own p=@t] :: @ or /me + [%exp p=@t q=tank] :: program output + [%say p=@t] :: normal line + [%inv p=ship q=span] :: invite to + == :: +++ statement (pair @da speech) :: when this +++ telegram (pair ship thought) :: who which whom what +++ thought (trel serial audience statement) :: which whom what +--