xterm frame title support

[dotemacs] / lisp / my-gui.el

diff --git a/lisp/my-gui.el b/lisp/my-gui.el
index 9cefd9d9232543045462d1149fba23100731ce3e..50e2ac059b6bb37a1c59adb4850d2ecafbb0f90c 100644 (file)
--- a/lisp/my-gui.el
+++ b/lisp/my-gui.el
@@ -22,19 +22,7 @@
 
 (add-to-list 'delete-frame-functions #'my/kill-buffers-if-deleting-last-frame)
 
-(setq frame-title-format
-      '((:eval (if (buffer-file-name)
-                   (concat
-                    (file-name-nondirectory (buffer-file-name))
-                    (if (buffer-modified-p)
-                        " +")
-                    " ("
-                    (abbreviate-file-name (substring (file-name-directory (buffer-file-name)) 0 -1))
-                    ") - Emacs"
-                    )
-                 (concat
-                  "%b"
-                  (if (buffer-modified-p)
-                      " +")
-                  " - Emacs")))))
+(setq frame-title-format '((:eval (funcall #'my/generate-frame-title))))
 (setq icon-title-format frame-title-format)
+
+(add-to-list 'post-command-hook #'my/terminal-update-title)