|
38 | 38 | ::set-prop
|
39 | 39 | (fn [db [_ id k v]]
|
40 | 40 | (-> (element.handlers/assoc-prop db id k v)
|
41 |
| - (history.handlers/finalize (str "Set " (name k)))))) |
| 41 | + (history.handlers/finalize #(t [::set "Set %1"] [(name k)]))))) |
42 | 42 |
|
43 | 43 | (rf/reg-event-db
|
44 | 44 | ::lock
|
45 | 45 | (fn [db]
|
46 | 46 | (-> (element.handlers/assoc-prop db :locked true)
|
47 |
| - (history.handlers/finalize "Lock selection")))) |
| 47 | + (history.handlers/finalize #(t [:lock-selection "Lock selection"]))))) |
48 | 48 |
|
49 | 49 | (rf/reg-event-db
|
50 | 50 | ::unlock
|
51 | 51 | (fn [db]
|
52 | 52 | (-> (element.handlers/assoc-prop db :locked false)
|
53 |
| - (history.handlers/finalize "Unlock selection")))) |
| 53 | + (history.handlers/finalize #(t [:unlock-selection "Unlock selection"]))))) |
54 | 54 |
|
55 | 55 | (rf/reg-event-db
|
56 | 56 | ::set-attr
|
57 | 57 | (fn [db [_ k v]]
|
58 | 58 | (-> (element.handlers/set-attr db k v)
|
59 |
| - (history.handlers/finalize (str "Set " (name k)))))) |
| 59 | + (history.handlers/finalize #(t [::set "Set %1"] [(name k)]))))) |
60 | 60 |
|
61 | 61 | (rf/reg-event-db
|
62 | 62 | ::remove-attr
|
63 | 63 | (fn [db [_ k]]
|
64 | 64 | (-> (element.handlers/dissoc-attr db k)
|
65 |
| - (history.handlers/finalize (str "Remove " (name k)))))) |
| 65 | + (history.handlers/finalize #(t [::remove "Remove %1"] [(name k)]))))) |
66 | 66 |
|
67 | 67 | (rf/reg-event-db
|
68 | 68 | ::update-attr
|
69 | 69 | (fn [db [_ k f & more]]
|
70 | 70 | (-> (apply partial-right element.handlers/update-attr k f more)
|
71 | 71 | (reduce db (element.handlers/selected-ids db))
|
72 |
| - (history.handlers/finalize (str "Update " (name k)))))) |
| 72 | + (history.handlers/finalize #(t [::update "Update %1"] [(name k)]))))) |
73 | 73 |
|
74 | 74 | (rf/reg-event-db
|
75 | 75 | ::preview-attr
|
|
86 | 86 | ::deselect-all
|
87 | 87 | (fn [db]
|
88 | 88 | (-> (element.handlers/deselect db)
|
89 |
| - (history.handlers/finalize "Deselect all")))) |
| 89 | + (history.handlers/finalize #(t [::deselect-all "Deselect all"]))))) |
90 | 90 |
|
91 | 91 | (rf/reg-event-db
|
92 | 92 | ::select-all
|
93 | 93 | (fn [db]
|
94 | 94 | (-> (element.handlers/select-all db)
|
95 |
| - (history.handlers/finalize "Select all")))) |
| 95 | + (history.handlers/finalize #(t [::select-all "Select all"]))))) |
96 | 96 |
|
97 | 97 | (rf/reg-event-db
|
98 | 98 | ::select-same-tags
|
99 | 99 | (fn [db]
|
100 | 100 | (-> (element.handlers/select-same-tags db)
|
101 |
| - (history.handlers/finalize "Select same tags")))) |
| 101 | + (history.handlers/finalize #(t [::select-same-tags "Select same tags"]))))) |
102 | 102 |
|
103 | 103 | (rf/reg-event-db
|
104 | 104 | ::invert-selection
|
105 | 105 | (fn [db]
|
106 | 106 | (-> (element.handlers/invert-selection db)
|
107 |
| - (history.handlers/finalize "Invert selection")))) |
| 107 | + (history.handlers/finalize #(t [::invert-selection "Invert selection"]))))) |
108 | 108 |
|
109 | 109 | (rf/reg-event-db
|
110 | 110 | ::raise
|
111 | 111 | (fn [db]
|
112 | 112 | (-> (element.handlers/update-index db inc)
|
113 |
| - (history.handlers/finalize "Raise selection")))) |
| 113 | + (history.handlers/finalize #(t [::raise-selection "Raise selection"]))))) |
114 | 114 |
|
115 | 115 | (rf/reg-event-db
|
116 | 116 | ::lower
|
117 | 117 | (fn [db]
|
118 | 118 | (-> (element.handlers/update-index db dec)
|
119 |
| - (history.handlers/finalize "Lower selection")))) |
| 119 | + (history.handlers/finalize #(t [::lower-selection "Lower selection"]))))) |
120 | 120 |
|
121 | 121 | (rf/reg-event-db
|
122 | 122 | ::raise-to-top
|
123 | 123 | (fn [db]
|
124 | 124 | (-> (element.handlers/update-index db (fn [_i sibling-count] (dec sibling-count)))
|
125 |
| - (history.handlers/finalize "Raise selection to top")))) |
| 125 | + (history.handlers/finalize #(t [::raise-selection-top "Raise selection to top"]))))) |
126 | 126 |
|
127 | 127 | (rf/reg-event-db
|
128 | 128 | ::lower-to-bottom
|
129 | 129 | (fn [db]
|
130 | 130 | (-> (element.handlers/update-index db #(identity 0))
|
131 |
| - (history.handlers/finalize "Lower selection to bottom")))) |
| 131 | + (history.handlers/finalize #(t [::lower-selection-bottom "Lower selection to bottom"]))))) |
132 | 132 |
|
133 | 133 | (rf/reg-event-db
|
134 | 134 | ::align
|
135 | 135 | (fn [db [_ direction]]
|
136 | 136 | (-> (element.handlers/align db direction)
|
137 |
| - (history.handlers/finalize (str "Update " direction))))) |
| 137 | + (history.handlers/finalize #(t [::update "Update %1"] [direction]))))) |
138 | 138 |
|
139 | 139 | (rf/reg-event-db
|
140 | 140 | ::paste
|
141 | 141 | (fn [db]
|
142 | 142 | (-> (element.handlers/paste db)
|
143 |
| - (history.handlers/finalize "Paste selection")))) |
| 143 | + (history.handlers/finalize #(t [::paste-selection "Paste selection"]))))) |
144 | 144 |
|
145 | 145 | (rf/reg-event-db
|
146 | 146 | ::paste-in-place
|
147 | 147 | (fn [db]
|
148 | 148 | (-> (element.handlers/paste-in-place db)
|
149 |
| - (history.handlers/finalize "Paste selection in place")))) |
| 149 | + (history.handlers/finalize #(t [::paste-selection-in-place "Paste selection in place"]))))) |
150 | 150 |
|
151 | 151 | (rf/reg-event-db
|
152 | 152 | ::paste-styles
|
153 | 153 | (fn [db]
|
154 | 154 | (-> (element.handlers/paste-styles db)
|
155 |
| - (history.handlers/finalize "Paste styles to selection")))) |
| 155 | + (history.handlers/finalize #(t [::paste-styles-to-selection "Paste styles to selection"]))))) |
156 | 156 |
|
157 | 157 | (rf/reg-event-db
|
158 | 158 | ::duplicate
|
159 | 159 | (fn [db]
|
160 | 160 | (-> (element.handlers/duplicate db)
|
161 |
| - (history.handlers/finalize "Duplicate selection")))) |
| 161 | + (history.handlers/finalize #(t [::duplicate-selection "Duplicate selection"]))))) |
162 | 162 |
|
163 | 163 | (rf/reg-event-db
|
164 | 164 | ::translate
|
165 | 165 | (fn [db [_ offset]]
|
166 | 166 | (-> (element.handlers/translate db offset)
|
167 |
| - (history.handlers/finalize "Move selection")))) |
| 167 | + (history.handlers/finalize #(t [::move-selection "Move selection"]))))) |
168 | 168 |
|
169 | 169 | (rf/reg-event-db
|
170 | 170 | ::place
|
171 | 171 | (fn [db [_ position]]
|
172 | 172 | (-> (element.handlers/place db position)
|
173 |
| - (history.handlers/finalize "Place selection")))) |
| 173 | + (history.handlers/finalize #(t [::place-selection "Place selection"]))))) |
174 | 174 |
|
175 | 175 | (rf/reg-event-db
|
176 | 176 | ::scale
|
177 | 177 | (fn [db [_ ratio]]
|
178 | 178 | (let [pivot-point (-> db element.handlers/bbox utils.bounds/center)]
|
179 | 179 | (-> (element.handlers/scale db ratio pivot-point false)
|
180 |
| - (history.handlers/finalize "Scale selection"))))) |
| 180 | + (history.handlers/finalize #(t [::scale-selection "Scale selection"])))))) |
181 | 181 |
|
182 | 182 | (rf/reg-event-fx
|
183 | 183 | ::->path
|
|
190 | 190 | ::finalize->path
|
191 | 191 | (fn [db [_ elements]]
|
192 | 192 | (-> (reduce element.handlers/swap db elements)
|
193 |
| - (history.handlers/finalize "Convert selection to path")))) |
| 193 | + (history.handlers/finalize #(t [::convert-selection-path "Convert selection to path"]))))) |
194 | 194 |
|
195 | 195 | (rf/reg-event-fx
|
196 | 196 | ::stroke->path
|
|
204 | 204 | (fn [db [_ elements]]
|
205 | 205 | (-> (reduce element.handlers/swap db elements)
|
206 | 206 | (element.handlers/stroke->path)
|
207 |
| - (history.handlers/finalize "Convert selection's stroke to path")))) |
| 207 | + (history.handlers/finalize #(t [::convert-selection-stroke-path |
| 208 | + "Convert selection's stroke to path"]))))) |
208 | 209 |
|
209 | 210 | (rf/reg-event-fx
|
210 | 211 | ::boolean-operation
|
|
225 | 226 | ::add
|
226 | 227 | (fn [db [_ el]]
|
227 | 228 | (-> (element.handlers/add db el)
|
228 |
| - (history.handlers/finalize (str "Create " (name (:tag el))))))) |
| 229 | + (history.handlers/finalize #(t [::create "Create %1"] [(name (:tag el))]))))) |
229 | 230 |
|
230 | 231 | (rf/reg-event-db
|
231 | 232 | ::import-svg
|
232 | 233 | (fn [db [_ data]]
|
233 | 234 | (-> (element.handlers/import-svg db data)
|
234 |
| - (history.handlers/finalize "Import svg")))) |
| 235 | + (history.handlers/finalize #(t [::import-svg "Import svg"]))))) |
235 | 236 |
|
236 | 237 | (rf/reg-event-db
|
237 | 238 | ::animate
|
|
243 | 244 | ::set-parent
|
244 | 245 | (fn [db [_ id parent-id]]
|
245 | 246 | (-> (element.handlers/set-parent db id parent-id)
|
246 |
| - (history.handlers/finalize "Set parent")))) |
| 247 | + (history.handlers/finalize #(t [::set-parent "Set parent"]))))) |
247 | 248 |
|
248 | 249 | (rf/reg-event-db
|
249 | 250 | ::group
|
250 | 251 | (fn [db]
|
251 | 252 | (-> (element.handlers/group db)
|
252 |
| - (history.handlers/finalize "Group selection")))) |
| 253 | + (history.handlers/finalize #(t [::group-selection "Group selection"]))))) |
253 | 254 |
|
254 | 255 | (rf/reg-event-db
|
255 | 256 | ::ungroup
|
256 | 257 | (fn [db]
|
257 | 258 | (-> (element.handlers/ungroup db)
|
258 |
| - (history.handlers/finalize "Ungroup selection")))) |
| 259 | + (history.handlers/finalize #(t [::ungroup-selection "Ungroup selection"]))))) |
259 | 260 |
|
260 | 261 | (rf/reg-event-db
|
261 | 262 | ::manipulate-path
|
|
281 | 282 | (let [els (element.handlers/top-selected-sorted db)]
|
282 | 283 | {:db (-> (element.handlers/copy db)
|
283 | 284 | (element.handlers/delete)
|
284 |
| - (history.handlers/finalize "Cut selection")) |
| 285 | + (history.handlers/finalize #(t [::cut-selection "Cut selection"]))) |
285 | 286 | :fx [(when (seq els)
|
286 | 287 | [::effects/clipboard-write
|
287 | 288 | {:data (utils.element/->svg els)
|
|
297 | 298 | ::traced
|
298 | 299 | (fn [db [_ data]]
|
299 | 300 | (-> (element.handlers/import-svg db data)
|
300 |
| - (history.handlers/finalize "Trace image")))) |
| 301 | + (history.handlers/finalize #(t [::trace-image "Trace image"]))))) |
301 | 302 |
|
302 | 303 | (rf/reg-event-fx
|
303 | 304 | ::import-file
|
|
0 commit comments