Add eaf-buffer-title-format

master
feng 6 years ago
parent 8ed8efa6c7
commit 8848c08fa4
  1. 4
      eaf.el

@ -918,6 +918,8 @@ of `eaf--buffer-app-name' inside the EAF buffer."
"com.lazycat.eaf" "update_buffer_title" "com.lazycat.eaf" "update_buffer_title"
#'eaf--update-buffer-title) #'eaf--update-buffer-title)
(defvar eaf-buffer-title-format "%s")
(defun eaf--update-buffer-title (bid title) (defun eaf--update-buffer-title (bid title)
(when (> (length title) 0) (when (> (length title) 0)
(catch 'find-buffer (catch 'find-buffer
@ -929,7 +931,7 @@ of `eaf--buffer-app-name' inside the EAF buffer."
(equal eaf--buffer-id bid)) (equal eaf--buffer-id bid))
(setq mode-name (concat "EAF/" eaf--buffer-app-name)) (setq mode-name (concat "EAF/" eaf--buffer-app-name))
(setq-local eaf--bookmark-title title) (setq-local eaf--bookmark-title title)
(rename-buffer title) (rename-buffer (format eaf-buffer-title-format title))
(throw 'find-buffer t)))))))) (throw 'find-buffer t))))))))
(dbus-register-signal (dbus-register-signal

Loading…
Cancel
Save