1 ;; -*- lexical-binding: t; -*-
2 
3 (defgroup lh/resurrect nil
4   "Records killed buffers and allows them to be resurrected."
5   :group 'convenience
6   :prefix "lh/resurrect")
7 
8 (defvar lh/resurrect-recently-killed nil)
9 
10 (defvar lh/resurrect-mode-map
11   (let ((map (make-sparse-keymap)))
12     (define-key map (kbd "C-x R") #'lh/resurrect-latest)
13     map))
14 
15 (defun lh/resurrect--kill-buffer-hook ()
16   (when buffer-file-name
17     (push buffer-file-name lh/resurrect-recently-killed)))
18 
19 (defun lh/resurrect-latest ()
20   (interactive)
21   (when-let (fn (pop lh/resurrect-recently-killed))
22     (find-file fn)))
23 
24 (define-minor-mode lh/global-resurrect-mode
25   "Records killed buffers and allows them to be resurrected."
26   :global t
27   :group 'lh/resurrect
28   :keymap lh/resurrect-mode-map
29   (if lh/global-resurrect-mode
30       (add-hook 'kill-buffer-hook #'lh/resurrect--kill-buffer-hook)
31     (remove-hook 'kill-buffer-hook #'lh/resurrect--kill-buffer-hook)))
32 
33 (provide 'lh-resurrect)