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

Add prelude-indent-defun

Browse source
This commit is contained in:
Bozhidar Batsov 2013-03-28 12:43:45 +02:00
parent a3d8809a5c
commit 56f9679ea2
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
core/prelude-core.el
View file

@ -116,6 +116,13 @@ Position the cursor at its beginning, according to the current mode."
(prelude-indent-buffer) (prelude-indent-buffer)
(message "Indented buffer."))))) (message "Indented buffer.")))))
(defun prelude-indent-defun ()
"Indent the current defun."
(interactive)
(save-excursion
(mark-defun)
(indent-region (region-beginning) (region-end))))
(defun prelude-annotate-todo () (defun prelude-annotate-todo ()
"Put fringe marker on TODO: lines in the curent buffer." "Put fringe marker on TODO: lines in the curent buffer."
(interactive) (interactive)

1
core/prelude-mode.el
View file

@ -44,6 +44,7 @@
(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)
(define-key map (kbd "C-M-z") 'indent-defun)
(define-key map (kbd "C-c u") 'prelude-view-url) (define-key map (kbd "C-c u") 'prelude-view-url)
(define-key map (kbd "C-c e") 'prelude-eval-and-replace) (define-key map (kbd "C-c e") 'prelude-eval-and-replace)
(define-key map (kbd "C-c s") 'prelude-swap-windows) (define-key map (kbd "C-c s") 'prelude-swap-windows)