Move format-command-errors to errors module

Author: strika

src/commands/list_contacts.janet

@@ -3,6 +3,7 @@
 
 (import ../utils :prefix "")
 (import ../date :as d)
+(import ../errors)
 (import ../contact/repository :as contacts_repository)
 
 (defn- to-csv-line [contact]
@@ -35,6 +36,6 @@
     (let [load-result (contacts_repository/load-contacts argument)
           errors (load-result :errors)]
       (if errors
-        {:errors (format-command-errors "--list-contacts" errors)}
+        {:errors (errors/format-command-errors "--list-contacts" errors)}
         {:command [print-contacts (load-result :contacts)]}))
     {}))

src/commands/schedule_contacts.janet

@@ -1,6 +1,7 @@
 ### ————————————————————————————————————————————————————————————————————————————————————————————————
 ### This module implements a command for scheduling contacts for today in a plan.
 
+(import ../errors)
 (import ../utils :prefix "")
 
 (import ../contact)
@@ -69,6 +70,6 @@
           errors (load-result :errors)
           contacts (load-result :contacts)]
       (if errors
-        {:errors (format-command-errors "--schedule-contacts" errors)}
+        {:errors (errors/format-command-errors "--schedule-contacts" errors)}
         {:command [schedule-contacts contacts (date/today)]}))
     {}))

src/commands/schedule_tasks.janet

@@ -8,6 +8,7 @@
 (import ../plan)
 (import ../task)
 
+(import ../errors)
 (import ../file_repository)
 (import ../schedule_parser)
 
@@ -84,10 +85,10 @@
     (let [load-file-result (file_repository/load argument)
           errors (load-file-result :errors)]
       (if errors
-        {:errors (format-command-errors command errors)}
+        {:errors (errors/format-command-errors command errors)}
         (let [parse-result (schedule_parser/parse (load-file-result :text))
               errors (parse-result :errors)]
           (if errors
-            {:errors (format-command-errors command errors)}
+            {:errors (errors/format-command-errors command errors)}
             {:command [schedule-tasks (parse-result :tasks) (date/today)]}))))
     {}))

src/errors.janet

@@ -13,3 +13,6 @@
 (defn print-errors [errors exit-status-code]
   (each error errors (print (string error ".")))
   (os/exit exit-status-code))
+
+(defn format-command-errors [command errors]
+  (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))

src/utils.janet

@@ -13,6 +13,3 @@
   (if (string/has-suffix? "/" path)
     (string/trimr path "/")
     path))
-
-(defn format-command-errors [command errors]
-  (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))