16 lines
629 B
Clojure
16 lines
629 B
Clojure
(ns sliva.pages.visual
|
|
(:require [reagent.core :as reagent]
|
|
[sliva.gfx :refer [start-render stop-render]]
|
|
[sliva.pages.navigation :refer [navigation]]))
|
|
|
|
(defn visual []
|
|
(reagent/create-class
|
|
{:display-name "vizual-render-plac"
|
|
:reagent-render (fn [] [:div
|
|
[:div {:ref "vizual"}]
|
|
[navigation]])
|
|
:component-did-mount (fn [this] (start-render (.. this -refs -vizual)))
|
|
:component-will-unmount (fn [this]
|
|
(console.log "unmounting?")
|
|
(stop-render (.. this -refs -vizual)))}))
|