[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#44547] [PATCH v3 2/2] etc: snippets: Prefill Common Lisp package na
From: |
Guillaume Le Vaillant |
Subject: |
[bug#44547] [PATCH v3 2/2] etc: snippets: Prefill Common Lisp package names. |
Date: |
Sat, 21 Nov 2020 13:43:06 +0100 |
User-agent: |
mu4e 1.4.13; emacs 27.1 |
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.
signature.asc
Description: PGP signature