fairly accurate text positioning.

desktop/src-common/advent/utils.clj

@@ -0,0 +1,9 @@
+(ns advent.utils
+  (:require [play-clj.core :refer :all]
+            [play-clj.ui :refer :all]
+            [play-clj.utils :refer :all]
+            [play-clj.g2d :refer :all]))
+
+(defn log-coords [screen entities]
+  (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
+    (println (:input-x screen) (:input-y screen) "->" x y)))