Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns iconweb.views.device
- (:use [c2.svg :only [translate]]))
- (defn render
- "Render a device given its description"
- [{alias :alias x :x y :y}]
- [:g {:transform (translate [x y])}
- [:text alias {:class "deviceText"}]
- [:rect {:class "deviceBox" :y "2" :width "60" :height "20" :rx "5" :ry "5"}]])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement