diff --git a/doclet/resources/classes.edn b/doclet/resources/classes.edn index 8f1eb34..f8b521a 100644 --- a/doclet/resources/classes.edn +++ b/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} diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj index c0ba8e6..04b37f4 100644 --- a/src/play_clj/core_basics.clj +++ b/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!