From 56270c1275d8dcdec80c04c032079b694204052a Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 8 Apr 2021 02:59:55 +0200 Subject: etc/committer: Define delay duration as a variable. * etc/committer.scm.in (%delay): New variable. (main): Use it. --- etc/committer.scm.in | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'etc/committer.scm.in') diff --git a/etc/committer.scm.in b/etc/committer.scm.in index 824483e088..8744bae4a7 100755 --- a/etc/committer.scm.in +++ b/etc/committer.scm.in @@ -236,6 +236,8 @@ modifying." (cons* new (old-sexp (first hunks)) hunks))) (group-hunks-by-sexp hunks))) +(define %delay 1000) + (define (main . args) (match (diff-info) (() @@ -263,10 +265,10 @@ modifying." (let ((port (open-pipe* OPEN_WRITE "git" "commit" "-F" "-"))) (add-commit-message (hunk-file-name hunk) variable-name port) - (sleep 1) + (usleep %delay) (unless (eqv? 0 (status:exit-val (close-pipe port))) (error "Cannot commit")))) - (sleep 1)) + (usleep %delay)) definitions) ;; Changes. @@ -280,7 +282,7 @@ modifying." (hunk->patch hunk port) (unless (eqv? 0 (status:exit-val (close-pipe port))) (error "Cannot apply"))) - (sleep 1)) + (usleep %delay)) hunks) (change-commit-message (hunk-file-name (first hunks)) old new @@ -289,7 +291,7 @@ modifying." (change-commit-message (hunk-file-name (first hunks)) old new port) - (sleep 1) + (usleep %delay) (unless (eqv? 0 (status:exit-val (close-pipe port))) (error "Cannot commit"))))) (new+old+hunks changes)))))) -- cgit 1.4.1