added reset key

This commit is contained in:
Jonathan Lamothe 2024-08-22 19:23:30 -04:00
parent 2f50ed51be
commit 52c7634121
2 changed files with 8 additions and 0 deletions

View File

@ -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

View File

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