mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
refactored process-server-recommendation (kind 2)
This commit is contained in:
parent
d7b0612a66
commit
a8f2ead59f
@ -9,6 +9,7 @@
|
||||
[more-speech.nostr.elliptic-signature :refer :all]
|
||||
[more-speech.nostr.util :refer :all]
|
||||
[more-speech.ui.swing.ui-context :refer :all]
|
||||
[more-speech.nostr.relays :refer [relays]]
|
||||
[more-speech.config :as config])
|
||||
(:import (ecdhJava SECP256K1)))
|
||||
|
||||
@ -163,6 +164,21 @@
|
||||
)
|
||||
)
|
||||
|
||||
(declare mem)
|
||||
(describe "relay recommendation event kind 2"
|
||||
(with now (int (/ (System/currentTimeMillis) 1000)))
|
||||
(it "adds a relay recommendation"
|
||||
(reset! relays {})
|
||||
(let [event {:id 1
|
||||
:pubkey 1
|
||||
:created-at @now
|
||||
:kind 2
|
||||
:tags []
|
||||
:content "wss://relay-url"
|
||||
:sig 0xdddddd}]
|
||||
(process-server-recommendation event)
|
||||
(should= {"wss://relay-url" {:read false, :write false}} @relays))))
|
||||
|
||||
(defn have-client-tag? [tags]
|
||||
(let [[[tag-id tag-content]] tags]
|
||||
(and
|
||||
|
@ -76,9 +76,8 @@
|
||||
(defn process-like [event-state _event]
|
||||
event-state)
|
||||
|
||||
(defn process-server-recommendation [event-state event]
|
||||
(relays/add-relay (:content event))
|
||||
event-state)
|
||||
(defn process-server-recommendation [event]
|
||||
(relays/add-relay (:content event)))
|
||||
|
||||
(defn process-event [event url]
|
||||
(let [db (get-db)
|
||||
@ -91,7 +90,7 @@
|
||||
(condp = kind
|
||||
0 (process-name-event db event)
|
||||
1 (process-text-event db event url)
|
||||
2 (swap! (:data db) process-server-recommendation event)
|
||||
2 (process-server-recommendation event)
|
||||
3 (swap! (:data db) contact-list/process-contact-list event url)
|
||||
4 (swap! (:data db) process-text-event event url)
|
||||
7 (swap! (:data db) process-like event)
|
||||
|
@ -23,3 +23,6 @@
|
||||
(defn get-db []
|
||||
{::gateway/type ::in-memory/type
|
||||
:data (:event-context @ui-context)})
|
||||
|
||||
(defn get-mem []
|
||||
((:event-context @ui-context)))
|
Loading…
Reference in New Issue
Block a user