Browse Source

Add easier indenting

master
Taylor Bockman 9 years ago
parent
commit
10d39dbb13
  1. 22
      dotfiles/emacs.d/init.el

22
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
;;--------------------------------------------------------------------------------------

Loading…
Cancel
Save