mirror of
https://github.com/Yvee1/hascard.git
synced 2024-11-25 09:54:43 +03:00
Do not require flipping of empty definition card
This commit is contained in:
parent
5e14b17ce8
commit
d0f56b826e
@ -261,10 +261,10 @@ handleEvent (VtyEvent e) =
|
||||
s <- use cs
|
||||
flip (`maybe` (`handlePopupEvent` ev)) pUp $
|
||||
case (s ^. cardState, s ^. currentCard) of
|
||||
(DefinitionState{_flipped = f}, _) ->
|
||||
(DefinitionState{_flipped = f}, Definition {definition = d}) ->
|
||||
case ev of
|
||||
V.EvKey V.KEnter [] ->
|
||||
if f
|
||||
if f || all isSpace d
|
||||
then if not (s^.reviewMode) then next
|
||||
else cs.popup ?= correctPopup
|
||||
else cs.cardState.flipped %= not
|
||||
|
Loading…
Reference in New Issue
Block a user