blob 1d39e28b770970ba7347189771d544d7805519de 1043 bytes (raw)
name: etc/snippets/text-mode/guix-commit-message-update-package # note: path name is non-authoritative(*)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| | # -*- mode: snippet -*-
# name: guix-commit-message-update-package
# key: update
# condition: git-commit-mode
# --
gnu: ${1:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged")
(goto-char (point-min))
(when (re-search-forward "(define-\\(?:public\\|package\\) \\(\\S-+\\)" nil 'noerror)
(match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer
(magit-git-wash #'magit-diff-wash-diffs
"diff" "--staged")
(goto-char (point-min))
(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")`
|
debug log:
solving 1d39e28b77 ...
found 1d39e28b77 in https://yhetil.org/guix-patches/15d01b32313f5f2f291b120597719ae92bd26acd.1630639896.git.iskarian@mgsn.dev/
found f187419aa2 in https://git.savannah.gnu.org/cgit/guix.git
preparing index
index prepared:
100644 f187419aa21da08ead622ef74f6dd8880b677eb8 etc/snippets/text-mode/guix-commit-message-update-package
applying [1/1] https://yhetil.org/guix-patches/15d01b32313f5f2f291b120597719ae92bd26acd.1630639896.git.iskarian@mgsn.dev/
diff --git a/etc/snippets/text-mode/guix-commit-message-update-package b/etc/snippets/text-mode/guix-commit-message-update-package
index f187419aa2..1d39e28b77 100644
Checking patch etc/snippets/text-mode/guix-commit-message-update-package...
Applied patch etc/snippets/text-mode/guix-commit-message-update-package cleanly.
index at:
100644 1d39e28b770970ba7347189771d544d7805519de etc/snippets/text-mode/guix-commit-message-update-package
(*) Git path names are given by the tree(s) the blob belongs to.
Blobs themselves have no identifier aside from the hash of its contents.^
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).