wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

undo-redo and undo-tree redo binding.

Browse Source
This commit is contained in:
Ivan Malison 2014-11-29 11:08:48 -08:00
parent d2b63efcab
commit 1e175f9790
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -131,6 +131,10 @@
;; functions ;; functions
;; ============================================================================= ;; =============================================================================
(defun undo-redo (&optional arg)
(interactive "P")
(if arg (undo-tree-redo) (undo-tree-undo)))
(defun up-list-region () (defun up-list-region ()
(interactive) (interactive)
(up-list) (set-mark-command nil) (backward-sexp)) (up-list) (set-mark-command nil) (backward-sexp))
@ -148,8 +152,8 @@
(fill-paragraph nil region))) (fill-paragraph nil region)))
(defun fill-or-unfill-paragraph (&optional unfill region) (defun fill-or-unfill-paragraph (&optional unfill region)
"Fill paragraph (or REGION). "Fill paragraph (or REGION). With the prefix argument UNFILL,
With the prefix argument UNFILL, unfill it instead." unfill it instead."
(interactive (progn (interactive (progn
(barf-if-buffer-read-only) (barf-if-buffer-read-only)
(list (if current-prefix-arg 'unfill) t))) (list (if current-prefix-arg 'unfill) t)))
@ -408,7 +412,9 @@ buffer is not visiting a file."
(use-package undo-tree (use-package undo-tree
:ensure t :ensure t
:bind ("C-c u" . undo-tree-visualize) :bind (("C--" . undo-redo)
("C-c u" . undo-tree-visualize)
("C-c r" . undo-tree-redo))
:config :config
(diminish 'undo-tree-mode) (diminish 'undo-tree-mode)
:init :init
@ -940,7 +946,9 @@ buffer is not visiting a file."
:commands sgml-mode :commands sgml-mode
:bind ("C-c b" . web-beautify-html)) :bind ("C-c b" . web-beautify-html))
(use-package gitconfig-mode :ensure t :mode "\\.gitconfig\\'") (use-package gitconfig-mode
:ensure t
:mode "\\.?gitconfig\\'")
(use-package evil :ensure t :commands (evil-mode)) (use-package evil :ensure t :commands (evil-mode))
@ -951,7 +959,6 @@ buffer is not visiting a file."
;; Miscellaneous ;; Miscellaneous
(global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding. (global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding.
(bind-key "M-q" 'fill-or-unfill-paragraph) (bind-key "M-q" 'fill-or-unfill-paragraph)
(bind-key "C--" 'undo)
(bind-key "C-c C-s" 'sudo-edit) (bind-key "C-c C-s" 'sudo-edit)
(bind-key "C-c SPC" (bind-key "C-c SPC"
(lambda () (interactive) (lambda () (interactive)