2020-11-10 04:04:29 -05:00
|
|
|
# -*- 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)
|
2020-11-25 04:45:42 -05:00
|
|
|
(replace-regexp-in-string
|
|
|
|
|
"^sbcl-" ""
|
|
|
|
|
(thing-at-point 'sexp 'no-properties))))`}.
|
2020-11-10 04:04:29 -05:00
|
|
|
|
2020-11-25 04:45:42 -05:00
|
|
|
* `(car (magit-staged-files))` (cl-${1:$(replace-regexp-in-string "^cl-" "" yas-text)}, ecl-$1, sbcl-$1): New variables.
|
