Ngày tăng / tháng / ngày, vv trong bộ đệm

Trong một tài liệu văn bản, trong khi chỉnh sửa, tôi thường cần tăng / giảm dữ liệu lịch. Vì vậy, thứ Sáu sẽ cần trở thành thứ Hai, tháng 12 sẽ cần trở thành tháng Ba, v.v.

Hoặc ngày 28 tháng 4 sau khi thêm 5 sẽ trở thành ngày 03 tháng 5 và thậm chí ngày 31 tháng 12 năm 2017 sau khi thêm ngày 15 sẽ trở thành ngày 15 tháng 1 năm 2018.

Có cách nào để đạt được điều này bằng cách đặt con trỏ vào từ / số mong muốn và nhấn một số phím để nó tăng hoặc giảm?

Vì vậy, trong khi vào Thứ Sáu, tôi nhấn một cái gì đó để nói 'Thêm 3' và nó trở thành Thứ Hai, v.v. Trong khi vào ngày 28 tháng 28, tôi nhấn một cái gì đó để nói 'Thêm 5' và nó trở thành 03 tháng Năm. Nhưng trong khi vào ngày 28 tháng Tư, tôi nhấn một cái gì đó để nói 'Trừ 2', nó trở thành ngày 28 tháng 2, v.v.

Để bạn có được một ý tưởng, vim có một plugin tăng tốc thực hiện chính xác những gì tôi đang hướng tới.

Câu trả lời sử dụng calendar-day-name-arrayvà calendar-month-name-arrayđược đặt bởi calendar.el và được gửi bằng 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))

Đồng thời tăng hoặc giảm số nguyên dương: https://github.com/andreas-roehler/numbers-at-point