aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-03-07 23:55:24 +0100
committerRicardo Wurmus <rekado@elephly.net>2019-03-07 23:55:24 +0100
commitd6234620ace1863d8102b065311ef3d94e0931da (patch)
tree53abd8eeacce75ca29778cd082719fac0c1b675c
parent20662a30201d638594a8b9d1878cd3cce467cda7 (diff)
downloadguix-d6234620ace1863d8102b065311ef3d94e0931da.tar
guix-d6234620ace1863d8102b065311ef3d94e0931da.tar.gz
etc: snippets: Prefill package name and version.
* etc/snippets/text-mode/guix-commit-message-update-package: Extract package name and version from git diff output.
-rw-r--r--etc/snippets/text-mode/guix-commit-message-update-package19
1 files changed, 18 insertions, 1 deletions
diff --git a/etc/snippets/text-mode/guix-commit-message-update-package b/etc/snippets/text-mode/guix-commit-message-update-package
index 79fcf7c6e3..2cdb6ea28d 100644
--- a/etc/snippets/text-mode/guix-commit-message-update-package
+++ b/etc/snippets/text-mode/guix-commit-message-update-package
@@ -3,7 +3,24 @@
# key: update
# condition: git-commit-mode
# --
-gnu: $1: Update to $2.
+
+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
+ (magit-git-wash #'magit-diff-wash-diffs
+ "diff" "--staged")
+ (beginning-of-buffer)
+ (search-forward "name" nil 'noerror)
+ (search-forward "+" nil 'noerror) ; first change
+ (when (and (search-forward "version " nil 'noerror)
+ (looking-at-p "\""))
+ (let ((end (save-excursion (search-forward "\")" nil 'noerror))))
+ (when end
+ (forward-char)
+ (buffer-substring-no-properties (point) (- end 2))))))`}.
* `(car (magit-staged-files))` ($1): Update to $2.$0
`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")` \ No newline at end of file