Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 08:20:45 -05:00
Code Issues Activity

Merge pull request #5233 from penpot/alotor-events-versions

Browse source 
✨ Add events for versions
This commit is contained in:
Andrey Antukh 2024-10-30 13:22:19 +01:00 committed by GitHub
commit b6f35a5c1e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
frontend/src/app/main/data/workspace/versions.cljs
View file

@ -8,6 +8,7 @@
(:require (:require
[app.common.data :as d] [app.common.data :as d]
[app.common.data.macros :as dm] [app.common.data.macros :as dm]
[app.main.data.events :as ev]
[app.main.data.persistence :as dwp] [app.main.data.persistence :as dwp]
[app.main.data.workspace :as dw] [app.main.data.workspace :as dw]
[app.main.refs :as refs] [app.main.refs :as refs]
@ -68,7 +69,8 @@
(fn [{:keys [id]}] (fn [{:keys [id]}]
(rx/of (rx/of
(update-version-state {:editing id}) (update-version-state {:editing id})
(fetch-versions file-id)))))))))) (fetch-versions file-id)))))
(rx/of (ptk/event ::ev/event {::ev/name "create-version"})))))))
(defn rename-version (defn rename-version
[file-id id label] [file-id id label]
@ -82,7 +84,8 @@
(rx/merge (rx/merge
(rx/of (update-version-state {:editing false})) (rx/of (update-version-state {:editing false}))
(->> (rp/cmd! :update-file-snapshot {:id id :label label}) (->> (rp/cmd! :update-file-snapshot {:id id :label label})
(rx/map #(fetch-versions file-id))))))) (rx/map #(fetch-versions file-id)))
(rx/of (ptk/event ::ev/event {::ev/name "rename-version"}))))))
(defn restore-version (defn restore-version
[project-id file-id id] [project-id file-id id]
@ -100,7 +103,8 @@
(rx/take 1) (rx/take 1)
(rx/mapcat #(rp/cmd! :take-file-snapshot {:file-id file-id :created-by "system" :label (dt/format (dt/now) :date-full)})) (rx/mapcat #(rp/cmd! :take-file-snapshot {:file-id file-id :created-by "system" :label (dt/format (dt/now) :date-full)}))
(rx/mapcat #(rp/cmd! :restore-file-snapshot {:file-id file-id :id id})) (rx/mapcat #(rp/cmd! :restore-file-snapshot {:file-id file-id :id id}))
(rx/map #(dw/initialize-file project-id file-id))))))) (rx/map #(dw/initialize-file project-id file-id)))
(rx/of (ptk/event ::ev/event {::ev/name "restore-version"}))))))
(defn delete-version (defn delete-version
[file-id id] [file-id id]
@ -126,6 +130,8 @@
params {:id id params {:id id
:label (dt/format (:created-at version) :date-full)}] :label (dt/format (:created-at version) :date-full)}]
(->> (rp/cmd! :update-file-snapshot params) (rx/concat
(rx/mapcat #(rx/of (update-version-state {:editing id}) (->> (rp/cmd! :update-file-snapshot params)
(fetch-versions file-id)))))))) (rx/mapcat #(rx/of (update-version-state {:editing id})
(fetch-versions file-id))))
(rx/of (ptk/event ::ev/event {::ev/name "pin-version"})))))))