Massive update!

[dotemacs] / lisp / my-frame-title.el

diff --git a/lisp/my-frame-title.el b/lisp/my-frame-title.el
deleted file mode 100644 (file)
index bb558b3..0000000
--- a/lisp/my-frame-title.el
+++ /dev/null
@@ -1,35 +0,0 @@
-;;; -*- lexical-binding: t -*-
-
-(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)
-
-
-(defun my/generate-frame-title ()
-  "Returns a string like 'filename (dirname) (hostname)'"
-  (let ((t-name
-         (if (buffer-file-name)
-             (file-name-nondirectory (buffer-file-name))
-           (buffer-name)))
-        (t-directory
-         (if (buffer-file-name)
-             (concat
-              " ("
-              (abbreviate-file-name
-               (substring (file-name-directory (buffer-file-name)) 0 -1))
-              ")")))
-        (t-modified
-         (if (buffer-modified-p)
-             " +")))
-    (concat
-     t-name
-     t-modified
-     t-directory
-     " (" (system-name) ")")))
-
-(defun my/terminal-update-title ()
-  "If using a terminal frame then sends the escape codes to update the title."
-  (if (terminal-parameter (frame-terminal) 'terminal-initted)
-      (send-string-to-terminal (concat "\033]0;" (my/generate-frame-title) "\007"))))