fix and simplify history drop-rest

repath-project · Jan 3, 2025 · 511dac5 · 511dac5
1 parent 2df32ce
commit 511dac5
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/renderer/history/handlers.cljs b/src/renderer/history/handlers.cljs
@@ -72,13 +72,14 @@
   ([db]
    (reduce drop-rest db (:document-tabs db)))
   ([db document-id]
-   (let [pos (get-in db [:documents document-id :history :position])
-         states-path [:documents document-id :history :states]]
+   (let [pos (get-in db [:documents document-id :history :position])]
      (cond-> db
        pos
-       (-> (update-in states-path select-keys [pos])
-           (assoc-in (conj states-path pos :index) 0)
-           (update-in (conj states-path pos) dissoc :parent))))))
+       (update-in [:documents document-id :history :states]
+                  #(-> (select-keys % [pos])
+                       (assoc-in [pos :index] 0)
+                       (assoc-in [pos :children] [])
+                       (update pos dissoc :parent)))))))
 
 (m/=> preview [:-> App uuid? App])
 (defn preview