01/07: colors: Add 'dim'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0876e9c116125b28806286b0313ff78de5948562
Author: Ludovic Courtès <address@hidden>
Date:   Wed Sep 25 10:45:38 2019 +0200

    colors: Add 'dim'.
    
    * guix/colors.scm (coloring-procedure): New procedure.
    (%highlight-color): Remove.
    (highlight): Define in terms of 'coloring-procedure'.
    (dim): New procedure.
---
 guix/colors.scm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/guix/colors.scm b/guix/colors.scm
index 7949cf5..b63ac37 100644
--- a/guix/colors.scm
+++ b/guix/colors.scm
@@ -31,6 +31,8 @@
 
             colorize-string
             highlight
+            dim
+
             color-rules
             color-output?
             isatty?*))
@@ -133,14 +135,16 @@ that subsequent output will not have any colors in 
effect."
        (not (getenv "NO_COLOR"))
        (isatty?* port)))
 
-(define %highlight-color (color BOLD))
+(define (coloring-procedure color)
+  "Return a procedure that applies COLOR to the given string."
+  (lambda* (str #:optional (port (current-output-port)))
+    "Return STR with extra ANSI color attributes if PORT supports it."
+    (if (color-output? port)
+        (colorize-string str color)
+        str)))
 
-(define* (highlight str #:optional (port (current-output-port)))
-  "Return STR with extra ANSI color attributes to highlight it if PORT
-supports it."
-  (if (color-output? port)
-      (colorize-string str %highlight-color)
-      str))
+(define highlight (coloring-procedure (color BOLD)))
+(define dim (coloring-procedure (color DARK)))
 
 (define (colorize-matches rules)
   "Return a procedure that, when passed a string, returns that string