added reset key

src/Abacus/App/Events.hs

@@ -57,7 +57,9 @@ import Graphics.Vty.Input.Events
     , KPageDown
     )
   )
+import Lens.Micro.Platform ((%=))
 
+import Abacus
 import Abacus.App.Actions
 import Abacus.App.Types
 
@@ -90,6 +92,8 @@ eventBindings =
     modify rungLeft
   , onEvent RungRightE "Moves all beads to the right of the rung" $
     modify rungRight
+  , onEvent ResetBeadsE "Resets the beads on the abacus" $
+    abacus %= resetAbacus
   ] ++ map
     ( \n -> onEvent (SelRungE n) "Moves to a numbered rung" $
       modify $ selRung n
@@ -148,6 +152,9 @@ keyBindings =
       , bind 'L'
       ]
     )
+  , ( ResetBeadsE
+    , [bind 'r']
+    )
   ] ++ map
     ( \n ->
       ( SelRungE n

src/Abacus/App/Types.hs

@@ -60,6 +60,7 @@ data KeyEventID
   | BeadRightE
   | RungLeftE
   | RungRightE
+  | ResetBeadsE
   | SelRungE Int
   deriving (Eq, Ord, Show)