TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Custom layout: eval name and binding

Browse source
This commit is contained in:
Eivind Fonn 2016-02-27 15:28:25 +01:00
parent 1b503000c8
commit 3412429360
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
layers/+window-management/spacemacs-layouts/packages-funcs.el
View file

@ -195,8 +195,9 @@ Available PROPS:
One or several EXPRESSIONS that are going to be evaluated after
we change into the perspective NAME."
(declare (indent 1))
(let* ((func (spacemacs//custom-layout-func-name name))
(binding (car (spacemacs/mplist-get props :binding)))
(let* ((name (eval name))
(func (spacemacs//custom-layout-func-name name))
(binding (eval (car (spacemacs/mplist-get props :binding))))
(body (spacemacs/mplist-get props :body))
(already-defined? (cdr (assoc binding
spacemacs--custom-layout-alist))))
@ -213,7 +214,7 @@ Available PROPS:
(if ,already-defined?
(unless (equal ,already-defined? ,name)
(spacemacs-buffer/warning "Replacing existing binding \"%s\" for %s with %s"
,binding ,already-defined? ,name )
,binding ,already-defined? ,name)
(push '(,binding . ,name) spacemacs--custom-layout-alist))
(push '(,binding . ,name) spacemacs--custom-layout-alist)))))