branch master updated: etc: snippets: Fix "gnu: Add ..." name when prefilling Common Lisp commits messages.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ambrevar pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 402f110  etc: snippets: Fix "gnu: Add ..." name when prefilling Common 
Lisp commits messages.
402f110 is described below

commit 402f1104e58b8e76d42689770d0c6b106afaffc8
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Wed Nov 25 10:45:42 2020 +0100

    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(-)

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 b0f7ef6..e255736 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