diff --git a/src/play_clj/core_global.clj b/src/play_clj/core_global.clj
index 49d8b28..488a054 100644
--- a/src/play_clj/core_global.clj
+++ b/src/play_clj/core_global.clj
@@ -16,22 +16,22 @@
       `(Color. ^Color (utils/gdx-static-field :graphics :Color ~(first args)))
       `(Color. ~@args)))
 
-(defn game*
+(defmacro bitmap-font
+  [& options]
+  `(BitmapFont. ~@options))
+
+(defn game
   [key]
   (case key
-    :width `(.getWidth (Gdx/graphics))
-    :height `(.getHeight (Gdx/graphics))
-    :fps `(.getFramesPerSecond (Gdx/graphics))
-    :is-fullscreen? `(.isFullscreen (Gdx/graphics))
-    :is-touched? `(.isTouched (Gdx/input))
-    :x `(.getX (Gdx/input))
-    :y `(.getY (Gdx/input))
+    :width (.getWidth (Gdx/graphics))
+    :height (.getHeight (Gdx/graphics))
+    :fps (.getFramesPerSecond (Gdx/graphics))
+    :is-fullscreen? (.isFullscreen (Gdx/graphics))
+    :is-touched? (.isTouched (Gdx/input))
+    :x (.getX (Gdx/input))
+    :y (.getY (Gdx/input))
     nil))
 
-(defmacro game
-  [key]
-  `~(game* key))
-
 ; input
 
 (defn resolve-key