diff options
-rwxr-xr-x | repgoal.hs | 23 |
1 files changed, 12 insertions, 11 deletions
@@ -198,14 +198,15 @@ accessoryLiftRow liftRecords name targetReps (position, _) = | |||
198 | targetWeight = join $ fmap achievedWeight . find ((== targetReps) . fromIntegral . achievedReps) . stats <$> liftRecords | 198 | targetWeight = join $ fmap achievedWeight . find ((== targetReps) . fromIntegral . achievedReps) . stats <$> liftRecords |
199 | 199 | ||
200 | unspecifiedLiftRow :: Text -> [Widget n] | 200 | unspecifiedLiftRow :: Text -> [Widget n] |
201 | unspecifiedLiftRow name = map (padLeftRight 2) [ | 201 | unspecifiedLiftRow name = |
202 | txt name, | 202 | map (padLeftRight 2) |
203 | txt " ", | 203 | [ txt name |
204 | txt " ", | 204 | , txt " " |
205 | txt " ", | 205 | , txt " " |
206 | txt " ", | 206 | , txt " " |
207 | txt " ", | 207 | , txt " " |
208 | txt " " | 208 | , txt " " |
209 | , txt " " | ||
209 | ] | 210 | ] |
210 | 211 | ||
211 | wendlerLiftRow :: LiftRecord -> (ListPosition, SetScheme) -> [Widget n] | 212 | wendlerLiftRow :: LiftRecord -> (ListPosition, SetScheme) -> [Widget n] |
@@ -329,7 +330,7 @@ jerk = pushPress / 100 * 85 | |||
329 | program :: NESeq Session | 330 | program :: NESeq Session |
330 | program = | 331 | program = |
331 | 332 | ||
332 | ( Session "531 Deadlift/Press" $ | 333 | ( Session "5-3-1 Deadlift/Press" $ |
333 | 334 | ||
334 | Lift "Deadlift" Wendler | 335 | Lift "Deadlift" Wendler |
335 | :<|| Seq.fromList | 336 | :<|| Seq.fromList |
@@ -359,7 +360,7 @@ program = | |||
359 | , Lift "Right-Arm Snatch" $ Accessory 5 3 | 360 | , Lift "Right-Arm Snatch" $ Accessory 5 3 |
360 | ] | 361 | ] |
361 | 362 | ||
362 | , Session "531 Squat/Bench" $ | 363 | , Session "5-3-1 Squat/Bench" $ |
363 | 364 | ||
364 | Lift "Squat" Wendler | 365 | Lift "Squat" Wendler |
365 | :<|| Seq.fromList | 366 | :<|| Seq.fromList |
@@ -401,7 +402,7 @@ program = | |||
401 | 402 | ||
402 | Lift "Press front & back" (Accessory 1 10) | 403 | Lift "Press front & back" (Accessory 1 10) |
403 | :<|| Seq.fromList | 404 | :<|| Seq.fromList |
404 | [ Lift "Squat" $ Accessory 1 5 | 405 | [ Lift "Back Squat" $ Accessory 1 5 |
405 | , Lift "Good Morning" $ Accessory 1 5 | 406 | , Lift "Good Morning" $ Accessory 1 5 |
406 | , Lift "Front Squat" $ Accessory 1 5 | 407 | , Lift "Front Squat" $ Accessory 1 5 |
407 | , Lift "SLDL" $ Accessory 1 5 | 408 | , Lift "SLDL" $ Accessory 1 5 |