normal mode still styled correctly.

desktop/src-common/advent/screens/scene.clj

@@ -1309,9 +1309,18 @@ void main ()
 
   :on-key-up
   (fn [screen entities options]
-    (when (= (key-code :escape) (:key options))
-      (utils/toggle-fullscreen!))
-    nil)
+    (cond 
+      (= (key-code :escape) (:key options))
+      (utils/toggle-fullscreen!)
+
+      (and utils/mobile?
+           (= (key-code :m) (:key options)))
+      (-> entities
+          (remove-cam-tweens)
+          (assoc-in [:cam :zoom] utils/max-zoom #_(max utils/max-zoom (min utils/min-zoom (* (or start-zoom zoom) (/ initial-distance distance))))))
+
+      :else
+      nil))
 
   :on-pan
   (fn [screen entities {:keys [input-x input-y delta-x delta-y]}]