SHARE
TWEET

Untitled

a guest Aug 13th, 2012 7 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (ns iconweb.views.device
  2.   (:use [c2.svg :only [translate]]))
  3.  
  4. (defn render
  5.   "Render a device given its description"
  6.   [{alias :alias x :x y :y}]
  7.     [:g {:transform (translate [x y])}
  8.      [:text alias {:class "deviceText"}]
  9.      [:rect {:class "deviceBox" :y "2" :width "60" :height "20" :rx "5" :ry "5"}]])
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top