Make habit Entry toStringable

2022-08-29 20:35:42 +00:00
parent ffd8cae013
commit e60115818a
4 changed files with 98 additions and 92 deletions
--- a/projects/flixel-desktop-habit-puzzle-game/source/Entry.kiss
+++ b/projects/flixel-desktop-habit-puzzle-game/source/Entry.kiss
@@ -0,0 +1,26 @@
+(defNew [&prop &mut :EntryType type
+            &prop :Array<EntryLabel> labels])
+
+(method toString []
+    "$(case type
+        ((Daily days lastDayDone) 
+            (+
+                (.join (for day days
+                    (case day
+                        (0 "Su")
+                        (1 "M")
+                        (2 "T")
+                        (3 "W")
+                        (4 "Th")
+                        (5 "F")
+                        (6 "S")
+                        (otherwise (throw "bad day")))) "")
+                " "
+                lastDayDone
+                ": "))
+        ((Monthly days lastDayDone)
+            "$(days.join ",") ${lastDayDone}: ")
+        ((Interval days lastDayDone)
+            "$days ${lastDayDone}: ")
+        (otherwise ""))$(.join (for label labels
+                        "${label.label} $(* "|" label.points)") "/")")