mirror of
https://github.com/penpot/penpot.git
synced 2025-07-05 09:37:20 +02:00
28 lines
970 B
Clojure
28 lines
970 B
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.worker.align
|
|
"Workspace aligment indexes worker."
|
|
(:require [beicon.core :as rx]
|
|
[uxbox.util.kdtree :as kd]
|
|
[uxbox.worker.impl :as impl]
|
|
[uxbox.util.geom.point :as gpt]))
|
|
|
|
(defonce tree (kd/create))
|
|
|
|
(defmethod impl/handler :grid-init
|
|
[{:keys [sender width height x-axis y-axis] :as opts}]
|
|
(time
|
|
(kd/setup! tree width height (or x-axis 10) (or y-axis 10)))
|
|
(impl/reply! sender nil))
|
|
|
|
(defmethod impl/handler :grid-align
|
|
[{:keys [sender point] :as message}]
|
|
(let [point [(:x point) (:y point)]
|
|
results (kd/nearest tree point 1)
|
|
[x y] (ffirst results)
|
|
result (gpt/point x y)]
|
|
(impl/reply! sender {:point (gpt/point x y)})))
|