@@ -125,6 +125,54 @@ A `$source` is `(each ship term)`.
126`term=@tas`
126`term=@tas`
130+ ~& [%jael-listen whos source]:tac
132+ (sources:~(feel su hen our now pki etn) [whos source]:tac)
137+ :: the ++su core handles all derived state,
138+ :: subscriptions, and actions.
140+ :: ++feed:su registers subscriptions.
142+ :: ++feel:su checks if a ++change should notify
148+ :: Change sources for ships
151+ |= [whos=(set ship) =source]
153+ =^ =source-id this-su (get-source-id source)
156+ ..feed(default-source.etn source-id)
157+ =/ whol=(list ship) ~(tap in `(set ship)`whos)
159+ |- ^- (map ship ^source-id)
162+ (~(put by $(whol t.whol)) i.whol source-id)
163+ =. ship-sources-reverse.etn
164+ %- ~(gas ju ship-sources-reverse.etn)
165+ (turn whol |=(=ship [source-id ship]))
171+ [hen %pass /public-keys %a %plea p.source %j /public-keys message]
172+ (emit (send-message %public-keys whos))
173+ (peer p.source whos)
129#### Returns
177#### Returns