;who only shows members of currently joined circles.

This commit is contained in:
Fang 2017-10-10 15:59:47 +02:00
parent 611e2e60bf
commit e96b7d5fa3

View File

@ -1104,6 +1104,7 @@
=< (sh-fact %mor (murn (sort ~(tap by remotes) aor) .))
|= {pon/circle gop/group} ^- (unit sole-effect)
?. |(=(~ pas) (~(has in pas) pon)) ~
?. (~(has in sources) pon) ~
=- `[%tan rose+[", " `~]^- leaf+~(pr-full pr pon) ~]
=< (murn (sort ~(tap by gop) aor) .)
|= {a/ship b/presence c/human} ^- (unit tank)