Merge pull request #123 from hackberrydev/schedule-old-tasks

Don't schedule tasks older than 30 days

Author: strika

.gitignore

@@ -2,3 +2,4 @@
 /jpm_tree
 /tags*
 /test/examples/*.bkp
+*.tested

src/commands/schedule_tasks.janet

@@ -36,16 +36,25 @@
                        (not (day/has-task? day task))))
         (plan/all-days-before plan date)))
 
+(defn- older-than-30-days? [date today]
+  (date/before? date (date/-days today 30)))
+
 # Public
 (defn missed?
   ```
   Checks if the task was missed in the plan up to the passed date.
 
   Returns true or false.
+
+  plan - The plan.
+  task - The scheduled task.
+  date - A date. Typically today.
   ```
   [plan task date]
   (def day (missed-on-day plan task date))
-  (and day (not (plan/has-task-after? plan task (day :date)))))
+  (and day
+       (not (older-than-30-days? (day :date) date))
+       (not (plan/has-task-after? plan task (day :date)))))
 
 (defn- mark-tasks-as-missed [plan tasks date]
   (map (fn [task]

test/commands/schedule_tasks_test.janet

@@ -109,6 +109,12 @@
                       (day/build-day (d/date 2022 7 15))]))
   (test (missed? plan scheduled-task (d/date 2022 8 3)) true))
 
+(deftest "returns false when the task is missed, but it's older than 30 days"
+  (def plan (plan/build-plan
+              :days @[(day/build-day (d/date 2022 9 11))
+                      (day/build-day (d/date 2022 8 1))]))
+  (test (not (missed? plan scheduled-task (d/date 2022 9 11))) true))
+
 (deftest "returns false when the task is scheduled for another day"
   (def plan (plan/build-plan
               :days @[(day/build-day (d/date 2022 8 2)