better error handling and asci colors

Author: jpettersson

src/ekspono/vero/colors.clj

@@ -0,0 +1,100 @@
+(ns ekspono.vero.colors
+  (:require [clojure.string :as string]))
+
+(defn escape
+  [n]
+  (str "\033[" n "m"))
+
+(defn color-fn
+  [escape-code s]
+  (str escape-code s (escape 0)))
+
+(defn grey
+  [s]
+  (color-fn (escape 30) s))
+
+(defn red
+  [s]
+  (color-fn (escape 31) s))
+
+(defn green
+  [s]
+  (color-fn (escape 32) s))
+
+(defn yellow
+  [s]
+  (color-fn (escape 33) s))
+
+(defn blue
+  [s]
+  (color-fn (escape 34) s))
+
+(defn magenta
+  [s]
+  (color-fn (escape 35) s))
+
+(defn cyan
+  [s]
+  (color-fn (escape 36) s))
+
+(defn white
+  [s]
+  (color-fn (escape 37) s))
+
+
+(defn on-grey
+  [s]
+  (color-fn (escape 40) s))
+
+(defn on-red
+  [s]
+  (color-fn (escape 41) s))
+
+(defn on-green
+  [s]
+  (color-fn (escape 42) s))
+
+(defn on-yellow
+  [s]
+  (color-fn (escape 43) s))
+
+(defn on-blue
+  [s]
+  (color-fn (escape 44) s))
+
+(defn on-magenta
+  [s]
+  (color-fn (escape 45) s))
+
+(defn on-cyan
+  [s]
+  (color-fn (escape 46) s))
+
+(defn on-white
+  [s]
+  (color-fn (escape 47) s))
+
+
+(defn bold
+  [s]
+  (color-fn (escape 1) s))
+
+(defn dark
+  [s]
+  (color-fn (escape 2) s))
+
+(defn underline
+  [s]
+  (color-fn (escape 4) s))
+
+(defn blink
+  [s]
+  (color-fn (escape 5) s))
+
+(defn reverse-color
+  [s]
+  (color-fn (escape 7) s))
+
+(defn concealed
+  [s]
+  (color-fn (escape 8) s))

src/ekspono/vero/errors.clj

@@ -0,0 +1,15 @@
+(ns ekspono.vero.errors
+  (:require [ekspono.vero.colors :as colors]
+            [ekspono.vero.sh :as vsh]))
+
+(defn fatal! [title description props]
+  (let [p (->> (with-out-str (clojure.pprint/pprint props)))
+        out (str (colors/red (str "FATAL: " title))
+                 "\n\n"
+                 (colors/yellow 
+                  (str description
+                       "\n\n"
+                       "context:\n"
+                       p)))]
+    (print out)
+    (vsh/exit 10 "")))

src/ekspono/vero/sh.clj

@@ -3,7 +3,8 @@
             [clojure.java.shell :refer [sh]]
             [clojure.string :as string]
             [clojure.edn :as edn]
-            [clojure.java.io :as io]))
+            [clojure.java.io :as io]
+            [ekspono.vero.colors :as colors]))
 
 (defn exit [status msg]
   (println msg)
@@ -14,7 +15,7 @@
 
 (defn- run-with-env
   [cmd opts]
-  (println "vero/running: " cmd)
+  (println (colors/cyan "vero »") cmd)
   (let [dir (or (:dir opts) ".")
         env-vars (->> (for [[k v] (:env opts)]
                         (str k "=" v))