--- a/src/indyvon/core.clj	Tue Dec 09 16:45:22 2014 +0300
+++ b/src/indyvon/core.clj	Wed Dec 10 18:59:20 2014 +0300
@@ -32,8 +32,9 @@
 ;; View context
 ;;
 
-(def ^:dynamic ^Graphics2D *graphics*
-  "The graphics context, an instance of java.awt.Graphics2D.")
+(def ^:dynamic ^Graphics2D
+  ^{:doc "The graphics context, an instance of java.awt.Graphics2D."}
+  *graphics*)
 
 (def ^:dynamic ^FontRenderContext *font-context*
   "FontRenderContext to use when Graphics2D is not available."
@@ -42,37 +43,46 @@
    RenderingHints/VALUE_TEXT_ANTIALIAS_DEFAULT
    RenderingHints/VALUE_FRACTIONALMETRICS_DEFAULT))
 
-(def ^:dynamic *width*
-  "Width of the rendering area.")
+(def ^:dynamic
+  ^{:doc "Width of the rendering area."}
+  *width*)
 
-(def ^:dynamic *height*
-  "Height of the rendering area.")
+(def ^:dynamic
+  ^{:doc "Height of the rendering area."}
+  *height*)
 
-(def ^:dynamic ^Shape *clip*
-  "The View context's clipping area. Does not account for partial
-  repaints, may differ from (.getClip *graphics*).")
+(def ^:dynamic ^Shape
+  ^{:doc "The View context's clipping area. Does not account for
+  partial repaints, may differ from (.getClip *graphics*)."}
+  *clip*)
 
-(def ^:dynamic ^Shape *input-clip*
-  "Clipping area used for dispatching pointer events (after
-  intersecting with *clip*). If nil, *clip* is used.")
+(def ^:dynamic ^Shape
+  ^{:doc "Clipping area used for dispatching pointer events (after
+  intersecting with *clip*). If nil, *clip* is used."}
+  *input-clip*)
 
-(def ^:dynamic *time*
-  "Timestamp of the current frame (in nanoseconds).")
+(def ^:dynamic
+  ^{:doc "Timestamp of the current frame (in nanoseconds)."}
+  *time*)
 
-(def ^:dynamic *scene*
-  "Encloses state that should be retained between repaints.")
+(def ^:dynamic
+  ^{:doc "Encloses state that should be retained between repaints."}
+  *scene*)
 
-(def ^:dynamic *states*
-  "Transient scene states, a map.")
+(def ^:dynamic
+  ^{:doc "Transient scene states, a map."}
+  *states*)
 
 (def ^:dynamic *event-dispatcher*)
 
-(def ^:dynamic ^AffineTransform *initial-transform*
-  "Initial transform associated with the graphics context.")
+(def ^:dynamic ^AffineTransform
+  ^{:doc "Initial transform associated with the graphics context."}
+  *initial-transform*)
 
-(def ^:dynamic ^AffineTransform *inverse-initial-transform*
-  "Inversion of the initial transform associated with the graphics
-  context.")
+(def ^:dynamic ^AffineTransform
+  ^{:doc "Inversion of the initial transform associated with the
+  graphics context."}
+  *inverse-initial-transform*)
 
 (defrecord Theme [fore-color back-color alt-back-color border-color
                   shadow-color font])