27 lines
959 B
Plaintext
27 lines
959 B
Plaintext
(defNew [&prop &mut :EntryType type
|
|
&prop &mut :Array<EntryLabel> labels
|
|
&prop &mut :Bool topPriority])
|
|
|
|
(method toString []
|
|
"$?(when topPriority "! ")$(case type
|
|
((Daily days lastDayDone)
|
|
(+
|
|
(.join (for day days
|
|
(case day
|
|
(1 "M")
|
|
(2 "T")
|
|
(3 "W")
|
|
(4 "Th")
|
|
(5 "F")
|
|
(6 "S")
|
|
(7 "Su")
|
|
(otherwise (throw "bad day")))) "")
|
|
" "
|
|
lastDayDone
|
|
": "))
|
|
((Monthly days lastDayDone)
|
|
"$(days.join ",") ${lastDayDone}: ")
|
|
((Interval days lastDayDone)
|
|
"$days ${lastDayDone}: ")
|
|
(otherwise ""))$(.join (for label labels
|
|
"${label.label} $(HabitModel.pointsStr label.points)") "/")") |