summaryrefslogtreecommitdiff
path: root/etc/snippets
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2020-12-04 17:09:38 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2020-12-04 17:09:38 +0100
commit988a49c78ef19ad25cef543e2059a19db04bbd36 (patch)
treeb15307fd2efb66a073a52f23ebd68fd0c9ab659b /etc/snippets
parent443599999af21878d58dbb48210d4cccca2882d8 (diff)
etc: snippets: Fix name extraction.
* etc/snippets/text-mode/guix-commit-message-update-package: Since git commit mode is not derived from any Lisp mode, so-called sexp or symbols do not include the period character. As a consequence, names including versions are not properly extracted. Also use more idiomatic (goto-char (point-min)) instead of (beginning-of-buffer).
Diffstat (limited to 'etc/snippets')
-rw-r--r--etc/snippets/text-mode/guix-commit-message-update-package8
1 files changed, 4 insertions, 4 deletions
diff --git a/etc/snippets/text-mode/guix-commit-message-update-package b/etc/snippets/text-mode/guix-commit-message-update-package
index 2cdb6ea28d..f187419aa2 100644
--- a/etc/snippets/text-mode/guix-commit-message-update-package
+++ b/etc/snippets/text-mode/guix-commit-message-update-package
@@ -7,12 +7,12 @@
gnu: ${1:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged")
- (beginning-of-buffer)
- (when (search-forward "(define-public " nil 'noerror)
- (thing-at-point 'sexp 'no-properties)))`}: Update to ${2:`(with-temp-buffer
+ (goto-char (point-min))
+ (when (re-search-forward "(define-public \\(\\S-+\\)" nil 'noerror)
+ (match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged")
- (beginning-of-buffer)
+ (goto-char (point-min))
(search-forward "name" nil 'noerror)
(search-forward "+" nil 'noerror) ; first change
(when (and (search-forward "version " nil 'noerror)