From b5e44dae650b852cb265d21d3ecad91274ad4028 Mon Sep 17 00:00:00 2001 From: oakes Date: Tue, 8 Apr 2014 22:07:01 -0400 Subject: [PATCH] Add color! macro --- doclet/resources/classes.edn | 3 ++- src/play_clj/core_basics.clj | 5 +++++ 2 files changed, 7 insertions(+), 1 deletion(-) 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!