(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 (stri…