Emacs: モードラインじゃなくタイトルバーに日付と時間を表示する

小ネタ。
日付と時間は表示したいけど、モードラインに表示するのは何かと邪魔ですよね。

tittle-time.el は auto-install-from-emacswiki から。

• EmacsWiki: title-time.el

(defadvice title-time-set (around title-time-set-around)
  (setq frame-title-format
      (concat "%b" " - "  display-time-string)))

(ad-activate 'title-time-set)
(setq display-time-interval 30)

(setq display-time-string-forms
      '((format " [ %s/%02d/%02d (%s) - %s:%s ] "
                year (string-to-number month)(string-to-number day)
                dayname 24-hours minutes)))

(require 'title-time)
(display-time)