move standalone projects into own directory

This commit is contained in:
2023-04-27 11:39:41 -06:00
parent 5d593e22b0
commit acda704057
369 changed files with 1170 additions and 5 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)") "/")")