From c7008108f55b3e75cdbcf2ce7ebd3a4babbecea9 Mon Sep 17 00:00:00 2001
From: Alexandr Skurikhin <a@skurih.in>
Date: Sun, 3 Jan 2016 01:14:34 +0300
Subject: [PATCH] Add ivy-persp-switch-project

---
 layers/+distribution/spacemacs-base/packages.el  | 12 +++++-------
 .../spacemacs-layouts/funcs.el                   | 16 ++++++++++++++++
 2 files changed, 21 insertions(+), 7 deletions(-)

diff --git a/layers/+distribution/spacemacs-base/packages.el b/layers/+distribution/spacemacs-base/packages.el
index bcddfc1a5..55801cfc4 100644
--- a/layers/+distribution/spacemacs-base/packages.el
+++ b/layers/+distribution/spacemacs-base/packages.el
@@ -809,13 +809,11 @@ Example: (evil-map visual \"<\" \"<gv\")"
         "pT" 'projectile-find-test-file
         "py" 'projectile-find-tag)
       (when (configuration-layer/package-usedp 'persp-mode)
-          (if (configuration-layer/layer-usedp 'spacemacs-helm)
-            (spacemacs/set-leader-keys
-            "pl" 'spacemacs/helm-persp-switch-project)
-            (spacemacs/set-leader-keys
-              "pl" 'spacemacs/ivy-persp-switch-project)
-          )
-          ))
+        (if (configuration-layer/layer-usedp 'spacemacs-helm)
+            ((spacemacs/set-leader-keys
+               "pl" 'spacemacs/helm-persp-switch-project)
+             (spacemacs/set-leader-keys
+               "pl" 'spacemacs/ivy-persp-switch-project)))))
     :config
     (progn
       (projectile-global-mode)
diff --git a/layers/+window-management/spacemacs-layouts/funcs.el b/layers/+window-management/spacemacs-layouts/funcs.el
index 5fb58d885..e22c5a873 100644
--- a/layers/+window-management/spacemacs-layouts/funcs.el
+++ b/layers/+window-management/spacemacs-layouts/funcs.el
@@ -118,6 +118,22 @@ perspectives does."
                       (projectile-switch-project-by-name project)))))))
    :buffer "*Projectile Layouts*"))
 
+(defun spacemacs/ivy-persp-switch-project (arg)
+  (interactive "P")
+  (ivy-read "Switch to Project Perspective:"
+            (if (projectile-project-p)
+                (cons (abbreviate-file-name (projectile-project-root))
+                      (projectile-relevant-known-projects))
+              projectile-known-projects)
+            :action (lambda (project)
+                      (let ((persp-reset-windows-on-nil-window-conf t))
+                        (persp-switch project)
+                        (let ((projectile-completion-system 'ivy))
+                          (projectile-switch-project-by-name project))))
+            )
+
+  )
+
 ;; Autosave ----------------------------------------------------------------
 
 (defun spacemacs//layout-autosave ()