From fde6c60baee745adb5fdea410018e7943ad0aaf5 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Wed, 11 Nov 2015 01:20:18 -0500 Subject: [PATCH] layouts: fixes reset of layout upon creation of new layouts with SPC l l and SPC p l Fixes #3740 --- .../+window-management/spacemacs-layouts/funcs.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/layers/+window-management/spacemacs-layouts/funcs.el b/layers/+window-management/spacemacs-layouts/funcs.el index 8835f9ea9..e48ba980e 100644 --- a/layers/+window-management/spacemacs-layouts/funcs.el +++ b/layers/+window-management/spacemacs-layouts/funcs.el @@ -54,7 +54,11 @@ perspectives does." :sources `(,(spacemacs//helm-perspectives-source) ,(helm-build-dummy-source "Create new perspective" :requires-pattern t - :action #'persp-switch)))) + :action + '(("Create new perspective" . + (lambda (name) + (let ((persp-reset-windows-on-nil-window-conf t)) + (persp-switch name))))))))) ;; ability to use helm find files but also adds to current perspective (defun spacemacs/helm-persp-close () @@ -104,9 +108,10 @@ perspectives does." :mode-line helm-read-file-name-mode-line-string :action '(("Switch to Project Perspective" . (lambda (project) - (persp-switch project) - (let ((projectile-completion-system 'helm)) - (projectile-switch-project-by-name project)))))) + (let ((persp-reset-windows-on-nil-window-conf t)) + (persp-switch project) + (let ((projectile-completion-system 'helm)) + (projectile-switch-project-by-name project))))))) :buffer "*Projectile Layouts*")) ;; Autosave ----------------------------------------------------------------