1.1 --- a/src/indyvon/core.clj	Tue Dec 09 16:45:22 2014 +0300
     1.2 +++ b/src/indyvon/core.clj	Wed Dec 10 18:59:20 2014 +0300
     1.3 @@ -32,8 +32,9 @@
     1.4  ;; View context
     1.5  ;;
     1.6  
     1.7 -(def ^:dynamic ^Graphics2D *graphics*
     1.8 -  "The graphics context, an instance of java.awt.Graphics2D.")
     1.9 +(def ^:dynamic ^Graphics2D
    1.10 +  ^{:doc "The graphics context, an instance of java.awt.Graphics2D."}
    1.11 +  *graphics*)
    1.12  
    1.13  (def ^:dynamic ^FontRenderContext *font-context*
    1.14    "FontRenderContext to use when Graphics2D is not available."
    1.15 @@ -42,37 +43,46 @@
    1.16     RenderingHints/VALUE_TEXT_ANTIALIAS_DEFAULT
    1.17     RenderingHints/VALUE_FRACTIONALMETRICS_DEFAULT))
    1.18  
    1.19 -(def ^:dynamic *width*
    1.20 -  "Width of the rendering area.")
    1.21 +(def ^:dynamic
    1.22 +  ^{:doc "Width of the rendering area."}
    1.23 +  *width*)
    1.24  
    1.25 -(def ^:dynamic *height*
    1.26 -  "Height of the rendering area.")
    1.27 +(def ^:dynamic
    1.28 +  ^{:doc "Height of the rendering area."}
    1.29 +  *height*)
    1.30  
    1.31 -(def ^:dynamic ^Shape *clip*
    1.32 -  "The View context's clipping area. Does not account for partial
    1.33 -  repaints, may differ from (.getClip *graphics*).")
    1.34 +(def ^:dynamic ^Shape
    1.35 +  ^{:doc "The View context's clipping area. Does not account for
    1.36 +  partial repaints, may differ from (.getClip *graphics*)."}
    1.37 +  *clip*)
    1.38  
    1.39 -(def ^:dynamic ^Shape *input-clip*
    1.40 -  "Clipping area used for dispatching pointer events (after
    1.41 -  intersecting with *clip*). If nil, *clip* is used.")
    1.42 +(def ^:dynamic ^Shape
    1.43 +  ^{:doc "Clipping area used for dispatching pointer events (after
    1.44 +  intersecting with *clip*). If nil, *clip* is used."}
    1.45 +  *input-clip*)
    1.46  
    1.47 -(def ^:dynamic *time*
    1.48 -  "Timestamp of the current frame (in nanoseconds).")
    1.49 +(def ^:dynamic
    1.50 +  ^{:doc "Timestamp of the current frame (in nanoseconds)."}
    1.51 +  *time*)
    1.52  
    1.53 -(def ^:dynamic *scene*
    1.54 -  "Encloses state that should be retained between repaints.")
    1.55 +(def ^:dynamic
    1.56 +  ^{:doc "Encloses state that should be retained between repaints."}
    1.57 +  *scene*)
    1.58  
    1.59 -(def ^:dynamic *states*
    1.60 -  "Transient scene states, a map.")
    1.61 +(def ^:dynamic
    1.62 +  ^{:doc "Transient scene states, a map."}
    1.63 +  *states*)
    1.64  
    1.65  (def ^:dynamic *event-dispatcher*)
    1.66  
    1.67 -(def ^:dynamic ^AffineTransform *initial-transform*
    1.68 -  "Initial transform associated with the graphics context.")
    1.69 +(def ^:dynamic ^AffineTransform
    1.70 +  ^{:doc "Initial transform associated with the graphics context."}
    1.71 +  *initial-transform*)
    1.72  
    1.73 -(def ^:dynamic ^AffineTransform *inverse-initial-transform*
    1.74 -  "Inversion of the initial transform associated with the graphics
    1.75 -  context.")
    1.76 +(def ^:dynamic ^AffineTransform
    1.77 +  ^{:doc "Inversion of the initial transform associated with the
    1.78 +  graphics context."}
    1.79 +  *inverse-initial-transform*)
    1.80  
    1.81  (defrecord Theme [fore-color back-color alt-back-color border-color
    1.82                    shadow-color font])