♻️ Refactor exportation process, make it considerably faster

frontend/src/app/main/ui/export.cljs

@@ -23,7 +23,7 @@
    [rumext.alpha :as mf]))
 
 (mf/defc export-multiple-dialog
-  [{:keys [exports filename title query-name no-selection]}]
+  [{:keys [exports title cmd no-selection]}]
   (let [lstate          (mf/deref refs/export)
         in-progress?    (:in-progress lstate)
 
@@ -33,7 +33,10 @@
         all-checked?    (every? :enabled all-exports)
         all-unchecked?  (every? (complement :enabled) all-exports)
 
-        enabled-exports (into [] (filter :enabled) all-exports)
+        enabled-exports (into []
+                              (comp (filter :enabled)
+                                    (map #(dissoc % :shape :enabled)))
+                              all-exports)
 
         cancel-fn
         (fn [event]
@@ -45,9 +48,8 @@
           (dom/prevent-default event)
           (st/emit! (modal/hide)
                     (de/request-multiple-export
-                     {:filename filename
-                      :exports enabled-exports
-                      :query-name query-name})))
+                     {:exports enabled-exports
+                      :cmd cmd})))
 
         on-toggle-enabled
         (fn [index]
@@ -145,25 +147,23 @@
 (mf/defc export-shapes-dialog
   {::mf/register modal/components
    ::mf/register-as :export-shapes}
-  [{:keys [exports filename]}]
+  [{:keys [exports]}]
   (let [title (tr "dashboard.export-shapes.title")]
     [:& export-multiple-dialog
      {:exports exports
-      :filename filename
       :title title
-      :query-name :export-shapes-multiple
+      :cmd :export-shapes
       :no-selection shapes-no-selection}]))
 
 (mf/defc export-frames
   {::mf/register modal/components
    ::mf/register-as :export-frames}
-  [{:keys [exports filename]}]
+  [{:keys [exports]}]
   (let [title (tr "dashboard.export-frames.title")]
     [:& export-multiple-dialog
      {:exports exports
-      :filename filename
       :title title
-      :query-name :export-frames-multiple}]))
+      :cmd :export-frames}]))
 
 (mf/defc export-progress-widget
   {::mf/wrap [mf/memo]}