Fixed persp mode naming bug

emacs/.emacs.d/README.org

@@ -1377,6 +1377,7 @@ or don't exist for the language.
     :config
     (defvar wolfe/persp-default-workspace "main")
     (defvar wolfe/persp-shared-buffers '("*scratch*" "*Messages*"))
+    (defvar wolfe/projectile-project-to-switch nil)
 
     (setq wg-morph-on nil ;; switch off animation
           persp-autokill-buffer-on-remove 'kill-weak
@@ -1405,9 +1406,18 @@ or don't exist for the language.
                       (persp-window-switch . nil)
                       (persp-frame-switch . nil)))))
 
+    (defun wolfe/projectile-switch-project-by-name (counsel-projectile-switch-project-by-name &rest args)
+        (setq wolfe/projectile-project-to-switch (car args))
+        (apply counsel-projectile-switch-project-by-name args)
+        (setq wolfe/projectile-project-to-switch nil))
+    (advice-add #'counsel-projectile-switch-project-by-name :around #'wolfe/projectile-switch-project-by-name)
+
     (defun wolfe/persp-create-project-persp ()
       (let ((frame (selected-frame))
-            (name (projectile-project-name)))
+            (name (file-name-nondirectory
+                   (directory-file-name
+                    (file-name-directory
+                     wolfe/projectile-project-to-switch)))))
         (with-selected-frame frame
           (persp-add-new name)
           (persp-frame-switch name)