nicer ux when getting flask.

desktop/src-common/advent/actions.clj

@@ -274,6 +274,20 @@
               (can-skip? [this screen entities]
                             false)))
 
+(defn remove-entity [entities entity]
+  (run-action entities
+              (begin [this screen entities]
+                     (update-in entities [:room :entities] #(dissoc % entity)))
+
+              (continue [this screen entities] entities)
+
+              (done? [this screen entities] true)
+
+              (terminate [this screen entities] entities)
+
+              (can-skip? [this screen entities]
+                            false)))
+
 (defn transition-background [entities new-background [x y]]
   (run-action entities
               (begin [this screen entities]