From 42cd7d6f9eb5f342b02f193590e5ad5523aef535 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 7 Oct 2026 17:34:46 +0000
Subject: [PATCH] :bug: Restore obj/set! over-renamed by the bang-drop script

The mechanical rename turned the qualified `obj/set!` call sites
into `obj/set`, but the definition keeps its `!`: the name is shared
with the frontend twin `app.util.object`, which is not ours to
rename here. Call sites go back to `obj/set!`, and the
`:refer-clojure :exclude` goes back to `set!` with them.

AI-assisted-by: muse-spark-1.3-contributor
---
 exporter/src/app/browser.cljs     | 12 ++++++------
 exporter/src/app/util/object.cljs |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/exporter/src/app/browser.cljs b/exporter/src/app/browser.cljs
index e52d3c32f4..0a6a762874 100644
--- a/exporter/src/app/browser.cljs
+++ b/exporter/src/app/browser.cljs
@@ -90,12 +90,12 @@
   ([frame {:keys [full-page? omit-background? type quality path]
            :or {type "png" full-page? false omit-background? false quality 95}}]
    (let [options (-> (obj/new)
-                     (obj/set "type" (name type))
-                     (obj/set "omitBackground" omit-background?)
-                     (cond-> path (obj/set "path" path))
-                     (cond-> (= "jpeg" type) (obj/set "quality" quality))
-                     (cond-> full-page?      (-> (obj/set "fullPage" true)
-                                                 (obj/set "clip" nil))))]
+                     (obj/set! "type" (name type))
+                     (obj/set! "omitBackground" omit-background?)
+                     (cond-> path (obj/set! "path" path))
+                     (cond-> (= "jpeg" type) (obj/set! "quality" quality))
+                     (cond-> full-page?      (-> (obj/set! "fullPage" true)
+                                                 (obj/set! "clip" nil))))]
      (.screenshot ^js frame options))))
 
 (defn emulate-media
diff --git a/exporter/src/app/util/object.cljs b/exporter/src/app/util/object.cljs
index 170d4192ee..1576f5f547 100644
--- a/exporter/src/app/util/object.cljs
+++ b/exporter/src/app/util/object.cljs
@@ -6,7 +6,7 @@
 
 (ns app.util.object
   "A collection of helpers for work with javascript objects."
-  (:refer-clojure :exclude [set get get-in merge update clone contains?])
+  (:refer-clojure :exclude [set! get get-in merge update clone contains?])
   (:require
    [cuerdas.core :as str]))