Well I just went ahead and wrote the hack anyway and it seems to work
for me, here is what I did:

;; show clock and timer stuff in the frame title
(defvar plain-frame-title-format frame-title-format)
(defun clock-in-frame-title ()
  (if (org-clocking-p)
      (setq frame-title-format (list (concat
                                      (car plain-frame-title-format)
                                      " :: Clocked in: "
                                      (org-clock-get-clock-string)
                                      " :: Pomodoro:"
                                      org-timer-mode-line-string)))
    (setq frame-title-format plain-frame-title-format)))
(run-at-time t 1 'clock-in-frame-title)
(add-hook 'org-clock-in-hook 'clock-in-frame-title)
(add-hook 'org-clock-out-hook 'clock-in-frame-title)
(add-hook 'org-clock-cancel-hook 'clock-in-frame-title)

Any comments? Is run-at-time the best thing to use here?  Note that I
use the Pomodoro method and use the code to start the Pomodoro that was
posted to this list previously: http://orgmode.org/worg/org-gtd-etc.html

Borbus.

Reply via email to