mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-18 14:21:53 +03:00
7455e2d778
Includes the bark/growl system for sharing activity summaries. The growl agent respects the "activity logging" consent flag used by groups, defaults to not sharing if that flag is not set, and only shares with the "bark host" when prompted. (The bark host, in turn, currently only stores responses for hosted ships.) Also includes all the groups-side dependencies this has, which it needs for the chats & groups types. Hard-including those files will save us some run-around during deploy. Co-authored-by: midsum-salrux <nathan@tlon.io>
58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
/- g=groups
|
|
=< cite
|
|
|%
|
|
++ purse
|
|
|= =(pole knot)
|
|
^- (unit cite)
|
|
?. =(~.1 -.pole) ~
|
|
=. pole +.pole
|
|
?+ pole ~
|
|
[%chan agent=@ ship=@ name=@ rest=*]
|
|
=/ ship (slaw %p ship.pole)
|
|
?~ ship ~
|
|
`[%chan [agent.pole u.ship name.pole] rest.pole]
|
|
::
|
|
[%desk ship=@ name=@ rest=*]
|
|
=/ ship (slaw %p ship.pole)
|
|
?~ ship ~
|
|
`[%desk [u.ship name.pole] rest.pole]
|
|
::
|
|
[%group ship=@ name=@ ~]
|
|
=/ ship (slaw %p ship.pole)
|
|
?~ ship ~
|
|
`[%group u.ship name.pole]
|
|
==
|
|
++ parse
|
|
|= =path
|
|
^- cite
|
|
(need (purse path))
|
|
::
|
|
++ print
|
|
|= c=cite
|
|
|^ ^- path
|
|
:- (scot %ud 1)
|
|
?- -.c
|
|
%chan chan/(welp (nest nest.c) wer.c)
|
|
%desk desk/(welp (flag flag.c) wer.c)
|
|
%group group/(flag flag.c)
|
|
%bait bait/:(welp (flag grp.c) (flag gra.c) wer.c)
|
|
==
|
|
++ flag
|
|
|= f=flag:g
|
|
~[(scot %p p.f) q.f]
|
|
++ nest
|
|
|= n=nest:g
|
|
[p.n (flag q.n)]
|
|
--
|
|
::
|
|
+$ cite
|
|
$% [%chan =nest:g wer=path]
|
|
[%group =flag:g]
|
|
[%desk =flag:g wer=path]
|
|
[%bait grp=flag:g gra=flag:g wer=path]
|
|
:: scry into groups when you receive a bait for a chat that doesn't exist yet
|
|
:: work out what app
|
|
==
|
|
--
|
|
|