diff options
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | Cask | 2 | ||||
| -rw-r--r-- | lisp/init-editing.el | 6 | ||||
| -rw-r--r-- | lisp/init-elisp.el | 16 |
4 files changed, 16 insertions, 9 deletions
@@ -15,4 +15,3 @@ bookmarks /.cask /.custom.el /server -/semanticdb @@ -30,12 +30,10 @@ (depends-on "ido-at-point") (depends-on "ido-ubiquitous") (depends-on "ido-vertical-mode") -(depends-on "iedit") (depends-on "jedi") (depends-on "key-chord") (depends-on "less-css-mode") (depends-on "let-alist") -(depends-on "lispy") (depends-on "lua-mode") (depends-on "markdown-mode") (depends-on "mocker") diff --git a/lisp/init-editing.el b/lisp/init-editing.el index e36d351..367f3b3 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -14,9 +14,6 @@ (setq flyspell-auto-correct-binding (kbd "C-c e ;")) -;; This is bound separately in `km/editing-map'. -(setq iedit-toggle-key-default nil) - ;; http://www.emacswiki.org/emacs/UnfillParagraph (defun km/unfill-paragraph () "Convert a multi-line paragraph to a single line of text." @@ -176,9 +173,8 @@ touches." (define-prefix-command 'km/editing-map) (global-set-key (kbd "C-c e") 'km/editing-map) -(define-key km/editing-map (kbd "C-i") 'indent-relative) (define-key km/editing-map "f" 'km/fill-surrounding-indented) -(define-key km/editing-map "i" 'iedit-mode) +(define-key km/editing-map "i" 'indent-relative) (electric-indent-mode -1) (electric-pair-mode 1) diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index a6cee16..8ec711d 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -1,4 +1,18 @@ -(add-hook 'emacs-lisp-mode-hook 'lispy-mode) +(autoload 'enable-paredit-mode "paredit" + "Turn on pseudo-structural editing of Lisp code." + t) + +(add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode) + +(after 'paredit + (define-key paredit-mode-map (kbd "C-,") 'paredit-forward-slurp-sexp) + (define-key paredit-mode-map (kbd "C-.") 'paredit-forward-barf-sexp) + (define-key paredit-mode-map (kbd "C-M-,") 'paredit-backward-slurp-sexp) + (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp) + + ;; Don't let `paredit-splice-sexp' override default 'M-s' map. + (define-key paredit-mode-map (kbd "M-s") nil) + (define-key paredit-mode-map (kbd "M-p") 'paredit-splice-sexp)) (provide 'init-elisp) |