summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2021-04-08 02:59:55 +0200
committerRicardo Wurmus <rekado@elephly.net>2021-04-08 03:10:14 +0200
commit56270c1275d8dcdec80c04c032079b694204052a (patch)
tree00091aed9b6b98ca903f1000d5efcdc1a32168fb
parentc8c3afe8485bd614692f13e1e8a4200136da1302 (diff)
etc/committer: Define delay duration as a variable.
* etc/committer.scm.in (%delay): New variable. (main): Use it.
-rwxr-xr-xetc/committer.scm.in10
1 files changed, 6 insertions, 4 deletions
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))))))