emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/workspaces: persist indirect buffers

Browse source
This commit is contained in:
Henrik Lissner 2018-06-19 14:50:27 +02:00
parent e703d3ec8a
commit 5f04be599f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

27
modules/feature/workspaces/config.el
View file

@ -151,5 +151,30 @@ Uses `+workspaces-main' to determine the name of the main workspace."
(persp-def-buffer-save/load
:mode 'magit-status-mode :tag-symbol 'def-magit-status-buffer
:save-vars '(major-mode default-directory)
:after-load-function #'(lambda (b &rest _) (with-current-buffer b (magit-refresh)))))
:after-load-function (lambda (b &rest _) (with-current-buffer b (magit-refresh))))
;; Restore indirect buffers
(defvar +workspaces--indirect-buffers-to-restore nil)
(persp-def-buffer-save/load
:tag-symbol 'def-indirect-buffer
:predicate #'buffer-base-buffer
:save-function (lambda (buf tag vars)
(list tag (buffer-name buf) vars
(buffer-name (buffer-base-buffer))))
:load-function (lambda (savelist &rest _rest)
(destructuring-bind
(buf-name vars base-buf-name &rest _rest) (cdr savelist)
(push (cons buf-name base-buf-name)
+workspaces--indirect-buffers-to-restore)
nil)))
(defun +workspaces|reload-indirect-buffers (&rest _)
(dolist (ibc +workspaces--indirect-buffers-to-restore)
(let* ((nbn (car ibc))
(bbn (cdr ibc))
(bb (get-buffer bbn)))
(when bb
(when (get-buffer nbn)
(setq nbn (generate-new-buffer-name nbn)))
(make-indirect-buffer bb nbn t))))
(setq +workspaces--indirect-buffers-to-restore nil))
(add-hook 'persp-after-load-state-functions #'+workspaces|reload-indirect-buffers))