emacsのタイトルバーに時計

時間は共通なんだからバッファごとのモードラインに表示する必要ない。
run-with-timerで5秒毎に更新して上げてます。
ついでにファイルを開いているときはフルパス、その他のときはバッファ名を表示するようにしてます。

;; タイトルバー
(when (window-system)
  (run-with-timer 5 5 (lambda ()
  (setq display-time-day-and-date t
    display-time-24hr-format t)
  (setq display-time-string-forms
    '((if display-time-day-and-date
      (format "%s/%s/%s " year month day)
        "")
      (format "%s:%s%s"
        (if display-time-24hr-format 24-hours 12-hours)
        minutes
        (if display-time-24hr-format "" am-pm))))
  (display-time)
  (setq frame-title-format
    (concat "[" display-time-string "]"
            " - "
            (if (buffer-file-name)
            (format "%%f")
            (format "%%b"))))
    )))