From 473d4d1eb7ccd1af32d6421a10597dd190d868d1 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Sat, 11 Apr 2015 00:31:53 -0400 Subject: [PATCH] Move key bindings definition for elisp to extensions.el --- spacemacs/extensions.el | 21 +++++++++++++++++---- spacemacs/keybindings.el | 12 ------------ 2 files changed, 17 insertions(+), 16 deletions(-) diff --git a/spacemacs/extensions.el b/spacemacs/extensions.el index 8da85210d..b0f191ce5 100644 --- a/spacemacs/extensions.el +++ b/spacemacs/extensions.el @@ -191,10 +191,23 @@ (global-set-key (kbd "C-") 'spacemacs/zoom-frm-out)))) (defun spacemacs/init-emacs-builtin-emacs-lisp () - (when (configuration-layer/layer-usedp 'auto-completion) - (push '(company-capf :with company-yasnippet) - company-backends-emacs-lisp-mode) - (spacemacs|add-company-hook emacs-lisp-mode))) + + (evil-leader/set-key-for-mode 'emacs-lisp-mode + "me$" 'lisp-state-eval-sexp-end-of-line + "meb" 'eval-buffer + "mec" 'spacemacs/eval-current-form + "mee" 'eval-last-sexp + "mer" 'spacemacs/eval-region + "mef" 'eval-defun + "mel" 'lisp-state-eval-sexp-end-of-line + "m," 'lisp-state-toggle-lisp-state + "mtb" 'spacemacs/ert-run-tests-buffer + "mtq" 'ert) + + (when (configuration-layer/layer-usedp 'auto-completion) + (push '(company-capf :with company-yasnippet) + company-backends-emacs-lisp-mode) + (spacemacs|add-company-hook emacs-lisp-mode))) (defun spacemacs/init-emacs-builtin-process-menu () (evilify process-menu-mode process-menu-mode-map)) diff --git a/spacemacs/keybindings.el b/spacemacs/keybindings.el index 075180b04..0c8d18f29 100644 --- a/spacemacs/keybindings.el +++ b/spacemacs/keybindings.el @@ -290,18 +290,6 @@ Ensure that helm is required before calling FUNC." ;; google translate ----------------------------------------------------------- (evil-leader/set-key "xgl" 'set-google-translate-languages) -;; emacs-lisp ----------------------------------------------------------------- -(evil-leader/set-key-for-mode 'emacs-lisp-mode - "me$" 'lisp-state-eval-sexp-end-of-line - "meb" 'eval-buffer - "mec" 'spacemacs/eval-current-form - "mee" 'eval-last-sexp - "mer" 'spacemacs/eval-region - "mef" 'eval-defun - "mel" 'lisp-state-eval-sexp-end-of-line - "m," 'lisp-state-toggle-lisp-state - "mtb" 'spacemacs/ert-run-tests-buffer - "mtq" 'ert) ;; --------------------------------------------------------------------------- ;; Micro-states