From bea13fdc73b70233e59e1c742e60d7e464cd2dc6 Mon Sep 17 00:00:00 2001 From: Taylor Bockman Date: Tue, 19 Apr 2016 16:58:21 -0700 Subject: [PATCH] Add easier indenting --- dotfiles/emacs.d/init.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index d26c16c..301f124 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -476,6 +476,24 @@ setq org-log-done t) (add-hook 'neo-enter-hook 'redraw-display) ;;------------------------------------------------------------------------------------- +;; 2 Space Region Indenting Functions +;;------------------------------------------------------------------------------------- + +(defun my-indent-region (N) + (interactive "p") + (if (use-region-p) + (progn (indent-rigidly (region-beginning) (region-end) (* N 2)) + (setq deactivate-mark nil)) + (self-insert-command N))) + +(defun my-unindent-region (N) + (interactive "p") + (if (use-region-p) + (progn (indent-rigidly (region-beginning) (region-end) (* N -2)) + (setq deactivate-mark nil)) + (self-insert-command N))) + +;;------------------------------------------------------------------------------------- ;; Key Bindings ;;------------------------------------------------------------------------------------- @@ -560,6 +578,10 @@ setq org-log-done t) (global-set-key (kbd "C-c l") 'org-store-link) (global-set-key (kbd "C-c a") 'org-agenda) +;; More convenient region indenting +(global-set-key (kbd "M->") 'my-indent-region) +(global-set-key (kbd "M-<") 'my-unindent-region) + ;;-------------------------------------------------------------------------------------- ;; Theme ;;--------------------------------------------------------------------------------------