diff options
Diffstat (limited to 'perspective.el')
| -rw-r--r-- | perspective.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perspective.el b/perspective.el index 6b199a7..e9a6c92 100644 --- a/perspective.el +++ b/perspective.el @@ -652,6 +652,20 @@ from the current perspective at time of creation." (loop for persp being the hash-values of (with-selected-frame frame perspectives-hash) do (push entry (persp-local-variables persp))))))) +(defmacro persp-setup-for (name &rest body) + "Add code that should be run to set up the perspective named NAME. +Whenever a new perspective named NAME is created, runs BODY in +it. In addition, if one exists already, runs BODY in it immediately." + (declare (indent 1)) + `(progn + (add-hook 'persp-created-hook + (lambda () + (when (string= (persp-name persp-curr) ,name) + ,@body)) + 'append) + (when (gethash ,name perspectives-hash) + (with-perspective ,name ,@body)))) + (defun persp-set-ido-buffers () (setq ido-temp-list (let ((names (remq nil (mapcar 'buffer-name (persp-buffers persp-curr))))) |