almost everything is functional again.

desktop/src-common/advent/utils.clj

@@ -29,6 +29,16 @@
     (.addListener ^Actor object listener))
   entity)
 
+(defn clear-stage [{:keys [^Stage renderer]}]
+  (.clear renderer))
+
+(defn remove-actor-from-stage
+  ([entities id]
+     (remove-actor-from-stage (id entities)))
+  ([{:keys [^Actor object]}]
+     (when object
+       (.remove object))))
+
 (defn log-coords [screen entities]
   (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
     (log/info (:input-x screen) (:input-y screen) "->" x y)))