mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

etc: snippets: Fix package name extraction.

Browse source 
* etc/snippets/text-mode/guix-commit-message-add-package: Properly extract
name when the diff contains a very short `define-public ...` above the actual
new package.  This can happen when the above package is a small inherited
definition or cl/ecl package.
This commit is contained in:
Pierre Neidhardt 2020-11-10 10:02:44 +01:00
parent f942c09b66
commit 8307b8f184
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
etc/snippets/text-mode/guix-commit-message-add-package
View file

@ -7,7 +7,7 @@ gnu: Add ${1:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs (magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged") "diff" "--staged")
(beginning-of-buffer) (beginning-of-buffer)
(when (search-forward "(define-public " nil 'noerror) (when (search-forward "+(define-public " nil 'noerror)
(thing-at-point 'sexp 'no-properties)))`}. (thing-at-point 'sexp 'no-properties)))`}.
* `(car (magit-staged-files))` ($1): New variable. * `(car (magit-staged-files))` ($1): New variable.