branch: elpa/evil-numbers
commit 84bb03cb51fc571f667715032c4835c5e148643d
Author: Jan Path <[email protected]>
Commit: Jan Path <[email protected]>
Add incremental increasing like `g C-a' in vim
---
evil-numbers.el | 28 +++++++++++++++++++++++++---
1 file changed, 25 insertions(+), 3 deletions(-)
diff --git a/evil-numbers.el b/evil-numbers.el
index eb7c5dbb1e..b574033607 100644
--- a/evil-numbers.el
+++ b/evil-numbers.el
@@ -59,7 +59,7 @@
;;; Code:
;;;###autoload
-(defun evil-numbers/inc-at-pt (amount &optional no-region)
+(defun evil-numbers/inc-at-pt (amount &optional no-region &optional
incremental)
"Increment the number at point or after point before end-of-line by `amount'.
When region is selected, increment all numbers in the region by `amount'
@@ -67,18 +67,23 @@ NO-REGION is internal flag that allows
`evil-numbers/inc-at-point' to be called recursively when
applying the regional features of `evil-numbers/inc-at-point'.
+INCREMENTAL causes the first number to be increased by 1*amount, the second by
+2*amount and so on.
+
"
(interactive "p*")
(cond
((and (not no-region) (region-active-p))
(let (deactivate-mark
(rb (region-beginning))
- (re (region-end)))
+ (re (region-end))
+ (count 1))
(save-excursion
(save-match-data
(goto-char rb)
(while (re-search-forward
"\\(?:0\\(?:[Bb][01]+\\|[Oo][0-7]+\\|[Xx][0-9A-Fa-f]+\\)\\|-?[0-9]+\\)" re t)
- (evil-numbers/inc-at-pt amount 'no-region)
+ (evil-numbers/inc-at-pt (* amount count) 'no-region)
+ (if incremental (setq count (+ count 1)))
;; Undo vim compatability.
(forward-char 1)))))
(setq deactivate-mark t))
@@ -121,6 +126,23 @@ This function uses `evil-numbers/inc-at-pt'"
(interactive "p*")
(evil-numbers/inc-at-pt (- amount)))
+;;;###autoload
+(defun evil-numbers/inc-at-pt-incremental (amount)
+ "Increment the number at point or after point before end-of-line by `amount'.
+
+If a region is active, increment all the numbers at a point by `amount'*n,
where
+`n' is the index of the number among the numbers in the region, starting at 1.
+That is increment the first number by `amount', the second by 2*`amount', and
so
+on."
+ (interactive "p*")
+ (evil-numbers/inc-at-pt amount nil 'incremental))
+
+;;;###autoload
+(defun evil-numbers/dec-at-pt-incremental (amount)
+ "Like `evil-numbers/inc-at-pt-incremental' but with negated argument
`amount'"
+ (interactive "p*")
+ (evil-numbers/inc-at-pt-incremental (- amount)))
+
;;; utils
(defun evil-numbers/search-number ()
