From 402f1104e58b8e76d42689770d0c6b106afaffc8 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Wed, 25 Nov 2020 10:45:42 +0100 Subject: etc: snippets: Fix "gnu: Add ..." name when prefilling Common Lisp commits messages. * etc/snippets/text-mode/guix-commit-message-add-cl-package: Fix name and simplify the "New variables" line. --- etc/snippets/text-mode/guix-commit-message-add-cl-package | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'etc/snippets/text-mode') diff --git a/etc/snippets/text-mode/guix-commit-message-add-cl-package b/etc/snippets/text-mode/guix-commit-message-add-cl-package index b0f7ef65e3..e255736b05 100644 --- a/etc/snippets/text-mode/guix-commit-message-add-cl-package +++ b/etc/snippets/text-mode/guix-commit-message-add-cl-package @@ -8,6 +8,8 @@ gnu: Add ${1:`(with-temp-buffer "diff" "--staged") (beginning-of-buffer) (when (search-forward "+(define-public " nil 'noerror) - (thing-at-point 'sexp 'no-properties)))`}. + (replace-regexp-in-string + "^sbcl-" "" + (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 +* `(car (magit-staged-files))` (cl-${1:$(replace-regexp-in-string "^cl-" "" yas-text)}, ecl-$1, sbcl-$1): New variables. \ No newline at end of file -- cgit v1.2.3