cut down saved info

Author: sprocketc

src/renderer/dialog/views.cljs

@@ -67,7 +67,7 @@
       [:button.button.px-2.bg-primary.rounded.flex-1
        {:auto-focus true
         :on-click #(do (rf/dispatch [::dialog.e/close])
-                       (rf/dispatch [::document.e/save-and-close]))}
+                       (rf/dispatch [::document.e/save-and-close k]))}
        "Save"]]
      [close-button]]))
 

src/renderer/document/events.cljs

@@ -182,13 +182,13 @@
 
 (rf/reg-event-fx
  ::save-and-close
- (fn [{:keys [db]} [_]]
-   (let [document (h/save-format db)]
+ (fn [{:keys [db]} [_ k]]
+   (let [document (h/save-format db k)]
      (if platform/electron?
        {:ipc-invoke ["save-document"
                      (pr-str document)
                      #(do (rf/dispatch [::saved (edn/read-string %)])
-                          (rf/dispatch [::close (:key document) false]))]}
+                          (rf/dispatch [::close k false]))]}
        {::fx/save-as document}))))
 
 (rf/reg-event-fx
@@ -203,12 +203,12 @@
 
 (rf/reg-event-db
  ::saved
- (fn [db [_ document-info]]
+ (fn [db [_ {:keys [path] :as document-info}]]
    ;; Update the path, the title and the saved position of the document.
    ;; Any other changes that could happen while saving should be preserved.
    (-> db
-       (update-in [:documents (:key document-info)] merge document-info)
-       (h/add-recent (:path document-info)))))
+       (update-in [:documents (h/search-by-path db path)] merge document-info)
+       (h/add-recent path))))
 
 (rf/reg-event-db
  ::clear-recent

src/renderer/document/handlers.cljs

@@ -1,5 +1,6 @@
 (ns renderer.document.handlers
   (:require
+   [config :as config]
    [malli.core :as m]
    [malli.transform :as mt]
    [renderer.document.db :as db]
@@ -9,12 +10,18 @@
    [renderer.utils.vec :as vec]))
 
 (defn save-format
-  [db]
-  (-> db
-      element.h/deselect
-      (get-in [:documents (:active-document db)])
-      (assoc :save (history.h/current-position db))
-      (dissoc :history)))
+  ([db]
+  (save-format db (:active-document db)))
+  ([db k]
+   (let [document (-> db
+                      (get-in [:documents k])
+                      (select-keys [:elements :path])
+                      (assoc :save (history.h/current-position db)
+                             :version config/version))]
+
+   (reduce #(update-in %1 [:elements %2] dissoc :selected?)
+           document
+           (keys (:elements document))))))
 
 (defn close
   [{:keys [active-document document-tabs] :as db} k]
@@ -41,7 +48,7 @@
   [db k]
   (assoc db :active-document k))
 
-(defn- search-by-path
+(defn search-by-path
   [{:keys [documents]} file-path]
   (some #(when (and file-path (= (:path %) file-path)) (:key %)) (vals documents)))
 
@@ -65,14 +72,15 @@
         (assoc :active-document k)
         (update :document-tabs #(vec/add % (inc active-index) k)))))
 
+(def default (m/decode db/document {} mt/default-value-transformer))
+
 (defn new
   [db]
-  (let [document (m/decode db/document {} mt/default-value-transformer)]
-    (-> db
-        (create-tab document)
-        (element.h/create {:tag :canvas :attrs {:fill "#eeeeee"}})
-        (element.h/create {:tag :svg :attrs {:width "800" :height "600"}})
-        (history.h/finalize "Create document"))))
+  (-> db
+      (create-tab default)
+      (element.h/create {:tag :canvas :attrs {:fill "#eeeeee"}})
+      (element.h/create {:tag :svg :attrs {:width "800" :height "600"}})
+      (history.h/finalize "Create document")))
 
 (defn set-global-attr
   [{active-document :active-document :as db} k v]
@@ -83,7 +91,7 @@
 (defn load
   [db document]
   (let [open-key (search-by-path db (:path document))
-        document (-> document
+        document (-> (merge default document)
                      (assoc :key (or open-key (uuid/generate))))]
     (cond-> db
       (not open-key)

src/renderer/document/subs.cljs

@@ -74,9 +74,12 @@
  ::title-bar
  :<- [::title]
  :<- [::path]
- (fn [[title path] _]
+ :<- [::active-saved?]
+ (fn [[title path saved?] _]
    (let [title (or path title)]
-     (str (when title (str title " - ")) "Repath Studio"))))
+     (str (when (not saved?) "• ")
+          (when title (str title " - "))
+          "Repath Studio"))))
 
 (rf/reg-sub
  ::elements