perform action on completion of goalie edit
This commit is contained in:
Jonathan Lamothe
parent
835cb9582b
commit
13a1949446
|
|
@ -39,89 +39,103 @@ import Mtlstats.Util
|
|||
editGoalieC :: EditGoalieState -> Controller
|
||||
editGoalieC egs
|
||||
| null $ egs^.egsSelectedGoalie = selectC
|
||||
| otherwise = editC $ egs^.egsMode
|
||||
| otherwise = editC (egs^.egsCallback) (egs^.egsMode)
|
||||
|
||||
selectC :: Controller
|
||||
selectC = promptController goalieToEditPrompt
|
||||
|
||||
editC :: EditGoalieMode -> Controller
|
||||
editC = \case
|
||||
EGMenu -> menuC
|
||||
EGNumber -> numberC
|
||||
EGName -> nameC
|
||||
EGYtd -> ytdMenuC
|
||||
EGLifetime -> lifetimeMenuC
|
||||
EGYtdGames b -> ytdGamesC b
|
||||
EGYtdMins b -> ytdMinsC b
|
||||
EGYtdGoals b -> ytdGoalsC b
|
||||
EGYtdShutouts b -> ytdShutoutsC b
|
||||
EGYtdWins b -> ytdWinsC b
|
||||
EGYtdLosses b -> ytdLossesC b
|
||||
EGYtdTies -> ytdTiesC
|
||||
EGLtGames b -> ltGamesC b
|
||||
EGLtMins b -> ltMinsC b
|
||||
EGLtGoals b -> ltGoalsC b
|
||||
EGLtShutouts b -> ltShutoutsC b
|
||||
EGLtWins b -> ltWinsC b
|
||||
EGLtLosses b -> ltLossesC b
|
||||
EGLtTies -> ltTiesC
|
||||
editC :: Action () -> EditGoalieMode -> Controller
|
||||
editC cb =
|
||||
( \case
|
||||
EGMenu -> menuC
|
||||
EGNumber -> numberC
|
||||
EGName -> nameC
|
||||
EGYtd -> ytdMenuC
|
||||
EGLifetime -> lifetimeMenuC
|
||||
EGYtdGames b -> ytdGamesC b
|
||||
EGYtdMins b -> ytdMinsC b
|
||||
EGYtdGoals b -> ytdGoalsC b
|
||||
EGYtdShutouts b -> ytdShutoutsC b
|
||||
EGYtdWins b -> ytdWinsC b
|
||||
EGYtdLosses b -> ytdLossesC b
|
||||
EGYtdTies -> ytdTiesC
|
||||
EGLtGames b -> ltGamesC b
|
||||
EGLtMins b -> ltMinsC b
|
||||
EGLtGoals b -> ltGoalsC b
|
||||
EGLtShutouts b -> ltShutoutsC b
|
||||
EGLtWins b -> ltWinsC b
|
||||
EGLtLosses b -> ltLossesC b
|
||||
EGLtTies -> ltTiesC
|
||||
) <*> return cb
|
||||
|
||||
menuC :: Controller
|
||||
menuC = menuControllerWith header editGoalieMenu
|
||||
menuC :: Action () -> Controller
|
||||
menuC _ = menuControllerWith header editGoalieMenu
|
||||
|
||||
numberC :: Controller
|
||||
numberC = promptController editGoalieNumberPrompt
|
||||
numberC :: Action () -> Controller
|
||||
numberC = promptController . editGoalieNumberPrompt
|
||||
|
||||
nameC :: Controller
|
||||
nameC = promptController editGoalieNamePrompt
|
||||
nameC :: Action () -> Controller
|
||||
nameC = promptController . editGoalieNamePrompt
|
||||
|
||||
ytdMenuC :: Controller
|
||||
ytdMenuC = menuControllerWith header editGoalieYtdMenu
|
||||
ytdMenuC :: Action () -> Controller
|
||||
ytdMenuC _ = menuControllerWith header editGoalieYtdMenu
|
||||
|
||||
lifetimeMenuC :: Controller
|
||||
lifetimeMenuC = menuControllerWith header editGoalieLtMenu
|
||||
lifetimeMenuC :: Action () -> Controller
|
||||
lifetimeMenuC _ = menuControllerWith header editGoalieLtMenu
|
||||
|
||||
ytdGamesC :: Bool -> Controller
|
||||
ytdGamesC = promptController . editGoalieYtdGamesPrompt
|
||||
ytdGamesC :: Bool -> Action () -> Controller
|
||||
ytdGamesC = curry $ promptController .
|
||||
uncurry editGoalieYtdGamesPrompt
|
||||
|
||||
ytdMinsC :: Bool -> Controller
|
||||
ytdMinsC = promptController . editGoalieYtdMinsPrompt
|
||||
ytdMinsC :: Bool -> Action () -> Controller
|
||||
ytdMinsC = curry $ promptController .
|
||||
uncurry editGoalieYtdMinsPrompt
|
||||
|
||||
ytdGoalsC :: Bool -> Controller
|
||||
ytdGoalsC = promptController . editGoalieYtdGoalsPrompt
|
||||
ytdGoalsC :: Bool -> Action () -> Controller
|
||||
ytdGoalsC = curry $ promptController .
|
||||
uncurry editGoalieYtdGoalsPrompt
|
||||
|
||||
ytdShutoutsC :: Bool -> Controller
|
||||
ytdShutoutsC = promptController . editGoalieYtdShutoutsPrompt
|
||||
ytdShutoutsC :: Bool -> Action () -> Controller
|
||||
ytdShutoutsC = curry $ promptController .
|
||||
uncurry editGoalieYtdShutoutsPrompt
|
||||
|
||||
ytdWinsC :: Bool -> Controller
|
||||
ytdWinsC = promptController . editGoalieYtdWinsPrompt
|
||||
ytdWinsC :: Bool -> Action () -> Controller
|
||||
ytdWinsC = curry $ promptController .
|
||||
uncurry editGoalieYtdWinsPrompt
|
||||
|
||||
ytdLossesC :: Bool -> Controller
|
||||
ytdLossesC = promptController . editGoalieYtdLossesPrompt
|
||||
ytdLossesC :: Bool -> Action () -> Controller
|
||||
ytdLossesC = curry $ promptController .
|
||||
uncurry editGoalieYtdLossesPrompt
|
||||
|
||||
ytdTiesC :: Controller
|
||||
ytdTiesC = promptController editGoalieYtdTiesPrompt
|
||||
ytdTiesC :: Action () -> Controller
|
||||
ytdTiesC = promptController . editGoalieYtdTiesPrompt
|
||||
|
||||
ltGamesC :: Bool -> Controller
|
||||
ltGamesC = promptController . editGoalieLtGamesPrompt
|
||||
ltGamesC :: Bool -> Action () -> Controller
|
||||
ltGamesC = curry $ promptController .
|
||||
uncurry editGoalieLtGamesPrompt
|
||||
|
||||
ltMinsC :: Bool -> Controller
|
||||
ltMinsC = promptController . editGoalieLtMinsPrompt
|
||||
ltMinsC :: Bool -> Action () -> Controller
|
||||
ltMinsC = curry $ promptController .
|
||||
uncurry editGoalieLtMinsPrompt
|
||||
|
||||
ltGoalsC :: Bool -> Controller
|
||||
ltGoalsC = promptController . editGoalieLtGoalsPrompt
|
||||
ltGoalsC :: Bool -> Action() -> Controller
|
||||
ltGoalsC = curry $ promptController .
|
||||
uncurry editGoalieLtGoalsPrompt
|
||||
|
||||
ltShutoutsC :: Bool -> Controller
|
||||
ltShutoutsC = promptController . editGoalieLtShutoutsPrompt
|
||||
ltShutoutsC :: Bool -> Action () -> Controller
|
||||
ltShutoutsC = curry $ promptController .
|
||||
uncurry editGoalieLtShutoutsPrompt
|
||||
|
||||
ltWinsC :: Bool -> Controller
|
||||
ltWinsC = promptController . editGoalieLtWinsPrompt
|
||||
ltWinsC :: Bool -> Action () -> Controller
|
||||
ltWinsC = curry $ promptController .
|
||||
uncurry editGoalieLtWinsPrompt
|
||||
|
||||
ltLossesC :: Bool -> Controller
|
||||
ltLossesC = promptController . editGoalieLtLossesPrompt
|
||||
ltLossesC :: Bool -> Action () -> Controller
|
||||
ltLossesC = curry $ promptController .
|
||||
uncurry editGoalieLtLossesPrompt
|
||||
|
||||
ltTiesC :: Controller
|
||||
ltTiesC = promptController editGoalieLtTiesPrompt
|
||||
ltTiesC :: Action () -> Controller
|
||||
ltTiesC = promptController . editGoalieLtTiesPrompt
|
||||
|
||||
header :: ProgState -> C.Update ()
|
||||
header s = C.drawString $ fromMaybe "" $ do
|
||||
|
|
|
|||
|
|
@ -52,85 +52,119 @@ goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $
|
|||
modify . (progMode.editGoalieStateL.egsSelectedGoalie .~)
|
||||
|
||||
-- | Prompt to edit a goalie's number
|
||||
editGoalieNumberPrompt :: Prompt
|
||||
editGoalieNumberPrompt
|
||||
:: Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieNumberPrompt = editNum "Goalie number: " EGMenu
|
||||
(gNumber .~)
|
||||
|
||||
-- | Prompt to edit a goalie's name
|
||||
editGoalieNamePrompt :: Prompt
|
||||
editGoalieNamePrompt = namePrompt "Goalie name: " $ \name ->
|
||||
editGoalieNamePrompt
|
||||
:: Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieNamePrompt cb = namePrompt "Goalie name: " $ \name -> do
|
||||
if null name
|
||||
then goto EGMenu
|
||||
else doEdit EGMenu $ gName .~ name
|
||||
then goto EGMenu
|
||||
else doEdit EGMenu $ gName .~ name
|
||||
cb
|
||||
|
||||
-- | Prompt to edit a goalie's YTD games played
|
||||
editGoalieYtdGamesPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdGamesPrompt batchMode =
|
||||
editGoalieYtdGamesPrompt batchMode cb =
|
||||
editNum "Year-to-date games played: " mode
|
||||
(gYtd.gsGames .~)
|
||||
(gYtd.gsGames .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdMins True else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdMins True, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD minutes played
|
||||
editGoalieYtdMinsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdMinsPrompt batchMode =
|
||||
editGoalieYtdMinsPrompt batchMode cb =
|
||||
editNum "Year-to-date minutes played: " mode
|
||||
(gYtd.gsMinsPlayed .~)
|
||||
(gYtd.gsMinsPlayed .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdGoals True else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdGoals True, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD goales allowed
|
||||
editGoalieYtdGoalsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdGoalsPrompt batchMode =
|
||||
editGoalieYtdGoalsPrompt batchMode cb =
|
||||
editNum "Year-to-date goals allowed: " mode
|
||||
(gYtd.gsGoalsAllowed .~)
|
||||
(gYtd.gsGoalsAllowed .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdShutouts True else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdShutouts True, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD shutouts
|
||||
editGoalieYtdShutoutsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdShutoutsPrompt batchMode =
|
||||
editGoalieYtdShutoutsPrompt batchMode cb =
|
||||
editNum "Year-to-date shutouts: " mode
|
||||
(gYtd.gsShutouts .~)
|
||||
(gYtd.gsShutouts .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdWins True else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdWins True, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD wins
|
||||
editGoalieYtdWinsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdWinsPrompt batchMode =
|
||||
editGoalieYtdWinsPrompt batchMode cb =
|
||||
editNum "Year-to-date wins: " mode
|
||||
(gYtd.gsWins .~)
|
||||
(gYtd.gsWins .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdLosses True else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdLosses True, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD losses
|
||||
editGoalieYtdLossesPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdLossesPrompt batchMode =
|
||||
editGoalieYtdLossesPrompt batchMode cb =
|
||||
editNum "Year-to-date losses: " mode
|
||||
(gYtd.gsLosses .~)
|
||||
(gYtd.gsLosses .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGYtdTies else EGYtd
|
||||
(mode, cb') = if batchMode
|
||||
then (EGYtdTies, return ())
|
||||
else (EGYtd, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's YTD ties
|
||||
editGoalieYtdTiesPrompt :: Prompt
|
||||
editGoalieYtdTiesPrompt
|
||||
:: Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieYtdTiesPrompt = editNum "Year-to-date ties: " EGYtd
|
||||
(gYtd.gsTies .~)
|
||||
|
||||
|
|
@ -138,70 +172,97 @@ editGoalieYtdTiesPrompt = editNum "Year-to-date ties: " EGYtd
|
|||
editGoalieLtGamesPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtGamesPrompt batchMode =
|
||||
editGoalieLtGamesPrompt batchMode cb =
|
||||
editNum "Lifetime games played: " mode
|
||||
(gLifetime.gsGames .~)
|
||||
(gLifetime.gsGames .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtMins True else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtMins True, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime minutes played
|
||||
editGoalieLtMinsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtMinsPrompt batchMode =
|
||||
editGoalieLtMinsPrompt batchMode cb =
|
||||
editNum "Lifetime minutes played: " mode
|
||||
(gLifetime.gsMinsPlayed .~)
|
||||
(gLifetime.gsMinsPlayed .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtGoals True else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtGoals True, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime goals allowed
|
||||
editGoalieLtGoalsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtGoalsPrompt batchMode =
|
||||
editGoalieLtGoalsPrompt batchMode cb =
|
||||
editNum "Lifetime goals allowed: " mode
|
||||
(gLifetime.gsGoalsAllowed .~)
|
||||
(gLifetime.gsGoalsAllowed .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtShutouts True else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtShutouts True, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime shutouts
|
||||
editGoalieLtShutoutsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtShutoutsPrompt batchMode =
|
||||
editGoalieLtShutoutsPrompt batchMode cb =
|
||||
editNum "Lifetime shutouts: " mode
|
||||
(gLifetime.gsShutouts .~)
|
||||
(gLifetime.gsShutouts .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtWins True else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtWins True, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime wins
|
||||
editGoalieLtWinsPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtWinsPrompt batchMode =
|
||||
editGoalieLtWinsPrompt batchMode cb =
|
||||
editNum "Lifetime wins: " mode
|
||||
(gLifetime.gsWins .~)
|
||||
(gLifetime.gsWins .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtLosses True else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtLosses True, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime losses
|
||||
editGoalieLtLossesPrompt
|
||||
:: Bool
|
||||
-- ^ Indicates whether or not we're in batch mode
|
||||
-> Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtLossesPrompt batchMode =
|
||||
editGoalieLtLossesPrompt batchMode cb =
|
||||
editNum "Lifetime losses: " mode
|
||||
(gLifetime.gsLosses .~)
|
||||
(gLifetime.gsLosses .~) cb'
|
||||
where
|
||||
mode = if batchMode then EGLtTies else EGLifetime
|
||||
(mode, cb') = if batchMode
|
||||
then (EGLtTies, return ())
|
||||
else (EGLifetime, cb)
|
||||
|
||||
-- | Prompt to edit a goalie's lifetime ties
|
||||
editGoalieLtTiesPrompt :: Prompt
|
||||
editGoalieLtTiesPrompt
|
||||
:: Action ()
|
||||
-- ^ Action to perform on completion
|
||||
-> Prompt
|
||||
editGoalieLtTiesPrompt = editNum "Lifetime ties: " EGLifetime
|
||||
(gLifetime.gsTies .~)
|
||||
|
||||
|
|
@ -209,10 +270,13 @@ editNum
|
|||
:: String
|
||||
-> EditGoalieMode
|
||||
-> (Int -> Goalie -> Goalie)
|
||||
-> Action ()
|
||||
-> Prompt
|
||||
editNum pStr mode f = numPromptWithFallback pStr
|
||||
(goto mode)
|
||||
(doEdit mode . f)
|
||||
editNum pStr mode f cb = numPromptWithFallback pStr
|
||||
(goto mode >> cb)
|
||||
(\num -> do
|
||||
doEdit mode $ f num
|
||||
cb)
|
||||
|
||||
doEdit :: EditGoalieMode -> (Goalie -> Goalie) -> Action ()
|
||||
doEdit mode f = do
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user