kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

more reasonable behavior for label sequences on non-bonus habits

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-31 22:18:55 +00:00
parent 43c176e684
commit 85c2866a14
2 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
projects/flixel-desktop-habit-puzzle-game/source/HabitModel.kiss
View File

@@ -237,10 +237,12 @@
(method addPoint [:Entry e]
(let [label (activeLabel e)]
(+= label.points 1)
(whenLet [(Daily days lastDayDone) e.type]
(set e.type (Daily days (HabitModel.todayString))))
(whenLet [(Monthly days lastDayDone) e.type]
(set e.type (Monthly days (.toString (DateTime.now)))))
(whenLet [(Interval days lastDayDone) e.type]
(set e.type (Interval days (.toString (DateTime.now))))))
// For task-list types, set lastDayDone when the final label is done
(when (apply = (for label e.labels label.points))
(whenLet [(Daily days lastDayDone) e.type]
(set e.type (Daily days (HabitModel.todayString))))
(whenLet [(Monthly days lastDayDone) e.type]
(set e.type (Monthly days (.toString (DateTime.now)))))
(whenLet [(Interval days lastDayDone) e.type]
(set e.type (Interval days (.toString (DateTime.now)))))))
(save))