[shepherd] 05/06: herd: Print hint about ‘-n’ option.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 99920811926b8cb4fdbaca1b81b05e00020fa600
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Sat Oct 12 14:10:09 2024 +0200

    herd: Print hint about ‘-n’ option.
    
    * modules/shepherd/scripts/herd.scm (display-service-status): Suggest
    using ‘-n’ option.
---
 modules/shepherd/scripts/herd.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/modules/shepherd/scripts/herd.scm 
b/modules/shepherd/scripts/herd.scm
index f875a8e..0180d34 100644
--- a/modules/shepherd/scripts/herd.scm
+++ b/modules/shepherd/scripts/herd.scm
@@ -599,7 +599,11 @@ to upgrade).~%"))))
       (() #t)
       (messages
        (newline)
-       (format #t (highlight (l10n "Recent messages:~%")))
+       (if (= log-history-size %default-log-history-size)
+           (format #t (highlight
+                       (l10n "Recent messages (use '-n' to view more or \
+less):~%")))
+           (format #t (highlight (l10n "Recent messages:~%"))))
        (for-each (match-lambda
                    ((time . line)
                     (format #t "  ~a~a~%"