From 835cb9582bee8703fa703f03a2eeb0fa7271d9c9 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 31 Jan 2020 00:36:16 -0500 Subject: [PATCH] created Mtlstats.Control.CreateGoalie module --- src/Mtlstats/Control.hs | 62 +++------------------- src/Mtlstats/Control/CreateGoalie.hs | 78 ++++++++++++++++++++++++++++ 2 files changed, 86 insertions(+), 54 deletions(-) create mode 100644 src/Mtlstats/Control/CreateGoalie.hs diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index 1c192be..b527fa4 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -21,20 +21,15 @@ along with this program. If not, see . module Mtlstats.Control (dispatch) where -import Control.Monad (join) -import Control.Monad.Trans.State (gets, modify) -import Data.Maybe (fromJust) import Lens.Micro ((^.)) -import qualified UI.NCurses as C -import Mtlstats.Actions +import Mtlstats.Control.CreateGoalie import Mtlstats.Control.CreatePlayer import Mtlstats.Control.EditGoalie import Mtlstats.Control.EditPlayer import Mtlstats.Control.EditStandings import Mtlstats.Control.NewGame import Mtlstats.Control.TitleScreen -import Mtlstats.Handlers import Mtlstats.Menu import Mtlstats.Prompt import Mtlstats.Types @@ -43,16 +38,13 @@ import Mtlstats.Types -- run dispatch :: ProgState -> Controller dispatch s = case s^.progMode of - TitleScreen -> titleScreenC - MainMenu -> mainMenuC - NewSeason flag -> newSeasonC flag - NewGame gs -> newGameC gs - EditMenu -> editMenuC - CreatePlayer cps -> createPlayerC cps - CreateGoalie cgs - | null $ cgs^.cgsNumber -> getGoalieNumC - | null $ cgs^.cgsName -> getGoalieNameC - | otherwise -> confirmCreateGoalieC + TitleScreen -> titleScreenC + MainMenu -> mainMenuC + NewSeason flag -> newSeasonC flag + NewGame gs -> newGameC gs + EditMenu -> editMenuC + CreatePlayer cps -> createPlayerC cps + CreateGoalie cgs -> createGoalieC cgs EditPlayer eps -> editPlayerC eps EditGoalie egs -> editGoalieC egs (EditStandings esm) -> editStandingsC esm @@ -69,41 +61,3 @@ newSeasonC True = menuController newSeasonMenu editMenuC :: Controller editMenuC = menuController editMenu - -getGoalieNumC :: Controller -getGoalieNumC = Controller - { drawController = drawPrompt goalieNumPrompt - , handleController = \e -> do - promptHandler goalieNumPrompt e - return True - } - -getGoalieNameC :: Controller -getGoalieNameC = Controller - { drawController = drawPrompt goalieNamePrompt - , handleController = \e -> do - promptHandler goalieNamePrompt e - return True - } - -confirmCreateGoalieC :: Controller -confirmCreateGoalieC = Controller - { drawController = \s -> do - let cgs = s^.progMode.createGoalieStateL - C.drawString $ unlines - [ "Goalie number: " ++ show (fromJust $ cgs^.cgsNumber) - , " Goalie name: " ++ cgs^.cgsName - , "" - , "Create goalie: are you sure? (Y/N)" - ] - return C.CursorInvisible - , handleController = \e -> do - case ynHandler e of - Just True -> do - modify addGoalie - join $ gets (^.progMode.createGoalieStateL.cgsSuccessCallback) - Just False -> - join $ gets (^.progMode.createGoalieStateL.cgsFailureCallback) - Nothing -> return () - return True - } diff --git a/src/Mtlstats/Control/CreateGoalie.hs b/src/Mtlstats/Control/CreateGoalie.hs new file mode 100644 index 0000000..1514a2d --- /dev/null +++ b/src/Mtlstats/Control/CreateGoalie.hs @@ -0,0 +1,78 @@ +{- | + +mtlstats +Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe + + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or (at +your option) any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + +-} + +module Mtlstats.Control.CreateGoalie (createGoalieC) where + +import Control.Monad (join) +import Control.Monad.Trans.State (gets, modify) +import Data.Maybe (fromJust) +import Lens.Micro ((^.)) +import qualified UI.NCurses as C + +import Mtlstats.Actions +import Mtlstats.Handlers +import Mtlstats.Prompt +import Mtlstats.Types + +-- | Handles goalie creation +createGoalieC :: CreateGoalieState -> Controller +createGoalieC cgs + | null $ cgs^.cgsNumber = getGoalieNumC + | null $ cgs^.cgsName = getGoalieNameC + | otherwise = confirmCreateGoalieC + +getGoalieNumC :: Controller +getGoalieNumC = Controller + { drawController = drawPrompt goalieNumPrompt + , handleController = \e -> do + promptHandler goalieNumPrompt e + return True + } + +getGoalieNameC :: Controller +getGoalieNameC = Controller + { drawController = drawPrompt goalieNamePrompt + , handleController = \e -> do + promptHandler goalieNamePrompt e + return True + } + +confirmCreateGoalieC :: Controller +confirmCreateGoalieC = Controller + { drawController = \s -> do + let cgs = s^.progMode.createGoalieStateL + C.drawString $ unlines + [ "Goalie number: " ++ show (fromJust $ cgs^.cgsNumber) + , " Goalie name: " ++ cgs^.cgsName + , "" + , "Create goalie: are you sure? (Y/N)" + ] + return C.CursorInvisible + , handleController = \e -> do + case ynHandler e of + Just True -> do + modify addGoalie + join $ gets (^.progMode.createGoalieStateL.cgsSuccessCallback) + Just False -> + join $ gets (^.progMode.createGoalieStateL.cgsFailureCallback) + Nothing -> return () + return True + }