02/02: etc: snippets: Prefill Common Lisp package names.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit add47499170222f1d449a9a63444e01f115805ff
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Tue Nov 10 10:04:29 2020 +0100

    etc: snippets: Prefill Common Lisp package names.
    
    * etc/snippets/text-mode/guix-commit-message-add-cl-package: New file.
---
 etc/snippets/text-mode/guix-commit-message-add-cl-package | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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 0000000..b0f7ef6
--- /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