mirror of
https://github.com/penpot/penpot.git
synced 2026-05-01 06:08:09 +00:00
30 lines
786 B
Clojure
30 lines
786 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) KALEIDOS INC
|
|
|
|
(ns app.render-v2.cpp
|
|
(:require
|
|
["./cpp.js" :as render-v2]
|
|
[beicon.v2.core :as rx]
|
|
[potok.v2.core :as ptk]
|
|
[promesa.core :as p]))
|
|
|
|
(defonce ^:dynamic internal-module nil)
|
|
|
|
(defn set-canvas
|
|
[canvas]
|
|
(js/console.log "setting canvas" canvas)
|
|
(.setCanvas internal-module canvas #js {:antialias false}))
|
|
|
|
(defn on-init
|
|
[module']
|
|
(set! internal-module module')
|
|
(js/console.log "internal-module" internal-module module')
|
|
(js/console.log "add 2 + 2" (._add ^js module' 2 2)))
|
|
|
|
(defn init
|
|
[]
|
|
(p/then (render-v2) #(on-init %)))
|