xterm frame title support

diff --git a/lisp/my-defuns.el b/lisp/my-defuns.el
index db7c56f96334e203b8fa3d74055ff60abd49a03a..37d5c3e3bd33ea082c4c2c4534857c41375c8efc 100644 (file)
--- a/lisp/my-defuns.el
+++ b/lisp/my-defuns.el
@@ -18,7 +18,7 @@
        ") - Emacs"
        )
     (concat
-     "%b"
+     (buffer-name)
      (if (buffer-modified-p)
          " +")
      " - Emacs")))
@@ -96,6 +96,11 @@
     (comment-or-uncomment-region (line-beginning-position) (line-end-position)))
   (forward-line))
 
+(defun my/terminal-update-title ()
+  "If using a terminal frame then sends the escape codes to update the title."
+  (if (eq 'terminal-init-xterm (terminal-parameter (frame-terminal) 'terminal-initted))
+      (send-string-to-terminal (concat "\033]0;" (my/generate-frame-title) "\007"))))
+
 (defun my/use-eslint-from-node-modules ()
   (let* ((root (locate-dominating-file
                 (or (buffer-file-name) default-directory)

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)