前後の日付を挿入

メモ帳みたいにF5で日付を入れられるようにしている。ただ、それだけだとメモ帳と大差ないので、universal-argumentで前後の日付も入れられるようにしてみた。日記を付けるときに便利。

(defun insert-date (&optional rel-day)
  "時刻を挿入"
  (interactive "*p")
  (let ((date (+ (get-universal-time) (if rel-day (* rel-day 86400) 0))))
    (insert (format-date-string *date-string* date))))