前後の日付を挿入
メモ帳みたいに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))))