diff --git a/contrib/perspectives/packages.el b/contrib/perspectives/packages.el
index 13109b476..47ee4fbca 100644
--- a/contrib/perspectives/packages.el
+++ b/contrib/perspectives/packages.el
@@ -15,6 +15,10 @@ which require an initialization must be listed explicitly in the list.")
     :init
     (progn
       (persp-mode t)
+      (define-prefix-command 'perspectives-prefix)
+      (evil-leader/set-key "P" 'perspectives-prefix)
+      (define-prefix-command 'perspectives-custom-prefix)
+      (evil-leader/set-key "Po" 'perspectives-custom-prefix)
       (evil-leader/set-key
         "Ps" 'persp-switch
         "Pk" 'persp-remove-buffer
diff --git a/spacemacs/packages.el b/spacemacs/packages.el
index 4afb1a7d0..e386c036c 100644
--- a/spacemacs/packages.el
+++ b/spacemacs/packages.el
@@ -672,6 +672,44 @@ determine the state to enable when escaping from the insert state.")
       (setq evil-leader/in-all-states t
             evil-leader/leader "SPC"
             evil-leader/non-normal-prefix "s-")
+      ;; give name to spacemacs prefixes
+      (dolist (x '(("a" . "applications")
+                   ("as" . "applications-shells")
+                   ("b" . "buffers")
+                   ("bm" . "buffers-move")
+                   ("c" . "comments")
+                   ("e" . "errors")
+                   ("f" . "files")
+                   ("fe" . "files-emacs/spacemacs")
+                   ("g" . "git/versions-control")
+                   ("gc" . "smeargle")
+                   ("h" . "helm/help/highlight")
+                   ("hd" . "help-describe")
+                   ("i" . "insert")
+                   ("j" . "join/split")
+                   ("n" . "narrow/numbers")
+                   ("p" . "projects")
+                   ("p4" . "perforce")
+                   ("r" . "registers/rings")
+                   ("s" . "search/symbol")
+                   ("sr" . "symbol-range")
+                   ("S" . "spelling")
+                   ("t" . "toggles")
+                   ("tm" . "toggles-modeline")
+                   ("w" . "windows")
+                   ("wp" . "windows-popup")
+                   ("ws" . "windows-size")
+                   ("x" . "text")
+                   ("xd" . "text-delete")
+                   ("xg" . "text-google-translate")
+                   ("xm" . "text-move")
+                   ("xt" . "text-transpose")
+                   ("xw" . "text-words")
+                   ("z" . "z")))
+        (let ((key (car x)) 
+              (prefix-command (intern (format "%s-prefix" (cdr x)))))
+          (define-prefix-command prefix-command)
+          (evil-leader/set-key key prefix-command)))
       (global-evil-leader-mode))
     :config
     (progn