ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

etc: snippets: Prefill package name and version.

Browse source 
* etc/snippets/text-mode/guix-commit-message-update-package: Extract package
name and version from git diff output.
This commit is contained in:
Ricardo Wurmus 2019-03-07 23:55:24 +01:00
parent 20662a3020
commit d6234620ac
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
etc/snippets/text-mode/guix-commit-message-update-package
View file

@ -3,7 +3,24 @@
# key: update # key: update
# condition: git-commit-mode # 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 * `(car (magit-staged-files))` ($1): Update to $2.$0
`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")` `(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")`