Message ID | 20201121111125.30737-2-mail@ambrevar.xyz |
---|---|
State | Accepted |
Headers | show |
Series | [bug#44547,v3,1/2] etc: snippets: Fix package name extraction. | expand |
Context | Check | Description |
---|---|---|
cbaines/submitting builds | success | |
cbaines/submitting builds | success | |
cbaines/comparison | success | View comparision |
cbaines/git branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
Pierre Neidhardt <mail@ambrevar.xyz> skribis: > * etc/snippets/text-mode/guix-commit-message-add-cl-package: New file. > --- > .../text-mode/guix-commit-message-add-cl-package | 13 +++++++++++++ > 1 file changed, 13 insertions(+) > create mode 100644 etc/snippets/text-mode/guix-commit-message-add-cl-package > > diff --git a/etc/snippets/text-mode/guix-commit-message-add-cl-package b/etc/snippets/text-mode/guix-commit-message-add-cl-package > new file mode 100644 > index 0000000000..d32b9e11b1 > --- /dev/null > +++ b/etc/snippets/text-mode/guix-commit-message-add-cl-package > @@ -0,0 +1,13 @@ > +# -*- mode: snippet -*- > +# name: guix-commit-message-add-cl-package > +# key: addcl > +# condition: git-commit-mode > +# -- > +gnu: Add ${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)))`}. > + > +* `(car (magit-staged-files))` (${1:$(replace-regexp-in-string (rx line-start "sbcl" (optional "-cl")) "cl" yas-text)}, ${1:$(replace-regexp-in-string "^sbcl" "ecl" yas-text)}, $1): New variables. > \ No newline at end of file LGTM.
Thanks, merged as add47499170222f1d449a9a63444e01f115805ff.
diff --git a/etc/snippets/text-mode/guix-commit-message-add-cl-package b/etc/snippets/text-mode/guix-commit-message-add-cl-package new file mode 100644 index 0000000000..d32b9e11b1 --- /dev/null +++ b/etc/snippets/text-mode/guix-commit-message-add-cl-package @@ -0,0 +1,13 @@ +# -*- mode: snippet -*- +# name: guix-commit-message-add-cl-package +# key: addcl +# condition: git-commit-mode +# -- +gnu: Add ${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)))`}. + +* `(car (magit-staged-files))` (${1:$(replace-regexp-in-string (rx line-start "sbcl" (optional "-cl")) "cl" yas-text)}, ${1:$(replace-regexp-in-string "^sbcl" "ecl" yas-text)}, $1): New variables. \ No newline at end of file