refactored process-server-recommendation (kind 2)

spec/more_speech/nostr/events_spec.clj

@@ -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

src/more_speech/nostr/event_handlers.clj

@@ -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)

src/more_speech/ui/swing/ui_context.clj

@@ -22,4 +22,7 @@
 
 (defn get-db []
   {::gateway/type ::in-memory/type
-   :data (:event-context @ui-context)})
+   :data (:event-context @ui-context)})
+
+(defn get-mem []
+  ((:event-context @ui-context)))