pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

It appears that I should restore after first frame is created

Browse source
This commit is contained in:
Benson Chu 2023-06-13 09:39:01 -05:00
parent 93e8610264
commit 52802f1210
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
lisp/frame-restore.el
View file

@ -34,13 +34,25 @@
(not (string= "F1" (frame-parameter frame 'name))))))
(visible-frame-list)))
(defvar fr/working-state nil)
(defun fr/give-up-working-state ()
(interactive)
(setq fr/working-state t))
(add-to-list 'server-after-make-frame-hook
(lambda (&rest _)
(when (<= (length (fr/non-tty-frames)) 1)
(setq fr/working-state nil))))
(defun fr/save-if-appropriate (&rest _)
(interactive)
(let ((non-tty-frames
(fr/non-tty-frames)))
(when (not (zerop (length non-tty-frames)))
(when (and fr/working-state
(not (zerop (length (fr/non-tty-frames)))))
(setq my/framelist
(frameset-save (visible-frame-list)))
(frameset-save (fr/non-tty-frames)))
(message "%s Framelist saved!"
(format-time-string "%Y-%m-%d %H:%M:%S")))))
@ -58,14 +70,14 @@
(defun fr/restore ()
(interactive)
(let ((frameset--target-display `(display . ,(getenv "DISPLAY"))))
(frameset-restore
my/framelist
:force-display t
:reuse-frames t)
(dolist (f (frame-list))
(unless (frame-visible-p f)
(delete-frame f)))))
(setq fr/working-state t)
(frameset-restore
my/framelist
:force-display t
:reuse-frames t)
(dolist (f (frame-list))
(unless (frame-visible-p f)
(delete-frame f))))
(provide 'frame-restore)
;;; frame-restore.el ends here