jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update line moving commands

Browse source
This commit is contained in:
Bozhidar Batsov 2013-04-02 12:14:10 +03:00
parent 772e01c483
commit c94e73f52d
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
core/prelude-core.el
View file

@ -90,14 +90,16 @@ Position the cursor at its beginning, according to the current mode."
"Move up the current line." "Move up the current line."
(interactive) (interactive)
(transpose-lines 1) (transpose-lines 1)
(forward-line -2)) (forward-line -2)
(indent-according-to-mode))
(defun prelude-move-line-down () (defun prelude-move-line-down ()
"Move down the current line." "Move down the current line."
(interactive) (interactive)
(forward-line 1) (forward-line 1)
(transpose-lines 1) (transpose-lines 1)
(forward-line -1)) (forward-line -1)
(indent-according-to-mode))
(defun prelude-indent-buffer () (defun prelude-indent-buffer ()
"Indent the currently visited buffer." "Indent the currently visited buffer."

2
core/prelude-mode.el
View file

@ -41,6 +41,8 @@
(define-key map [(shift return)] 'prelude-smart-open-line) (define-key map [(shift return)] 'prelude-smart-open-line)
(define-key map [(control shift up)] 'prelude-move-line-up) (define-key map [(control shift up)] 'prelude-move-line-up)
(define-key map [(control shift down)] 'prelude-move-line-down) (define-key map [(control shift down)] 'prelude-move-line-down)
(define-key map [(meta shift up)] 'prelude-move-line-up)
(define-key map [(meta shift down)] 'prelude-move-line-down)
(define-key map (kbd "C-c n") 'prelude-cleanup-buffer) (define-key map (kbd "C-c n") 'prelude-cleanup-buffer)
(define-key map (kbd "C-c f") 'prelude-recentf-ido-find-file) (define-key map (kbd "C-c f") 'prelude-recentf-ido-find-file)
(define-key map (kbd "C-M-\\") 'prelude-indent-region-or-buffer) (define-key map (kbd "C-M-\\") 'prelude-indent-region-or-buffer)