From 1b7299129c6df1658bd9f93e5c78c644b2892efb Mon Sep 17 00:00:00 2001
From: "niten\" (aider)" <niten@fudo.org>
Date: Sun, 8 Jun 2025 09:46:22 -0700
Subject: [PATCH] feat: Implement create-client and create-json-client
 functions in core.clj

---
 src/milquetoast/core.clj | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/milquetoast/core.clj b/src/milquetoast/core.clj
index 7eb3478..ed0bba5 100644
--- a/src/milquetoast/core.clj
+++ b/src/milquetoast/core.clj
@@ -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)))