Change frame-title-format

2021-05-28 20:50:58 -05:00 · 2021-05-28 20:50:58 -05:00 · db1eb2d7b4
parent 1ac673c763
commit db1eb2d7b4
1 changed files with 5 additions and 5 deletions
--- a/init.el
+++ b/init.el
@ -408,12 +408,12 @@
     (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper))))

 (setup frames
-  (:option frame-title-format '((:eval (if-let ((bn buffer-file-name))
-                                           (abbreviate-file-name bn)
-                                         "%b"))
+  (:option frame-title-format '("%b@"
+                                (:eval
+                                 (or (file-remote-p default-directory 'host)
+                                     system-name))
                                " %+%* GNU Emacs"
-                                (:eval (when (frame-parameter
-                                              nil 'client)
+                                (:eval (when (frame-parameter nil 'client)
                                         " Client")))
           window-resize-pixelwise t)