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.
