mirror of
https://github.com/penpot/penpot.git
synced 2026-05-27 10:53:51 +00:00
42 lines
1.3 KiB
Clojure
42 lines
1.3 KiB
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) 2015-2017 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.main.workers
|
|
"A interface to webworkers exposed functionality."
|
|
(:require [cljs.spec.alpha :as s]
|
|
[beicon.core :as rx]
|
|
[potok.core :as ptk]
|
|
[uxbox.common.spec :as us]
|
|
[uxbox.util.workers :as uw]))
|
|
|
|
;; (s/def ::width number?)
|
|
;; (s/def ::height number?)
|
|
;; (s/def ::x-axis number?)
|
|
;; (s/def ::y-axis number?)
|
|
|
|
;; (s/def ::initialize-alignment-params
|
|
;; (s/keys :req-un [::width
|
|
;; ::height
|
|
;; ::x-axis
|
|
;; ::y-axis]))
|
|
|
|
;; ;; This excludes webworker instantiation on nodejs where
|
|
;; ;; the tests are run.
|
|
;; (when (not= *target* "nodejs")
|
|
;; (defonce worker (uw/init "js/worker.js")))
|
|
|
|
;; (defn align-point
|
|
;; [point]
|
|
;; (let [message {:cmd :grid-align :point point}]
|
|
;; (->> (uw/ask! worker message)
|
|
;; (rx/map :point))))
|
|
|
|
;; (defn initialize-alignment
|
|
;; [params]
|
|
;; (us/verify ::initialize-alignment-params params)
|
|
;; (let [message (assoc params :cmd :grid-init)]
|
|
;; (uw/send! worker message)))
|