me
/
guix
Archived
1
0
Fork 0
Code

etc/committer: Use git plumbing instead of porcelain. 

* etc/committer.scm.in (diff-info): Use "git diff-files" instead of "git diff".
(old-sexp): Use "git cat-file" instead of "git show".

Signed-off-by: Ricardo Wurmus <rekado@elephly.net>
master
Morgan Smith 2021-04-08 12:16:35 -04:00 committed by Ricardo Wurmus
parent d14f21389c
commit d375eddda0
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/committer.scm.in
View File

@ -89,8 +89,7 @@ LINE-NO in PORT."
(define (diff-info) (define (diff-info)
"Read the diff and return a list of <hunk> values." "Read the diff and return a list of <hunk> values."
(let ((port (open-pipe* OPEN_READ (let ((port (open-pipe* OPEN_READ
"git" "diff" "git" "diff-files"
"--no-color"
"--no-prefix" "--no-prefix"
;; Only include one context line to avoid lumping in ;; Only include one context line to avoid lumping in
;; new definitions with changes to existing ;; new definitions with changes to existing
@ -154,7 +153,8 @@ LINE-NO in PORT."
corresponding to the top-level definition containing the staged changes." corresponding to the top-level definition containing the staged changes."
;; TODO: We can't seek with a pipe port... ;; TODO: We can't seek with a pipe port...
(let* ((port (open-pipe* OPEN_READ (let* ((port (open-pipe* OPEN_READ
"git" "show" (string-append "HEAD:" "git" "cat-file" "-p" (string-append
"HEAD:"
(hunk-file-name hunk)))) (hunk-file-name hunk))))
(contents (get-string-all port))) (contents (get-string-all port)))
(close-pipe port) (close-pipe port)