~ruther/guix-local

ref: master guix-local/etc/snippets/yas/text-mode/guix-commit-message-add-cl-package -rw-r--r-- 579 bytes
01b97dff — Hilton Chain import: crate: Generate comments with ‘TODO REVIEW:’ prefix. 2 months ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# -*- 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)
                  (replace-regexp-in-string
		   "^sbcl-" ""
		   (thing-at-point 'sexp 'no-properties))))`}.

* `(car (magit-staged-files))` (cl-${1:$(replace-regexp-in-string "^cl-" "" yas-text)}, ecl-$1, sbcl-$1): New variables.