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