Print command errors

Author: strika

src/alas.janet

@@ -47,12 +47,14 @@
           plan (parse-result :plan)]
       (if parse-errors
         (errors/print-errors parse-errors (errors/exit-status-codes :parse-error))
-        (let [serialize-empty-inbox (plan_parser/serialize-empty-inbox? plan-string)
-              new-plan (run-commands plan file-path arguments)
-              new-plan-string (plan_serializer/serialize
+        (let [{:plan new-plan :errors run-errors} (run-commands plan file-path arguments)]
+          (if (empty? run-errors)
+            (let [serialize-empty-inbox (plan_parser/serialize-empty-inbox? plan-string)
+                  new-plan-string (plan_serializer/serialize
                                 new-plan
                                 {:serialize-empty-inbox serialize-empty-inbox})]
-          (file_repository/save new-plan-string file-path))))))
+              (file_repository/save new-plan-string file-path))
+            (errors/print-errors run-errors (errors/exit-status-codes :command-error))))))))
 
 (defn- run-with-arguments [arguments]
   (def file-path (arguments :default))

src/errors.janet

@@ -8,7 +8,8 @@
   {:error 1
    :plan-path-missing 2
    :file-error 3
-   :parse-error 4})
+   :parse-error 4
+   :command-error 5})
 
 (defn format-command-errors [command errors]
   (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))