layouts: Translate layouts micro-states
This commit is contained in:
parent
ca5b67c2f2
commit
d38d64dad7
|
@ -114,10 +114,8 @@
|
||||||
(when (equal 1 spacemacs--layouts-ms-doc-toggle)
|
(when (equal 1 spacemacs--layouts-ms-doc-toggle)
|
||||||
spacemacs--layouts-ms-documentation))))
|
spacemacs--layouts-ms-documentation))))
|
||||||
|
|
||||||
(spacemacs|define-micro-state layouts
|
(spacemacs|define-micro-state-2 layouts
|
||||||
:doc (spacemacs//layouts-ms-doc)
|
:doc (concat (spacemacs//layouts-ms-doc))
|
||||||
:use-minibuffer t
|
|
||||||
:evil-leader "l"
|
|
||||||
:bindings
|
:bindings
|
||||||
;; need to exit in case number doesn't exist
|
;; need to exit in case number doesn't exist
|
||||||
("?" spacemacs//layouts-ms-toggle-doc)
|
("?" spacemacs//layouts-ms-toggle-doc)
|
||||||
|
@ -155,6 +153,7 @@
|
||||||
("w" spacemacs/layout-workspaces-micro-state :exit t)
|
("w" spacemacs/layout-workspaces-micro-state :exit t)
|
||||||
("x" spacemacs/layouts-ms-kill)
|
("x" spacemacs/layouts-ms-kill)
|
||||||
("X" spacemacs/layouts-ms-kill-other :exit t))
|
("X" spacemacs/layouts-ms-kill-other :exit t))
|
||||||
|
(spacemacs/set-leader-keys "l" 'spacemacs/layouts-micro-state/body)
|
||||||
|
|
||||||
(defun spacemacs/layout-switch-by-pos (pos)
|
(defun spacemacs/layout-switch-by-pos (pos)
|
||||||
"Switch to perspective of position POS."
|
"Switch to perspective of position POS."
|
||||||
|
@ -175,7 +174,7 @@
|
||||||
,(format "Switch to layout %s." i)
|
,(format "Switch to layout %s." i)
|
||||||
(interactive)
|
(interactive)
|
||||||
(spacemacs/layout-switch-by-pos ,(if (eq 0 i) 9 (1- i)))
|
(spacemacs/layout-switch-by-pos ,(if (eq 0 i) 9 (1- i)))
|
||||||
(spacemacs/layouts-micro-state))))
|
(spacemacs/layouts-micro-state/body))))
|
||||||
|
|
||||||
(defun spacemacs/layout-goto-default ()
|
(defun spacemacs/layout-goto-default ()
|
||||||
"Go to `dotspacemacs-default-layout-name` layout"
|
"Go to `dotspacemacs-default-layout-name` layout"
|
||||||
|
@ -187,7 +186,7 @@
|
||||||
"Rename a layout and get back to the perspectives micro-state."
|
"Rename a layout and get back to the perspectives micro-state."
|
||||||
(interactive)
|
(interactive)
|
||||||
(call-interactively 'persp-rename)
|
(call-interactively 'persp-rename)
|
||||||
(spacemacs/layouts-micro-state))
|
(spacemacs/layouts-micro-state/body))
|
||||||
|
|
||||||
(defun spacemacs/layouts-ms-close ()
|
(defun spacemacs/layouts-ms-close ()
|
||||||
"Kill current perspective"
|
"Kill current perspective"
|
||||||
|
@ -197,7 +196,7 @@
|
||||||
(defun spacemacs/layouts-ms-close-other ()
|
(defun spacemacs/layouts-ms-close-other ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(call-interactively 'spacemacs/helm-persp-close)
|
(call-interactively 'spacemacs/helm-persp-close)
|
||||||
(spacemacs/layouts-micro-state))
|
(spacemacs/layouts-micro-state/body))
|
||||||
|
|
||||||
(defun spacemacs/layouts-ms-kill ()
|
(defun spacemacs/layouts-ms-kill ()
|
||||||
"Kill current perspective"
|
"Kill current perspective"
|
||||||
|
@ -207,7 +206,7 @@
|
||||||
(defun spacemacs/layouts-ms-kill-other ()
|
(defun spacemacs/layouts-ms-kill-other ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(call-interactively 'spacemacs/helm-persp-kill)
|
(call-interactively 'spacemacs/helm-persp-kill)
|
||||||
(spacemacs/layouts-micro-state))
|
(spacemacs/layouts-micro-state/body))
|
||||||
|
|
||||||
(defun spacemacs/layouts-ms-last ()
|
(defun spacemacs/layouts-ms-last ()
|
||||||
"Switch to the last active perspective"
|
"Switch to the last active perspective"
|
||||||
|
@ -270,7 +269,7 @@ Available PROPS:
|
||||||
"Update the custom-perspectives microstate and then activate it."
|
"Update the custom-perspectives microstate and then activate it."
|
||||||
(interactive)
|
(interactive)
|
||||||
(spacemacs//update-custom-layouts)
|
(spacemacs//update-custom-layouts)
|
||||||
(spacemacs/custom-layouts-micro-state))
|
(spacemacs/custom-layouts-micro-state/body))
|
||||||
|
|
||||||
(defun spacemacs//custom-layouts-ms-documentation ()
|
(defun spacemacs//custom-layouts-ms-documentation ()
|
||||||
"Return the docstring for the custom perspectives micro-state."
|
"Return the docstring for the custom perspectives micro-state."
|
||||||
|
@ -292,9 +291,8 @@ format so they are supported by the
|
||||||
(name (cdr custom-persp))
|
(name (cdr custom-persp))
|
||||||
(func-name (spacemacs//custom-layout-func-name name)))
|
(func-name (spacemacs//custom-layout-func-name name)))
|
||||||
(push (list binding func-name) bindings)))
|
(push (list binding func-name) bindings)))
|
||||||
(eval `(spacemacs|define-micro-state custom-layouts
|
(eval `(spacemacs|define-micro-state-2 custom-layouts
|
||||||
:doc (spacemacs//custom-layouts-ms-documentation)
|
:doc (concat (spacemacs//custom-layouts-ms-documentation))
|
||||||
:use-minibuffer t
|
|
||||||
:bindings
|
:bindings
|
||||||
,@bindings))))
|
,@bindings))))
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in a new issue