Add intervalEntries to habit game UI

projects/habit-puzzle-game/source/HabitState.kiss

@@ -69,13 +69,15 @@
     (set textY 0)
     (set color FlxColor.ORANGE)
     (map (m.activeDailyEntries) makeText)
+    (set color FlxColor.BLUE)
+    (map (m.activeIntervalEntries) makeText)
     (set color FlxColor.WHITE)
     (map (m.activeBonusEntries) makeText)
     (set color FlxColor.YELLOW)
     (map (m.activeTodoEntries) makeText)
     (add entryTexts)
 
-    (doFor e (the Array<Entry> (concat m.dailyEntries m.bonusEntries m.todoEntries))
+    (doFor e (the Array<Entry> (concat m.dailyEntries m.intervalEntries m.bonusEntries m.todoEntries))
         (when (HabitModel.isActive e)
             (let [label (HabitModel.activeLabel e)]
                 (shortcutHandler.registerItem label.label e))))
@@ -86,6 +88,8 @@
             (+= label.points 1)
             (whenLet [(Daily days lastDayDone) e.type]
                 (set e.type (Daily days (HabitModel.todayString))))
+            (whenLet [(Interval days lastDayDone) e.type]
+                (set e.type (Interval days (.toString (DateTime.now)))))
             (m.save)
             (setModel m)
             (shortcutHandler.start)))