revert file-save move

Author: sprocketc

src/renderer/document/effects.cljs

@@ -10,7 +10,6 @@
    [renderer.dialog.handlers :as dialog.handlers]
    [renderer.dialog.views :as dialog.views]
    [renderer.document.db :as document.db]
-   [renderer.document.effects :as document.effects]
    [renderer.document.handlers :as document.handlers]
    [renderer.effects :as-alias effects]
    [renderer.element.handlers :as element.handlers]
@@ -233,7 +232,7 @@
  (fn [{:keys [db]} [_]]
    (let [document (document.handlers/persisted-format db)]
      (if (= (:platform db) "web")
-       {::document.effects/file-save
+       {::effects/file-save
         {:data (document.handlers/save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id (:id document)
@@ -259,7 +258,7 @@
  (fn [{:keys [db]} [_ id]]
    (let [document (document.handlers/persisted-format db id)]
      (if (= (:platform db) "web")
-       {::document.effects/file-save
+       {::effects/file-save
         {:data (document.handlers/save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id id
@@ -278,7 +277,7 @@
  (fn [{:keys [db]} [_]]
    (let [document (document.handlers/persisted-format db)]
      (if (= (:platform db) "web")
-       {::document.effects/file-save
+       {::effects/file-save
         {:data (document.handlers/save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id (:id document)
@@ -336,7 +335,7 @@
         {:channel "export"
          :data svg
          :on-error [::notification.events/show-exception]}}
-       {::document.effects/file-save
+       {::effects/file-save
         [:data svg
          :on-error [::notification.events/show-exception]
          :options {:startIn "pictures"

src/renderer/document/events.cljs

@@ -1,6 +1,7 @@
 (ns renderer.effects
   (:require
    [re-frame.core :as rf]
+   [renderer.notification.events :as-alias notification.events]
    [renderer.utils.dom :as utils.dom]
    [renderer.utils.error :as utils.error]))
 
@@ -48,6 +49,30 @@
                                      (cb (first (.. e -target -files)))))
     (.click el)))
 
+(rf/reg-fx
+ ::file-save
+ (fn [{:keys [options data on-success on-error formatter]}]
+   (if (.-showSaveFilePicker js/window)
+     (-> (.showSaveFilePicker js/window (clj->js options))
+         (.then (fn [^js/FileSystemFileHandle file-handle]
+                  (.then (.createWritable file-handle)
+                         (fn [^js/FileSystemWritableFileStream writable-stream]
+                           (.then (.write writable-stream data)
+                                  (fn []
+                                    (.close writable-stream)
+                                    (when on-success
+                                      (rf/dispatch (conj on-success
+                                                         (cond-> file-handle
+                                                           formatter
+                                                           formatter))))))))))
+         (.catch (fn [^js/Error error]
+                   (when (and on-error (not (utils.error/abort-error? error)))
+                     (rf/dispatch (conj on-error error))))))
+     (rf/dispatch
+      [::notification.events/show-unavailable-feature
+       "Save File Picker"
+       "https://developer.mozilla.org/en-US/docs/Web/API/Window/showSaveFilePicker#browser_compatibility"]))))
+
 (rf/reg-fx
  ::file-open
  (fn [{:keys [options on-error on-success]}]