Serialize event body

Author: strika

src/plan/serializer.janet

@@ -3,17 +3,31 @@
 
 (import ../date)
 
-(def task-body-indentation "  ")
+(def body-indentation "  ")
 
 (defn- plan-title [plan]
   (string "# " (plan :title)))
 
 (defn- checkbox [done]
   (if done "[X]" "[ ]"))
 
-(defn- serialize-event [event]
+(defn- serialize-event-title [event]
   (string "- " (event :title)))
 
+(defn- serialize-event-body [event]
+  (def body (event :body))
+  (if (or (nil? body) (empty? body))
+    ""
+    (string "\n"
+            (string/join
+              (map (fn [line] (string body-indentation line)) body)
+              "\n"))))
+
+(defn- serialize-event [event]
+  (string
+    (serialize-event-title event)
+    (serialize-event-body event)))
+
 (defn- task-mark [task]
   (if (task :missed-on)
     (string " (missed on " (date/format (task :missed-on) true) ")")
@@ -28,11 +42,12 @@
     ""
     (string "\n"
             (string/join
-              (map (fn [line] (string task-body-indentation line)) body)
+              (map (fn [line] (string body-indentation line)) body)
               "\n"))))
 
 (defn- serialize-task [task]
-  (string (serialize-task-title task)
+  (string
+    (serialize-task-title task)
     (serialize-task-body task)))
 
 (defn- plan-inbox [plan serialize-empty-inbox]

test/plan/serializer_test.janet

@@ -15,7 +15,7 @@
       :days @[(day/build-day (d/date 2020 8 3))
               (day/build-day (d/date 2020 8 2))
               (day/build-day (d/date 2020 8 1)
-                             @[(event/build-event "Talked to Mike")]
+                             @[(event/build-event "Talked to Mike" @["- He has a new car"])]
                              @[(task/build-task "Develop photos" false)
                                (task/build-task "Pay bills" true @["- Electricity" "- Water"])
                                (task/build-missed-task "Organize photos" (d/date 2020 7 20))])
@@ -38,6 +38,7 @@
        ## 2020-08-01, Saturday
 
        - Talked to Mike
+         - He has a new car
        - [ ] Develop photos
        - [X] Pay bills
          - Electricity