Break ui code to separate namespace and refactor

src/play_clj/ui.clj

@@ -0,0 +1,240 @@
+(ns play-clj.ui
+  (:require [play-clj.utils :as u])
+  (:import [com.badlogic.gdx Files Gdx]
+           [com.badlogic.gdx.graphics Color Texture]
+           [com.badlogic.gdx.graphics.g2d BitmapFont TextureRegion]
+           [com.badlogic.gdx.scenes.scene2d Actor Stage]
+           [com.badlogic.gdx.scenes.scene2d.ui ButtonGroup CheckBox Dialog Image
+            ImageButton ImageTextButton Label Skin Slider TextButton TextField]
+           [com.badlogic.gdx.scenes.scene2d.utils ActorGestureListener
+            ChangeListener ClickListener DragListener FocusListener
+            NinePatchDrawable SpriteDrawable TextureRegionDrawable
+            TiledDrawable]))
+
+(defmacro drawable
+  [type & options]
+  `(~(symbol (str u/gdx-package ".scenes.scene2d.u."
+                  (u/key->class type) "Drawable."))
+     ~@options))
+
+(defmacro bitmap-font
+  [& options]
+  `(BitmapFont. ~@options))
+
+(defmacro style
+  [type & options]
+  `(~(symbol (str u/gdx-package ".scenes.scene2d.ui."
+                  (u/key->class type) "$"
+                  (u/key->class type) "Style."))
+     ~@options))
+
+(defmacro skin
+  [path & options]
+  `(u/calls! ^Skin (Skin. (.internal ^Files (Gdx/files) ~path)) ~@options))
+
+; widgets
+
+(defn check-box*
+  [^String text arg]
+  (CheckBox. text arg))
+
+(defmacro check-box
+  [text arg & options]
+  `(u/create-entity (u/calls! ^CheckBox (check-box* ~text ~arg) ~@options)))
+
+(defn image*
+  [arg]
+  (cond
+    (map? arg)
+    (Image. ^TextureRegion (:object arg))
+    (string? arg)
+    (Image. (Texture. arg))
+    :else
+    (Image. arg)))
+
+(defmacro image
+  [arg & options]
+  `(u/create-entity (u/calls! ^Image (image* ~arg) ~@options)))
+
+(defn image-button*
+  [arg]
+  (ImageButton. arg))
+
+(defmacro image-button
+  [arg & options]
+  `(u/create-entity (u/calls! ^ImageButton (image-button* ~arg) ~@options)))
+
+(defn image-text-button*
+  [^String text arg]
+  (ImageTextButton. text arg))
+
+(defmacro image-text-button
+  [text arg & options]
+  `(u/create-entity (u/calls! ^ImageTextButton (image-text-button* ~text ~arg)
+                              ~@options)))
+
+(defn label*
+  [^String text arg]
+  (if (isa? (type arg) Color)
+    (Label. text (style :label (bitmap-font) arg))
+    (Label. text arg)))
+
+(defmacro label
+  [text arg & options]
+  `(u/create-entity (u/calls! ^Label (label* ~text ~arg) ~@options)))
+
+(defn slider*
+  [min max step is-vert? arg]
+  (Slider. (float min) (float max) (float step) is-vert? arg))
+
+(defmacro slider
+  [min max step is-vert? arg & options]
+  `(u/create-entity (u/calls! ^Slider (slider* ~min ~max ~step ~is-vert? ~arg)
+                              ~@options)))
+
+(defn text-button*
+  [^String text arg]
+  (TextButton. text arg))
+
+(defmacro text-button
+  [text arg & options]
+  `(u/create-entity (u/calls! ^TextButton (text-button* ~text ~arg) ~@options)))
+
+(defn text-field*
+  [^String text arg]
+  (TextField. text arg))
+
+(defmacro text-field
+  [text arg & options]
+  `(u/create-entity (u/calls! ^TextField (text-field* ~text ~arg) ~@options)))
+
+(defn dialog*
+  [text arg]
+  (Dialog. text arg))
+
+(defmacro dialog
+  [text arg & options]
+  `(u/create-entity (u/calls! ^Dialog (dialog* ~text ~arg) ~@options)))
+
+; listeners
+
+(defn ^:private gesture-listener
+  [{:keys [on-ui-fling on-ui-long-press on-ui-pan on-ui-pinch
+           on-ui-tap on-ui-touch-down on-ui-touch-up on-ui-zoom]}
+   execute-fn!]
+  (proxy [ActorGestureListener] []
+    (fling [e vx vy b]
+      (execute-fn! on-ui-fling
+                   :event e :velocity-x vx :velocity-y vy :button b))
+    (longPress [a x y]
+      (execute-fn! on-ui-long-press :actor a :x x :y y)
+      false)
+    (pan [e x y dx dy]
+      (execute-fn! on-ui-pan :event e :x x :y y :delta-x dx :delta-y dy))
+    (pinch [e ip1 ip2 p1 p2]
+      (execute-fn! on-ui-pinch
+                   :event e :initial-pointer-1 ip1 :initial-pointer-2 ip2
+                   :pointer1 p1 :pointer2 p2))
+    (tap [e x y p b]
+      (execute-fn! on-ui-tap :event e :x x :y y :pointer p :button b))
+    ;(touchDown [e x y p b]
+    ;  (execute-fn! on-ui-touch-down :event e :x x :y y :pointer p :button b))
+    ;(touchUp [e x y p b]
+    ;  (execute-fn! on-ui-touch-up :event e :x x :y y :pointer p :button b))
+    (zoom [e id d]
+      (execute-fn! on-ui-zoom :event e :initial-distance id :distance d))))
+
+(defn ^:private change-listener
+  [{:keys [on-ui-changed]} execute-fn!]
+  (proxy [ChangeListener] []
+    (changed [e a]
+      (execute-fn! on-ui-changed :event e :actor a))))
+
+(defn ^:private click-listener
+  [{:keys [on-ui-clicked on-ui-enter on-ui-exit
+           on-ui-touch-down on-ui-touch-dragged on-ui-touch-up]}
+   execute-fn!]
+  (proxy [ClickListener] []
+    (clicked [e x y]
+      (execute-fn! on-ui-clicked :event e :x x :y y))
+    (enter [e x y p a]
+      (execute-fn! on-ui-enter :event e :x x :y y :pointer p :from-actor a))
+    (exit [e x y p a]
+      (execute-fn! on-ui-exit :event e :x x :y y :pointer p :to-actor a))
+    (touchDown [e x y p b]
+      (execute-fn! on-ui-touch-down :event e :x x :y y :pointer p :button b)
+      true)
+    (touchDragged [e x y p]
+      (execute-fn! on-ui-touch-dragged :event e :x x :y y :pointer p))
+    (touchUp [e x y p b]
+      (execute-fn! on-ui-touch-up :event e :x x :y y :pointer p :button b))))
+
+(defn ^:private drag-listener
+  [{:keys [on-ui-drag on-ui-drag-start on-ui-drag-stop
+           on-ui-touch-down on-ui-touch-dragged on-ui-touch-up]}
+   execute-fn!]
+  (proxy [DragListener] []
+    ;(touchDown [e x y p b]
+    ;  (execute-fn! on-ui-touch-down :event e :x x :y y :pointer p :button b)
+    ;  true)
+    ;(touchDragged [e x y p]
+    ;  (execute-fn! on-ui-touch-dragged :event e :x x :y y :pointer p))
+    ;(touchUp [e x y p b]
+    ;  (execute-fn! on-ui-touch-up :event e :x x :y y :pointer p :button b))
+    (drag [e x y p]
+      (execute-fn! on-ui-drag :event e :x x :y y :pointer p))
+    (dragStart [e x y p]
+      (execute-fn! on-ui-drag-start :event e :x x :y y :pointer p))
+    (dragStop [e x y p]
+      (execute-fn! on-ui-drag-stop :event e :x x :y y :pointer p))))
+
+(defn ^:private focus-listener
+  [{:keys [on-ui-keyboard-focus-changed on-ui-scroll-focus-changed]}
+   execute-fn!]
+  (proxy [FocusListener] []
+    (keyboardFocusChanged [e a f]
+      (execute-fn! on-ui-keyboard-focus-changed :event e :actor a :focused? f))
+    (scrollFocusChanged [e a f]
+      (execute-fn! on-ui-scroll-focus-changed :event e :actor a :focused? f))))
+
+(defn listeners
+  [options execute-fn!]
+  [(gesture-listener options execute-fn!)
+   (change-listener options execute-fn!)
+   (click-listener options execute-fn!)
+   (drag-listener options execute-fn!)
+   (focus-listener options execute-fn!)])
+
+; interop
+
+(defmacro check-box!
+  [entity k & options]
+  `(u/call! ^Checkbox (:object ~entity) ~k ~@options))
+
+(defmacro image-button!
+  [entity k & options]
+  `(u/call! ^ImageButton (:object ~entity) ~k ~@options))
+
+(defmacro image-text-button!
+  [entity k & options]
+  `(u/call! ^ImageTextButton (:object ~entity) ~k ~@options))
+
+(defmacro label!
+  [entity k & options]
+  `(u/call! ^Label (:object ~entity) ~k ~@options))
+
+(defmacro slider!
+  [entity k & options]
+  `(u/call! ^Slider (:object ~entity) ~k ~@options))
+
+(defmacro text-button!
+  [entity k & options]
+  `(u/call! ^TextButton (:object ~entity) ~k ~@options))
+
+(defmacro text-field!
+  [entity k & options]
+  `(u/call! ^TextField (:object ~entity) ~k ~@options))
+
+(defmacro dialog!
+  [entity k & options]
+  `(u/call! ^Dialog (:object ~entity) ~k ~@options))