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

refactor adding points into model logic

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-31 21:51:28 +00:00
parent b1c54fad14
commit 3775c53512
2 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -232,4 +232,15 @@
(method skipRewardFile [] (method skipRewardFile []
(set .skipped (last rewardFiles) true) (set .skipped (last rewardFiles) true)
(save))
(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))))))
(save)) (save))

13
projects/flixel-desktop-habit-puzzle-game/source/HabitState.kiss
View File

@@ -588,17 +588,8 @@
(method makeText [:Entry e] (method makeText [:Entry e]
(let [label (HabitModel.activeLabel e)] (let [label (HabitModel.activeLabel e)]
(_makeText label.label label.points ->:Void text { (_makeText label.label label.points ->:Void text {
// TODO move all of this logic other than setModel into HabitModel logic (model.addPoint e)
(let [label (HabitModel.activeLabel e)] (setModel model)
(+= 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)))))
(model.save)
(setModel model))
}))) })))