fix build (#764)

The build fails due to downloading an image from wikipedia without setting a user agent.

Solve this by switching to babashka.http-client which sets a user agent.

Author: borkdude

deps.edn

@@ -2,6 +2,7 @@
  :deps {org.clojure/clojure {:mvn/version "1.11.1"}
         org.clojure/java.classpath {:mvn/version "1.0.0"}
         babashka/fs {:mvn/version "0.5.22"}
+        org.babashka/http-client {:mvn/version "0.4.23"}
         borkdude/edamame {:mvn/version "1.4.28"}
         weavejester/dependency {:mvn/version "0.2.1"}
         com.nextjournal/beholder {:mvn/version "1.0.3"}

notebooks/viewers/table.clj

@@ -1,12 +1,13 @@
 ;; # Tables 🔢
 (ns ^:nextjournal.clerk/no-cache viewers.table
-  (:require [clojure.data.csv :as csv]
+  (:require [babashka.http-client :as http]
+            [clojure.data.csv :as csv]
             [clojure.java.io :as io]
             [clojure.string :as str]
+            [honey.sql :as sql]
             [next.jdbc :as jdbc]
             [nextjournal.clerk :as clerk]
-            [nextjournal.clerk.viewer :as v]
-            [honey.sql :as sql]))
+            [nextjournal.clerk.viewer :as v]))
 
 ;; ## Empty table
 
@@ -60,8 +61,11 @@
                (-> (mapv (fn [char] (clojure.string/join "" (repeat 20 char)))
                          (map char (range 97 127))))]})
 
+(defn read-image [url]
+  (javax.imageio.ImageIO/read (:body (http/get url {:as :stream}))))
+
 ;; ## Table with images
-(clerk/table [[1 2] [3 (javax.imageio.ImageIO/read (java.net.URL. "https://nextjournal.com/data/QmeyvaR3Q5XSwe14ZS6D5WBQGg1zaBaeG3SeyyuUURE2pq?filename=thermos.gif&content-type=image/gif"))]])
+(clerk/table [[1 2] [3 (read-image "https://nextjournal.com/data/QmeyvaR3Q5XSwe14ZS6D5WBQGg1zaBaeG3SeyyuUURE2pq?filename=thermos.gif&content-type=image/gif")]])
 
 ;; ## Table within tables
 (clerk/table [[1 2] [3 (clerk/table [[1 2] [3 4]])]])
@@ -76,8 +80,8 @@
 (clerk/with-viewers (clerk/add-viewers [(assoc v/image-viewer :render-fn '(fn [blob] [:img {:width "30px" :height "30px" :src (nextjournal.clerk.viewer/url-for blob)}]))])
   (clerk/table
    {:rows (map (juxt identity dec) (range 1 100))
-    :head [(javax.imageio.ImageIO/read (java.net.URL. "https://upload.wikimedia.org/wikipedia/commons/1/17/Plus_img_364976.png"))
-           (javax.imageio.ImageIO/read (java.net.URL. "https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/OCR-A_char_Hyphen-Minus.svg/543px-OCR-A_char_Hyphen-Minus.svg.png"))]}))
+    :head [(read-image "https://upload.wikimedia.org/wikipedia/commons/1/17/Plus_img_364976.png")
+           (read-image "https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/OCR-A_char_Hyphen-Minus.svg/543px-OCR-A_char_Hyphen-Minus.svg.png")]}))
 
 ;; ## Custom Table Viewers
 ;; override single table components

src/nextjournal/clerk/builder.clj

@@ -1,6 +1,7 @@
 (ns nextjournal.clerk.builder
   "Clerk's Static App Builder."
   (:require [babashka.fs :as fs]
+            [babashka.http-client :as http]
             [babashka.process :refer [sh]]
             [clojure.java.browse :as browse]
             [clojure.java.io :as io]
@@ -169,12 +170,7 @@
            :paths (vec (keys path->doc)))))
 
 (defn download-text-file [url]
-  (let [client (java.net.http.HttpClient/newHttpClient)
-        request (-> (java.net.http.HttpRequest/newBuilder)
-                    (.uri (java.net.URI/create url))
-                    (.build))
-        response (.send client request (java.net.http.HttpResponse$BodyHandlers/ofString))]
-    (.body response)))
+  (:body (http/get url)))
 
 (defn- node-ssr!
   [{:keys [viewer-js state]

src/nextjournal/clerk/viewer.cljc

@@ -1,6 +1,7 @@
 (ns nextjournal.clerk.viewer
   (:refer-clojure :exclude [var?])
-  (:require [clojure.datafy :as datafy]
+  (:require #?(:clj [babashka.http-client :as http])
+            [clojure.datafy :as datafy]
             [clojure.pprint :as pprint]
             [clojure.set :as set]
             [clojure.string :as str]
@@ -616,7 +617,11 @@
    (defn read-image [image-or-url]
      (ImageIO/read
       (if (string? image-or-url)
-        (URL. (cond->> image-or-url (not (.getScheme (URI. image-or-url))) (str "file:")))
+        (let [scheme (.getScheme (URI. image-or-url))
+              http? (when scheme (str/starts-with? scheme "http"))]
+          (if http?
+            (:body (http/get image-or-url {:as :stream}))
+            (URL. (cond->> image-or-url (not scheme) (str "file:")))))
         image-or-url))))
 
 #?(:clj