Add bitmap-font! macro

2014-04-08 21:53:45 -04:00
parent 7da1cdaa52
commit 6a0ed22b1e
2 changed files with 7 additions and 1 deletions
--- a/doclet/resources/classes.edn
+++ b/doclet/resources/classes.edn
@@ -16,7 +16,8 @@
 "Audio" {"audio!" :methods}
 "Bezier" {"bezier" :methods
           "bezier!" :methods}
- "BitmapFont" {"bitmap-font" :constructors}
+ "BitmapFont" {"bitmap-font" :constructors
+               "bitmap-font!" :methods}
 "BitmapFontLoader" {"loader :bitmap-font" :methods
                     "loader! :bitmap-font" :methods}
 "BlendingAttribute" {"attribute :blending" :constructors
--- a/src/play_clj/g2d.clj
+++ b/src/play_clj/g2d.clj
@@ -14,6 +14,11 @@
  [& options]
  `(BitmapFont. ~@options))

+(defmacro bitmap-font!
+  "Calls a single method on a `bitmap-font`."
+  [object k & options]
+  `(u/call! ^BitmapFont ~object ~k ~@options))
+
 ; texture

 (defn texture*