From f2c56d355f883dd60aef020b4e363739aeff856c Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 7 Sep 2015 00:00:31 +0200 Subject: all: Add a custom indentation rule for 'mcron-error'. * .dir-locals.el: Define a custom indentation rule for 'mcron-error'. * scm/mcron/crontab.scm: Use it. * scm/mcron/job-specifier.scm: Likewise. * scm/mcron/main.scm: Likewise. * scm/mcron/vixie-specification.scm: Likewise. --- scm/mcron/main.scm | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) (limited to 'scm/mcron/main.scm') diff --git a/scm/mcron/main.scm b/scm/mcron/main.scm index 0e46945..9425cef 100644 --- a/scm/mcron/main.scm +++ b/scm/mcron/main.scm @@ -217,8 +217,7 @@ $XDG_CONFIG_HOME is not defined uses ~/.config/cron instead)." "/cron"))) (when (eq? 2 errors) (mcron-error 13 - "Cannot read files in your ~/.config/cron (or ~/.cron) " - "directory.")))) + "Cannot read files in your ~/.config/cron (or ~/.cron) directory.")))) (define (valid-user user-name) "Check that USER-NAME is in the passwd database (it may happen that a user @@ -248,9 +247,8 @@ operation. The permissions on the /var/cron/tabs directory enforce this." "/" file-name))))))) (lambda (key . args) - (mcron-error - 4 - "You do not have permission to access the system crontabs.")))) + (mcron-error 4 + "You do not have permission to access the system crontabs.")))) (define (cron-file-descriptors) "Establish a socket to listen for updates from a crontab program, and return @@ -265,9 +263,7 @@ crontab. This requires that command-type is 'cron." (list sock))) (lambda (key . args) (delete-file config-pid-file) - (mcron-error 1 - "Cannot bind to UNIX socket " - config-socket-file))) + (mcron-error 1 "Cannot bind to UNIX socket " config-socket-file))) '())) (define (process-update-request fdes-list) @@ -319,15 +315,12 @@ comes in on the above socket." (when (eq? command-type 'cron) (unless (eqv? (getuid) 0) (mcron-error 16 - "This program must be run by the root user (and should " - "have been installed as such).")) + "This program must be run by the root user (and should have been " + "installed as such).")) (when (access? config-pid-file F_OK) (mcron-error 1 - "A cron daemon is already running.\n" - " (If you are sure this is not true, remove the file\n" - " " - config-pid-file - ".)")) + "A cron daemon is already running.\n (If you are sure this is not" + " true, remove the file\n " config-pid-file ".)")) (unless (option-ref options 'schedule #f) (with-output-to-file config-pid-file noop)) (setenv "MAILTO" #f) -- cgit v1.2.3