feat: Implement create-client and create-json-client functions in core.clj

2025-06-08 09:46:22 -07:00
parent 042c8454d5
commit 1b7299129c
1 changed files with 4 additions and 2 deletions
@@ -124,9 +124,11 @@
 (defn create-client
  [broker-uri username password & {:keys [verbose]
                                   :or   {verbose false}}]
-  ...)
+  (let [client (MqttClient. broker-uri username password (MemoryPersistence.))]
+    (->MilquetoastClient client (atom []) verbose)))

 (defn create-json-client
  [broker-uri username password & {:keys [verbose]
                                   :or   {verbose false}}]
-  ...)
+  (let [client (create-client broker-uri username password :verbose verbose)]
+    (->MilquetoastJsonClient client)))