use current dir on save as

src/file.cljs

@@ -26,20 +26,30 @@
   (.writeFile fs file-path (pr-str data) #js {:encoding "utf-8"}
               (fn [_err] (f (serialize-document data file-path)))))
 
-(defn save
+(defn save-as
   "Saves the provided data.
    
    If there is no path defined, pick a new file.
    https://www.electronjs.org/docs/api/dialog#dialogshowsavedialogbrowserwindow-options"
   [data f]
+  (let [document (edn/read-string data)
+        file-path (:path document)
+        directory (and file-path (.dirname path file-path))
+        dialog-options (cond-> dialog-options
+                         (and directory (.existsSync fs directory))
+                         (assoc :defaultPath directory))]
+    (.then (.showSaveDialog dialog ^js @main-window (clj->js dialog-options))
+           (fn [^js/Promise file]
+             (when-not (.-canceled file)
+               (write-file (.-filePath file) document f))))))
+
+(defn save
+  [data f]
   (let [document (edn/read-string data)
         file-path (:path document)]
     (if (and file-path (.existsSync fs file-path))
       (write-file file-path document f)
-      (.then (.showSaveDialog dialog ^js @main-window (clj->js dialog-options))
-             (fn [^js/Promise file]
-               (when-not (.-canceled file)
-                 (write-file (.-filePath file) document f)))))))
+      (save-as data f))))
 
 (defn read-file
   [file-path f]

src/main.cljs

@@ -51,6 +51,7 @@
     "openDirectory" (.showItemInFolder shell (.-data args))
     "openDocument" (file/open (.-data args) #(send-to-renderer "fileLoaded" %))
     "saveDocument" (file/save (.-data args) #(send-to-renderer "fileSaved" %))
+    "saveDocumentAs" (file/save-as (.-data args) #(send-to-renderer "fileSaved" %))
     "export" (file/export (.-data args))))
 
 (defn register-window-events!
@@ -94,7 +95,7 @@
                   :height (.-height win-state)
                   :backgroundColor "#313131"
                   :titleBarStyle (when (= (.platform os) "darwin") "hidden")
-                  :trafficLightPosition #js { :x 8 :y 10 }
+                  :trafficLightPosition #js {:x 8 :y 10}
                   :icon (.join path js/__dirname "/public/img/icon.png")
                   :frame false
                   :show false

src/renderer/document/events.cljs

@@ -225,12 +225,9 @@
 (rf/reg-event-fx
  :document/save-as
  (fn [{:keys [db]} [_]]
-   (let [document (-> db
-                      save-format
-                      ;; Remove the path to trigger a file selection dialog.
-                      (dissoc :path))]
+   (let [document (save-format db)]
      (if platform/electron?
-       {:send-to-main {:action "saveDocument" :data (pr-str document)}}
+       {:send-to-main {:action "saveDocumentAs" :data (pr-str document)}}
        {::save document}))))
 
 (rf/reg-event-db