Explicitly set frame title when current Org task changes

This should enable new frames to show the correct title, and not just the
default "emacs" string.
This commit is contained in:
Daniel Borchmann 2021-10-16 12:21:02 +02:00
parent 6277e0b104
commit c17bc4c1ab
Signed by: exot
GPG Key ID: 1C7071A75BB72D64

View File

@ -365,8 +365,9 @@ tag PERIODIC."
(interactive)
(let ((clock-buffer (marker-buffer org-clock-marker)))
(when clock-buffer
(setq frame-title-format org-clock-heading)
(dolist (frame (frame-list))
(modify-frame-parameters frame `((name . , org-clock-heading)))))))
(modify-frame-parameters frame `((name . ,org-clock-heading)))))))
(defun db/show-current-org-task ()
"Show title of currently clock in task in modeline."