SHOW:
|
|
- or go back to the newest paste.
| 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] |
| 8 | + | [:text alias {:class "deviceText"}]
|
| 9 | [:rect {:class "deviceBox" :y "2" :width "60" :height "20" :rx "5" :ry "5"}]]) |
