summary refs log tree commit diff
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2020-11-25 10:45:42 +0100
committerPierre Neidhardt <mail@ambrevar.xyz>2020-11-25 10:45:42 +0100
commit402f1104e58b8e76d42689770d0c6b106afaffc8 (patch)
tree57d6f169e7ee05995eac8d7b466897288e35b4a5
parent5ff25d15307df9ddccdc35c321133344d084a676 (diff)
downloadguix-402f1104e58b8e76d42689770d0c6b106afaffc8.tar.gz
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.
-rw-r--r--etc/snippets/text-mode/guix-commit-message-add-cl-package6
1 files 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 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