~ruther/guix-local

6f4fd8f5b87d9f55013c91ecc3b92fc43269599e — Bruno Victal 3 years ago 85df7a6
services: mcron: Restyle mcron-configuration.

* doc/guix.texi (Scheduled Job Execution): Sync doc with source.
* gnu/services/mcron.scm (mcron-configuration): Restyle.
[log-format]: Fix incorrectly formatted text.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
2 files changed, 12 insertions(+), 5 deletions(-)

M doc/guix.texi
M gnu/services/mcron.scm
M doc/guix.texi => doc/guix.texi +1 -1
@@ 19365,7 19365,7 @@ Log messages to standard output.

@item @code{log-format} (default: @code{"~1@@*~a ~a: ~a~%"}) (type: string)
@code{(ice-9 format)} format string for log messages.  The default value
produces messages like "@samp{@var{pid} @var{name}: @var{message}"}
produces messages like @samp{@var{pid} @var{name}: @var{message}}
(@pxref{Invoking mcron, Invoking,, mcron,GNU@tie{}mcron}).  Each message
is also prefixed by a timestamp by GNU Shepherd.


M gnu/services/mcron.scm => gnu/services/mcron.scm +11 -4
@@ 56,18 56,25 @@
  (list-of gexp?))

(define-configuration/no-serialization mcron-configuration
  (mcron (file-like mcron) "The mcron package to use.")
  (mcron
   (file-like mcron)
   "The mcron package to use.")

  (jobs
   (list-of-gexps '())
   "This is a list of gexps (@pxref{G-Expressions}), where each gexp
corresponds to an mcron job specification (@pxref{Syntax, mcron job
specifications,, mcron, GNU@tie{}mcron}).")
  (log? (boolean #t) "Log messages to standard output.")

  (log?
   (boolean #t)
   "Log messages to standard output.")

  (log-format
   (string "~1@*~a ~a: ~a~%")
   "@code{(ice-9 format)} format string for log messages.  The default value
produces messages like \"@samp{@var{pid} @var{name}:
@var{message}\"} (@pxref{Invoking mcron, Invoking,, mcron, GNU@tie{}mcron}).
produces messages like @samp{@var{pid} @var{name}: @var{message}}
(@pxref{Invoking mcron, Invoking,, mcron, GNU@tie{}mcron}).
Each message is also prefixed by a timestamp by GNU Shepherd."))

(define (job-files mcron jobs)