3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 01:18:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

🔧 Refactor page actions to use changes-builder

Browse source
This commit is contained in:
Andrés Moya 2022-02-21 16:31:32 +01:00
parent e139cba621
commit 96870c3fee
2 changed files with 74 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

51
common/src/app/common/pages/changes_builder.cljc
View file

@ -31,6 +31,57 @@
(defn with-objects [changes objects]
(vary-meta changes assoc ::objects objects))
;; Page changes
(defn add-empty-page
[chdata id name]
(-> chdata
(update :redo-changes conj {:type :add-page :id id :name name})
(update :undo-changes conj {:type :del-page :id id})))
(defn add-page
[chdata id page]
(-> chdata
(update :redo-changes conj {:type :add-page :id id :page page})
(update :undo-changes conj {:type :del-page :id id})))
(defn mod-page
[chdata page new-name]
(-> chdata
(update :redo-changes conj {:type :mod-page :id (:id page) :name new-name})
(update :undo-changes conj {:type :mod-page :id (:id page) :name (:name page)})))
(defn del-page
[chdata page]
(-> chdata
(update :redo-changes conj {:type :del-page :id (:id page)})
(update :undo-changes conj {:type :add-page :id (:id page) :page page})))
(defn move-page
[chdata index prev-index]
(let [page-id (::page-id (meta chdata))]
(-> chdata
(update :redo-changes conj {:type :mov-page :id page-id :index index})
(update :undo-changes conj {:type :mov-page :id page-id :index prev-index}))))
(defn set-page-option
[chdata option-key option-val]
(let [page-id (::page-id (meta chdata))
page (::page (meta chdata))
old-val (get-in page [:options option-key])]
(-> chdata
(update :redo-changes conj {:type :set-option
:page-id page-id
:option option-key
:value option-val})
(update :undo-changes conj {:type :set-option
:page-id page-id
:option option-key
:value old-val}))))
;; Shape changes
(defn add-obj
([changes obj]
(add-obj changes obj nil))