diff options
| author | Marius Bakke <[email protected]> | 2020-11-23 23:39:47 +0100 |
|---|---|---|
| committer | Marius Bakke <[email protected]> | 2020-11-23 23:39:47 +0100 |
| commit | 87a027243fa5e8b00fa6257847fde5d5af04bce6 (patch) | |
| tree | 87f85b3d5d9f521e29a09d6c36a4f951a426eab0 /etc/snippets | |
| parent | a485a98ca8296d760251e9d870583117ac50979e (diff) | |
| parent | 689d88451e7f1db62df5989ac3ff82f540424061 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'etc/snippets')
| -rw-r--r-- | etc/snippets/text-mode/guix-commit-message-add-cl-package | 13 | ||||
| -rw-r--r-- | etc/snippets/text-mode/guix-commit-message-add-package | 2 |
2 files changed, 14 insertions, 1 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 new file mode 100644 index 0000000000..b0f7ef65e3 --- /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 diff --git a/etc/snippets/text-mode/guix-commit-message-add-package b/etc/snippets/text-mode/guix-commit-message-add-package index 0dff2cbcf5..e54a06de7e 100644 --- a/etc/snippets/text-mode/guix-commit-message-add-package +++ b/etc/snippets/text-mode/guix-commit-message-add-package @@ -7,7 +7,7 @@ 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) + (when (search-forward "+(define-public " nil 'noerror) (thing-at-point 'sexp 'no-properties)))`}. * `(car (magit-staged-files))` ($1): New variable.
\ No newline at end of file |