[OCaml] High Intensity Training Online
feat Drop rep band from routine accordion
Show only exercise names in the routine summary. Remove the rep-band view-model field, its projection, and the now-unused routine-reps style.
Changed files
lib/presenter/pages_routine.ml
@@ -186,9 +186,6 @@
186
186
tag "span"
187
187
[ class_ "routine-exercise" ]
188
188
[ txt "%s" exercise.name ];
189
Removed:
tag "span"
190
Removed:
[ class_ "routine-reps" ]
191
Removed:
[ txt "%s" exercise.reps ];
192
189
])
193
190
workout.exercises);
194
191
];
lib/presenter/view_model.ml
@@ -44,14 +44,14 @@
44
44
end
45
45
46
46
module Routine = struct
47
Removed:
type exercise = { name : string; reps : string }
48
Removed:
(** One prescribed exercise line, its name and rep band already phrased. *)
47
Added:
type exercise = { name : string }
48
Added:
(** One prescribed exercise line, its name already phrased. *)
49
49
50
50
type workout = { name : string; exercises : exercise list }
51
51
52
52
type t = { name : string; workouts : workout list }
53
Removed:
(** A routine as the accordion descriptions render it: names, numeric rep
54
Removed:
bands, and workout grouping only. No [Prescription] entity. *)
53
Added:
(** A routine as the accordion descriptions render it: exercise names and
54
Added:
workout grouping only. No rep bands, no [Prescription] entity. *)
55
55
end
56
56
57
57
module Routine_choice = struct
lib/web/assets/hito.css
@@ -999,17 +999,9 @@
999
999
padding-left: 1.2rem;
1000
1000
}
1001
1001
.routine-description li {
1002
Removed:
display: flex;
1003
Removed:
justify-content: space-between;
1004
Removed:
gap: 1rem;
1005
1002
padding: 0.35rem 0;
1006
1003
}
1007
1004
.routine-exercise { color: var(--ink); }
1008
Removed:
.routine-reps {
1009
Removed:
color: var(--muted-ink);
1010
Removed:
font-family: var(--mono);
1011
Removed:
white-space: nowrap;
1012
Removed:
}
1013
1005
1014
1006
@media (max-width: 42rem) {
1015
1007
.app-shell {
lib/web/handlers_overview.ml
@@ -28,13 +28,6 @@
28
28
Printf.sprintf "%s into %s, no pause" (Exercise.name isolation)
29
29
(Exercise.name compound)
30
30
31
Removed:
let reps_string prescription =
32
Removed:
let min_reps, max_reps =
33
Removed:
Prescription.Rep_range.bounds
34
Removed:
(Prescription.Stimulus.rep_range prescription)
35
Removed:
in
36
Removed:
Printf.sprintf "%d-%d" min_reps max_reps
37
Removed:
38
31
let routine_view r : View_model.Routine.t =
39
32
{
40
33
name = Prescription.Routine.name r;
@@ -46,7 +39,7 @@
46
39
exercises =
47
40
List.map
48
41
(fun s : View_model.Routine.exercise ->
49
Removed:
{ name = exercise_string s; reps = reps_string s })
42
Added:
{ name = exercise_string s })
50
43
(Prescription.Workout.stimuli w);
51
44
})
52
45
(Prescription.Routine.workouts r);