amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

colors: Add 'highlight'.

Browse source 
* guix/colors.scm (%highlight-color): New variable.
(highlight): New procedure.
* guix/ui.scm (%highlight-argument)[highlight]: Remove.
(%highlight-color): Remove.
This commit is contained in:
Ludovic Courtès 2019-04-14 19:48:19 +02:00
parent a5c72da46c
commit c1c5d68a94
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
guix/ui.scm
View file

@ -155,16 +155,10 @@ is a trivial format string."
(define* (%highlight-argument arg #:optional (port (guix-warning-port)))
"Highlight ARG, a format string argument, if PORT supports colors."
(define highlight
(if (color-output? port)
(lambda (str)
(colorize-string str %highlight-color))
identity))
(cond ((string? arg)
(highlight arg))
(highlight arg port))
((symbol? arg)
(highlight (symbol->string arg)))
(highlight (symbol->string arg) port))
(else arg)))
(define-syntax define-diagnostic
@ -220,7 +214,6 @@ messages."
(define %info-color (color BOLD))
(define %error-color (color BOLD RED))
(define %hint-color (color BOLD CYAN))
(define %highlight-color (color BOLD))
(define* (print-diagnostic-prefix prefix #:optional location
#:key (colors (color)))