contact-push-hook: add blank personal psuedo-resource for personal contact subscriptions

This commit is contained in:
Logan Allen 2021-02-01 18:24:56 -06:00
parent 48d9e8c9b8
commit da03594fbc

View File

@ -71,9 +71,13 @@
:: if the ship is in any group that I am pushing updates for, push :: if the ship is in any group that I am pushing updates for, push
:: it out to that resource. :: it out to that resource.
:: ::
%+ skim ~(tap in scry-sharing) =/ rids
|= r=resource:res %+ skim ~(tap in scry-sharing)
(is-member:grp s r) |= r=resource:res
(is-member:grp s r)
?. =(s our.bowl)
rids
(snoc rids [our.bowl %''])
:: ::
++ scry-sharing ++ scry-sharing
.^ (set resource:res) .^ (set resource:res)
@ -96,8 +100,12 @@
++ rolo ++ rolo
^- rolodex:store ^- rolodex:store
=/ ugroup (scry-group:grp resource) =/ ugroup (scry-group:grp resource)
?~ ugroup *rolodex:store
%- ~(gas by *rolodex:store) %- ~(gas by *rolodex:store)
?~ ugroup
=/ c=(unit contact:store) (get-contact:con our.bowl)
?~ c
[our.bowl *contact:store]~
[our.bowl u.c]~
%+ murn ~(tap in (members:grp resource)) %+ murn ~(tap in (members:grp resource))
|= s=ship |= s=ship
^- (unit [ship contact:store]) ^- (unit [ship contact:store])