emacs設定 ステイタスラインに日本語で時間表示

emacsのStatusLineに日付を表示する。

--ここから----
;;;; ステータスラインに日付を表示する
(setq dayname-j-alist
'(("Sun" . "日") ("Mon" . "月") ("Tue" . "火") ("Wed" . "水")
("Thu" . "木") ("Fri" . "金") ("Sat" . "土")))
(setq display-time-string-forms
'((format "%s年%s月%s日(%s)%s時%s分"
year month day
(cdr (assoc dayname dayname-j-alist))
24-hours minutes)
load
(if mail " Mail" "")))
(display-time)

--ここまで----