[shepherd] 02/07: herd: Dim transient services in status summary.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 1464a1a9176a0bd758ac63c10e12bec79891bc05
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Sun Aug 11 11:10:31 2024 +0200

    herd: Dim transient services in status summary.
    
    * modules/shepherd/scripts/herd.scm (display-status-summary): Dim
    transient services.
---
 modules/shepherd/scripts/herd.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/modules/shepherd/scripts/herd.scm 
b/modules/shepherd/scripts/herd.scm
index 1c3b1d5..8423e8b 100644
--- a/modules/shepherd/scripts/herd.scm
+++ b/modules/shepherd/scripts/herd.scm
@@ -155,9 +155,12 @@ transient status for too long."
       (display header)
       (for-each (lambda (service)
                   (define maybe-highlight
-                    (if (live-service-pending-replacement? service)
-                        highlight
-                        (highlight-if-long-transient-status service)))
+                    (cond ((live-service-pending-replacement? service)
+                           highlight)
+                          ((live-service-transient? service)
+                           dim)
+                          (else
+                           (highlight-if-long-transient-status service))))
 
                   (format #t " ~a ~a~%" bullet
                           (maybe-highlight