habit game track model and remove finished texts

2022-02-03 23:11:41 -07:00
parent 5531bc9f5b
commit ffb5028e55
4 changed files with 33 additions and 10 deletions
--- a/projects/habit-puzzle-game/source/HabitModel.kiss
+++ b/projects/habit-puzzle-game/source/HabitModel.kiss
@@ -25,6 +25,7 @@
                            ("TODO" todoEntries)
                            (otherwise (throw "bad header")))
                        (object
+                            doneToday false
                            type
                                (case lastHeader
                                    ("BONUS" Bonus)
@@ -90,5 +91,5 @@
 (function isActive [:Entry e]
    (case e.type
        ((Daily days)
-            (contains days (.getDay (Date.now))))
+            (and !e.doneToday (contains days (.getDay (Date.now)))))
        (otherwise true)))