Add ANSI styles.

ansi.scm

@@ -29,6 +29,12 @@
  ansi
  (
   ansi
+  a:error
+  a:warning
+  a:success
+  a:neutral
+  a:default
+  a:muted
   ansi-tests!
   )
 
@@ -66,6 +72,14 @@
 			(string-intersperse argsl ";")
 			"m"))))
 
+ ;; Nice styles to be used everywhere for consistency
+ (define a:error (ansi #:red #:bold))
+ (define a:warning (ansi #:default #:yellow))
+ (define a:success (ansi #:green #:bold))
+ (define a:neutral (ansi #:default #:white))
+ (define a:default (ansi #:default))
+ (define a:muted (ansi #:black #:bold))
+
  ;; Performs ANSI module self-tests.
  (define (ansi-tests!)
    (run-tests