Integrate the new way to handle grid snap.

Related to #79 and #80
This commit is contained in:
Andrey Antukh 2017-03-25 19:48:45 +01:00
parent a7236c17f2
commit d5b7dcc663
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
3 changed files with 5 additions and 23 deletions

View file

@ -108,12 +108,9 @@
(defn alignment-activated?
[state]
(let [{:keys [page flags]} (:workspace state)
metadata (->> (get-in state [:pages page :metadata])
(merge c/page-metadata))]
(let [{:keys [flags]} (:workspace state)]
(and (contains? flags :grid-indexed)
(contains? flags :grid)
(:grid-alignment metadata))))
(contains? flags :grid-snap))))
(def selected-alignment
(-> (l/lens alignment-activated?)