カーソル下の数字っぽいものをインクリメント・デクリメントする

参考あるいはパクリ元

• カーソルの位置にある数字列をインクリメントする emacs lisp 改修 - 質のないDiary H

本文

vim の Ctrl+a, Ctrl+x に相当するらしい機能。

参考元にプラスでデクリメントをつけ、ついでに samrt-rep の設定例を。

(defun operate-string-as-number (number op)
  (let ((col (current-column))
        (p (if (integerp number) number 1))
        )
    (skip-chars-backward "-0123456789")
    (or (looking-at "-?[0123456789]+")
        (error "No number at point"))
      (replace-match
       (number-to-string (funcall op (string-to-number (match-string 0)) p)))
    (move-to-column col)))
(defun increment-string-as-number (number)
  "Replace progression string of the position of the cursor
by string that added NUMBER.
Interactively, NUMBER is the prefix arg.

example:
At the cursor string \"12\"

M-x increment-string-as-number ;; replaced by \"13\"
C-u 10 M-x increment-string-as-number ;; replaced by \"22\"

At the cursor string \"-12\"

M-x increment-string-as-number ;; replaced by \"-11\"
C-u 100 M-x increment-string-as-number ;; replaced by \"88\""
  (interactive "P")
  (operate-string-as-number number (lambda (x y) (+ x y)))
  )

(defun decrement-string-as-number (number)
  "Replace progression string of the position of the cursor
by string that subtracted NUMBER.
Interactively, NUMBER is the prefix arg.

example:
At the cursor string \"12\"

M-x increment-string-as-number ;; replaced by \"11\"
C-u 10 M-x increment-string-as-number ;; replaced by \"2\"

At the cursor string \"-12\"

M-x increment-string-as-number ;; replaced by \"-13\"
C-u 100 M-x increment-string-as-number ;; replaced by \"-112\""
  (interactive "P")
  (operate-string-as-number number (lambda (x y) (- x y)))
  )
;; smart-rep
(smartrep-define-key
    global-map "C-c"
  '(
    ("+" . 'increment-string-as-number)
    ("-" . 'decrement-string-as-number)
    )
  )