WebRTC

webrtc.cljs

(ns webrtc.app)

(def gum (js* "Modernizr.prefixed('getUserMedia',navigator);"))

(defn webrtc-ready []
  (let [on-success (fn [stream] (let [video (. js/document (querySelector "video"))
                                      Window (.-URL js/window)
                                      media  (Window.createObjectURL stream)]
                                  (set! (.-src video) media)))
        on-error (fn [err] (. js/console (log (str "navigator.getUserMedia error: ") err)))
        constraints #js {:audio false :video true}]
        (gum constraints on-success on-error)))

(defn init []
  (let [c (.. js/document (createElement "DIV"))]
    (aset c "innerHTML" "I'm dynamically created")
    (.. js/document (getElementById "container") (appendChild c))))