3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix inconsistent behavior of magnet flag.

Browse source
This commit is contained in:
Andrey Antukh 2017-03-21 20:41:43 +01:00
parent d808ca2a87
commit 7958c33e34
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
2 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

13
frontend/src/uxbox/main/refs.cljs
View file

@ -8,6 +8,7 @@
"A collection of derived refs."
(:require [lentes.core :as l]
[beicon.core :as rx]
[uxbox.main.constants :as c]
[uxbox.main.store :as st]
[uxbox.main.lenses :as ul]))
@ -101,14 +102,16 @@
(l/derive workspace)))
(defn alignment-activated?
[flags]
(and (contains? flags :grid-indexed)
(contains? flags :grid-alignment)
(contains? flags :grid)))
[state]
(let [{:keys [page flags]} (:workspace state)
metadata (merge c/page-metadata (get-in state [:pages page :metadata]))]
(and (contains? flags :grid-indexed)
(contains? flags :grid)
(:grid-alignment metadata))))
(def selected-alignment
(-> (l/lens alignment-activated?)
(l/derive flags)))
(l/derive st/state)))
(def canvas-mouse-position
(-> (l/in [:pointer :canvas])