 
 (defn handle-button-click
   [clicked-what world-state]
-  (let [clicked-edit? (re-matches #"edit" clicked-what)
-        clicked-auto? (re-matches #"auto" clicked-what)]
+  (let [clicked-edit?  (re-matches #"edit" clicked-what)
+        clicked-auto?  (re-matches #"auto" clicked-what)
+        clicked-flips? (re-matches #"flips" clicked-what)]
       (cond
-        clicked-edit? (toggle-editing world-state)
-        clicked-auto? (toggle-random world-state)
-        :else         world-state)))
+        clicked-edit?  (toggle-editing world-state)
+        clicked-auto?  (toggle-random world-state)
+        clicked-flips? (toggle-flips world-state)
+        :else          world-state)))
 
 
 (defn clicked-button?

                      "go auto")
  (update-in world-state [:random?] not))

(defn handle-playing [clicked-what world-state]
  (let [clicked-edge? (re-matches #"edge.*" clicked-what)]
    (if clicked-edge?

(defn make-flips-matter
  [world-state]
  (merge world-state
         {:flips-matter? true}))


(defn parse-state
