add Wendler Week4 (deload week)

1 files changed, 3 insertions, 2 deletions

diff --git a/repgoal.hs b/repgoal.hs
index dfa1e71..f11dc84 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -116,7 +116,7 @@ showRational n = printf format $ (realToFrac :: Rational -> Float) $ n
   where
     format = if floor (n * 10) `mod` 10 == (0 :: Integer) then "%.0f" else "%.2f"
 
-data WeekSelection = Week1 | Week2 | Week3 deriving (Enum, Bounded, Show, Eq)
+data WeekSelection = Week1 | Week2 | Week3 | Week4 deriving (Enum, Bounded, Show, Eq)
 
 data Programming = Wendler | Accessory Int Int | Unspecified
 
@@ -163,6 +163,7 @@ liftScheme Heavier Week1 = warmup ++ [setScheme 75 5, setScheme 80 5, setSchemeA
 liftScheme Fresher Week2 = warmup ++ [setScheme 70 3, setScheme 80 3, setSchemeAMRAP 90 3] ++ downSets
 liftScheme Heavier Week2 = warmup ++ [setScheme 80 3, setScheme 85 3, setSchemeAMRAP 90 3] ++ downSets
 liftScheme _______ Week3 = warmup ++ [setScheme 75 5, setScheme 85 3, setSchemeAMRAP 95 1] ++ downSets
+liftScheme _______ Week4 = (flip setScheme 5) <$> [40, 50, 60, 70, 80] -- Wendler stops at 60
 
 data ListPosition = FirstInList | NotFirstInList deriving (Eq)
 
@@ -235,7 +236,7 @@ drawUI st = [vCenter $ vBox [hCenter $ hBox [header, oneRepMaxTable], withVScrol
     header = renderTable $ table $ map (padLeftRight 1 . txt)
       ["Date", "Time", "Bodyweight", "Week", "Session"]
       : [ map (padLeftRight 2 . txt) ["        ", "     ", "     ", weekNumber, sessionName session] ]
-    weekNumber = case (view week st) of Week1 -> "1"; Week2 -> "2"; Week3 -> "3"
+    weekNumber = case (view week st) of Week1 -> "1"; Week2 -> "2"; Week3 -> "3"; Week4 -> "4"
     oneRepMaxTable = renderTable $ table $ map (padLeftRight 1 . txt) ["Lift", "Achieved Best", "Computed 1RM"] : map toRow liftRecords
     toRow LiftRecord{..} =
       let best@Achieved{..} = bestPerformance stats