rename some standalone projects

This commit is contained in:
2023-04-27 12:31:50 -06:00
parent f798f7b32d
commit 81e8d84596
74 changed files with 0 additions and 0 deletions

View File

@@ -0,0 +1,27 @@
(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)") "/")")