nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

colors: Add 'dim'. 

* guix/colors.scm (coloring-procedure): New procedure.
(%highlight-color): Remove.
(highlight): Define in terms of 'coloring-procedure'.
(dim): New procedure.
This commit is contained in:
Ludovic Courtès 2019-09-25 10:45:38 +02:00
parent dd2a83270b
commit 0876e9c116
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
guix/colors.scm
View File

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