From 0876e9c116125b28806286b0313ff78de5948562 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 25 Sep 2019 10:45:38 +0200
Subject: 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 7949cf5763..b63ac37027 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
-- 
cgit v1.2.3

m class='right' method='get' action='/guix/log/gnu/tests.scm'>
<input type='hidden' name='id' value='b129046d428515f009a337257e5244876b27f70b'/><input type='hidden' name='showmsg' value='1'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b129046d428515f009a337257e5244876b27f70b&amp;showmsg=1'>root</a>/<a href='/guix/log/gnu?id=b129046d428515f009a337257e5244876b27f70b&amp;showmsg=1'>gnu</a>/<a href='/guix/log/gnu/tests.scm?id=b129046d428515f009a337257e5244876b27f70b&amp;showmsg=1'>tests.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests.scm?id=b129046d428515f009a337257e5244876b27f70b'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2020-07-25 19:11:36 +0200'>2020-07-25</span></td><td class='logsubject'><a href='/guix/commit/gnu/tests.scm?id=a5e2fc73760a2ae023f2e56bdbf8025971f90e64'>utils: Move &lt;location&gt; and '&amp;error-location' to (guix diagnostics).</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* guix/utils.scm (&lt;location&gt;, source-properties-&gt;location)
(location-&gt;source-properties, &amp;error-location): Move to...
* guix/diagnostics.scm: ... here.
* gnu.scm: Adjust imports accordingly.
* gnu/machine.scm: Likewise.
* gnu/system.scm: Likewise.
* gnu/tests.scm: Likewise.
* guix/inferior.scm: Likewise.
* tests/channels.scm: Likewise.
* tests/packages.scm: Likewise.


</td></tr>
<tr class='logheader'><td><span title='2020-03-05 16:33:37 +0100'>2020-03-05</span></td><td class='logsubject'><a href='/guix/commit/gnu/tests.scm?id=c0b726c2112e0e670dc134583b376541c0a3789a'>tests: Add &lt;system-test&gt; gexp compiler.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/tests.scm (compile-system-test): New gexp compiler.


</td></tr>
<tr class='logheader'><td><span title='2020-01-23 11:26:55 +0100'>2020-01-23</span></td><td class='logsubject'><a href='/guix/commit/gnu/tests.scm?id=f79313b3871ebe204c7b29fdb823666af06f48ff'>tests: Fix typo in comment.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/tests.scm: Add missing word in commentary.


</td></tr>