From 8fb62628d232b26e91c5bec1308549c1dc07b691 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 25 Apr 2023 15:27:50 +0200
Subject: [PATCH 1/2] :sparkles: Add the abiltiy to forward command params as
 query-string

---
 frontend/src/app/main/repo.cljs | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/frontend/src/app/main/repo.cljs b/frontend/src/app/main/repo.cljs
index 3a68825c7..f603b1faf 100644
--- a/frontend/src/app/main/repo.cljs
+++ b/frontend/src/app/main/repo.cljs
@@ -97,7 +97,7 @@
 (defn- send-command!
   "A simple helper for a common case of sending and receiving transit
   data to the penpot mutation api."
-  [id params {:keys [response-type form-data? raw-transit?]}]
+  [id params {:keys [response-type form-data? raw-transit? forward-query-params]}]
   (let [decode-fn (if raw-transit?
                     http/conditional-error-decode-transit
                     http/conditional-decode-transit)
@@ -111,8 +111,11 @@
                               (if form-data?
                                 (http/form-data params)
                                 (http/transit-data params)))
-                      :query (when (= method :get)
-                               params)
+                      :query (if (= method :get)
+                               params
+                               (if forward-query-params
+                                 (select-keys params forward-query-params)
+                                 nil))
                       :response-type (or response-type :text)})
          (rx/map decode-fn)
          (rx/mapcat handle-response))))
@@ -139,6 +142,14 @@
   [id params]
   (send-command! id params nil))
 
+(defmethod command :update-file
+  [id params]
+  (send-command! id params {:forward-query-params [:id]}))
+
+(defmethod command :upsert-file-object-thumbnail
+  [id params]
+  (send-command! id params {:forward-query-params [:file-id :object-id]}))
+
 (defmethod command :export-binfile
   [id params]
   (send-command! id params {:response-type :blob}))

From f1c42a698d966edeb8b6b9421a031beac85d9237 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 25 Apr 2023 16:25:49 +0200
Subject: [PATCH 2/2] :paperclip: Increase http socket backlog

---
 backend/src/app/http.clj | 1 +
 1 file changed, 1 insertion(+)

diff --git a/backend/src/app/http.clj b/backend/src/app/http.clj
index c51c253fc..46ae0a8d9 100644
--- a/backend/src/app/http.clj
+++ b/backend/src/app/http.clj
@@ -78,6 +78,7 @@
                  :xnio/worker-threads (or (::worker-threads cfg)
                                           (max 6 (px/get-available-processors)))
                  :xnio/dispatch true
+                 :socket/backlog 4069
                  :ring/async true}
 
         handler (cond