From 06fc66678c4affe269fc6abe2dfee6b0d275da19 Mon Sep 17 00:00:00 2001 From: bdunahu Date: Wed, 14 Jan 2026 17:20:42 -0700 Subject: emacs: ask confirmation before killing scratch or irc buffers --- kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el') diff --git a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el index ee74f58..5ab0105 100644 --- a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el +++ b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el @@ -155,6 +155,15 @@ ARG can be one of the following: (ignore-errors (cond ((bufferp proc) (kill-buffer proc)) ((stringp proc) (interrupt-process proc))))) +(defun bd/kill-current-buffer () + "Kill the current buffer. Asks confirmation for IRC or Scratch buffer types." + (interactive) + (let* ((buf (current-buffer)) + (name (buffer-name buf))) + (or (and (or (bd/buffer-scratch-p buf) + (bd/buffer-irc-p buf)) + (not (yes-or-no-p (concat "Really kill " name "?")))) + (kill-current-buffer)))) (provide 'bd--utility) ;;; bd--utility.el ends here -- cgit v1.2.3