「何月何日に回答します」ってメールする時に、曜日を調べるのが面倒なのだ。
emacs使ってるんだから、関数作れば良いのだ。
(defun format-specific-day (ymd)
"insert month,day and day of the week"
(interactive "syyyy-mm-dd: ")
(when (string-match "^\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)$" ymd)
(let ((yy (string-to-number (match-string 1 ymd)))
(mm (string-to-number (match-string 2 ymd)))
(dd (string-to-number (match-string 3 ymd))))
(insert (format-time-string "%m月%d日(%a)"
(encode-time 0 0 0 dd mm yy nil 0))))))