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

fix habit game type errors

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-01 17:15:49 +00:00
parent e3d7365d75
commit 6443f12072
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -107,8 +107,11 @@
points (count (l.split "") ->c (= c "|"))))))) points (count (l.split "") ->c (= c "|")))))))
(otherwise (break)))))) (otherwise (break))))))
(method :Array<Entry> allEntries []
(cast (concat dailyEntries monthlyEntries intervalEntries bonusEntries todoEntries)))
(method :Int totalPoints [] (method :Int totalPoints []
(apply + (for l (flatten (for e (the Array<Entry> (concat dailyEntries monthlyEntries intervalEntries bonusEntries todoEntries)) e.labels)) l.points))) (apply + (for l (flatten (for e (allEntries) e.labels)) l.points)))
(function :String stringify [:Entry e] (function :String stringify [:Entry e]
"$(case e.type "$(case e.type
@@ -174,7 +177,7 @@
dayToEndSearch dayToEndSearch
(if lastDayDone (if lastDayDone
(DateTime.fromString lastDayDone) (DateTime.fromString lastDayDone)
(let [now (DateTime.fromDate (Date.now))] (let [&mut now (DateTime.fromDate (Date.now))]
(until (= 1 (now.getDay)) #|now -= oneDayInterval;|#) (until (= 1 (now.getDay)) #|now -= oneDayInterval;|#)
now))] now))]
(until (and (= (nextDay.getDay) (dayToEndSearch.getDay)) (= (nextDay.getMonth) (dayToEndSearch.getMonth)) (= (nextDay.getYear) (dayToEndSearch.getYear))) (until (and (= (nextDay.getDay) (dayToEndSearch.getDay)) (= (nextDay.getMonth) (dayToEndSearch.getMonth)) (= (nextDay.getYear) (dayToEndSearch.getYear)))

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

@@ -79,7 +79,7 @@
(map (m.activeTodoEntries) makeText) (map (m.activeTodoEntries) makeText)
(add entryTexts) (add entryTexts)
(doFor e (the Array<Entry> (concat m.dailyEntries m.monthlyEntries m.intervalEntries m.bonusEntries m.todoEntries)) (doFor e (m.allEntries)
(when (HabitModel.isActive e) (when (HabitModel.isActive e)
(let [label (HabitModel.activeLabel e)] (let [label (HabitModel.activeLabel e)]
(shortcutHandler.registerItem label.label e)))) (shortcutHandler.registerItem label.label e))))