84/86: etc/committer: Define delay duration as a variable.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 56270c1275d8dcdec80c04c032079b694204052a
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Thu Apr 8 02:59:55 2021 +0200

    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(-)

diff --git a/etc/committer.scm.in b/etc/committer.scm.in
index 824483e..8744bae 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))))))