From d283e0064e29f29bc462d57f4355231c49fdb1df Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Thu, 12 Jan 2023 19:34:48 -0900 Subject: [PATCH] madots: function to kill buffers --- lisp/mitch-packages.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index d6de4dd..f8fba61 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -854,6 +854,11 @@ Return nil if DIR is not in a hugo project at all." (if (string-match-p "magit: " (buffer-name buffer)) buffer)) (buffer-list)))))) + (defun madots--kill-all-magit-buffers () + (mapcar (lambda (buffer) + (if (string-match-p "^magit" (buffer-name buffer)) + (kill-buffer buffer))) + (buffer-list))) (defun madots--cleanup () "Remove modifications made for `madots' once all magit buffers are killed." (if (not (madots--magit-buffers-p))