昨日の日記を今日書く人なので

xyzzy

via 前後の日付を挿入 - 象徴ヶ淵

前置引数で数を指定した場合はその文前後にずらすでいいけど、夜寝てしまったとかで昨日の日記を書く事が多々あるので -1 を指定したいことが多い。けど C-u - 1 F5 とかめんどいので C-u F5 は昨日の日付にしてみた。

(defvar *date-string* "%Y-%m-%d")

(defun insert-date (&optional arg)
  "時刻を挿入。"
  (interactive "*P")
  (let ((date (+ (get-universal-time)
                 (* (case arg
                      ((nil) 0)
                      (digit-argument *prefix-value*)
                      (universal-argument -1))
                    86400))))
    (insert (format-date-string *date-string* date))))

(global-set-key #\F5 'insert-date)

日記は Evernote に書いてるから使えないんだけどな。