diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-03-09 10:36:28 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-18 16:03:32 +0100 |
commit | 9e0f0123a018f7fb81779d858942ba01150a12ee (patch) | |
tree | 8b3cc0f73191144a5b7d2b08b67bc35739507b5c /guix/colors.scm | |
parent | 2da0f2828b5ef58b87eb0f4aed942748e6682f2f (diff) |
ui: 'show-what-to-build' highlights "The following [...] will be built".
* guix/colors.scm (highlight/warn): New procedure.
* guix/ui.scm (show-what-to-build): Use 'highlight/warn' when displaying
what would/will be built.
Diffstat (limited to 'guix/colors.scm')
-rw-r--r-- | guix/colors.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/colors.scm b/guix/colors.scm index 3031f54799..ae0a583d94 100644 --- a/guix/colors.scm +++ b/guix/colors.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2014 Free Software Foundation, Inc. ;;; Copyright © 2018 Sahithi Yarlagadda <sahi@swecha.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2018, 2019, 2022 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -31,6 +31,7 @@ colorize-string highlight + highlight/warn dim color-rules @@ -143,6 +144,7 @@ that subsequent output will not have any colors in effect." str))) (define highlight (coloring-procedure (color BOLD))) +(define highlight/warn (coloring-procedure (color BOLD MAGENTA))) (define dim (coloring-procedure (color DARK))) (define (colorize-matches rules) |