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

HabitModel.totalPoints()

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-02-04 15:47:01 -07:00
parent 1fa8171025
commit 174e0a30fd
2 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
projects/habit-puzzle-game/source/HabitModel.kiss
View File

@@ -67,6 +67,9 @@
points (count (l.split "") ->c (= c "|"))))))) points (count (l.split "") ->c (= c "|")))))))
(otherwise (break)))))) (otherwise (break))))))
(method :Int totalPoints []
(apply + (for l (flatten (for e (the Array<Entry> (concat dailyEntries bonusEntries todoEntries)) e.labels)) l.points)))
(function :String stringify [:Entry e] (function :String stringify [:Entry e]
"$(ifLet [(when !(= days.length 7) (Daily days)) e.type] "$(ifLet [(when !(= days.length 7) (Daily days)) e.type]
(+ (.join (for day days (+ (.join (for day days

1
projects/habit-puzzle-game/source/HabitState.kiss
View File

@@ -11,6 +11,7 @@
(prop &mut :HabitModel model null) (prop &mut :HabitModel model null)
(method setModel [m] (method setModel [m]
(set model m) (set model m)
~(m.totalPoints)
(set shortcutHandler (new KeyShortcutHandler)) (set shortcutHandler (new KeyShortcutHandler))
(when entryTexts (remove entryTexts)) (when entryTexts (remove entryTexts))