|
From: | Michael Heerdegen |
Subject: | Re: [Feature request] I suggest delete-frame command can prompt user for confirmation |
Date: | Mon, 15 Nov 2021 04:04:12 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
Michael Heerdegen <michael_heerdegen@web.de> writes: > Wouldn't it be much more useful to be able to restore a killed frame? Like this maybe? #+begin_src emacs-lisp (require 'frameset) (require 'cl-lib) (defvar my-killed-frame-ring-size 10) (defvar my-killed-frames (make-ring my-killed-frame-ring-size)) (advice-add 'delete-frame :before #'my-remember-deleted-frame) (defun my-remember-deleted-frame (&optional frame _force) (ring-insert my-killed-frames (frameset-save (list (or frame (selected-frame)))))) (defun my-restore-killed-frame (&optional n) (interactive "p") (let ((frames-before (frame-list))) (frameset-restore (ring-ref my-killed-frames (- (or n 1) 1))) (let ((restored (cl-set-difference (frame-list) frames-before))) (when (and restored (not (cdr restored))) (select-frame-set-input-focus (car restored)))))) (global-set-key [?\C-x ?5 ?t] #'my-restore-killed-frame) #+end_src Michael.
[Prev in Thread] | Current Thread | [Next in Thread] |