(require 'org) (require 'org-timer) (require 'cl-lib) (defvar my/org-timer-current-task nil) (defun my/org-timer-start-hook () (setq my/org-timer-current-task (nth 4 (org-heading-components))) (cl-loop for buf in (buffer-list) unless (string-match-p "\\`[[:space:]*]" (buffer-name buf)) do (with-current-buffer buf (setq-local header-line-format '((" " my/org-timer-current-task " "))))) (setq-defaul