amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: system-log: Allow ‘max-silent-time’ to be #f.

Browse source 
* gnu/services/shepherd.scm (gexp-or-integer-or-false?): New procedure.
(system-log-configuration)[max-silent-time]: Change to
‘gexp-or-integer-or-false’.
* doc/guix.texi (Shepherd Services): Regenerate documentation with
‘configuration->documentation’.

Change-Id: I75228cd19ca892c26347a64cbb952668fc893669
This commit is contained in:
Ludovic Courtès 2025-07-18 19:02:09 +02:00
parent df763d6a2d
commit c1e3c49135
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/shepherd.scm
View file

@ -718,6 +718,9 @@ with @command{herd status} and stop with @command{herd stop}.")))
(define (gexp-or-integer? x)
(or (gexp? x) (integer? x)))
(define (gexp-or-integer-or-false? x)
(or (not x) (gexp-or-integer? x)))
(define (gexp-or-string? x)
(or (gexp? x) (string? x)))
@ -744,7 +747,7 @@ procedure.")
(date-format
(gexp-or-string #~default-logfile-date-format)
"String or string-valued gexp specifying how to format timestamps in log
file. It must be a valid string for @code{strftime} (@pxref{Time,,, guile,
files. It must be a valid string for @code{strftime} (@pxref{Time,,, guile,
GNU Guile Reference Manual}), including delimiting space---e.g., @code{\"%c
\"} for a format identical to that of traditional syslogd implementations.")
(history-size
@ -752,9 +755,9 @@ GNU Guile Reference Manual}), including delimiting space---e.g., @code{\"%c
"Number of logging messages kept in memory for the purposes of making them
available to @command{herd status system-log}.")
(max-silent-time
(gexp-or-integer #~(default-max-silent-time))
(gexp-or-integer-or-false #~(default-max-silent-time))
"Time after which a mark is written to log files if nothing was logged
during that time frame."))
during that time frame. When set to @code{#f}, this feature is disabled."))
(define shepherd-system-log-service-type
(shepherd-service-type