diff options
| author | Somelauw <Somelauw> | 2017-10-07 22:58:52 +0200 |
|---|---|---|
| committer | Somelauw <Somelauw> | 2017-10-07 22:58:52 +0200 |
| commit | 4e9943680c9dbedfff2f325d79b723f76d3da42f (patch) | |
| tree | 895bc3ca8cbf9220f7946af896eaa9d752790e45 /evil-org.el | |
| parent | 52bbb105a6a7fa9ead68c56746740b4343ecd6e9 (diff) | |
Implement https://github.com/Somelauw/evil-org-mode/issues/22
Diffstat (limited to 'evil-org.el')
| -rw-r--r-- | evil-org.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/evil-org.el b/evil-org.el index 5affd2d..7d35329 100644 --- a/evil-org.el +++ b/evil-org.el @@ -7,7 +7,7 @@ ;; Git-Repository: git://github.com/Somelauw/evil-org-mode.git ;; Created: 2012-06-14 ;; Forked-since: 2017-02-12 -;; Version: 0.9.6 +;; Version: 1.0.0 ;; Package-Requires: ((emacs "24.4") (evil "1.0") (org "8.0.0")) ;; Keywords: evil vim-emulation org-mode key-bindings presets @@ -405,6 +405,17 @@ If ARG < 0, move column END to BEG" (evil-yank beg end type register) (org-delete-char count))) +(evil-define-operator evil-org-delete (beg end type register yank-handler) + "Like evil-delete, but realigns tags and numbered lists." + (interactive "<R><x><y>") + (let ((renumber-lists-p (or (< beg (line-beginning-position)) + (> end (line-end-position))))) + (evil-delete beg end type register yank-handler) + (cond ((and renumber-lists-p (org-at-item-p)) + (org-list-repair)) + ((org-at-heading-p) + (org-fix-tags-on-the-fly))))) + (defun evil-org-generic-open-links (beg end incog) "Open org mode links in visual selection. Argument BEG beginning of region. @@ -588,6 +599,7 @@ Includes tables, list items and subtrees." (kbd "A") 'evil-org-append-line (kbd "o") 'evil-org-open-below (kbd "O") 'evil-org-open-above + (kbd "d") 'evil-org-delete (kbd "x") 'evil-org-delete-char (kbd "X") 'evil-org-delete-backward-char (kbd "<C-return>") (evil-org-define-eol-command |