about summary refs log tree commit diff stats
path: root/lisp/+burly.el
blob: a32bc97d6148ea3f00a6255d2e5dbc8d9a4ec6d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
;;; +burly.el --- Bespoke burly add-ons -*- lexical-binding: t; -*-

;;; Commentary:

;;; Code:

(require 'burly)

(defgroup +burly nil
  "Extra `burly' customizations."
  :group 'burly
  :prefix "+burly-")

(defcustom +burly-windows-bookmark-name "pre-close-window-config"
  "The name of the window config bookmark pre-frame deletion.")

(defun +burly--get-name (arg)
  "Get the name of a Burly bookmark to restore.
If ARG is passed, ask for the bookmark's name; otherwise, just
use `+burly-windows-bookmark-name'."
  (if arg
      (completing-read "Save Burly bookmark: " (burly-bookmark-names)
                       nil nil burly-bookmark-prefix)
    +burly-windows-bookmark-name))

(defun +burly-recover-windows-bookmark (&optional arg frame)
  "Recover the window configuration from a previous bookmark.
ARG is passed to `+burly--get-name', which see."
  (interactive (list current-prefix-arg
                     (selected-frame)))
  (with-selected-frame frame
    (burly-open-bookmark (+burly--get-name arg))))

(defun +burly--recover-windows-on-new-frame (frame)
  "Recover the current window configuration in a new frame.
This function removes itself from `after-make-frame-functions'."
  ;; XXX: For some reason, *scratch* pops up.  So I need to run this after a
  ;; short delay, which sadly causes a flash of *scratch*.
  (run-with-idle-timer 0.1 nil
                       (lambda (f) (+burly-recover-windows-bookmark nil f))
                       frame)
  (remove-hook 'after-make-frame-functions #'+burly--recover-windows-on-new-frame))

(defun +burly-save-then-close-frame (&optional arg)
  "Save window configuration and close the frame.
ARG is passed to `+burly--get-name', which see."
  (interactive "P")
  (if (not (frame-parameter nil 'client))
      (when (yes-or-no-p "Sure you want to quit? ")
        (save-buffers-kill-emacs))
    (save-some-buffers t)
    (burly-bookmark-windows (+burly--get-name arg))
    (delete-frame nil :force)))

(defun +burly-save-then-close-frame-remembering ()
  "Save window configurations and close the frame.
The next frame created will restore the window configuration."
  (interactive)
  (add-hook 'after-make-frame-functions #'+burly--recover-windows-on-new-frame 90)
  (+burly-save-then-close-frame))

(provide '+burly)
;;; +burly.el ends here