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]))