mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Extracted connect-to-relay
This commit is contained in:
parent
fe4cde702b
commit
55af920b52
@ -60,17 +60,25 @@
|
||||
(swap! config/websocket-backlog inc)
|
||||
(send-off events/event-agent handlers/handle-event message url)))
|
||||
|
||||
(defn connect-to-relay [relay]
|
||||
(let [url (::ws-relay/url relay)
|
||||
relay-config (get @relays url)
|
||||
read-type (:read relay-config)
|
||||
readable? (or (= read-type :read-all)
|
||||
(= read-type :read-trusted)
|
||||
(= read-type :read-web-of-trust))
|
||||
writeable? (:write relay-config)
|
||||
should-connect? (or readable? writeable?)
|
||||
open-relay (if should-connect?
|
||||
(relay/open relay)
|
||||
nil)]
|
||||
(when (some? open-relay)
|
||||
(swap! relays assoc-in [url :connection] open-relay))))
|
||||
|
||||
(defn connect-to-relays []
|
||||
(doseq [url (keys @relays)]
|
||||
(let [relay (ws-relay/make url handle-relay-message)
|
||||
relay-config (get @relays url)
|
||||
should-connect? (or (:read relay-config)
|
||||
(:write relay-config))
|
||||
open-relay (if should-connect?
|
||||
(relay/open relay)
|
||||
nil)]
|
||||
(when (some? open-relay)
|
||||
(swap! relays assoc-in [url :connection] open-relay))))
|
||||
(let [relay (ws-relay/make url handle-relay-message)]
|
||||
(connect-to-relay relay)))
|
||||
(prn 'relay-connection-attempts-complete))
|
||||
|
||||
(defn request-contact-lists-from-relays [id]
|
||||
|
Loading…
Reference in New Issue
Block a user