0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-15 17:21:17 -05:00

Cosmetic improvement on constants definition on workspace events ns.

This commit is contained in:
Andrey Antukh 2016-04-13 20:44:59 +03:00
parent 44027c9d63
commit 41073a7b57
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -21,16 +21,19 @@
[uxbox.util.geom.point :as gpt]
[uxbox.util.workers :as uw]))
;; --- Constants
(def ^:const zoom-levels
[0.20 0.21 0.22 0.23 0.24 0.25 0.27 0.28 0.30 0.32 0.34
0.36 0.38 0.40 0.42 0.44 0.46 0.48 0.51 0.54 0.57 0.60
0.63 0.66 0.69 0.73 0.77 0.81 0.85 0.90 0.95 1.00 1.05
1.10 1.15 1.21 1.27 1.33 1.40 1.47 1.54 1.62 1.70 1.78
1.87 1.96 2.06 2.16 2.27 2.38 2.50 2.62 2.75 2.88 3.00])
;; --- Initialize Workspace
(declare initialize-alignment-index)
(defonce zoom-levels [0.20 0.21 0.22 0.23 0.24 0.25 0.27 0.28 0.30 0.32 0.34
0.36 0.38 0.40 0.42 0.44 0.46 0.48 0.51 0.54 0.57 0.60
0.63 0.66 0.69 0.73 0.77 0.81 0.85 0.90 0.95 1.00 1.05
1.10 1.15 1.21 1.27 1.33 1.40 1.47 1.54 1.62 1.70 1.78
1.87 1.96 2.06 2.16 2.27 2.38 2.50 2.62 2.75 2.88 3.00])
(defrecord InitializeWorkspace [project page]
rs/UpdateEvent
(-apply-update [_ state]