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.
++ 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)))
