mirror of
https://github.com/penpot/penpot.git
synced 2026-08-01 19:06:18 +00:00
🐛 Fix problem with export dialog on single board (#8426)
This commit is contained in:
parent
d176da8012
commit
c972c06142
@ -100,12 +100,14 @@
|
|||||||
|
|
||||||
(def browser-pool-factory
|
(def browser-pool-factory
|
||||||
(letfn [(create []
|
(letfn [(create []
|
||||||
(p/let [opts #js {:args #js ["--allow-insecure-localhost" "--font-render-hinting=none"]}
|
(-> (p/let [opts #js {:args #js ["--allow-insecure-localhost" "--font-render-hinting=none"]}
|
||||||
browser (.launch pw/chromium opts)
|
browser (.launch pw/chromium opts)
|
||||||
id (swap! pool-browser-id inc)]
|
id (swap! pool-browser-id inc)]
|
||||||
(l/info :origin "factory" :action "create" :browser-id id)
|
(l/info :origin "factory" :action "create" :browser-id id)
|
||||||
(unchecked-set browser "__id" id)
|
(unchecked-set browser "__id" id)
|
||||||
browser))
|
browser)
|
||||||
|
(p/catch (fn [cause]
|
||||||
|
(l/error :hint "Cannot launch the headless browser" :cause cause)))))
|
||||||
|
|
||||||
(destroy [obj]
|
(destroy [obj]
|
||||||
(let [id (unchecked-get obj "__id")]
|
(let [id (unchecked-get obj "__id")]
|
||||||
|
|||||||
@ -47,12 +47,13 @@
|
|||||||
|
|
||||||
(s/def ::params
|
(s/def ::params
|
||||||
(s/keys :req-un [::exports ::profile-id]
|
(s/keys :req-un [::exports ::profile-id]
|
||||||
:opt-un [::wait ::name ::skip-children]))
|
:opt-un [::wait ::name ::skip-children ::force-multiple]))
|
||||||
|
|
||||||
(defn handler
|
(defn handler
|
||||||
[{:keys [:request/auth-token] :as exchange} {:keys [exports] :as params}]
|
[{:keys [:request/auth-token] :as exchange} {:keys [exports force-multiple] :as params}]
|
||||||
(let [exports (prepare-exports exports auth-token)]
|
(let [exports (prepare-exports exports auth-token)]
|
||||||
(if (and (= 1 (count exports))
|
(if (and (not force-multiple)
|
||||||
|
(= 1 (count exports))
|
||||||
(= 1 (count (-> exports first :objects))))
|
(= 1 (count (-> exports first :objects))))
|
||||||
(handle-single-export exchange (-> params
|
(handle-single-export exchange (-> params
|
||||||
(assoc :export (first exports))
|
(assoc :export (first exports))
|
||||||
|
|||||||
@ -195,7 +195,7 @@
|
|||||||
params {:exports exports
|
params {:exports exports
|
||||||
:cmd cmd
|
:cmd cmd
|
||||||
:profile-id profile-id
|
:profile-id profile-id
|
||||||
:wait false}
|
:force-multiple true}
|
||||||
|
|
||||||
progress-stream
|
progress-stream
|
||||||
(->> (ws/get-rcv-stream ws-conn)
|
(->> (ws/get-rcv-stream ws-conn)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user