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 <liliana.prikler@gmail.com>

6 files changed, 0 insertions, 96 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
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