Move all files under frontend directory.

This commit is contained in:
Andrey Antukh 2016-11-20 20:03:17 +01:00
parent 92b45b2d05
commit e21798f1ed
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
603 changed files with 10 additions and 31 deletions

View file

@ -0,0 +1,28 @@
;; 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] d] (first results)
result (gpt/point x y)]
(impl/reply! sender {:point (gpt/point x y)})))

View file

@ -0,0 +1,30 @@
;; 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.impl
(:require [uxbox.util.transit :as t]))
(enable-console-print!)
;; --- Handler
(defmulti handler :cmd)
(defmethod handler :default
[message]
(println "Unexpected message:" message))
;; --- Helpers
(defn worker?
"Check if the code is executed in webworker context."
[]
(undefined? (.-document js/self)))
(defn reply!
[sender message]
(let [message (assoc message :reply-to sender)]
(.postMessage js/self (t/encode message))))