From e92351ca7ec09c913941b97ffa02c1a39ef56819 Mon Sep 17 00:00:00 2001 From: Hanketsu Date: Sat, 21 Dec 2024 17:03:51 +0100 Subject: Remove obsolete snippets. * snippets/tempel/text-mode.eld: Remove snippets. --- snippets/tempel/text-mode.eld | 34 ---------------------------------- 1 file changed, 34 deletions(-) (limited to 'snippets/tempel/text-mode.eld') diff --git a/snippets/tempel/text-mode.eld b/snippets/tempel/text-mode.eld index a0b4516..177f6c7 100644 --- a/snippets/tempel/text-mode.eld +++ b/snippets/tempel/text-mode.eld @@ -92,40 +92,6 @@ text-mode :when (bound-and-true-p git-commit-mode) (cdr (magit-staged-files)) "\n")) -(addcl\ "battering: Add cl-" - (p (replace-regexp-in-string - "^cl-" "" (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))))) - var) - "." n n - "* " (p (or (car (magit-staged-files)) "")) - " (cl-" (s var) - ", ecl-" (s var) - ", sbcl-" (s var) "): New variables.") - -(https\ "battering: " - (p (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))) - var) - ": Use HTTPS home page." n n - "* " (p (or (car (magit-staged-files)) "")) - " (" (s var) ")[home-page]: Use HTTPS." - n - (mapconcat (lambda (file) (concat "* " file)) - (cdr (magit-staged-files)) - "\n")) - (move\ "battering: " (p (with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs -- cgit v1.2.3