Merge pull request #144 from hackberrydev/obsolete-task

Obsolete task

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/plan/serializer.janet

@@ -9,7 +9,10 @@
   (string "# " (plan :title)))
 
 (defn- checkbox [task]
-  (if (= (task :state) :checked) "[X]" "[ ]"))
+  (case (task :state)
+    :open "[ ]"
+    :checked "[X]"
+    :obsolete "[~]"))
 
 (defn- serialize-event-title [event]
   (string "- " (event :title)))

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)))
 

test/plan/serializer_test.janet

@@ -17,6 +17,7 @@
               (day/build-day (d/date 2020 8 1)
                              @[(event/build-event "Talked to Mike" @["- He has a new car"])]
                              @[(task/build-task "Develop photos" :open)
+                               (task/build-task "Fix the lamp" :obsolete)
                                (task/build-task "Pay bills" :checked @["- Electricity" "- Water"])
                                (task/build-missed-task "Organize photos" (d/date 2020 7 20))])
               (day/build-day (d/date 2020 7 31)
@@ -40,6 +41,7 @@
        - Talked to Mike
          - He has a new car
        - [ ] Develop photos
+       - [~] Fix the lamp
        - [X] Pay bills
          - Electricity
          - Water