Browse Source

diagnostics: Avoid highlighting complete messages.

* guix/diagnostics.scm (%highlight-argument): Don't highlight ARG if it
contains white space.
gn-latest-20200428
Ludovic Courtès 2 years ago
parent
commit
d229215051
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 6 additions and 1 deletions
  1. +6
    -1
      guix/diagnostics.scm

+ 6
- 1
guix/diagnostics.scm View File

@ -71,7 +71,12 @@ is a trivial format string."
(define* (%highlight-argument arg #:optional (port (guix-warning-port)))
"Highlight ARG, a format string argument, if PORT supports colors."
(cond ((string? arg)
(highlight arg port))
;; If ARG contains white space, don't highlight it, on the grounds
;; that it may be a complete message in its own, like those produced
;; by 'guix lint.
(if (string-any char-set:whitespace arg)
arg
(highlight arg port)))
((symbol? arg)
(highlight (symbol->string arg) port))
(else arg)))


Loading…
Cancel
Save