2017-12-15 22:10:54 +00:00
|
|
|
# -*- mode: snippet -*-
|
|
|
|
|
# name: guix-commit-message-update-package
|
|
|
|
|
# key: update
|
|
|
|
|
# condition: git-commit-mode
|
|
|
|
|
# --
|
2019-03-07 22:55:24 +00:00
|
|
|
|
|
|
|
|
gnu: ${1:`(with-temp-buffer
|
|
|
|
|
(magit-git-wash #'magit-diff-wash-diffs
|
|
|
|
|
"diff" "--staged")
|
2020-12-04 16:09:38 +00:00
|
|
|
(goto-char (point-min))
|
2021-12-24 00:33:14 +00:00
|
|
|
(when (re-search-forward "^[ ]*(define-public \\(\\S-+\\)" nil 'noerror)
|
2020-12-04 16:09:38 +00:00
|
|
|
(match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer
|
2019-03-07 22:55:24 +00:00
|
|
|
(magit-git-wash #'magit-diff-wash-diffs
|
|
|
|
|
"diff" "--staged")
|
2020-12-04 16:09:38 +00:00
|
|
|
(goto-char (point-min))
|
2019-03-07 22:55:24 +00:00
|
|
|
(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))))))`}.
|
2017-12-15 22:10:54 +00:00
|
|
|
|
|
|
|
|
* `(car (magit-staged-files))` ($1): Update to $2.$0
|
|
|
|
|
`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")`
|
