diff options
Diffstat (limited to 'kolwynia')
| -rw-r--r-- | kolwynia/home/bdunahu/files/.config/emacs/modules/bd--exwm.el | 2 | ||||
| -rw-r--r-- | kolwynia/home/bdunahu/files/.config/emacs/modules/bd--utility.el | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--exwm.el b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--exwm.el index 1738ebe..de0eef7 100644 --- a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--exwm.el +++ b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--exwm.el @@ -63,7 +63,7 @@ that buffer." ([?\s-r] . exwm-reset) ([?\s-d] . toggle-window-dedicated) ([?\s-t] . bd/toggle-tab-bar) - ([?\s-q] . kill-current-buffer) + ([?\s-q] . bd/kill-current-buffer) ([?\s-x] . (lambda (command) (interactive (list (read-shell-command "s-x "))) (start-process-shell-command command nil command))) 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 |