🐛 Fix delete page navigation to first page

This commit is contained in:
Alejandro Alonso 2025-01-17 11:29:13 +01:00
parent 77477e09a2
commit 6c25e18f09

View file

@ -638,6 +638,7 @@
index (d/index-of pages id) index (d/index-of pages id)
page (get pindex id) page (get pindex id)
page (assoc page :index index) page (assoc page :index index)
pages (filter #(not= % id) pages)
changes (-> (pcb/empty-changes it) changes (-> (pcb/empty-changes it)
(pcb/with-library-data fdata) (pcb/with-library-data fdata)
@ -646,7 +647,7 @@
(rx/of (dch/commit-changes changes) (rx/of (dch/commit-changes changes)
(when (= id (:current-page-id state)) (when (= id (:current-page-id state))
(dcm/go-to-workspace))))))) (dcm/go-to-workspace {:page-id (first pages)})))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; WORKSPACE File Actions ;; WORKSPACE File Actions