Return array of errors from contacts repository

Author: strika

src/commands/list_contacts.janet

@@ -18,6 +18,9 @@
     (print (to-csv-line contact)))
   plan)
 
+(defn- format-command-errors [command errors]
+  (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Public Interface
 
@@ -32,8 +35,8 @@
   (def argument (arguments "list-contacts"))
   (if argument
     (let [load-result (contacts_repository/load-contacts argument)
-          error (load-result :error)]
-      (if error
-        {:errors [(string "--list-contacts " (string/ascii-lower error))]}
+          errors (load-result :errors)]
+      (if errors
+        {:errors (format-command-errors "--list-contacts" errors)}
         {:command [print-contacts (load-result :contacts)]}))
     {}))

src/commands/schedule_contacts.janet

@@ -51,6 +51,9 @@
 (defn- schedule-birthday-tasks [plan contacts today]
   (schedule-tasks plan contacts today birthday-prefix contact/birthday?))
 
+(defn- format-command-errors [command errors]
+  (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Public Interface
 
@@ -64,9 +67,9 @@
   (def argument (arguments "schedule-contacts"))
   (if argument
     (let [load-result (contacts_repository/load-contacts argument)
-          error (load-result :error)
+          errors (load-result :errors)
           contacts (load-result :contacts)]
-      (if error
-        {:errors [(string "--schedule-contacts " (string/ascii-lower error))]}
+      (if errors
+        {:errors (format-command-errors "--schedule-contacts" errors)}
         {:command [schedule-contacts contacts (date/today)]}))
     {}))

src/contact/repository.janet

@@ -22,4 +22,4 @@
                        (fn [contact-file] (load-contact (string directory "/" contact-file)))
                        (os/dir directory)))]
       {:contacts contacts})
-    {:error "Directory does not exist."}))
+    {:errors ["Directory does not exist"]}))

test/contact/repository_test.janet

@@ -14,6 +14,6 @@
 
 (deftest load-contacts-when-directory-does-not-exist
   (def result (load-contacts "test/missing-directory"))
-  (is (= "Directory does not exist." (result :error))))
+  (is (= "Directory does not exist" (first (result :errors)))))
 
 (run-tests!)