Org-clock segment possible?

[dotinspace]

I cannot seem to manage defining a segment to display org-clock. When I add a custom segment, absolutely nothing happens.

Currently, I have the following defined:

  (telephone-line-defsegment my-org-clock-segment ()
       (format "%s" (org-timer-mode-line-string)))
  (add-hook 'org-clock-out-hook
            '(lambda ()
               (setq org-timer-mode-line-string nil)
               (force-mode-line-update)))

Any pointers would be highly appreciated.

[Olivia5k]

This is mine, which I've been using for a long time;

(telephone-line-defsegment th/telephone-clock-segment ()
  (when (telephone-line-selected-window-active)
    ;; The org-clocking-p function isn't necessarily loaded until we start
    ;; actually clocking something.
    (if (and (functionp 'org-clocking-p) (org-clocking-p))
        (org-clock-get-clock-string)
      "")))

It only shows the segment in your currently active buffer's modeline, and it contains the clock and which task you're working on;