Scheduled task cannot have body

Author: strika

src/schedule_parser.janet

@@ -10,7 +10,8 @@
     :tasks
       {:main (group (any :task))
        :task
-         {:main (replace (* "- " :task-title :task-schedule (? "\n")) ,task/build-scheduled-task)
+         {:main (replace (* "- " :task-title :task-schedule (? "\n"))
+                         ,task/build-scheduled-task)
           :task-title (replace (capture (some (if-not (+ "(" "\n") 1))) ,string/trim)
           :task-schedule (* "(" (replace (capture (some (+ :w+ :s+ "-"))) ,string/trim) ")")}}})
 

src/task.janet

@@ -7,9 +7,8 @@
   (default body @[])
   {:title title :body body :done done})
 
-(defn build-scheduled-task [title schedule &opt body]
-  (default body @[])
-  {:title title :body body :done false :schedule schedule})
+(defn build-scheduled-task [title schedule]
+  {:title title :done false :schedule schedule})
 
 (defn build-missed-task [title date &opt body]
   (default body @[])