Reader now properly stores mailbox's sources, and updates audience for new sources.

The latter is necessary because of the delay between setting audience to a newly created/joined station, which causes the mailbox to be included because we don't know we're actually subscribed to the new station yet.
This commit is contained in:
Fang 2017-04-12 15:09:24 +02:00
parent 3a43657bc1
commit 496a177a8e

View File

@ -190,6 +190,19 @@
++ ra-low-confs
|= cofs/(map station (unit config))
^+ +>
::x if possible, update sources. if we do, and we gain new ones, update
::x the prompt. (this is to remove the mailbox from the audience after
::x creating or joining a new station.)
=. +>
=+ cof=(fall (~(get by cofs) [our.hid (main our.hid)]) ~)
?~ cof +>.$
=. +>.$ ::TODO =?
?~ (~(dif in sources.u.cof) sources) +>.$
=< sh-abet
%- ~(sh-pact sh(sources sources.u.cof) cli (main our.hid))
(~(dif in sources.u.cof) sources)
=. sources sources.u.cof
+>.$
::TODO fix sh-low-remco to print properly.
::TODO actually delete ~ configs.
=/ cogs/_mirrors (~(run by cofs) |=(a/(unit config) (fall a *config)))