Parse obsolete tasks

Author: strika

src/plan/parser.janet

@@ -50,9 +50,10 @@
           :task-begin
             {:main (* "- " :checkbox)
              :checkbox
-               {:main (+ :checkbox-done :checkbox-pending)
+               {:main (+ :checkbox-done :checkbox-pending :checkbox-obsolete)
                 :checkbox-done (* (+ "[x]" "[X]") (constant :checked))
-                :checkbox-pending (* "[ ]" (constant :open))}}
+                :checkbox-pending (* "[ ]" (constant :open))
+                :checkbox-obsolete(* "[~]" (constant :obsolete))}}
           :task-missed-on-date (* " (missed on " (constant :missed-on) :date ")")
           :task-body
             {:main (group (any :task-body-line))

src/task.janet

@@ -3,7 +3,7 @@
 
 (import ./date)
 
-(def states [:open :checked])
+(def states [:open :checked :obsolete])
 
 (defn build-task [title state &opt body]
   (default body @[])

test/plan/parser_test.janet

@@ -25,7 +25,8 @@
     ## 2020-07-31, Friday
 
     - Talked to Mike & Molly
-    - [x] #work - Review open pull requests
+    - [X] #work - Review open pull requests
+    - [~] #work - Review logs
     - [x] #work - Fix the flaky test
     ```)
   (def parse-result (parse plan-string))
@@ -59,6 +60,9 @@
     (test (task :title) "#work - Review open pull requests")
     (test (task :state) :checked))
   (let [task ((day-2 :tasks) 1)]
+    (test (task :title) "#work - Review logs")
+    (test (task :state) :obsolete))
+  (let [task ((day-2 :tasks) 2)]
     (test (task :title) "#work - Fix the flaky test")
     (test (task :state) :checked)))