[Org] Change title of all active frames when entering new task
This commit is contained in:
parent
4fa4a3bd68
commit
2bc02703eb
|
@ -309,12 +309,13 @@ In ~%s~:
|
||||||
(insert org-clock-heading)))))
|
(insert org-clock-heading)))))
|
||||||
|
|
||||||
(defun db/org-update-frame-title-with-current-clock ()
|
(defun db/org-update-frame-title-with-current-clock ()
|
||||||
"Set the frametitle of the current frame to the headline of the
|
"Set the title of all active frames to the headline of the
|
||||||
current task."
|
current task."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((clock-buffer (marker-buffer org-clock-marker)))
|
(let ((clock-buffer (marker-buffer org-clock-marker)))
|
||||||
(when clock-buffer
|
(when clock-buffer
|
||||||
(modify-frame-parameters nil `((name . , org-clock-heading))))))
|
(dolist (frame (frame-list))
|
||||||
|
(modify-frame-parameters frame `((name . , org-clock-heading)))))))
|
||||||
|
|
||||||
|
|
||||||
;;; Fixes
|
;;; Fixes
|
||||||
|
|
Loading…
Reference in New Issue