init nostr with gniazdo

src/micro_blog/nostr.clj

@@ -0,0 +1,28 @@
+(ns micro-blog.nostr
+  (:require
+    [gniazdo.core :as ws]
+    [cheshire.core :as json]
+    [micro-blog.config :refer [config]]))
+
+;; :nostr-fetcher-npub "NOSTR_FETCHER_NPUB"
+;; :nostr-id "NOSTR_ID"
+;; :nostr-relay "NOSTR_RELAY"
+(def socket (atom nil))
+
+(defn connect []
+  (reset! socket
+          (ws/connect
+            (@config :nostr-relay)
+            :on-receive #(prn 'received %))))
+
+(defn subscribe-to-author [pubkey]
+  (let [sub-id "sub-1"
+        filter {:kinds [1] :authors [pubkey] :limit 10}
+        msg (json/generate-string ["REQ" sub-id filter])]
+    (send-msg msg)))
+
+(defn send-msg [msg]
+  (ws/send-msg @socket msg))
+
+(defn close []
+  (ws/close @socket))