From 988a49c78ef19ad25cef543e2059a19db04bbd36 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 4 Dec 2020 17:09:38 +0100 Subject: 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). --- etc/snippets/text-mode/guix-commit-message-update-package | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'etc/snippets') 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) -- cgit 1.4.1