[shepherd] 03/05: colors: Define ‘highlight/success’.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit b7ede1d0eaa761673075be44f9fc1e72e8855683
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Aug 17 18:22:47 2024 +0200

    colors: Define ‘highlight/success’.
    
    * modules/shepherd/colors.scm (highlight/success): New variable.
---
 modules/shepherd/colors.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/modules/shepherd/colors.scm b/modules/shepherd/colors.scm
index 2e03d7f..2f25490 100644
--- a/modules/shepherd/colors.scm
+++ b/modules/shepherd/colors.scm
@@ -1,8 +1,8 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014 Free Software Foundation, Inc.
+;;; 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, 2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017-2019, 2022, 2024 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -32,6 +32,7 @@
             coloring-procedure
             colorize-string
             highlight
+            highlight/success
             highlight/warn
             highlight/error
             dim
@@ -158,6 +159,7 @@ that subsequent output will not have any colors in effect."
         str)))
 
 (define highlight (coloring-procedure (color BOLD)))
+(define highlight/success (coloring-procedure (color BOLD GREEN)))
 (define highlight/warn (coloring-procedure (color BOLD MAGENTA)))
 (define highlight/error (coloring-procedure (color BOLD RED)))
 (define dim (coloring-procedure (color DARK)))