3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-07 20:55:53 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix undo redo buttons on workspace.

Browse source 
And add minor improvements to the undo/redo
changes detection system.
This commit is contained in:
Andrey Antukh 2017-03-03 13:14:50 +01:00
parent df14f7e364
commit d95b43f9c1
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
3 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
frontend/src/uxbox/main/data/shapes.cljs
View file

@ -218,6 +218,7 @@
;; --- Apply Displacement ;; --- Apply Displacement
(deftype ApplyDisplacement [id] (deftype ApplyDisplacement [id]
udp/IPageUpdate
ptk/WatchEvent ptk/WatchEvent
(watch [_ state stream] (watch [_ state stream]
(let [displacement (get-in state [:workspace :modifiers id :displacement])] (let [displacement (get-in state [:workspace :modifiers id :displacement])]

2
frontend/src/uxbox/main/data/undo.cljs
View file

@ -31,7 +31,6 @@
(satisfies? udp/IMetadataUpdate %))) (satisfies? udp/IMetadataUpdate %)))
(rx/filter #(not (undo? %))) (rx/filter #(not (undo? %)))
(rx/filter #(not (redo? %))) (rx/filter #(not (redo? %)))
(rx/debounce 500)
(rx/map #(save-undo-entry id)))))) (rx/map #(save-undo-entry id))))))
(defn watch-page-changes (defn watch-page-changes
@ -53,6 +52,7 @@
(defn save-undo-entry (defn save-undo-entry
[id] [id]
{:pre [(uuid? id)]}
(SaveUndoEntry. id)) (SaveUndoEntry. id))
(defn save-undo-entry? (defn save-undo-entry?

4
frontend/src/uxbox/main/ui/workspace/header.cljs
View file

@ -55,8 +55,8 @@
page (mx/react refs/selected-page) page (mx/react refs/selected-page)
flags (mx/react refs/flags) flags (mx/react refs/flags)
toggle #(st/emit! (dw/toggle-flag %)) toggle #(st/emit! (dw/toggle-flag %))
on-undo #(st/emit! (udh/backwards-to-previous-version)) on-undo #(st/emit! (udu/undo))
on-redo #(st/emit! (udh/forward-to-next-version)) on-redo #(st/emit! (udu/redo))
on-image #(udl/open! :import-image) on-image #(udl/open! :import-image)
on-download #(udl/open! :download)] on-download #(udl/open! :download)]
[:header#workspace-bar.workspace-bar [:header#workspace-bar.workspace-bar