add shared ns

Author: sprocketc

src/electron/file.cljs

@@ -4,7 +4,8 @@
    ["fs" :as fs]
    ["path" :as path]
    [clojure.edn :as edn]
-   [config :as config]))
+   [config :as config]
+   [shared :as shared]))
 
 (def dialog-options
   {:defaultPath (.getPath app config/default-path)
@@ -20,7 +21,7 @@
 
 (defn write-file!
   [file-path data]
-  (let [document (pr-str (dissoc data :path :id :title))]
+  (let [document (shared/document->save-format data)]
     (-> (.writeFile fs/promises file-path document "utf-8")
         (.then #(-> (select-keys data [:id])
                     (serialize-document file-path))))))

src/renderer/document/events.cljs

@@ -20,7 +20,8 @@
    [renderer.utils.compatibility :as utils.compatibility]
    [renderer.utils.element :as utils.element]
    [renderer.utils.math :refer [Vec2]]
-   [renderer.utils.vec :as utils.vec]))
+   [renderer.utils.vec :as utils.vec]
+   [shared :as shared]))
 
 (def file-picker-options
   {:startIn config/default-path
@@ -232,7 +233,7 @@
    (let [document (document.handlers/persisted-format db)]
      (if (= (:platform db) "web")
        {::effects/file-save
-        {:data (document.handlers/save-format document)
+        {:data (shared/document->save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id (:id document)
                                 :title (.-name file)})
@@ -249,7 +250,7 @@
  ::download
  (fn [{:keys [db]} [_]]
    (let [document (document.handlers/persisted-format db)]
-     {::effects/download {:data (document.handlers/save-format document)
+     {::effects/download {:data (shared/document->save-format document)
                           :title (str "document." config/ext)}})))
 
 (rf/reg-event-fx
@@ -258,7 +259,7 @@
    (let [document (document.handlers/persisted-format db id)]
      (if (= (:platform db) "web")
        {::effects/file-save
-        {:data (document.handlers/save-format document)
+        {:data (shared/document->save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id id
                                 :title (.-name file)})
@@ -277,7 +278,7 @@
    (let [document (document.handlers/persisted-format db)]
      (if (= (:platform db) "web")
        {::effects/file-save
-        {:data (document.handlers/save-format document)
+        {:data (shared/document->save-format document)
          :options file-picker-options
          :formatter (fn [file] {:id (:id document)
                                 :title (.-name file)})

src/renderer/document/handlers.cljs

@@ -51,13 +51,6 @@
                             document
                             m.transform/strip-extra-keys-transformer))))))
 
-(m/=> save-format [:-> PersistedDocument string?])
-(defn save-format
-  [document]
-  (-> document
-      (dissoc :path :id :title)
-      (pr-str)))
-
 (m/=> close [:-> App uuid? App])
 (defn close
   [db id]

src/shared.cljs

@@ -0,0 +1,11 @@
+(ns shared
+  (:require
+   [malli.core :as m]
+   [renderer.document.db :refer [PersistedDocument]]))
+
+(m/=> document->save-format [:-> PersistedDocument string?])
+(defn document->save-format
+  [document]
+  (-> document
+      (dissoc :path :id :title)
+      (pr-str)))