From efd9774cc6699bd91fff74c626b0197cc75abf39 Mon Sep 17 00:00:00 2001
From: Muhammad Ridho <reedho@gmail.com>
Date: Thu, 5 Oct 2023 01:03:10 +0700
Subject: [PATCH] fix hickory/jsoup error on native build

---
 deps.edn           | 3 ++-
 src/cq/formats.clj | 7 ++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/deps.edn b/deps.edn
index 38dc69f..1213df6 100644
--- a/deps.edn
+++ b/deps.edn
@@ -15,7 +15,8 @@
   medley/medley {:mvn/version "1.3.0"}
   mvxcvi/puget {:mvn/version "1.3.1"}
   tolitius/xml-in {:mvn/version "0.1.1"}
-  org.clj-commons/hickory {:mvn/version "0.7.3"}}
+  org.clj-commons/hickory {:mvn/version "0.7.3"}
+  org.jsoup/jsoup {:mvn/version "1.14.3"}}
  :aliases
  {:run
   {:main-opts ["-m" "cq.main"]}
diff --git a/src/cq/formats.clj b/src/cq/formats.clj
index 27e7e5b..0a57772 100644
--- a/src/cq/formats.clj
+++ b/src/cq/formats.clj
@@ -172,13 +172,14 @@
 (defn ->html-reader
   [_]
   (fn [in]
-    (html/as-hickory (org.jsoup.Jsoup/parse in nil ""))))
+    (html/as-hickory (html/parse (slurp (io/reader in))))))
 
 (defn ->html-writer
   [_]
   (fn [x out]
-    (with-open [w (io/writer out)]
-      (.write w (hickory-to-html x)))))
+    (binding [*out* (io/writer out)]
+      (print (hickory-to-html x))
+      (flush))))
 
 (def formats
   {"json"    {:->reader ->json-reader