From c4acaf412064568a546034871a9e0d3888aa7937 Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Fri, 12 Aug 2022 10:58:48 +0200 Subject: etc: Add tempel snippets. * etc/snippets/tempel/scheme-mode: New file. * etc/snippets/tempel/text-mode: New file. * etc/snippets/scheme-mode: Moved from here... * etc/snippets/yas/scheme-mode: ... to here. * etc/snippets/text-mode: Moved from here... * etc/snippets/yas/text-mode: ... to here. * doc/contributing.texi ("The Perfect Setup"): Adjust yasnippet setup accordingly. Add tempel setup. Signed-off-by: Liliana Marie Prikler --- .../text-mode/guix-commit-message-add-cl-package | 15 ------------- .../text-mode/guix-commit-message-add-package | 13 ----------- .../text-mode/guix-commit-message-remove-package | 13 ----------- .../text-mode/guix-commit-message-rename-package | 20 ----------------- .../text-mode/guix-commit-message-update-package | 26 ---------------------- .../guix-commit-message-use-https-home-page | 9 -------- 6 files changed, 96 deletions(-) delete mode 100644 etc/snippets/text-mode/guix-commit-message-add-cl-package delete mode 100644 etc/snippets/text-mode/guix-commit-message-add-package delete mode 100644 etc/snippets/text-mode/guix-commit-message-remove-package delete mode 100644 etc/snippets/text-mode/guix-commit-message-rename-package delete mode 100644 etc/snippets/text-mode/guix-commit-message-update-package delete mode 100644 etc/snippets/text-mode/guix-commit-message-use-https-home-page (limited to 'etc/snippets/text-mode') diff --git a/etc/snippets/text-mode/guix-commit-message-add-cl-package b/etc/snippets/text-mode/guix-commit-message-add-cl-package deleted file mode 100644 index e255736b05..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-add-cl-package +++ /dev/null @@ -1,15 +0,0 @@ -# -*- 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. \ 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 deleted file mode 100644 index 7cebd4023a..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-add-package +++ /dev/null @@ -1,13 +0,0 @@ -# -*- mode: snippet -*- -# name: guix-commit-message-add-package -# key: add -# condition: git-commit-mode -# -- -gnu: Add ${1:`(with-temp-buffer - (magit-git-wash #'magit-diff-wash-diffs - "diff" "--staged") - (goto-char (point-min)) - (when (re-search-forward "\\+(define-public \\(\\S-+\\)" nil 'noerror) - (match-string-no-properties 1)))`}. - -* `(car (magit-staged-files))` ($1): New variable. \ No newline at end of file diff --git a/etc/snippets/text-mode/guix-commit-message-remove-package b/etc/snippets/text-mode/guix-commit-message-remove-package deleted file mode 100644 index 0c1050f4fe..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-remove-package +++ /dev/null @@ -1,13 +0,0 @@ -# -*- mode: snippet -*- -# name: guix-commit-message-remove-package -# key: remove -# condition: git-commit-mode -# -- -gnu: Remove ${1:`(with-temp-buffer - (magit-git-wash #'magit-diff-wash-diffs - "diff" "--staged") - (goto-char (point-min)) - (when (re-search-forward "\\-(define-public \\(\\S-+\\)" nil 'noerror) - (match-string-no-properties 1)))`}. - -* `(car (magit-staged-files))` ($1): Delete variable. diff --git a/etc/snippets/text-mode/guix-commit-message-rename-package b/etc/snippets/text-mode/guix-commit-message-rename-package deleted file mode 100644 index 9695ca1b3d..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-rename-package +++ /dev/null @@ -1,20 +0,0 @@ -# -*- mode: snippet -*- -# name: guix-commit-message-rename-package -# key: rename -# condition: git-commit-mode -# -- -gnu: ${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)))`}: Rename package to ${2:`(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): Define in terms of -'deprecated-package'. -($2): New variable, formerly known as "$1". \ No newline at end of file diff --git a/etc/snippets/text-mode/guix-commit-message-update-package b/etc/snippets/text-mode/guix-commit-message-update-package deleted file mode 100644 index b08df74a0b..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-update-package +++ /dev/null @@ -1,26 +0,0 @@ -# -*- mode: snippet -*- -# name: guix-commit-message-update-package -# key: update -# condition: git-commit-mode -# -- - -gnu: ${1:`(with-temp-buffer - (magit-git-wash #'magit-diff-wash-diffs - "diff" "--staged") - (goto-char (point-min)) - (when (re-search-forward "^[ ]*(define-public \\(\\S-+\\)" nil 'noerror) - (match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer - (magit-git-wash #'magit-diff-wash-diffs - "diff" "--staged") - (goto-char (point-min)) - (search-forward "name" nil 'noerror) - (search-forward "+" nil 'noerror) ; first change - (when (and (search-forward "version " nil 'noerror) - (looking-at-p "\"")) - (let ((end (save-excursion (search-forward "\")" nil 'noerror)))) - (when end - (forward-char) - (buffer-substring-no-properties (point) (- end 2))))))`}. - -* `(car (magit-staged-files))` ($1): Update to $2.$0 -`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")` \ No newline at end of file diff --git a/etc/snippets/text-mode/guix-commit-message-use-https-home-page b/etc/snippets/text-mode/guix-commit-message-use-https-home-page deleted file mode 100644 index df20d31a80..0000000000 --- a/etc/snippets/text-mode/guix-commit-message-use-https-home-page +++ /dev/null @@ -1,9 +0,0 @@ -# -*- mode: snippet -*- -# name: guix-commit-message-use-https-home-page -# key: https -# condition: git-commit-mode -# -- -gnu: $1: Use HTTPS home page URI. - -* `(car (magit-staged-files))` ($1)[home-page]: Use HTTPS URI. -`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")` \ No newline at end of file -- cgit v1.2.3