15 lines
608 B
Plaintext
15 lines
608 B
Plaintext
# -*- mode: snippet -*-
|
|
# name: guix-vc-commit-message-rename-package
|
|
# key: rename
|
|
# --
|
|
gnu: ${1:`(when (string-match "\\-(define-public \\(\\S-+\\)" vc-patch-string)
|
|
(match-string-no-properties 1 vc-patch-string))
|
|
`}: Rename package to ${2:`
|
|
(when (string-match "\\+(define-public \\(\\S-+\\)" vc-patch-string)
|
|
(match-string-no-properties 1 vc-patch-string))`}.
|
|
|
|
* `(car (log-edit-files))` ($1): Define in terms of
|
|
'deprecated-package'.
|
|
($2): New variable, formerly known as "$1".
|
|
`(mapconcat (lambda (file) (concat "* " file)) (cdr (log-edit-files)) "\n")`
|