me
/
guix
Archived
1
0
Fork 0
Code

etc/committer: Define delay duration as a variable. 

* etc/committer.scm.in (%delay): New variable.
(main): Use it.
master
Ricardo Wurmus 2021-04-08 02:59:55 +02:00
parent c8c3afe848
commit 56270c1275
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
etc/committer.scm.in
View File

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