Add color! macro

doclet/resources/classes.edn

@@ -35,7 +35,8 @@
                      "catmull-rom-spline!" :methods}
  "Circle" {"circle" :methods
            "circle!" :methods}
- "Color" {"color" :static-fields}
+ "Color" {"color" :static-fields
+          "color!" :methods}
  "ColorAttribute" {"attribute :color" :constructors
                    "attribute-type :color" :static-fields
                    "attribute! :color" :static-methods}

src/play_clj/core_basics.clj

@@ -25,6 +25,11 @@
                                     (u/key->upper (first args))))
       `(Color. ~@args)))
 
+(defmacro color!
+  "Calls a single method on a `color`."
+  [object k & options]
+  `(u/call! ^Color ~object ~k ~@options))
+
 ; interop
 
 (defmacro app!