spacemacs-layout: simplify spacemacs/helm-perspectives
Also reindent some sexps.
This commit is contained in:
parent
7b931a9f5b
commit
eb7ca651fe
|
@ -51,16 +51,16 @@ perspectives does."
|
|||
(interactive)
|
||||
(helm
|
||||
:buffer "*Helm Perspectives*"
|
||||
:sources `(,(spacemacs//helm-perspectives-source)
|
||||
:sources
|
||||
`(,(spacemacs//helm-perspectives-source)
|
||||
,(helm-build-dummy-source "Create new perspective"
|
||||
:requires-pattern t
|
||||
:action
|
||||
'(("Create new perspective" .
|
||||
(lambda (name)
|
||||
(let ((persp-reset-windows-on-nil-window-conf t))
|
||||
(if (member name (persp-names-current-frame-fast-ordered))
|
||||
(persp-switch name)
|
||||
(persp-switch name)
|
||||
(unless (member name (persp-names-current-frame-fast-ordered))
|
||||
(spacemacs/home))))))))))
|
||||
|
||||
;; ability to use helm find files but also adds to current perspective
|
||||
|
@ -69,7 +69,8 @@ perspectives does."
|
|||
(interactive)
|
||||
(helm
|
||||
:buffer "*Helm Kill Perspectives (without killing buffers)*"
|
||||
:sources (helm-build-in-buffer-source
|
||||
:sources
|
||||
(helm-build-in-buffer-source
|
||||
(concat "Current Perspective: " (spacemacs//current-layout-name))
|
||||
:data (persp-names)
|
||||
:fuzzy-match t
|
||||
|
|
Loading…
Reference in a new issue