Incrementar dias / meses / datas, etc. no buffer

Em um documento de texto, durante a edição, geralmente preciso aumentar / diminuir os dados do calendário. Então, sexta-feira precisará se tornar segunda-feira, dezembro precisará se tornar março, etc.

Ou 28 de abril após a adição de 5 se tornará 03 de maio e até 31 de dezembro de 2017 após a adição de 15 se tornará 15 de janeiro de 2018.

Existe uma maneira de conseguir isso colocando o cursor na palavra / número desejado e pressionando algumas teclas para que ele aumente ou diminua?

Então, na sexta-feira, eu bati em algo para dizer 'Adicionar 3' e ele se torna segunda-feira, etc. Enquanto em 28 de 28 de abril, eu bati em algo para dizer 'Adicionar 5' e se torna em 03 de maio. Mas enquanto em 28 de abril, eu clico em algo para dizer 'Subtrair 2', torna-se 28 de fevereiro, etc.

Só para você ter uma idéia, o vim tem um plugin de speeddating que faz exatamente o que eu pretendo.

A resposta utiliza calendar-day-name-arraye calendar-month-name-arrayé definida por calendar.el e enviada com o Emacs:

;; calendar-day-name-array ==> ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"]

;; calendar-month-name-array ==> ["January" "February" "May" "April" "May" "June" "July" "August" "September" "October" "November" "December"]

(require 'calendar)

(defun ar-shift--intern (arg thisarray)
    (let* ((name (substring-no-properties (word-at-point)))
       (bounds (bounds-of-thing-at-point 'word))
       (beg (car-safe bounds))
       (end (cdr-safe bounds))
       (counter 0)
       (laenge (length thisarray))
       (orig (point)) 
       idxr dlr
       (datelist (progn (while (< counter laenge)
                  (push (aref thisarray counter) dlr)
                  (setq counter (1+ counter)))
                (nreverse dlr)))
       (idx (progn
          (dolist (ele datelist)
            (unless idxr
              (when (string= ele name)
            (setq idxr counter))
              (setq counter (1+ counter))))
          idxr))
       (replaceform (aref thisarray
                  (if (< (+ arg idx) laenge)
                  (+ arg idx)
                (% (+ arg idx) laenge)))))
      (if (and beg end)
      (progn
        (delete-region beg end)
        (insert replaceform)
        (goto-char orig))
    (error "Don't see a date at point"))))

(defun ar-shift-day-atpt (arg)
   "Raise name of day at point ARG times.

Decrease with negative ARG"
   (interactive "p")
   (ar-shift--intern arg  calendar-day-name-array))

(defun ar-shift-month-atpt (arg)
  "Raise name of month at point ARG times.

Decrease with negative ARG"
  (interactive "p")
  (ar-shift--intern arg calendar-month-name-array))

Também aumente ou diminua números inteiros positivos: https://github.com/andreas-roehler/numbers-at-point