Skip to content

Instantly share code, notes, and snippets.

@seanhess

seanhess/svg.cljs

Created October 15, 2014 16:07
Show Gist options
  • Save seanhess/ba728394198f78952a64 to your computer and use it in GitHub Desktop.
Save seanhess/ba728394198f78952a64 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
svg.cljs
(ns svg.core
(:require [goog.dom :as dom]))
(enable-console-print!)
(println "Hello world!")
(defn main []
(let [root-view (dom/getElement "root")]
(.log js/console root-view)
(set! (.-innerHTML root-view) (circle))))
(defn circle []
"<circle cx=\"50\" cy=\"50\" r=\"40\" stroke=\"black\" stroke-width=\"3\" fill=\"red\" />")
(main)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment