Merge pull request #110 from hackberrydev/schedule-on-last-friday

Implement scheduling task on last Friday in month

Author: strika

src/commands/schedule_tasks.janet

@@ -28,7 +28,8 @@
                               (index-of (date :month) [1 4 7 10]))
         (string "every year on " (remove-year formatted-date)) true
         (string "on " formatted-date) true
-        "every last day" (date/last-day-of-month? date)))
+        "every last day" (date/last-day-of-month? date)
+        "every last Friday" (date/last-friday-of-month? date)))
 
 (defn- missed-on-day [plan task date]
   (find (fn [day] (and (scheduled-for? task (day :date))

src/date.janet

@@ -125,8 +125,17 @@
 
 (defn last-day-of-month?
   ```
-  Returns true if date is the last day of a month.
+  Returns true if the date is the last day of a month.
   ```
   [date]
   (def tomorrow (+days date 1))
   (not= (date :month) (tomorrow :month)))
+
+(defn last-friday-of-month?
+  ```
+  Returns true if the date is the last friday of a month.
+  ```
+  [date]
+  (def next-week (+days date 7))
+  (and (= (date :week-day) "Friday")
+       (not= (date :month) (next-week :month))))

test/commands/schedule_tasks_test.janet

@@ -83,6 +83,15 @@
   (is (scheduled-for? task (d/date 2023 1 31)))
   (is (not (scheduled-for? task (d/date 2022 1 30)))))
 
+(deftest scheduled-for-last-Friday-of-month
+  (def task (task/build-scheduled-task "Review logs" "every last Friday"))
+  (is (scheduled-for? task (d/date 2022 1 28)))
+  (is (scheduled-for? task (d/date 2022 2 25)))
+  (is (scheduled-for? task (d/date 2022 3 25)))
+  (is (scheduled-for? task (d/date 2022 4 29)))
+  (is (scheduled-for? task (d/date 2022 5 27)))
+  (is (not (scheduled-for? task (d/date 2022 1 31)))))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test missed?
 

test/date_test.janet

@@ -87,6 +87,18 @@
   (is (d/last-day-of-month? (d/date 2023 1 31)))
   (is (not (d/last-day-of-month? (d/date 2022 1 30)))))
 
+## ————————————————————————————————————————————————————————————————————————————————————————————————
+## Test last-Friday-of-month?
+
+(deftest last-friday-of-month?
+  (is (d/last-friday-of-month? (d/date 2022 1 28)))
+  (is (d/last-friday-of-month? (d/date 2022 2 25)))
+  (is (d/last-friday-of-month? (d/date 2022 3 25)))
+  (is (d/last-friday-of-month? (d/date 2022 4 29)))
+  (is (d/last-friday-of-month? (d/date 2022 5 27)))
+  (is (not (d/last-friday-of-month? (d/date 2022 1 31))))
+  (is (not (d/last-friday-of-month? (d/date 2022 1 21))))
+  (is (not (d/last-friday-of-month? (d/date 2022 2 11)))))
 
 ## ————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test +days